I 



LABEL OGOOOOOOOPRINTER001751?2CC EX 08 JECT/KEYWORD J F I LE SOURCEF I LE*SYMBOL/TSSMcPl END* 



OBJECT /KEYWOKU 



SAVE REAL PROCEDURE GETSPACEC S l,/E» TYPE* SAVEF ) » 
SAVE REAL- PROCEDURE WA I T I 0( IOD.MASK.U) !X 

PROCEDURE ERRORnXER(TYPE)> VALUE TYPE! REAL TYPE! FORWARD! 
SAVE PROCEDURE SLEEPCADDRFSS.MaSK) J X 

SAVE PROCEDURE McPlN(S)! VALUE S! REAL S!FORWARD! 
SAVE PROCEDURE LOGT I M j Nq( M j X, B > ! VALUE MIX.B! REAL Mix.B! FORWARD!* 
SAVE PROCEDURE ESPBlT* COMMENT PRESENCE BjT ROUTINE FOR ESP SEGMENTS 
STREAM PROCEDURE MOVE( N > "WORDS FROM"( HERE )"TO«( THERE )! * 

PROCEDURE STOPMI FORWARD! 
PROCEDURE SETMONITORFILE(STOP)! VALUE STOP! REAL STOP! FORWARD! 
PROCEDURE GETMONITOROW! FORWARD! 
PROCEDURE LOGDISK! FORWARD! 

PROCEDURE LINEMESSAGES(BUFF)! VALUE BUFF! REAL BUFF! FORWARD! 
PROCEDURE WHATSGOINGON(BUFF)! VALUE BUFF! REAL BUFF! FORWARD! 
PROCEDURE CHANGElNTRlNSiCFlLE(BUFF)! VALUE BUFF! REAL BUFF! FORWARD! 
PROCEDURE CHANGEMCP(BUFF)! VALUE BUFF! REAL BUFF! FORWARD! 
PROCEDURE PRINTDJRECTORYCBUFF)! VALUE BUFF! REAL BUFF! FORWARD! 
PROCEDURE MlXPRjNTfBUFF)! VALUE BUFF! REAL BUFF! FORWARD! 

SAVE PROCEDURE FORGETSPACE ( LOC ) I * 
SAVE PROCEDURE LOGT I M 1 NGCMI X, B) ! VALUE MIX.B! REAL MJX.B! 

REQUESTED ADDRESS iS UNLOCKED. THE PROCEDURE FINDFREEADDRESS 
SAVE REAL PROCEDURE TWO(N)! VALUE N! INTEGER N! 
PROCEDURE F0RGETUSERDISK(A»L)!VALUE A.LIREAL A.L!FORWARD! X 
REAL PROCEDURE PETUSERDl SK( N. T) ! VALUE N.TiREAL N»T!FORWARD ! 
PROCEDURE DT!FORWARD! 

real procedure exp! forward! 

procedure schedi0cnum,type#adr)! 

procedure schedidle(adr)! value adr! real adr! forward! 

procedure userdiskspecialcase(q»r»u»j)!value q.jjreal u.r.j! 

procedure forgetespdlsk(seg)!value segireal seg!forward! 

SAVE INTEGER PROCEDURE Dl SkSPACE( NWORDS.Pl M I X. AUX) I 

PROCEDURE STATUS!* 

PROCEDURE INTERRUPT(TYPE)! VALUE TYPE! REAL TYPE! FORWARD! 
REAL PROCEDURE FI NDOUTPUT(MlD.FID. TYPE . FORMS, REELf CDATE .CYCLE. KIND) I X 
REAL PROCEDURE FIND I NPUT(MjD»Fl D. REEL. CDATE. CYCLE#COBOL#UL» OF .MODE. FN 
PROCEDURE STARTiMlNGtFN.U)! VALUE FN.U! REAL FN.U1 FORWARD!* 

PROCEDURE FILEOPEN(X.A)! VALUE X.A! INTEGER X.A! FORWARD! 
PROCEDURE ENTERSYSMTR(N)! VALUE N! REAL N! FORWARD! 

SAVE PROCEDURE SAVEOPEN(A)! VALUE A! REAL A! 
PROCEDURE SETNOTlNUSE(U.RWL)! VALUE U.RWL! REAL U.RWL! FORWARD! 
PROCEDURE FILLBUFFERSc CURRENT. FINAL. COBOL* NR)! 

PROCEDURE REALFILECLOSE(A)! VALUE A! REAL A! FORWARD! 

SAVE PROCEDURE F ILECLOSEC A ) I VALUE A! REAL A! 
REAL PROCEDURE D I SK ADDRfSS( M I D. F I D.FPB3. A»H# I ) ! * 

PROCEDURE BLASTQ(U)! VALUE U! REAL U! FORWARD!* 
REAL PROCEDURE FlLEHEADER(MlD»FlD»NROWS.$lZE»BLEN»RLEN,S)!X 
PROCEDURE PURGElT(U)! VALUE U! INTEGER U! FORWARD!* 

DIRECTORYSEARCH, NSECOND. AND CLEANOUT ARE THE PROCEDURES 
PROCEDURE LOCKER(SEGMENT)! 

PROCEDURE SELECTRUNCFJ! VALUE F! REAL F! FORWARD! 
PROCEDURE CONTROLCARD(A)!VALUE A!REAL A! FORWARD!* 
REAL PROCEDURE DlRECTORYSEARCH(A,B.C )l VALUE A.B.CIX 
PROCEDURE NEXTDClO!FORWARD! 

PROCEDURE ARTN(A.N)! VALUE A.N! ARRAY A[*j! INTEGER N! FORWARD!* 

SAVE PROCEDURE DJ SKWA I T( CORE. S J ZE. Dl SK ) ! 

PROCEDURE MAKEPRESENT(A)! VALUE A! REAL A! FORWARD! 

SAVE PROCEDURE Dl SKlO(L»C.S.D) ! VALUE C»S.D! REAL LI INTEGER C»S»D!X 
PROCEDURE SPOUTIT(MESSAGE.TYPE)! 
PROCEDURE SPOUTER( MESSAGE. UN I TNO. TYPE)* 
PROCEDURE FILEMESSAGE(I.K.M.F.R.D.C.TYPE)! 



% 



% 
X 

cs 



00014000 
00018000 
00019500 
00020000 
00024500 
00025000 

!* 00025900 
00032000 
00089100 
00089510 
00089520 
00089530 
00089540 
00089550 
00089560 
00089570 
00089590 
00089600 
00090000 
00165050 
00296380 
00306000 
00316000 
00316100 
00317000 
00317010 
00318110 
00318140 
00336100 
00364000 
00365000 
00369000 
00370500 
00371000 

)! 00374000 
00377000 

R9000379000 
00379010 

R9000379100 
00380000 
00385000 

R9000389000 

R9000389100 

HM)00390000 
00392000 
00393000 
00397000 
00418970 
00422500 
00426900 
00427000 
00428000 
00429100 
00431000 
00431100 
00431500 
00432000 
00450300 
00451800 
00452600 



PROCEDURE LBMESSfFN, 

PROCEOURE TERMINATE 

SAVE PROCEDURE TERM 

BOOLEAN PROCEDURE Sy 

PROCEDURE ENTER5YSFI 

PROCEDURE C0M5* y 

PROCEDURE FILLSYSTAT 

PROCEDURE SAVESTATiS 

PROCEDURE ASRJ F 

PROCEDURE COMiil F 

PROCEDURE COMJ3J F 

PROCEDURE COMMUNiCAT 

PROCEDURE COMMUNiCAT 

PROCEDURE UlBRARYLO 

PROCEDURE UIBRARYZE 

PROCEDURE LIBRARYDU 

PROCEDURE DUMPCORECB 

PROCEDURE C0M19J f 

PROCEDURE C0M23* FO 

PROCEDURE INTRJNSICT 

PROCEDURE MESSAqfTAB 

SAVE PROCEDURE RESUL 

SAVE PROCEDURE PUNT( 

PROCEDURE CREATEUOG 

SAVE PROCEDURE PAUSE 

SAVE PROCEDURE CHEC 

SAVE PROCEDURE SWAP 

PROCEDURE ShORTCOMMU 

PROCEDURE INlTi ALSW 

PROCEDURE BRINGBACK 

PROCEDURE REENTER(S 

PROCEDURE SWAPPER? 

BOOLEAN PROCEDURE 

SAVE REAL PROCEDURE 

SAVE PROCEDURE FORGE 

SAVE INTEGER PROCED 

SAVE PROCEDURE LlNKE 

SAVE PROCEDURE FORK 

SAVE PROCEDURE KILL 

SAVE PROCEDURE SLEE 

SAVE PROCEDURE COMP 

SAVE PROCEDURE RUNc 

SAVE PROCEDURE SAVE 

SAVE PROCEDURE HAUT 

SAVE PROCEDURE ENTER 



SN» I1»I?»E#UNITN0,X)1 

(MIX); VALUE MJ XI REAL MIX* FORWARD* 

INALMESSAGE(N)I VALUE N* REAL N; FORWARDS 

STEMF!LE(A,B)*VALUE A,B* REAL A,B» FORWARD* 

LE(N)J VALUE N* REAL N* FORWARD* 

ORWARDJS6 

J FORWARD* 

TICS* FORWARD* 

ORWARDJX 

ORWARD»X 

ORWARD'X 

EOJ FORWARD* 

El* FORWARD* 

ADJ FORWARD* 

RO* FORWARD* 

MP; FORWARD* 

)> VALUE B» REAL B* FORWARD* 

1% 

% 

ILDER(FH)* 

DER* FORWARD* 

LUE I* REAL I* 

VALUE DDD* ARHAY DDD[*J* FORWARD* 

ALUE R» REAL R* 

(MjX.LOO* VALUE MlXtLOC* REAL MIX.LOC* 

,B)I VALUE STATE, B* REAL STATE, B* FORWARD 

S*FORWARD» 
VALUE N* REAL N* FORWARD* 
VALUE MlX> REAL MIX* FORWARD* 
VALUE STUFF* REAL STUFF* FORWARDJ 

RD* 

(B)* BOOLEAN B* FORWARD* 

EA(N)» VALUE N; REAL NJ 

N»A)I VALUE N,AJ REAL N»A» 

ACE(N)* 

RWARD* 

NE, PARAMETER, PRIORITY, SjZEi 

)* 

FSS, MASK)I 

FP(CODE)* 



PROCEDURE OCWRjTECAD 

BOOLEAN PROCEDURE BL 

SAVE PROCEDURE IOR 

PROCEDURE OLDWIERDHA 

PROCEDURE NOTIFYCAND 

PROCEDURE SYSDlSKj 

SAVE PROCEDURE NEW 

SAVE PROCEDURE START 

SAVE PROCEDURE I N I T i 

PROCEDURE NEXTDCIO* 

SAVE PROCEDURE ENTER 

PROCEDURE USASjTAPE( 

INTEGER PROCEDURE A 

PROCEDURE FORGETAUX 

PROCEDURE FILLORKIL 



ORWARD 

RWARD* 

ABLeBU 

LEBUIL 

TJ 

I)* VA 

(ODD)* 

(R)* V 

KLINKS 

(STATE 

NICATE 

AP(N)* 

(MIX)* 

TUFF)J 

FORWA 
UTWAlT 

GETAR 

tareac 

URE SP 
u; FO 
(ROUT I 
(STACK 
P(ADDR 
LEXSLE 
MIX)* 
MlX(Mj 

t 

LlNEQ( 

R,LlNE 

ASTREA 

EOUFST 

ROLD* 

E(MlX) 

0(lO,L 

10* 

I0(U)* 

ATEDCI 

EADYQ( 
AREA,T 
UXILIA 
ILIARY 
L(A, S 



* 



FORWARD* 
FORWARD* 



LOCATION)* 



X.LOGLINE)* 

ADR, LINE, PRjRTY)* 

»SjZE)* 

D(LINE,C)* 

(FINAL, IODESCLOC AT ION)* 

FORWARD* 
J VALUE MIX* REAL MIX; FORWARD* 
,A)» VALUE J0,L,A* ARRAY AC*3*REAL lO,LI 

FORWARD* 

value u* Real u* forward* 
0(iodesc,s); 



00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 




T)* 

YPE,FR0M,U,DIRJ* 
RYSPACE(SIZE)* 
SPACE(SIZE.LOC)* 
TART, SIZE, TYPE)* 



xrhr 



o 
o 
o 
o 
o 








XR600 












454000 

463100 
463200 
463300 
464000 
469000 
469100 
469200 
4MOO0 
475000 
477000 
478000 
476500 
479000 
479500 
480000 
480100 
483000 
487000 
489000 
491000 
646000 
650000 
/50000 
601000 
803000 
990000 
99050J 
991000 
992000 
992100 
992200 
993000 
994000 
994500 
995000 
998500 
070000 
089000 
099000 
123000 
127000 
138000 
150000 
163100 
163350 
163410 
163500 
164000 
164200 
164300 
164500 
165000 
166000 
190000 
223000 
250100 
267000 
271000 
275000 



PROCEDURE REP0RTBACK(WHY.PltP2)l 02016000 

procedure makelog(m»t); value m.tl real m.tl forward* 02020000 

Real procedure keyincb)! value bi boolean b< forwaRdi* 02021000 

boolean procedure whysleepc mask ) i value mask? real mask; forward!! 02022000 

boolean procedure olaycloc.mixx) i 02052500 

procedure seeknam(a,b,c»d,e»n)i value a.blrfal a. b.c. d.l.n! forward! 02052700 

PROCEDURE UNH00UUE(MIxm 02053000 

REAL PROCEDURE GETESPDlSKIFORWARDl! 02111000 

PROCEDURE DIRECTORYBUILDER(A.DDO)! 02112000 

PROCEDURE TWX0UTCA.B.C»D)l VALUE A.B,C»DI REAL A»B.C»DI FORWARD! 02113200 

PROCEDURE MESSAGEWRlTER! 02114000 

PROCEDURE SPOUTiT(MeSSAGE»TYPE>! 02132000 

PROCEDURE SPOUTeR(MESSAgEpUNiTNO,TyPE)! 02132300 

procedure endofdeck(r)! value hi real r! forward! 02177100 

procedure pblo(aib)! value a! rfal a.bi forward! 021/8500 

procedure terminate(mix)! value mjxi real ml x! 1 02160000 

real procedure placefindercs, a, l) ! 02167100 

procedure stopcandy! forward! 02187600 

procedure terminalmessagacn)! value n! real n! 02188000 

save procedure term i nalmessagec n ) ; value n! real n! 02330100 

boolean procedure reademfromd i sk( h, i b ) ! 02347150 

procedure drainqcunit.bump.frror)! 02347200 

Real stream procedure unitinctinu.what)! value whatix 02348000 

real procedure eufca,b.l>! value a.b.li real a.b.l! forward! 02379000 

integer procedure c alculaupurgec purge > 1 1 02380000 

procedure changedate(buff)> value buff! real buff! forward! 02393100 

real procedure t apelabelc m.f »r. c #p ) ! value m.f.r.c.pi iaiq2393400 

procedure printc0re(x)j value x! real x* 110302394000 

procedure dumpcorecbuff)! xai02434100 

procedure namfid(a.ktr)!j! 02603000 

real procedure tap£label(mulf id. fi d.reelno. cycle.purge) i % 02635000 

real procedure labelascratchclbl )l value lblireal lblj! 02659000 

procedure nsecond!forwardij! 02692000 

boolean procedure systemf i lf ( a . b ) i value a.blreal a.b! forward! 02692500 

Real procedure putqrtakecmix,wheRe»io»what)i 02700000 

procedure nirectoryfull(passby)! value passby! real passbyi 02722000 

procedure dcerr(r)! 02740000 

procedure dcbusy(v)! 02761000 

procedure moreareasi 03002000 

save procedure forgetarea( n. t ) i value n.t! real n.ti 03015000 

save Real procedure getarea<n)i value ni real ni 03029000 

save procedure quev£nt( t ,ml x ) i 03048000 

procedure c0mm11 % disk i/o communicate 03053000 

procedure c0mm2i % command language wait communicate 03061000 

procedure logout! forward! 03070000 

real procedure i nputscan(mode#source.dest, num. flags) ! 03071000 

real procedure 0utran980( adr»num,typetlcc.b) i 03075000 

procedure givfaway(a)! value a! real a! forward! 03079000 

real procedure outranb jds( adr»num, type.b.c ) i 03080000 

real procedure 0utrantc( adr.num. type»b»c ) i 03080200 

procedure runseptlcfbuff)! value buffi real buffi forward! 03081000 

save procedure dl sposalcl. i »r) i value l»i»ri real l#i»rl forward! 03081100 

procedure makepresent(a)! value a| real a! forward* 03099000 

procedure c0mm9i 03100000 

procedure rep0rtbackcwhy.p1.p2)! 03111000 

procedure twx0utcadr»num,type»ll)i 03124000 

procedure cleartank(ll.mcp)! 03200000 

REAL PROCEDURE DCWRl TEC ADR*LjNE»Sl ZE ) I 03214000 
PROCEDURE SPOSETCTYPE.BUFH)! VALUE TYPEiBUFH* REAL TYPEiBUFHI FORWARD! 03245900 

PROCEDURE QUlTTER(LlNE)! 03246000 



PROCEDURE DCWAlT(ADNtLINE»RtMASK»CLCK>» 03267000 

REAL PROCEDURE I NPU T SCANC MODE, SOURCE* DEST ,NUM, FLAGS) J 032^6800 

PROCEDURE C0MM13I 03292000 

PROCEDURE C0MM5J 03375000 

PROCEDURE ENTERLlNEQ(ADR»LlNEtPRlRTY); 03*17000 

PROCEDURE NAKQUE* 03440000 

PROCEDURE DCTIMeOUT(R)) VALUE RJ REAL RJ 03458000 

PROCEDURE NOTIFYCANDEJ 03504000 

PROCEDURE PAPEKTAPElO(R.STA»FLAGS,BUFSZtMi)j % HANDLES END Of MESSAGE 03550000 

PROCEDURE HELLO(K); 03573000 

PROCEDURE OLDWIERDHAROLDJ 03608000 

SAVE PROCEDURE GIVEAWAY^)* 03689000 

PROCEDURE DClOF!NlSH(R)J 03710000 

SAVE PROCEDURE IN I T 1 ATEI 0( I ODESC »MJ X,U) i % 04000000 

SAVE PROCEDURE WA I TORSWAP(U, A ) J VALUE U.AJ HEAL U»AI 04014200 

SAVE PROCEDURE OUEUEUP(U)! VALUE U i HEAL UU 04016000 

SAVE PROCEDURE LINKEUJ 04019500 

SAVE PROCEDURE STARTlO(U)J VALUE UJ REAL UJ* 04020000 

SAVE PROCEDURE PRj NTeRf I Ni SH(U ) ; VALUE UJ REAL [)t% 04035000 

SAVE PROCEDURE lOREOUEST<FfNAL» lODESCiLOCAT IONJII 04U40000 

SAVE PROCEDURE F I N I ShOFF I 0( U ) J VALUE UJ REAL UU 04067000 

PROCEDURE PROGRAMRELEASEJX 04099000 

SAVE PROCEDURE NENfOlX 04U5000 

PROCEDURE DISKORAUXERROR(R)} VALUE K» KeAL NJ FORWARD* 04121410 

PROCEDURE ACTUALlOEHR(R)J VALUE RJ HEAL HI FORWARD* 04121425 

PROCEDURE LINKUP(TYPE.KEY)> VALUE TYPEiKEYJ HEAL TyPE»KEYJ FORWARDS 04121450 

PROCEDURE CHECKJOBORF ILEMESS(MIX.FIB.U3JX 04121500 

PROCEDURE L0G0UTMAlNT(B)J VALUE BJ REAL BJ FORWARDU 04121600 

PROCEDURE MAINTL0GGER(B)J VALUE B? REAL BJ FORWARD!* 04121650 

SAVE PROCEDURE I OF I NI Sh( R * C ) J VALUE R.CJ REAL R»CJ 04122000 

SAVE REAL PROCEDURE WAiTlO(!OD,MASK,Um 04240000 

REAL PROCEDURE TAPEPARl TYRETRY(R#U,KEY) i% 04254000 

PROCEDURE DISKORAUXERROR(R)* VALUE RJ REAL RJ 04256000 

END PROCEDURE Dl SKORAUXERROR J 04353000 

PROCEDURE ACTUALI0EHRCR)J VALUE RJ REAL RJ 04353200 

real procedure tapepar i tyrftry(r»u , key ) j i! 04548000 

Real procedure placefindercs,a»uj 04700000 

REAL PROCEDURE SECURlTYCHECK(MlDtFIDfUSE»HEAD)J 04790000 

PROCEDURE ShEETDIDDLERCBUfF»TYPe»SiD)J VALUE BUFF»TYPE#SIDJ 04798000 

PROCEDURE ZIPPER(X,Y)J VALUE X.YJ REAL XtYJ FOBWARDJ 04800000 

PROCEDURE DISKL0G(MID.FID, H)J VALUE MlD,FlD,HJ ARRAY HC*U *U20460Ql00 

PROCEDURE INDIANBOYJ 05020000 

PROCEDURE INDIANGIRLJ 05220000 

PROCEDURE C0MM15J % INDEPENDENT STARTER FOR CANDE 05407000 

PROCEDURE SySDlSKlO(iO,LlNEtA)J 05423000 

PROCEDURE LOGWARNfROJ VALUE RCJ REAL RCJ 05461000 

PROCEDURE F0RMTIMECW,T)J VALUE W.TJ REAL W,TJ 05607000 

PROCEDURE MAKELOGCMESS,TYPE)J 05620000 

PROCEDURE STARTCANDY(FSED#PRI0RITY)J 05655000 

PROCEDURE STOPCANDYJ 05700000 

PROCEDURE SPREADTHEWORDJ XUPDATeS ADINfO & SENDS hVL MESSAGE TO 05720000 

PROCEDURE C0MM17J 05750000 

BOOLEAN PROCEDURE BLASTREADCL 1 NE»C ) J 05758000 

PROCEDURE SCRATCHSORT(A.N) J 05806500 

PROCEDURE SCRATCHDIRECTORYERROR(A.N) J 05809600 

BOOLEAN PROCEDURE SCRATCHCHECKf I »H»S> J 0581H70 

PROCEDURE ScRATChSPECIALCASE(CN»A#N,C0RADDR»SEGADDR»I.H»5CRATCHSEG)J 058U340 

PROCEDURE SCRATCHDlRECTORYENTER(A»N)J 05813700 

PROCEDURE SCRATCHDlRECTORYOELETECA,N)J 05827300 

PROCEDURE SCRATCHCLEAN(ARY.BC.LINK) J 05837800 



REAL PROCEDURE PETUSfcRD I SK ( N , T ) I VALUE N,TI BtAL N»T ; 05839400 

PROCEDURE FORGETUSERDlSK(A,N)l VALUE A»NI REAL A,N I 05647000 

PROCEDURE KRUNCHER(H)* ARRAY H[*l* FORWARD* XR5005649900 

PROCEDURE SCHEDLOOKCKTR.TYPE)* VALUE KTR,TYPEJ REAL KTR.TYPEIX 05850000 

PROCEDURE SCHEDIDLE(A0R)» VALUE ADR; REAL ADRl 05858700 

PROCEDURE SCHEDI0(NUM,TYPF»ADR)J 35* IF FORQUED THEN ONLY 1 PARAM, 05693000 

PROCEDURE DKBUSlNESS(BUFF>J VALUE BUFF* REAL BUFF* X02B-05950000 

SAVE PROCEDURE DJ SK I 0(l,0C lOD*COREt Si ZE» D] SK ) J % 06000000 

PROCEDURE FORGETESPD|SK(S)l VALUE SI REAL S; FORWARD! 06020500 

REAL PROCEDURE GETESPDlSKIX 06021000 

PROCEDURE FQR6ETESPDISK(SFGMENT)J VALUE SEGMENT* REAL SEGMENT*! 06036000 

PROCEDURE DlSKBUGlX 06046000 

PROCEDURE CLEANOUT(SYS)! 06057340 

END! X OF PROCEDURE CLEANOUT 06059820 

SAVE PROCEDURE DI SKWAJ Tc C0RE.SjZE»Dl SK) i 06061500 

PROCEDURE DlSKSOUASH(BUFF)! 06068000 

SAVE PROCEDURE INITIALIZE* FORWARD* 06179400 

SAVE REAL PROCEDURE CORENDJ FORWARD* 06179600 

PROCEDURE USERDlSKSPEClALCASE(Q.RtUl»J) I 06350000 

PROCEDURE GETMOREOLAYDlSKcMjxm 06400000 

REAL PROCEDURE SECUR I TYCHECK(MiDiFID»USeRiDi HEADER) * 06460000 

boolean procedure outwajt(b)* boolean b* 06467000 

real procedure 0utran980 (adr»num,type»lcctbj* x10906500000 

Real procedure outranbidS(adr,num,type*b.t>* 06590000 

real procedure outrantc ( aor» num, type $ b# c ) * 06610000 

real procedure nextcdnum(update ) 1 value update* boolean update* 07001600 

procedure startadeck(n)* value nj real n* forward* 07002000 

procedure entercontroldeck(h)* value h* array h[*3* forward* 07002100 

procedure c0m23ix 07004000 

procedure startloadn(ktr)) value ktrj real ktrix 07243000 

procedure table0fc0ntents(b»c0untm 07268000 

procedure removedeck(n,u)* value n#u* real n.uj 07298000 

procedure deckremover(b)* value b* real bix 07354000 

BOOLEAN PROCEDURE RFADEMpROMDl SK(h# I B ) I X 07376000 

BOOLEAN PROCEDURE PR I NTORPUNCHWA J T( Q, PNCH ) * VALUE «»PNCH*REAL Q.PNCH* 07405100 

PROCEDURE ENDOFDECK(R)J VALUE R* REAL R* 07406000 

PROCEDURE STARTADECK(N)/ VALUE N| REAL N* 07422000 

PROCEDURE RUNTHEDECK(B)»VALUE BJ REAL B * % 07457000 

PROCEDURE EXTERNALEND(B)! VALUE B* REAL B* 07473100 

PROCEDURE CHANGEPRlORlTY(BUFF#MlX)l VALUE BUFFiMlXl REAL BUFF. MIX! 07485000 

PROCEDURE ENTERCONTROLDECK(H)* VALUE H* ARRAY H[*J* 07541000 

BOOLEAN PROCEDURE MTX I N( I »U, BUFF ) * X 08000000 

PROCEDURE TAPEPURGE(BUFF)* VALUE BUFF* REAL BUFFIX 08024000 

PROCEDURE MiXPRlNT(BUFF)* VALUE BUFF* REAL BUFF** 08058000 

PROCEDURE REWlNDANDLOCK(WHAT)i VALUE WHAT* REAL WHATU 08079000 

PROCEDURE GlMEDATE(BiDT)* VALUE B,DT* REAL B,DTI FORWARD* XRH 08094500 

BROCEDURE PRlNTDlRECTORY(BUFF) * XDSX08095000 

procedure pbioca.p); value a) real a, pi forward! xp 08170100 

procedure continuitybitix 08171000 

boolean procedure pr int0rpunchwait(«,pnch) j value q»pnch*real «»pnch* 08255000 

% This procedure is responsible for starting prnpbt/djsk, it checks 08255055 

procedure prjntbackup(buff)* value buff* real buff* ip 08282000 

x this procedure handles the pb message* making the necessary checks 08282110 

PROCEDURE TIMEOUT (B)l VALUE Bl REAL BIX 08305000 

PROCEDURE GIMEDATE(BtDT)J VALUE BiDTl REAL B.DTl 08317000 
PROCEDURE DlSKLOGf MID.FIO.H)* VALUE Ml D# F I D» H* REAL MI D* F I 0* ARRAY H[*J1 0834H00 

PROCEDURE SETDATE(BUFF)* VALUE BUFF* REAL SUFFIX 08343000 

PROCEDURE CHANGEDATE(BUFF)* VALUE BUFF* REAL BUFF*X 08376000 

PROCEDURE SETJME(BUFF)* VALUE BUFFI REAL BUFFIX 08390000 

REAL PROCEDURE FORMESS( BUFF »H1 ) * VALUE BUFF#H1* REAL BUFF»Hl* 08418000 



PROCEDURE SUSTATUSfA.DDD.B); VALUE. A»DDD,BJ REAL A,BI ARRAY DDDt *3 » 06438900 

PROCEDURE QUTPUTLABEL(B)! VALUE Bl REAL BIX 06439000 

PROCEDURE TiMfUSED(B#X)l VALUE B.XI REAL B.X1X 08525000 

REAL PROCEDURE ANVjLUL#Z)J VALUE 1L»ZI REAL IL.ZIX 08546000 

PROCEDURE SAVETHEUNIT(B)! VALUE Bl REAL BIX 08575000 

BOOLEAN PROCEDURE WhYSLFEPC MASK ) J VALUE MASK* REAL MASK* 08599000 

END PROCEDURE WhYSLEEP* 08623000 

PROCEDURE CHANGEOPTlON(RUFK.RS)l* 08624000 

PROCEDURE TYP0P(KTR,P03J VALUE KTR.POl REAL KTR.P01 08679000 

PROCEDURE PBlOcALPHA»POjNTER)l VALUE ALPHA! REAL ALPHA* PO J NTER» XP 08700000 

X THIS PROCEDURE HANDLES 10 FOR THE CREATION OF BACK-UP FILES, FOR 087009i0 

PROCEDURE TlMFRELAXER(KTR.TYPE»MlXm 08730000 

PROCEDURE CHANGEFACTOR(BUFF»TF)J VALUE BUFF.TFI REAL BUFFI BOOLEAN TF; 08800000 

PROCEDURE SHEETDIDDLER(BUFF#TYPE.SiD)l VALUE BUFF»TYPE,S IDI 08850000 

PROCEDURE LOGOUT? 09000000 

PROCEDURE LOGDjSKl 09050000 

PROCEDURE LINEMESSAGES(BUFH)J VALUE BUFHI SEAL BUFHl 09100000 

PROCEDURE CALLCANDE(BUFH.TYPE); VALUE BUFH.TYPE1 REAL BUFH,TYPEI 09300000 

REAL PROCEDURE NEXTAUXMEMWORDCHEADER* F ILEPARAM» D I SKADDRESS) 1 09400100 

if diSkaddress ? o then x first call on procedure 09401300 

EXjTl END PROCEDURE NEXTAUXMEMWORD I 09404300 
PROCEDURE TRANSFERMCPTOAUXMEM(HDRADRSfMAXLOC)* VALUE HDRADRS. MAXLOC I 09404400 

END PROCEDURE TRANSFERMCPTOAUXMEM J 09410000 

PROCEDURE SETMONITORFILF(STOP)> VALUE STOP; REAL STOPI 09410200 

END PROCEDURE SETMON I TORF I LE I 09423600 

PROCEDURE GETMONITOROWI 09423900 

END PROCEDURE GETMQNi TOROWI 09428800 

PROCEDURE FNTERSYSMTR(N); VALUE Nl REAL N; 09428900 

KXl T I END PROCEDURE ENTfRSYSMTRI 09433500 

PROCEDURE CHANGEAUXFILES(BUFF»WA)> 09433600 

PROCEDURE WHATlNTRNSlC(B)! VALUE Bl REAL Bl FORWARD! 09491000 

PROCEDURE INTRINSICTABLEBUILDER(FH)* VALUE FHl REAL FHl 09500000 

boolean procedure systemf ilec a,b)i value a,bi real a.bj forwardj 09550000 

procedure changeintrinsicfile(buff)' value buffi real buffix 09600000 

procedure changemcp(buff)! value buffi real buffi 09679100 

boolean procedure systemf ilec a, b) i value a,bi real a, bix 09700000 

procedure whatsgoingon(bufh)! value bufhi real bufhi xdsx09800000 

procedure fencemovercb, buff)i 09900000 

procedure lineclear(ktr)! 09955000 

real stream procedure gnccb)ix 10001000 

boolean stream procedure tan(e) i value c ix 10007000 

Real procedure expi 10012000 

stream procedure frm t 1 £ 0. t ,m» wb ) i value ««t»mix 10047000 

PROCEDURE DTI 10082000 

REAL PROCEDURE PRNPBTSPECASE1 (Z) I 12500000 

X THIS PROCEDURE HANDLES THE FOLLOWING FUNCTIONS FOR C0M19, DEPENDING 12500110 

PROCEDURE PRNPBTSPeCASE2(Z)I 12800000 

X THIS PROCEDURE HANDLES ADDITIONAL THINGS FOR C0M19, VALUES Of Z AREU2800llO 

PROCEDURE C0M19J 13000000 

PROCEDURE SPOS£T(TYPE»BUFH>l 13200000 

REAL PROCEDURE ANALYSIS!* 14000000 

SAVE INTEGER PROCEDURE ACTUAL0VERLAYADDRESS< TYPE . MIX, LOOl 14105000 

PROCEDURE AUXiLjARYMEMORYCASUALTYRECOVERY! 14120000 

PROCEDURE AUXILIARYTABLEINITIALIZEI 14122000 

PROCEDURE MAKEPRESENT(C)! VALUE CI REAL CIX 14155000 

PROCEDURE C0M5IX 14343000 

PROCEDURE ZIPPER(W1#W2)I VALUE W1.W2I REAL W1,W2IX 14531000 

REAL PROCEDURE EUFCA.BtDl VALUE A,B,LI REAL A»BtLI 14543000 

PROCEDURE C0M11I COMMENT ALGOL I/O COMMUNICATEE 14623000 

PROCEDURE DISPLAY(X)! VALUE XI REAL XIX 15019000 



PROCEDURE C0M13 ;* 
PROCEDURE WHATS1TCBUFH)> 

BOOLEAN PROCEDURE CONQUE 
REAL PROCEDURE BATCHSELFC 
PROCEDURE COREPRlNT(0)J 

BOOLEAN PROCEDURE PRTGAM 
PROCEDURE SPOUTMCP(BUFF)* 
PROCEDURE WHATINTRNSICCBU 
REAL PROCEDURE AUXPRjNTfQ 

END PROCEDURE AUXPRjNT 
REAL PROCEDURE KEYlNSCANc 

END PROCEDURE K£YIN$CA 
PROCEDURE KEYlNOfB,KTRX)J 

END PROCEDURE KEYINOJ 
PROCEDURE KEYIN1(B,KTRX)J 

END PROCEDURE KEYIN11 
PROCEDURE KEYIN2(KTRX)J V 
% AUXILIARY PROCEDURE TO 
% THIS PROCEDURE IS CALLE 
% PROCEDURE "KEYIN"; 

end procedure keyin2i 
real procedure keyjncb)* 
* this procedure function 
% this procedure function 

I n KEYlNO","KEYlNl w AND » 

% are called directly* an 

end procedure keyinj 
procedure lbmess(fn»sn» it 
procedure stqpmj 
procedure fileholoc 
real procedure 
procedure communica 
procedure communica 
procedure short 
procedure frontend 
procedure selectrun 
%%%% those decl 

THIS PROCEDURE 
THIS PROCEDURE 
RETURNING TO Th 



value; bufhj Real bufhj 

R(C»N#L»S»G)J 

T(f»n.b»d; value f»ni 

escbuff»mix)» value buff»mixj Real buff.m 
value buffj real buffj 
ff)j value buff* real buffj 

}; VALUE «> REAL q; 

I 

KTR#MIX)» REAL KTR.MiXJ 
NI 
VALUE B,K7RX) REAL 8»KTRX; 

VALUE B,KTRXJ REAL B.KTRXI 

ALUE KTRXJ REAL KTRX; 

"KEYIN", 

D AS AN INDEPENDENT RUNNER FROM 



VALUE Bi REAL B'» 

S AS A ORlVER FOR AUXILIARY PROCEDURES 
S AS A DRIVER FOR AUXILIARY PROCEDURES 
KFYIN2", PROCEDURES "KEYINO" AND "KEY I N 1 " 
D PROCEDURE "KEYJN2" IS FORKED AS AN 

#I2tE»UNlTN0»X)> 



G»LOC*HOLD)J 
CTORYSEARCH(A»B»OPTN)I» 



A#B»TO 

DIRE 

TE1> 

TEOJ 

COMMUNICATES! 
(MjX)» 

1; 

ARED I 
WILL B 
WILL B 
AT PRO 



N PROCEDURE 
E EXECUTED, 
E EXECUTED. 
CEDURE, 



SELECTRUN, 
THIS PROCEDURE 
THIS PROCEDURE 



CAN 
CAN 



ALSO 
ALSO 



UNI J 



END PROCEDURE SeLECTR 

PROCEDURE SELECTRUN2J 

%%%% THOSE DECLARED I 
END PROCEDURE SeLECTR 

PROCEDURE SELECTRUN(F)! V 
%%%% VARIABLES DECLA 
PROCEDURES "SELECTRUN 
PROCEDURE "SELECTRUN1 

%%% SEE ALSO "SEGMENT ZFR 

PROCEDURE PRJNTTHEC0VER(C 
PROCEDURE FETCH(UNITN 

REAL PROCEDURE SCNtUNlTNO 

procedure seeknam(a,b»c» 

Real procedure ppc 
procedure securjtymaintc 
**** also see procedure 
real procedure libccj 

END* * LIBCC PROCEDURE 

REAL PROCEDURE CCSeTI FORWARD! 



X PROCEDURE ONLY 



SELECTRUN. 



WILL BE EXECUTED, 
IN TURN, SPECIFY 
"SELECTRUN2" FOR 



N PROCEDURE 
UN2J 

alue n Real fi 

red in this procedure. 

1" and/or "selectrun2" 

" and "sellctrun2" may, 

0" section in procedure 

ard*unitn0,ps)i 

o,caRdloc»souRce)» 

iCARDLOc, SOURCE* ACCUM,KOUNT,LASTSC AN, 
D»E»N)J VALUE A.BJ REAL A.B,C»D,E»NJ 

rYPE,SMlD,SFlD,CMM,5FH,CARD)? 
"SELECTRUNl" ( SEQ, NO, 20055600) FOR 



lb060000 

XDS215106500 
15168000 

15200000 
15300000 
IX» 15400000 
15500000 
15534000 
15605000 
15609600 
16029000 
16037900 
16038000 
16360000 
16361000 
16609000 
16610000 
16611000 
16612000 
16613000 
16950000 
16951000 
1695U00 
16951100 
16951200 
16951300 
16971000 
17000000 
17900000 
18000000 
18155000 
18500000 
18700000 
19500000 
SIR7519991008 
20011200 
20016400 
20018200 
20018200 
20018500 
20023000 
20080200 
20080500 
20085600 
20140300 
20140800 
20146000 
20147200 
20147300 
20176200 
20289010 
20292000 
20314000 
20382010 
20383000 
20511100 
20542800 
20566000 
20580350 
20580400 



PROCEDURE CCF1NISH* 

REAL PROCEDURE CCCQMPjLEJ 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



REAL 

Real 

REAL 

Real 



INITIALIZE I T; 

CCUNIT* 

ccsecmainti 
ccLabel; 

procedure controlcard(card); value card; Real card; 
Real procedure ccset; 

save procedure swaP(STate»b>i value state»bi Real state»bi 

procedure reenteR(Stuff)» value stuff* Real stuff; 

procedure bringback(Mix); value mix; real mix? 

save procedure mcpin(s); value si real s; 

procedure expander(mix,r); 

boolean procedure unhookandwai t(mj x* mcp) i value mlx»mcpl real mix.mcpj 

procedure hookupmcP(mix); value mix; Real mix; 

SWAPlNGlO(MiXtR); VALUE MlX»RI REAL MlX,R; 
PROCEDURE MOVE(N.HtT); VALUE N.h.TI 

swapper; 

initialswap(n)! value nl real hi 

frontend(Mix>; 

EXPANOERfMjX,R); 



PROCEDURE 
STREAM 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



PROCEDURE FINDFREEADDRESS(N);VALUE NlREAL NIFQRWARDI 

procedure nsecond** 
procedure status;* 
boolean procedure olay ( loc ,m i xx ) i 
save procedure forgetspacecloc ) ix 
save Real procedure actspacecsize,savef.mix); 
save integer procedure di skspacec words, mi x, aux) ; 
save real procedure getspacecsl7e,type,savef ) ; 
procedure findfreeaddress(n); value nl real nl 

if (findfreectrj*findfreectr+1) ge« 32 then* this procedure is 
% called frequently so make it a save procedure 
save procedure d i sposalt l» i » r ) i 
procedure runseptic(buff); 

boolean procedure b6500formattercct, i ,x,xx*bcl»h» optl on) j 
procedure libraryloadspecialcase(z)! value zl real zl 

procedure does initial set-up and other special functions 
procedure LibRaryload; 
end; x of library load procedure 

PROCEDURE LIBRARYDUMP; 

ENDI X LIBRARY MAlNT, PROCEDURE 

PROCEDURE LIBRARYZEROI 

PROCEDURE FILL0RKILL(A, START* SIZE* TYPE); 

INTEGER PROCEDURE AUX I Li ARYSPACE(SIZE) * 

PROCEDURE FORGETAUXlLlARYSPACE(SlZEiLOC)! 

aux i li arytable initialize i 
auxiliarymemorycasualtyrecoveRyi 
frrormesserctypf)! value typei real type; 
errorfixeR(Type); value type; integer type; 
skipfile(u.d); value u,d* real u.di 

flndoutput<mid.fidftype»forms,reel»cdate»cycle.kind>lx 

FINDINPUT(MID,FID,REEL»CDATE»CYClE#COBOL»UL»OF#MODE#FN)I 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
REAL PROCEDURE 
REAL PROCEDURE 



PROCEDURE STARTIMING(FN,U)I VALUE FN.UI REAL FN*UIX 
REAL PROCEDURE Dl SKADDRESS(MID»F ID, FPB3* A,H, I 0) I X (SHM) 

DROCEDURE SETNOT J NUSE( U, RWL) I VALUE U,RWLI REAL U.RWl; 
PROCEDURE 8LASTQ(U); 

PROCEDURE BUI LDLABELCLABLE.M ID* FID, REEL. CDATE* CYCLE* PFACT»PTN»BLKOOE»X 
PROCEDURE FILEME5SAGE(I,K,M,F»R#D.C#TYPeJI 
PROCEDURE F lLLBUFFERSc CURRENT, FINAL, COBOL* NR) J 
REAL PROCEDURE F I LEHEADER( Ml D, FID, NROWS, SIZE* BLEN* RLLN, S); 



20560800 

20563800 

20566700 

20569700 

20590850 

20594850 

20597559 

20700000 

21000100 

21005000 

21012100 

21013000 

21026500 

21027000 

2UOOO00 

21112000 

21116100 

21200000 

21265000 

21293000 

21313000 

22000500 

22001000 

22055000 

22228000 

24000000 

24032000 

24101000 

24300000 

24600000 

24610000 

24611000 

26000000 

26060000 

27990100 

27997600 

27997615 

28000000 

28399000 

28400000 

28730000 

28600000 

29000000 

29100000 

29300000 

29400000 

29500000 

30903000 

31000000 

31100000 

37000000 

37177000 

37271000 

37286000 

37302000 

37320000 

37337000 

37357000 

37385000 

37418000 



PROCEDURE PURGEIT(U)) VALUE U) INTEGER U)X 37449000 

PROCEDURE KRUNCHER(H)! ARRAY HC * J I XR1 73 PbOOOOO 

PROCEDURE DlSKriLEOPENCALPHAM VALUE ALPHA* INTEGER ALPHA)* XR9038Q0OO00 

PROCEDURE OTHERPlLEOPENiNf ALPHA)» VALUE ALPHA) INTEGER ALPHA* 38102000 

PROCEDURE OTHERFILEOPENOUT(ALPHA)! VALUE ALPHA) INTEGER ALPHA) 38200000 

PROCEDURE DISKCLOSE(ALPHA); VALUE ALPHA; INTEGER ALPHA)* XR9038355000 

PROCEDURE BACKCLOSE(ALPHA)) VALUE ALPHA) INTEGER ALPHA)* XR9038540000 

PROCEDURE OTHERCLOSf(ALPHA)) VALUE ALPHA) INTEGER ALPHA)* XR9038648000 

PROCEDURE FILEOPENCXTRA, ALPHA)) *R9039000000 

PROCEDURE CREATELOGCDDD)) VALUE DDU) ARRAY DDD[*]) 39500000 

PROCEDURE SUSTATUS(A#DDD#B)) VALUE AiDDD.B) REAL A#B) ARRAY DDD[*J) 39900000 

PROCEDURE DlRECTORYBUlLDER(AtDDD)) 40000000 

PROCEDURE REALElLECLOSEfALPHA;) VALUE AlPHAJ INTEGER ALPHA)* *R9041000000 

PROCEDURE LINKUP(TYPE.KEY)) VALUE TYPE»KEY) REAL TYPE»KEY) 41310100 

PROCEDURE CHECKjOBORFlLEMESS(MlX»FlBtU)i 41312000 

PROCEDURE LOGOUTMAINT(B)) VALUE B) REAL B) 41316000 

PROCEDURE MAINTLOGGER(B)) VALUE B) REAL B) 41327000 

PROCEDURE MESSAGETABLEBUILDER) 41430000 

[24)6 ] * - KEYIN PROCEDURE TO BE CALLED - 41450900 

9 PROCEDURE KEYINO ( Dl«ECT CALL ) 41451000 

1 * PROCEDURE KE¥IN1 ( DjRECT CALL ) 41451100 

2 * PROCEDURE KEYIN2 ( INDEPENDENT RUNNER ) 41451200 
[36)12] * LABEL NUMBER ( SWITCH LOCATION IN PROCEDURE ) 41451900 
"t**77** M » X*** END OF FIRST KEYIN PROCEDURE CALLS 41459900 
"1**77**% x**X END OF SECOND KfYlN PROCEDURES 41469900 

PROCEDURE ENTERSYSFILE(N)) VALUE N) REAL Nj 41600000 

PROCEDURE ARTN(A#N)) VALUE A»N) ARRAY AC*J) INTEGER N)* 42474000 

PROCEDURE ASR) BEGIN INTEGER I»BCNTR) ARRAY AIT[*]) REAL TEMP)* 42482000 

SAVE REAL PROCEDURE COReND) FORWARD) 42509000 

PROCEDURE INTERRUPT(TYPE)) VALUE TYPE) REAL TYPE) 42510000 

PROCEDURE FILLSYSTAT) 42600000 

PROCEDURE SAVESTATISTICS) 42700000 

PROCEDURE INTFINISH) FORWARD) 44008998 

SAVE PROCEDURE INITIALIZE)* 44009000 

+ CT * * FJXEX PROCEDURES 44152500 

SAVE REAL PROCEDURE CORENDJ* 44441000 

PROCEDURE INTFINISH) 45000000 

PROCEDURE AND EXPECT IT TO RETURN WITH THE SAME VALUE) 45997000 



LABEL O0OOOOO00PRINTEROO175122CC EX OBJECT/READJFI LE SOURCEF lLE»SYMBOL/TSSMCP JEND* 



OBJECT /READ 
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pp 



* 00000010 
» B W TS-MCP MARK XV. 3,00 02/07/74 00001000 

* 00002000 
$ SET OMIT * NOT(DEBUGGING) 00002100 

S SET CHECKLINK DUMP SAVERESULTS 00002110 

S POP OMIT 00002120 

S SET OMIT s DFX 00002160 

$ RESET DKBNODFX 00002170 

$ POP OMIT 00002180 

BEGIN 00003000 

COMMENT? * TITLE! B5500/B5700 MARK XV SYSTEM RELEASE * 00003010 

* FILE ID» SYMBOL/TSSMCP TAPE IDI SYMBOL 1 /F 1 LEOOO * 00003011 

* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * 00003012 

* AND IS NOT TO BE REPRODUCED* USED* OR DISCLOSED * 00003013 

* EXPECT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 0000301ft 

* WRITTEN AUTHORIZATION Of THE PATENT DIVISION OF * 0000301b 

* BURROUGHS CORPORATION, DETROIT* MICHIGAN 48232 * 00003016 

* * 00003017 

* COPYRIGHT <C) 1971. 1972. 1973 BURROUGHS CORPORATION * 0000301b 

* AA320206 AA39318Q *| 00003019 
DEFINE MIXMaX»29#{ XR1300004000 
DEFINE MAXLMAXaftBI; XR1300004500 
REAL LMAX| XR1300004600 
S SET OMIT s TWXONLY 00004699 
REAL STAMAX; 00004700 
S POP OMIT 00004701 
$ SET OMIT « NOTCTWXONLY) 00004799 
DEFINE STAMAX*LMAX#; 00004800 

* POP OMIT 00004801 
DEFINE FREG*5#|XREMEMBER TO CHANGE THIS DAMN THING IF MORE BED STUFF 00005000 

DEFINE MARKLEVEL* % MARK LEVEL IN ALPHA 00005010 

"XV, 3" 00005020 

#» PATCHLEVEL* % PATCH RELEASE LEVEL IN ALPHA 00005030 

"00" 00005040 

#* LOCALEVEL* % LOCAL LEVEL IN ALPHA 00005050 

" " 00005060 

#1 00005070 

DEFINE MCPTYPE * 63#» 00005100 

DCINTYPE * 62#» 00005120 

TSSINTYPE * 61#i 00005140 

COMMENT THE ESPOL COMPILER APPROPRIATELY TYPES THE MCP & 00005160 

INTRINSICS FILE HEADERS SO THAT A VALIDITY CHECK MAY BE MADE 00005180 

DURING INITIALIZATION AND AT CI AND CM TIME, HEADER! 4 J , ( 36 1 6 ] 00005185 

is the field used to contain the type; 00005190 

DEFINE ESAD * U»lSj#, 00005200 

UNUM s [16I5J#, 00005210 

BYBY(BYBY1»BYBY2) * 00005220 

BEGIN STRFAMCAI*SPACEC10)» )| 00005230 

BEGIN DII«AJ DS»«BYBY2 LIT BYBYU ENDJ 00005240 

PUNT(0)» 00005250 

END#I 00005260 

DEFINE RESERVEDISKSIZE*2000#» 00005300 

DEFINE TRACESIZE»30#J* 00006000 

S SET OMIT ■ NOTCSAVERESULTS OR DEBUGGING) 00006299 

ARRAY RESULTHOLDER[*JJ INTEGER LASTRESULTJ % HOLDS LAST DC RESULT DESC 00006300 

DEFINE 00006400 

RESLTMAXsl28#, X MUST BE A POWER OF TWO 00006500 

STORAW A Y«RESULT HOLDER [LASTRESULT«.(LASTRESULT + 1) AND ( RESLTMaXM ) J# I 00006600 

* POP OMIT 00006601 

Real junk»six 00007000 



COMMENT TO ADJUST THE PRIORITY* COKE ESTIMATE. AND STACK SIZE 
OF LIBMAIN/DISK, SEE SEQUENCE NUMBER 39599000? 
LABEL G0G0G0»N0RMALERR0R»P2BUSY»TIMER» EXTERNAL* INQUEST* 

PR0CSWIT#P2F"AKE»KEYB0aRDREQUEST»RETURN,CQMINIT»MEM0RYPARITY 

? 

define mark * "?"#» 
define leftarrow»"*"#j 
define sheetmax*9#) 

DEFINE GETUSERDlSK(GETUSERDlSKl)«PETUSERDlSKCGETUSERDISKl.O)#iJ; 
t SET OMIT * NOTCDUMP OR DEBUGGING) 
DEFINE DUMPNOW(DUMPNOWI) « 

DUMPC0RE(DUMPN0Nl»(SPACEC22)*l)[lbl33U5J)#l 
t POP OMIT 

INTEGER RRRMECHWP20UI 
DEFINE 
$ SET OMIT ■ AUXMEM 

SPACESTACKSIZE » 80#? 
$ SET OMIT * NOT AUXMEM 

SPACESTACKSIZE * 1Q0#? 
S POP OMIT OMIT 
SAVE REAL PROCEDURE GETSPACEC S JZE* TYPE* SAVEF ) ? 

VALUE size»type»savef?s 
integer size>type*k 
boolean savef? forward?* 
save real procedure wa i t i 0( i od* mask »u ) ? % 

value i0d»mask.uj real i0u»mask,u? forward?* 
procedure errorfixer(type)! value type* real type? forward? 
save procedure sleepc address. mask) ; % 

value address.maski name address? array mask[*]? forwaro?* 
real p1mix.p2m1xj % sef 01061500 
label slatestarter? 
real logline? 
real l0gline2? 

REAL NTl»t»160»NT2«ei6l»NT3«Pl62»NT4*Pl63»NT5«P164iNT6*ei65»NT7»Pl66? 

COMMENT NT1 THRU NT7 ARE USED BY THE MCP FOR TEMPORARY STORAGE* 

ALL PROCESSES THAT USE THESE VARIABLES ASSUME THAT IF CONTRO 
IS LOST* THEIR CONTENT MAY HAVE BEEN CHANGED BY THE TIME 
THAT CONTROL IS REGAINED, 

END COMMENT? 

REAL MCPBASE? 

COMMENT MCPBASE CONTAINS THE DISK ADDRESS (OCTAL) OF THE BEGINNING 

of the mcp that is currently in use, this address is passed 
the mcp by the loader routine at each halt/load in m [ j , 1 1 tj * 
when the espblt routine is calculating the disk address 
of an mcp segment, it adds mcpbase to the address that 
is contained in thf prt cell for that segment, 
end comment? 

label nothiNgTodo*initiate»start,stackoverflow*iobusy? 
save procedure mcpln(s)? value s? real s?f0rward? 
t set omjt » notcnenlogging) 

SAVE PROCEDURE LOGTlMlNG(MiX,B) ? VALUE MIX.B? REAL MjX,B? FORWARD?* 
DEFINE STARTL0G»L0GTIMING#, 

STOPLOG(STOPLOG1»STOPL062)«LOGTIMING(STOPUOG1»-(STOPLOG2))*? 
$ POP OMIT 

* SET OMIT b NEWLOGGING 
DEFINE STARTL0G(STARTL0G1*STARTL0G2)5 

PROCTlME[STARTLOGn*(*P(DUP))*CLOCK»P(RTR)#, 
STOPL0GCSTOPL0Gl,ST0PL0G2)« 

PROCTIMECSTOPLOGU *C*P(DUP) >*CLOCK*P(RTR)#J 
$ POP OMIT 



00007200 
00007210 
00008000 
XWF 00009000 
00010000 

ooonooo 

XDS00011500 
00012000 
00012001 
00012159 
00012160 
00012165 
00012166 
00013000 
00013650 
00013B60 
00013870 
00013680 
00013890 
00013900 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
00019500 
00020000 
00021000 
00021700 
00022000 
00023000 
00023500 
00024000 
00024010 
L 00024020 
00024030 
00024040 
00024050 
00024100 
00024200 
TO 00024210 
30],00024220 
00024230 
00024240 
00024250 
00024260 
00024270 
00024500 
00024999 
00025000 
00025100 
00025200 
00025201 
00025299 
00025300 
00025400 
00025500 
00025600 
00025601 



..._J 



SAVE PROCEDURE ESPBIT; COMMENT PRESENCE BIT ROUTINE FOR ESP SEGMENTS 
BEGIN REAL PRTLOC » SYLLABLE ; 
REAL RCW«+OI 

* SET OMIT « NQTCNEWLOGGING) 

BOOLEAN LOGTURNEDOFFJ 
ST0PL0GCP1MIX»1)J LOGTURNEDOFF«-P; 
I POP OMIT 

PRTLOC*(RCW INX 0)&RCWI30llO«2]jX 
STREAMtHSLT«-CSYLLABLfc3»CL*PRTL0C);* 

BEGIN SI'CLJ SI*SI-2; DI*RSLTI UJ*DI+6; DS*2 CHR 
PRTLOC «■ IF SYLLABLE THEN NT4* 

ELSE SYLLABLE, (361103;* 
MCPINCPRTLOO* 
S SET OMIT * NOTCNEWLOGGING) 

IF LOGTURNEOOFF THEN STARTL0G(P1M I X» 0) ; 
$ POP OMIT 

P0LISH(0'RDF»0»XCH»FCX»STS);* 
GO TO POLlSH(MEMORYtPRTLOCJj;X 
GO TO START; % PLACE DESC.IN PRT FOR MCP TO AUXMEM TRANSFER 
END ESPBIT;* 
LABEL FINDIT; 
REAL RESULT1P12 »RESULT2M3 »RESULT3*14 »RESULT4*15 1% 



DE* INE SIZE«(6!10]*» 

DJMENSIQN5»[3»5J#. 
AITNDX»6#.PBIT«[ 
DEFINE FF»18»15#»* 

MSFF • C 16 t 1 J# 
CF»33U5##* 
CTF»18|33U5## 
FTF*l8ll0U5#* 
CTC*33I33U5## 
FTCs33il8«i5#» 
DEUTA»U#;* 
REAL CLICK; 
ARRAY TARt*]; ^CONTAINS 
DEFINf, LOCKTOGCLOCKTOGI 

TARCP1 
DEFINE UNLOCKTOG(UNLOCK 

TARtPl 
REAL TOGLEJ 

DEFINE HP2T0G ■ TOGLE 
»STATUSBIT * TOGLE 
>SHEETFREE ■ TOGLE 
#STACKUSE • TOGLE 
fUSERDISKREADY* TOGLE. 

»HOLDFREE * TOGLE 

»NSECONDREADY » TOGLE 

»5YSDISKT0G « TOGLE 

»NEEDSELECT » TOGLE 

•KEYBOARDREADY * TOGLE 

»NOBACKTALK » TOGLE 

tINTFREE • TOGLE 

•WORKING * TOGLE 

#CANDEINPUTREADY» TOGLE 

»AREARDY « TOGLE 

»AREASNEEDED ■ TOGLE 

»McPFREE»TOGLE,t2flll3#» 

X USED TO PROTEC 



FILEBlT«tlU J#>0-HNBJT«[2U)#»X 
BLKCNTR*[8; 10 J#»MOM*( 18115 J#*CURBLKCNTR*16#»* 

2in#;x 



TOGLE BITS SET BY EACH JOB 
)» BEGIN TOgLE«»T0gLe AND NOT LOCKTOQl; 
MIX]I»TAR[P1MIXJ OR LQCKTOGU EN0#; 
T0G1)« BEGIN TOGLEl*TOGLE OR UNLOCKTOGU 
MIX] IbTARCPIMIX j AND NOT UNLOCKTOGU END#; 



[4711 

[4611 

[4511 

[4411 

42IUI 

[4H1 

[4011 

[3911 

[3811 

[3711 

[3611 

[3411 

C 331 1 

[3211 

[2611 

[2511 

mcpmask 

T DISK 



HP2MASK 
STATUSMASK 
SHEETMASK 
STACKMASK 
USERDISKMASK* 

holdmask 

nsecondmask 

sysdiskmask 



* Pl# 

?2# 
= 94* 

* 910* 
940* 

* 9100* 
« 9200# 

* 94001 



KEYBOARDMASK «92000# 
NOBACKTALKMASK*94000« 
FREEMASK *920000# 

% WONT WORK FOR MULTIPLE C&ES 
» AREARDYMASK * 910000000* 

■940000000* 
SEGMENT ZERO 



}% 00025900 
00026000 
00029000 
00030000 
00030099 
00030100 
00030200 
00030201 
00031000 
00032000 
END;00033000 
00034000 
00035000 
00036000 
00053099 
00053100 
00053101 
00054000 
00055000 
00055100 
00056000 
00057100 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00063100 
00064000 
00065000 
00066000 
00067000 
XPB00067100 
00066000 
00069000 
00079100 
00079200 
00079300 
00079400 
00079500 
00080000 
00080100 
00080200 
00080300 
00080400 
00080600 

00080700 
00080800 
00080900 
00080950 
00061000 
00081100 
00081300 
00081400 
00081410 
00081500 
00081600 
00081670 
00081675 



>SCRATCHDIRECTORYREADY = T0GLE.C23? 

SCRATCHDIRECTOK 
% USED TO PROTECT THE SCRATC 
»FINDINGADDRESS*TOGLE,I22ll3# 

X SET TRUE WHENEVER THE INDE 
X "FINDFREEADDRESS* IS START 
X WILL BE RUN AT ONE TIME. 
#CDFREE*TQGLE,[2lll]#»CDMASK=04QOOO 
X SET TRUE WHEN CONTROL DECK 
tNOMEMTOG * TOGLE. C 20 U J# X 
•NOMEM • U8I33* X 1 

• SEPTICTANKiNG * TOgLe . 1 1 3 I U * 
»DI«ECTORYTOG * TOGLE f [12ll3# 
♦DIRECTORYMASK « P400000000000* 
$ SET OMIT * NOTCSTAT1STICS) 

• PBUSY * TOGLE. Ull3# 
t POP OMIT 
J 
STREAM PROCEDURE MOVE( N ) M WORDS FROM"( 

VALUE N»HERE#THERE?X 
COMMENT WILL MOVE TO 4095 WOR 
BEGIN LOCAL NOI V64JX 

Sl*LOc N! DI*LOC NDIV6 

sphere* di*therei* 
ndiv64(ds*32 wd$! ds*3 
end move;x 
procedure stopml forward! 
label diffcomi 

$ set omit • notcauxmem or monitor) 
procedure setmonitorfilecstop)! value 
procedure getmonitorow; forward* 

$ POP OMIT 
PROCEDURE L0GD1SK; FORWARD! 
PROCEDURE LINEMESSAGESCBUFF)! VALUE BUFF; 
PROCEDURE WHATSGOINGON(BUFF)> VALUE BUFF! 
PROCEDURE CHANGEINTRINSICFILE(BUFF)J VALUE 
PROCEDURE CHANGEMCPCBUFF); VALUE BUFFJ REA 
PROCEDURE PRINTDIKECTORYCBUFF)* VALUE BUFF 
PROCEDURE MixPRjNTcBUFF)* VALUE BUFF* HEAL 
SAVE PROCEDURE FORGETSPACE(LOC ) ? X 

VALUE LQCJX 
REAL LOCI* 
FORWARDU 
DEFINE WAITSTOReCWAITSTORfDb 

IF NOT MEMtWAlTST0REl,0j f [17 

SLEEP(tMEM[WAjTSTOREl»0 
DEFINE STOREDYtSTOREDYl]*MEM[STOREDYl*0], 
ARRAY UVR0W[*3J 
ARRAY UV » UVRQW[*»*3? 
ARRAY UV3 * UVROWC * »*# * 3 J 
COMMENT THE FOLLOWING ARE ALL DEFINES FOR 



1 Jit 

YMASK b P100000000# 

HDIRECTORY 



PENDENT RUNNING 
ED SO THAT ONLY 



ROUTINE 
ONE COPY 



00001 

QUEUE IS FREE 
N IF NOMEM SINCE LAST NSECOND 
61 2 * COUNTER FOR NSECONQ 



HERE) w TO"(THERE)JX 

DSJX 

4? SI*SI+6> 0I*DI*7I DS*1 CHR 

2 WDS)J OS*N WDSJX 



STOPi REAL STOPl FORWARD? 



REAL BUFFI FORWARD! 
REAL BUFF I FORWARD? 

BUFFJ REAL BUFFJ FORWARD? 
L BUFFJ FORWARD! 
? REAL BUFF? FORWARD? 

BUFFJ FORWARD! 



»13 THEN 

3JiOUtl7l47lU>#! 

lH r tl3#J 



DEFINE ELAPSEDLIMIT[ELAPSEDLIMIT13 
PR0CLIMITCPR0CLIMIT1J 
IOCOUNTtlOCOUNTU 
TOPSKtTOPSKll 
USERC0DE[USE«C0DE13 
PRYORtPRYORl] 
FSROWIFSROWU 
FS[FSWFS23 
FPBDIFPBD13 



CONTENTS OF UV ARRAY ; 
UV CELAPSEDLIMIT1. 03#» 
UV IPR0CLIMIT1. 13#» 
UV tlOCOUNTln 2J*# 
UV [TOPSKlt 33#» 
UV [USE8C0DE1* <U#» 
UV [PRY0R1* 53#» 
UV tFSROWl* 63*» 
UV3tFSi,6#FS23#» 
UV CFPBD1* 73#» 



00081660 
00081690 
0008169b 
00081700 
00081705 
00081706 
00081707 
00081710 
00081711 
00081720 

00081725 
00081972 
0008197ft 
00081976 
00081979 
00081980 
00081981 
00061999 
00082000 
00083000 
00084000 
00085000 
J00086000 
00087000 
00088000 
00089000 
00069100 
00089200 
00089509 
00089510 
00089520 
00089521 
00089530 
00089540 
00089550 
00089560 
00089570 
00089590 
00089600 
00090000 
00091000 
00092000 
00093000 
00093100 
00093200 
00093300 
00093400 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 
00095900 
00096000 
00096100 
00096200 



$ se 

DEFI 
S PO 
$ SE 
DEFI 
DEFI 



S PO 

REAL 



SEGD[SEGD13 = UV 

SINF0[SINF013 « UV 

DAIOCROW[DALOCROW1J * UV 

DAL0CtDAL0Ci»DALOC23 « UV 

IOTIMEC IOT1ME1 • UV 

INTABLEROW[lNTABLEROWl3 * UV 
lNTABUUNTABlEl»!lsTABLt'2J * UV 
PR0CTIME[PR0CTIME13 * UV 

EVENT[EVENTl3 * UV 

LOGSTOPPED[LOGSTOPPED13 * UV 
NEXT1CNEXT113 ■« UV 

NEXT2[NEXT2U ■ UV 

OLAYCTR[OLAYCTRl3 * UV 

MCPROCTIMECMCPROCTIME13 * UV 
MCPIOTIMECMCPIOTIMF 13 » UV 

UVMAX * 21#J 

T OMIT » STATISTICS 

NE UVSIZE * UVMAXIj 

P OMIT 

T OMIT « NOT(STATISTICS) 

NE UVSIZE ■ 35*; 

NE SWAPStSWAPSl) 

SWAPOUTSCSWAPOUTS13 

COOEPBITSCCOOEPBITSI] 

DATAPBITStDATAPBlTSU 

CODEOUAVSLCQDEOLAYS1J 

DATAOUYSEDATAOUYSn 

CORETIMECCORETIME13 

TIHINGCTIMINGU 

MORECPBITSCMORECPBITS13 

READYQUETIME[READYQUETIME13 

OUETlMlNGtOUETIMlNGU 

INITIALROTIME[INITIAUROTIME13 

MOREDPBlTStMOREDPBlTSl] 

0LAYUSED[0LAYUSED13 

STATUVMAX * UVMAX+t4#; 

P OMIT 



[SEGD1* S3#* 

tSlNFOl* 93*» 

[DALOCROWli 10)** 
3[DALOCt»10»DALOC23*» 

U0TJME1* 113*. 

I iNTABLEROWlt 123*» 
3(INTABLE1»12»INTABLE23#» 

tPROCTIMEl* 133*> 

[EVENT1. 143*. 

tUOGSTOPPEDl* 153*» 

[NEXTllf 163#» 

[NEXT21* 17J*» 

[0LAYCTR1* 183*» 

[MCPRQCTIME1* 19)#i 

[MCPI0T1ME1* 203*. 



UV 
UV 
UV 
UV 
UV 
UV 
UV 
UV 
UV 
UV 
UV 
UV 
UV 
UV 



[SWA 
[SWA 
[COD 
[DAT 
[COD 
[DAT 
[COR 
[TIM 
[MOR 
[REA 
[CUE 
[INI 
[MOR 
[OLA 



PS1» 213*. 
POUTSl* 223*. 
EPBITSl. 233*. 
APBITS1. 243*. 
E0LAYS1# 253*. 
A01AYS1* 263*. 
ETIME1. 27}** 
INGi# 283*. 
ECPBITS1* 293*f 
DYQUETIME1. 303*. 
TIMINGS 313*» 
TIAL.R0TIME1. 323*» 
EDPB1TSI* 333*. 
YUSED1* 343*. 



DATE*Pl67l 

COMMENT DATE CONTAINS TODAYS DATE?* 
REAL Ct0cK«P170j 
REAL XCL0CK*ei71j 

COMMENT CLOCK CONTAINS THE 
PROCESSED SINCE HALT-L 
REAL READY«?172I 

COMMENT READY CONTAINS THE 
THE LAST READU 



NUMBER OF TIME INTERVAL INTERRUP 
OAD IN 9*411* 



CONTENTS OF THE READY REGISTER ON* 



COMMENT STATUSBIT IS FALSE IF THE STATUS ROUTINE IS RUNNING 
TRUE OTHERWISEi THIS PREVENTS TWO COPIES OF STATUS FR 
RUNNING TOGETHERI* 
ARRAY PRfC*f*]|X 

COMMENT PRTC I #*3 CONTAINS A DATA DESCRIPTOR 
FIELD POINTING AT PRT FOR JOB WITH MIX 
ARRAY PRTR0W*PRT[*3J 

COMMENT PRTROW IS DOPE VECTORS FOR PRTj* 
ARRAY JAR[*«*3J* 
* JAR HOLDS INFO OF JOBS IN PROCESS* 
ARRAY INTRNSC[*3» REAL INTSIZEJ* RE-ENTRANT INTRINSICS ON USER DISK 

DEFINE REENTRANT I NTABLEMAPC REENTRANT I NTABLEMAP1) 

•(PCREFNTRANTINTABLEMAPliDUP) AND 15)-(P C XCM )*2)x2* J 



WITH PROPER SIZE* 
INDEX * \l% 

* MIXMAX+l* 



00096300 
00096400 
00096500 
00096600 
00096700 
00096800 
00096900 
00097000 
00097100 
00097200 
00097300 
00097400 
00097500 
00097600 
00097700 
00099000 
00099999 
00100000 
00100001 
00100099 
00100100 
00100200 
00100300 
00100400 
00100500 
00100600 
00100700 
00100800 
00100900 
00101000 
00101100 
00101200 
00101300 
00101400 
00101500 
00102000 
00102001 
00111000 
00112000 
00113000 
00114000 
00115000 
00116000 
00121000 
00122000 
00123000 
00124000 
ANB00125000 
OM* 00126000 
00127000 
00128000 
00129000 
00130000 
00131000 
00132000 
00133000 
00134000 
00135000 
00J35300 
00135310 



TS* 



COMMENT 
IF 



THI 
USE 
IT MUS 
REENTR 



X 
% 
% 
% 
% 
X 



THE 

W 



S DEE 
FOR 
T BE 
ANT. 

INTA 
ORDS 



INE Ma 
NON-R 
CHANGE 
I 

BLEROW 
AND 



PS THE VALUES 2»*»21-024 INTO THRU 4. 
EENTRANT lNTRlNSJCS IT MAY DO STRANGE THINGS, 
D IF OTHER INTRINSICS ARE DESIGNATED AS 



FOR JOBS 



WORDS 2 THRU N 



DEFINE INTUSUE « 

INT13START « 

ARRAY SHEETC*]; 

* TOGGLES FOR INTE 

ARRAY JARROW»JARC*3 

DEFINE TABCNTtTABCN 

COMMENT TAB 

JARROW 

THAT T 



5#» *S 

2#! % 



ENTRI 

BATCH 

ENTRI 

EF 

(C 

IZE OF TYP 

FIRST ENTR 



ABOVE 
ES FOR 

MCPt 
ES FOR 
FJ * 1 
F) * C 
E 13 I 
Y IN T 



THE FENCE IS NOW AS FOLLOWS! 

REENTRANT INIRlNSlCSt AS IN 
EXCEPT FOR ABOVE MAPPING. 

PRESENT TYPE 13 INTRINSICSJ 
NTRINSIC NUMBER 
ORE ADDRESS 



NTABLE 
YPE 13 



PORTION 
INTABLE 



GERLOCKING THE CLOSET & SHEET* 
I 

Til * JARROWtTABCNTU, 
CNT IS THE NUMBER OF P 
AND ARE CURRENTLY ACC 
HE TABLES DONT VANISH 



PORTION 

X 5* 

X MIXMAX + U 
[FF3#J 

ROCESSES WHICH HAVE CHECKED 
ESSINg MIX TABLES, IT ASSURES 
BENEATH THOSE PROCESSESI 



COMMENT 

OT 

BOOLEAN NOPR 

COMMENT 

AL 

OT 

REAL WITCHINGHOU 

COMMENT 

MO 



STACKUSE IS TRUE IF THE INDEPEDENT STACK IS NOT IN USE 
HERWISE FALSE!* 
OCESSTOGJ* 

NOPROCESSTOG IS TRUE IF NORMaL STATE PROCESSING IS* 
LOWEDt OTHERWISE IT IS FALSEi IT IS USED BY OVERLAY AN 
HERS TO PREVENT CONFUSION;* 
R»WORDOFEASEl 

THESE USED TO BE CONSTANTS IN THE OUTER BLOCK BUT WERE 
VED HERE SO EVERYONE COULD USE THEM, THEY CONTAIN! 

WJTCHINGHOUR 5184000 

WORDOFEASE 02525252525252525 



J 

ARRAY ISTACKUJ 

COMMENT 

$ SET OMIT • NO 

BOOLEAN LOGTURNE 

SAVE PROCEDURE L 

BEGIN 

COMMENT THE 
MJX 



J 

THE INDEPENDENT STACK;* 
TCNEWLOGGING) 

DOFFs+7; 8! FOR NOTHlNGTODO TO 
0GTIMING(MIX,B)> VALUE MJX,B; 



USE 
REAL 



mix#b; 



CONTENTS OF THE PARAMETERS ARE AS FOLLOWSl 
MIX INDEX OF PROCESS 



l*STOPUOGGING 0*STARTLOGGJNG 
1*RTN 0*XIT 



B.mn 

B,[47lU 
I 
IF MIX»0 THEN 

IF B THEN P(O.RTN) ELSE PC X IT ) I 
IF Bt(lll) THEN 
BEGIN X STOPLOGGING 

IF LOGSTOPPEDCMIX3 THEN 

BEGIN 

IF B THEN P(0,RTN) ELSE P(XlT)) 

END! 

PR0CTIMECMIXJ*C*PCDUP)) + CL0CK4.p(RTR)J * OFF 

LOGSTOPPEDlMlX]*ll 

IF B THEN P(1»RTN) ELSE P(XIT); 
END ELSE 
BEGIN X STARTLOGGING 

IF NOT LOGSTOPPEDtMIX] THEN 

BEGIN 

P(XIT)» 



00135320 
00135325 
00135330 
00135335 
00135340 
00135350 
00135360 
00135370 
00135380 
00135390 
00135400 
00135500 
00136000 
00137000 
00136000 
00138100 
00138110 
00138120 
00136130 
00151000 

#00152000 
00153000 
00154000 
00155000 

P00156000 
00157000 
00157500 
00157600 
00157700 
00157800 
00157900 
00158000 
00159000 
00160000 
00165009 
00165030 
00165050 
00165070 
00165090 
00165130 
00165150 
00165160 
00165170 
00165190 
00165210 
00165230 
00165250 
00165270 
00165310 
00165330 
00165350 
00165370 
00165390 
00165410 
00165430 
00165450 
00165470 
00165490 
00165510 
00165530 



E 

END LO 

$ POP 

DEFINE 



INTEGE 
* SET 

INTEGF 
$ POP 
t SET 

ARRAY 
$ POP 



ARRAY 
ARRAY 



ARRAY 
ARRAY 



end; 

UOGSTOP 
PROCTIM 
NDJ 

GTJMINGJ 
OMIT 

EUIOHOLDER 
EUTAPER*|9 
DISKAVAILT 
K NEUP: AR 
OMIT ■ NOT 
R AVS J 
OMIT 

OMIT * SHA 
AVTABLEt*) 
OMIT 

COMMENT NE 

NEU 

EUI 

TMI 

MIN 

CMANlOt*]J 

CHANNEUC*J 

COMMENT 

SEN 

FINALQUEt* 

UOCATQUEt* 

COMMENT 

THE 

THR 

OCC 

1-0 

SK£ 

1-0 

AT 

INF 



PEDtMIX3*01 
E[MIXJ*<*P(DUP))-CLOCK-P(RTR>; X ON 



130#; 

r*j; ARRAY PEUIOC*) I 

SK ) 



CONTAINS THE NUMBER OF EUS 
ONTAINS THE TOTAL NUMBER OF 
UIO CONTAIN THE 1-0 TIME US 
ATION IS USED BY GLTUStROlS 
U CONFLICT! 



«DIRECT0RYT0P"5## 

8#» 

ABLEMAXs 

RAY F.UIO 

(SHAREDI 



REDISK 
I 

up, ten 

P.NEUF C 
AND PE 
S INFORM 

IMIZE E 

* 

CHANNEU 
T OUT ON 
J) 
}i 

IOQUE»FI 
1-0 QUE 
EE WORDS 
UPIES PO 
DESCRIP 
LETON TO 
DESCRlP 
TIME OF 
ORMATION 
0- 2 
3- 7 
6 
9 
10 
11 
12-17 
16-3? 



ON OKAt 

EUS ON 

ED BY A 

K IN AN 



THE SY 

GIVEN 

ATTEMP 



13 CONTAINS LOGICAL UNI F OF 
CHANNEL I!* 



LAST 



33*47 

UNITCUJ CON 

1- 4 

5-12 

13 

14 

15 

16-17 



18-32 m 

33-47 « 

THE SPACES 



NALQUE* 
UE, AN 

OF SPA 
SITION 
TOR FOR 

BE USE 
TOR. LO 
REQUEST 
, IN P 

■ 5* 

■ MIX I 
» I/O I 

* OLAY 

* CANDE 
« ERROR 

* LOGIC 

■ INDEX 
OR 97 

■ ORIGI 
TAINS I 

* TYPE 

* ERROR 

* UNIT 
« ERROR 
« WAIT 

* PROCE 

PRO 
1-0 
FIN 
INDEX 
IS 
« INDEX 
NOT USE 



AND LOCATQUE TOGETH 
1-0 REQUEST FOR LOG 
CE IN THE 1-0 QUEUE, 
S IN THE 1-0 QUEUE* 

THIS REflUEST# FINAL 
D AT 1-0 COMPLETE Tl 
CATQUEtSJ m LOCATION 
, LOCATQUECSJ CONTA 
ARTICULAR!* 



NDEX OF 
S READ L 
I/O UOF 

I/O OR 

RECOVER 
AL UNIT 

OF NEXT 
7777 IF 
NAL LOCA 
NFORMATI 
OF I/O D 

FIELD 
NOT READ 

BIT CON 
BIT (ON 
SS BITS 
CESS OR 

FINISH 
ISH SETS 

OF FIRS 
NOT COMP 

of last 

D IN THE 



REQUESTER* 
OCK WHICH HA 
INISH PLACES 
NO MEM MESSA 

Y IN PROCESS 
NUMBER* 

REQUEST TO 
NO NEXT REQU 
TION OF 1-0 
ON ABOUT LOG 
EVJSEX 
F LAST J/0 D 

Y BIT* 

IF ERROR)* 
IF UNIT IS W 
(USUALLY BOT 
BOTH OFF, W 
SETS OFF 16 

OFF 17)* 
T 1-0 REQUES 
LETE* 

UNSERVICED 

1-0 QUEUE A 



* 
DE 

* 
* 
ER WITH 
ICAL UNI 
IF THE 
THEN IOQ 
[S3 * I- 
ME TO RE 

OF 1*0 
INS SOME 



D ERROR 
RESULT 

GE, 
ON THIS 

BE DONE 
EST* 

DESCRIPT 
ICAL UNI 



5* 
SCRIPT 

32* 

32* 
UNIT F 
T U RE 

REQUE 
UEIS3 
DESC 
BUILD* 
DESCRI 

ADDIT 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
*R5900 
00 



STEM, 
EU, 
T TO 



OR* 



(SHARE 
ON ERR 

1-0 
ON THI 

OR,* 

T U,X 



one on this unit* 



AITING F 
H ON IF 
ITH PRIN 
AND THE 



OR A C 
UNIT I 
TERS T 
PRINTE 



00 

00 

00 

00 

ORM* 00 

QUIRESOO 

ST* 00 

)* 00 

RIPTOBOO 

00 

PTOR* 00 

IONAL 00 

00 

00 

00 

DISK), 00 

OR), 00 

00 

00 

00 

UNI TOO 

00 

00 

00 

00 

00 

00 

00 

HANNELOO 

S IN* 00 

HEX 

R* 



T FOR WHICH SERVICE 



1-0 REQU 
RE LINKE 



EST,* 

D TOGETHER* 



00 
00 
00 
00 
00 
00 
00 



165550 
165570 
165590 
165610 
165630 
165651 
165800 
165610 
165820 
166000 
166002 
166003 
166004 
166005 
166006 
166007 
166010 
166025 
166030 
166040 
166050 
169000 
170000 
171000 
172000 
173000 
174000 
175000 
176000 
177000 
178000 
179000 
180000 
181000 
182000 
163000 
164000 
185000 
185100 
185500 
186000 
186100 
187000 
188000 
189000 
190000 
191000 
192000 
193000 
194000 
195000 
196000 
197000 
198000 
199000 
200000 
201000 
202000 
203000 
204000 



THROUGH IOQUE, 
REAL lOQUESLOTS#IOQUEAV 
ARRAY !OQUE[*]l 
DEFINE RETURNlOSPACE(RE 
begin' IOOUESLOTS 
IOQUEtRETUR 
IOQUEAVAILJ 
END#J 
ARRAY UNITC32] *X 

00400007777777 
00400007777777 
00400007777777 
00400007777777 
00400007777777 
00400007777777 
00400007777777 
00400007777777 
00400007777777 
00400007777777 
P0400007777777 
00400007777777 
00400007777777 
00400007777777 
0040000/7/7777 
00400007777777 
00600007777777 
00600007777777 
01000007777777 
01000007777777 
00200007777777 
00200007777777 
01400007777777 
00000007777777 
00000007777777 
01200007777777 
02000007777777 
02200007777777 
02200007777777 
02000007777777 
02400007777777 
03600007777777 
$ SET OMJT s SHAREOISK 
ARRAY TINUI37J »« 
t POP OMJT 

t SET OMJT * NOT(SHAREDISK) 
ARRAY T1NUC413 l« 
S POP OMIT 







THE F IRST 
Alt! 

TURNI0SPACE1 
l*IO«UESLOTS 

NI0SPACE1H" 
sRETURNIOSF A 



AVAILABLE IS IN IOQUEAVAIL;* 



) * 

♦ 1J 

IOQUEAVAIL; 
CE1J 



777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777 
777| 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



MTA ■ 

MTB » 

MTC ■ 

MTD • 

MED * 

MEF « 

MEH « 

MEJ * 

MEK * 

MEL = 

MEM « 

MEN * 

MEP « 

MER » 

I'ES • 
MET s 

DRA * 
DRB * 
DKA ■ 

D«B * 
LPa ■ 
LPb * 

cpa * 

CRA « 

CRB ■ 

SPO s 

PPA * 

PRA ■ 

PRB B 

PPB ■ 

DCA ■ 
















0200100 
0600200 
1200400 
1601100 
2201200 
2601400 
3202100 
3602200 
4202400 
4603100 
5203200 
5603400 
6204100 



4044 
4044 
4044 
4044 
4044 
4044 
4044 
4044 
4044 
4044 
4044 
4044 
4044 



6321. 
6322* 
6323* 
6324* 
6325* 
6326* 
6330* 
6341. 
6342* 
6343* 
6344* 
6345* 
6347* 



OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 
OMMENT 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



MTAI 

MTBJX 

MTCJ* 

MTDJX 

MTEJX 

MTF?* 

MTHJX 

MTJjX 

MTKI* 

MTLlX 

MTMjX 

MTNjX 

MTP>* 



00205000 
00205500 
00206000 
00206500 
00207000 
00207500 
00208000 
00208500 
00209000 
00210000 
002U000 
00212000 
00213000 
00214000 
00215000 
00216000 
00217000 
00218000 
00219000 
00220000 
00221000 
00222000 
00223000 
00*240u0 
00225000 
00226000 
00227000 
00228000 
00229000 
00230000 
00231000 
00232000 
00233000 
00234000 
00235000 
00236000 
00237000 
00238000 
00239000 
00240000 
00241000 
00241600 
00241700 
00241701 
00241800 
00241900 
00241901 
00242000 
00243000 
00244000 
00245000 
00246000 
00247000 
00248000 
00249000 
00250000 
00251000 
00252000 
00253000 
00254000 



p 
p 
p 
p 

p 
p 

p 

p 

P 

P 

p 
p 

p 

p 
p 
p 
p 
p 
p 
p 
p 



660 
720 
760 
100 
200 
140 
300 
540 
640 
240 
240 
341 
741 
441 
441 
501 
501 
401 
001 
001 
001 
001 
001 



4200404 
4400404 
5100404 
5200402 
5400402 
6100402 
6200402 
6400004 
7100004 
7200002 
7400402 
0100402 
0200006 
0400004 
1100004 
1200004 
1400004 
2100002 
2200007 
2400002 
3100002 
3200002 
3400002 



46351 
46362 
46363 
45121 
45122 
44221 
44222 
34721 
34722 
34721 
35121 
35122 
24746 
74721 
75121 
75122 
74722 
42321 
13147 
32421 
32422 
32423 
32424 



COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 
COMMENT 



MTR;X 
MTSlX 
MTTJX 
DRAJX 
DRB)X 

DKBJX 
LPAJX 

lpb;* 
cpa;x 
cra;x 

CRBjX 
SPO;X 
PPAjX 
PRAJX 
PRBJX 

PPBJ* 
DCAjX 
HPl% 
CDAJX 

cdb;x 
cdox 

CDDJ 



S SET OMIT * NOTCSHAREOISK) 

P 000000000627021. 
P 000000000627022» 
P 000000000627023t 
P 000000000627024. 



COMMENT 
COMMENT 
COMMENT 
COMMENT 



SY 
SY 
SY 
SY 



a; 

81 
CJ 



t POP OMIT 



P 0000000004463671 COMMENT MTX. ALL 



ARRAY WAJTQUEC*3S 
REAL NEXTWAIT»F 
COMMENT WA 
REQUE 
FIRST 
NEXT 
NEXT 
ARRAY LABELTABLEC* 
ARRAY MULTITABLEC* 
ARRAY R0CTABLEt*3l 
ARRAY PRNTABLEt*]) 
ARRAY REPLY[*m 
COMMENT LABELTABLE* 
BY LOGICAL 
LABELTABLEt 
MULTITABLEC 
RDCTABLEt N 
CREATION DA 
t SET OMIT * NOTCS 
DEFINE L«MAX«20#J X 
ARRAY LQUEt*]) 
REAL LOAVAILI 
COMMENT LOUE CONTAI 
A LOCKED DI 



SCRATCH TAPES; 
X 6X 



IR 
IT 
ST 
WA 
AV 
UN 
It 
It 

X 



STWAIT|X 

QUE IS A QUEUE OF UNITS FOR 
S BUT NO CHANNEL IS AVAILABL 
IT ARE POINTERS AT THE WAITQ 
AILABLE SLOT IN WAlTQUE AND 
IT TO BE USED WHEN A CHANNEL 



WHICH THERE AREX 
E. NtXTWAlT ANDX 
UE, NEXTWAIT IS THEX 
FIRSTWAIT POINTS ATX 
IS AVAILABLEIX 
X 32X 
X 32X 
X 32X 



MULTJTABLE. AND RDCTABLE CONTAIN LABEL INFORMATIONX 
UNIT NUMBER AS FOLLOwSlX 
I) CONTAINS THE FILE ID FOR LO 
I] CONTAINS THE CORRESPONDING 

CONTAINS THE CORRESPONDING RE 
TE (IN [24ll7J)» AND CYCLE (IN 
HAREDISK) 

SIZE OF THE LQUE ARRAY 



IGKAL UNIT I,S 
MULTIFILE IDiX 
!EL NUMBER (IN I14U0J) 
U1I7J)|X 



NS ONE ENTRY FOR EACH 10 THAT 
SK SFGMENT, 



IS WAITING FOR 



LQUEtN],C8|40] CONTAINS THE DISK ADDRESS (BCD) 

LeUECN],Ul7] CONTAINS AN INDEX INTO THE IOQUE. 

LOAVAIL IS AN INDEX POINTING TO THE FIRST EMPTY WORD IN LQUE, 



00255000 
00256000 
00257000 
00258000 
00259000 
00260000 
00261000 
00262000 
00263000 
00264000 
00265000 
00266000 
00267000 
00268000 
00269000 
00270000 
00271000 
00272000 
00273000 
00274000 
00275000 
00276000 
00277000 
00277100 
00277987 
00277986 
00277990 
00277992 
00277994 
00277995 
00277998 
00278000 
00279000 
00280000 
00281000 
00282000 
00283000 
00284000 
00285000 
00286000 
00287000 
00286000 
00289000 
00290000 
00291000 
00292000 
00293000 
.00294000 
00295000 
00295999 
00296000 
00296100 
00296200 
00296300 
00296310 
00296315 
00296320 
00296330 
00296340 
00296345 



WHEN 

THE I 
UNIT 

REQUE 

Remov 
end comment! 
s pop omit 

REAL OPTlONjX 
REAL SYSDISK 
ARRAY LINETA 
DEFINE 

LOCKEDCLO 
D1RECTLIN 
LINED1SCI 
LINEDIS 
TTY 

CONTENT 
MULTJPO 
SCHEO 
BUFSUE 
PINGPING 
% 
% 
% 
% 

THROWAWAY 
LSTATUStL 
READYQED 
% 

LONGCARRI 



A LOCKED SEGMENT 
OQUE ENTRY FOR T 
TABLE AND AN fNT 

steo address is 
es the entry fro 



RESULT DESCRIPTOR IS ENCOUNTERED* 
HAT 10 IS DISCONNECTED FROM THE 
RY IS MADE FOR IT IN LQUE. WHEN THE 
UNLOCKED^ THE PROCEDURE F I NDFREEADDRES 
M LOUE AND RECONNECTS IT TO THE UNIT T 



»SYSDISKaDRI 
BLEC*J| % 



LMAX LONG - USED TO KEEP INFO ABOUT LINES 



ION 

INT 



m 
9 



m 



CKED13«HN 

E • [2 

LINEDISCU 

C3 

0# 

1# 

2* 

7* 

[6 

b 18 

19 

[1 

[1 

tl 

[THROWAWAY 

STATUSU = 

9 12 

t2 

AGLtLONGCA 



ETABLE 
IU#» 
"LINET 
»33#» 
» 
* 
* 
» 

«23#» 
U3#* 
14] 
3113 
4|43 
8123 
J)«LIN 
LI MET 
6I1]#. 
7153 
RRIAGE 



tL0CKE01J»tlll3#» X LOCK BIT POR DCWA 
* DIRECT CONNECT FLAG (ALSO SCHEDBU 

ABLECLINE01SC1),[3I33#» 

% THE LINE DISCIPLINES AREI 



MULTI ■ MULTIPOINT** 



% 
% 
% 
% 
% 
% 



WRB * 

POLLING * 

Select ■ 

ACKING * 

NAKJNG * 

ACKINGEN8 * 

NAKINGENQ « 

WRBUSY « 

IDL » 

IDLPOLLING * 

WAITING * 

WAITINGENQ m 

% NOTUSED 

X NOTUSED 

% NOTUSED 

% NOTUSED 

NORMAL * 

FIRSTIME » 

SELECTANS p 

ENGREAD * 

BROKEN ■ 

POLLTIMEOUT » 

TIMEDOUT * 

EOTREAD * 

RRA » 

MS.GJNSWER « 

% NOTUSED 



f 33 • 1 b 3 

0*0 
1#» 
?*, 

3#» 

4## 

5#» 

6#. 

7#> 

8#» 

9** 

\0* t 

11*. 

12 

13 

14 

15 

16#» 

17#, 

I8#t 

19#» 

201* 

2\t» 

22*i 

23#» 

241* 

25#, 

26 



BUFFER SUE - 0*28> 1 = 56» 2*112 

ON IF BUFFERS ARE PINGPING 

TERMINAL UNIT 

GROUPMARK FLAG 

BUFFER NUMBER 

ADAPTER TYPE 0*980. 1*SAS 
ETABLE[THROWAWAYl3.[20tl3#» 
ABLEtLSTATUSn,[21»53#» % SEE BELOW 
* LINE IS IN READYQ FOR OUTPUT, 
% NOT USED 
1 3«LINET ABLE [LONGCARRI AGE 13, [32 I lJ#f 
% SUPPRESSES LINE FOLDING FOR TWX 
% HEAD OF INPUT Q - ADDRESS FOR RD 
% THE STATUSES AREJ 
% WRITING STATUSES 



% IDLE STATI 



% READING STATI 



00296350 
00296360 
00296370 
S 00296380 
ABLE, 00296390 
00296400 
00296501 
00297000 
00297050 
00297100 
00297120 
IT 00297140 
SY) 00297160 
00297180 
00297200 
00297220 
00297240 
00297260 
00297280 
00297300 
00297320 
00297340 
00297360 
00297380 
00297400 
00297420 
00297425 
00297430 
00297440 
00297460 
00297480 
IF LC00297500 
00297540 
00297560 
00297580 
00297600 
00297620 
00297640 
00297660 
00297680 
00297700 
00297720 
00297740 
00297760 
00297780 
00297800 
00297820 
00297840 
00297860 
00297880 
00297900 
00297920 
00297940 
00297960 
00297980 
00298000 
00296020 
00298040 
00298060 
00298080 



X 



% 
% 



NOTUSED 
NOTUSED 
NOTUSED 
NOTUSEO 
OISCON 
ARRAY STATABLE[*3j 
DEFINE 

PAPERTAPEIPAPER 

ACTIVITY 

SWAPPED 

CANDEFUAG 

MJXNR 

MIXFLAG 
STATJONTYPE 

TWX 

CONRAC 

TCbOO 

BIDS 
OWHTHROWOUT 
BREAK[BREAK13 
DIAIEDUP 
DISCONNECTING^ 

QUITNtQUITNU 
NAKKER 



2/ 
28 
29 
30 

31*; 
x 



STA 



OUTPUTANKING 
LEENKER 



TAPEH»STA 

* L2ll3#» 

■ [3«13#» 
[411]*. 
[5:53## 
[4|63#» 
[10»33*t 
0#» 
1#» 

* 2#» 
» 3#» 

* [13U3#« 

* STATABLE 

* [15lU#. 
ISCONNECTI 

* STATABLE 
C 18 I 3 J 

s C21I1]** 
[22113 
[23lU 

■ [24U3## 
« [25»83#. 



X END OF LINETABLE DEFINES 
TIONMAX LONG - KEEPS INFO ABOUT STATIONS 

TABLECPAPERTAPLIJ, [111 J#t 

X SET ON SWAP OR DC10* RESET BY NSECON 

X ON WHENEVER ATTACHED JOB IS SWAPPED 

X ON MEANS INPUT GOES TO CANDE 

X MIX NUMBER OF JOB TO WHICH LINE 

X IS ATTACHED 

X THE STATION TYPES ARE! 



X HARRY IS DISCARDING INPUT ON THIS LI 
[BREAKlMHllJ'i X BREAK HAS OCCURRED 

X ON IF STATION IS ALIVE 
NG 1 J «ST AT ABLE [DISCONNECT I NG1J,[1 61 U«0#» 

X OFF IF QUITTER OR JOB IS STILL RUNNJ 
[QUITN13,U7U3#t * INTERLOCK FOR QUITTE 

X NOT USED 

X OWH WILL RETRIEVE LAST TANK ADDRESS 

X TEXT BIT FOR PREVIOUS OUTPUT BUFFER 

X TEXT BIT FOR CURRENT OUTPUT BUFFER 



X 

X 

% 
X 



ENDOFSTATABLE 
ARRAY SEQARRAY[*J| 



X READY QUEUE LINK IF STA LEQ LINEMAX 
X LINE NUMBER IF STA GEQ LINEMAX 
X HEAD OF OUTPUT QUEUE 



DEFINE 



[331153 
#1 

X STATIONMAX LONG - CONTENTS DEPEND ON LJNEDISC 

X TWX 
[1113 
[21193 
[211273 



X FLAG FOR SEQUENCING 

X INCREMENT 

X CURRENT SEQUENCE NUMBER 



X 

X 



X 

X 
X 

X 



X 
X 
X 
X 



SELECTED 
TANK0K[TANK0K13 



NAKMAX 
NAKCNT 



LINELINK 



SCHEND[SCHEND1J 

ENDOFSEQARRAY 
REAL LLNRI XKEEPS 



X MUL 
tllllli 
SEQARRA 
[3113 
[4123 
C6J 33#» 
[9t33#» 
[121123 
[2411] 
[25113 
[26163 

X MUL 
[321611 
[40IB3 



TIPOINT OR CONTENTION 

% SELECTED OR ENQ-ED 
Y[TANK0K13.[2|13## X ON IF FULL INPUTANK 
X STATION IS NOT IN POLLING LIST 
TIME OUT COUNT 

MAXIMUM NUMBER OF NAK-S BEFORE ABORT 
NUMBER OF NAK*S ON CURRENT 10 
ADDRESS CHARACTERS 
# BEFORE FIRST CHARACTER 
SECOND CHARACTER 
TNAOG 



X 
X 
X 
X 
X 
X 
X 



* BEFORE 
INDEX TO 
TIPOINT ONLY 
X CIRCULAR 
X STATION 



LINK TO ALL STATIONS ON LI 
IN READY QUEUE (MASTER ONLY 



EDULE LINES 

X ON IF CE IS READY FOR INPUT FROM LI 
Y[SCHFND13, [2IU## X SCHEOULE TERMINATING 

X ADORESS OF 80 WORD BUFFER ARRAY 



X SCH 
C 1 1 1 J 

* SEQARRA 
[331153 

* f J 

LOGICAL LINE NR OF AN iQ WHILE IT IS ACTUALLY DONE 



00298100 
00298120 
00298140 
00298160 
00298180 
00298200 
00296220 
00296240 
D 00296260 
0tl00298280 
00298300 
00298320 
00298340 
00298360 
00298380 
00298*00 
00298420 
00298440 
NE00298460 
00298469 
00296500 
00298520 
NG00298540 
R 00298560 
00298580 
00298581 
00298582 
00298584 
00298590 
00298600 
00298620 
00298640 
00296670 
00298680 
00296700 
00298720 
00298740 
00298760 
00298780 
00298600 
00298620 
00298860 
00298880 
00298900 
00296920 
00296940 
00298960 
00298980 
00299000 
00299020 
00299040 
NE00299060 
) 00299080 
00299100 
00299120 
NE00299HO 
00299160 
00299180 
00299200 
, 00299300 



NOW 
C&E. 



BE 
T 



SYSTEM NUMBER 
NUMBER OF SYS 



REAL BASEDISKADRJ * BASE ADDRESS OF C&E"S CURRE 

real workeRstack;xaddress OF oldwjeRdharolds ST 
real workerinqj 

Real diskadR* last offset »firstoffset; 
% must be array for multiple c4e"s. 

DEFINE WORKER » QLDW I fRDHAROLd* J 
array LASTSEGC*J»FIRSTSFGt*Jl 

% THESE ARRAYS A«E THE BUFFER SEGMENT 
X AND THE BUFFER NEXT TO BE PASSED TO 
* SAME AREA IN CORE OR NOT, 
% BOTH MUST BE 2"D FOR MULTIPLE C&E"S, 
DEFINE STARTWORKlNG « 

IF NOT WORKING THEN 
BEGIN WORKING |« TRUE) 

fORK(P(, WORKER )«0* -2»0» WORKERSTACK) 
END If 
INTEGER INTRGATCTRJ 
ARRAY TRANSACTION!*]* 

DEFINE ETRLNG * 5*f % LENGTH OF ENTRY IN FILE 

SAVE REAL PROCEDURE TWO(N)! VALUE N> INTEGER N* 
BEGIN REAL T*+1J 

STREAM(NlsNls47-NiT»*tT3)» 
BEGIN SKIP N DBJ DSS»SET; END! 
END TWOlX 
REAL SYLLABLE!* 
S SET OMJT a NOTCSHAREDISK) 
REAL SYSNOiSYSMAXl 

COMMENT SYSNO CONTAINS THE HARDWARE 
SYSMAX CONTAINS THE MAXIMUM 
BE CONNECTED TOGETHER IN THIS CONFIGURATl 
BOTH OF THESE PARAMETERS ARE PASSED TO TH 
MCP LOADER AT HALT/LOAD TlM£» 
SYSNO IN M[03.[16«2] AND 
SYSMAX IN M[0J.[Ul2J 
END COMMENT! 
t POP OMIT 

OMIT * SHAREDISK 
SYSN0*0#» SYSMAX*lf| 
OMIT 

COMMENT ANALYSIS PLACES 
IN SYLLABLE, THIS 
VARIOUS ERRORSJX 
PROCEDURE F0RGETUSERDISK(A»L)JVALUE A»L*REAL A»LJ 
REAL PROCEDURE PETUSERD I SK(N.T ) ! VALUE N, UREAL N» 

S SET OMIT * NOTCDEBUGGING) 
PROCEDURE OTIFORWARD; 
REAL PROCEDURE EXP! FORWARDI 

* POP OMIT 
REAL SCHEDWRDI 

PROCEDURE SCHEDJOCNUM»TYPE»ADR)l 
VALUE NUM»TYPE»ADR* 

REAL NUM* TYPE* ADRl FORWARD* 

PROCEDURE SCHEDIDLE(ADR)! VALUE ADRl REAL ADR* 
DEFINE 

SCHEDNUM *SCHEDWRd,[CFJ*« 
FRSTSCHED «SCHEDWRD,CFF]*i 
LSTSCHED *SCHEDWRD, [3I153#, 
SCHEDTOG »(NOT(SCHEDWRDttllU))#» 
TYPEINFO *10#* XC&E FILE TYPE FPR 
SCHISCHU * CSCHlt<l],t3l3J«SCHED)#» 



NT TANK CHUNK 

ACK, GOTTEN P JNJTIAHZ 



ING FILLED FOR C&Ei 
HEY MAY POINT TO THE 



% 32% 



BLOCK* 



TEMS THAT CAN 

ON, 

E MCP BY THE 



S SET 

DEFINE 

S POP 



THE SYLLABLE THA 
IS USED BY PRESE 



t caused the interrupt 
nce bit* flag bit* and 

forward;* 
tjforward j 



FORWARD! 



SCHEDULE OUTPUT FILE 



00299400 
E00299500 
00299600 
00299700 
00299600 
00299900 
00300000 
00300100 
00300200 
00300400 
00300500 
00300600 
00300700 
00300800 
00300900 
00301000 
00302000 
00304000 
00305000 
00306000 
00307000 
00308000 
00308500 
00309000 
00310000 
00310099 
00310100 
00310110 
00310120 
00310130 
00310140 
00310150 
00310160 
00310170 
00310180 
00310191 
00310199 
00310200 
00310201 
00311000 
00312000 
00313000 
00316000 
00316100 
00316999 
00317000 
00317010 
00317011 
00318100 
00318110 
00318120 
00318130 
00318140 
00319100 
00319140 
00319150 
00319160 
00319170 
00319180 
00319200 



SCHEDBUSY[SCHEDBUSY1 J*H NE TABLE I SCHEDBUSY 1 J . [ 2 1 U# » 

SCHEDLINE[SCHEDLINEl]s(LINEDlSC[SCHEDLINEi:)wSCHED)#» 
TANKNDIAL * 2714216 #» 

C0NNECTCC0NNECTl)«STATABLEtC0NNECTiJ|«C»P(DUP))*l[15l«7ilJ 

& (CANDEH IX[ CONNECT 13+32) [ 4 «42» 6 }t, 

(FIRSTSEG.CCF J - 2)#, 

(LASTSEG.tCFl " 2)#» 

[10»6J#, 

[ 10 18 J#* 

IMAX#» 

C5lU#» 

[7»13#» 

C 31 6 J#» 

tl0»8]#» 

STAMAXf. 

SVSDISK, Clll*)»» 

SYSDISK.C30I 12J#» 

TANKS[03,tCFJ#> 

TANKS[0J,t2j8J#» 
* 256#» 
X STATIONMAX LONG - KEEPS TRACK OF INPUT TANKS 



FIOADR 

IOADR 

LINENR 

LINKER 

LINEMAX 

MESSEND 

NDSABLE 

OFFSET 

ROWNR 

STATIONMAX 

SYSDISKRL 

SYSDISKRP8 

TAILOUT 

HEADOUT 

TANKCHUNKSIZE 

ARRAY INPUTANKC*]) 

DEFINE 



* 

* 
35 



% 

% 



INPUTL 

INPUTREADY 

SLOWDOWN 

FIRSTBUF 



% 



INPUTN 

t 

CLUMPSIZE 
REAL PROGTANKi 
ARRAY TANKS!*); 
DEFINE 



[111) 

C2«81 

C10l8J#» 

C18U5J 

t 33 « 1 3#* 

[34«1]#» 

[35tl)## 

[36»U 

[38(2] 

[40|8J#» 



X 
% 
* 
i 

% 
% 
% 
% 
% 
% 



LOCK BIT 

NEXT CHARACTER TO BE DETANKED 

OLDEST SEGMENT IN TANK 

HEAD OF QUEUE OF 30 WORD AREAS 

ON IF JOB SWAPPED TO WAIT FOR 

ON IF TANKS ARE ALMOST FULL 

ETX IN PREVIOUS INPUT BUFFER 

NOT USED 

FOR C0MM13 
SEGMENTS IN TANK 



INPUT 



MODE BITS 
NUMBER OF 



32#l * EACH LINE HAS 1 CLUMP OF DISK FOR 
* BASE ADDRESS FOR INPUT TANKS 
X STATINMAX LONG - HANDLES OUTPUT TANKS 



II 



X 

% 

% 
X 



[111] X TANK INTERLOCK BIT 
TANKL!NE[TANKLINEn»TANKS[TANKLINElJ.£2«8)#* X DETANKING QUEUE 

ClOlll X CANDE SHUT»UP FLAG 
TANKFUL[TANKFULi]«TANKSCTANKFULl],[ll«n#» % TANK FULL BIT 



TANKL 



SOUSE 
TANKN 



U2tl) X SOH BIT 0N»SOH OFF»ETX 

U3I13 X LAST MSG NAKKED WHEN ON 

U4l52#» X NEXT SEG TO DETANK 

[19I5J X NEXT WORD OF SEG 

C24I33 X NEXT CHAR OF WORD 

2716 t» X NO OF SEGS IN USE 
[27»6)#> 



% 



TANKA[TANKAU«TANKStTANKAU»[33«15J#» 



% CORE ADDRESS OF TANK 



GLOMSIZE « 

REAL tankaodress; 

* SET OMJT - TWXONLY 
ARRAY TNA0G[*3J 



X 
% 
X 
% 
X 
% 



3211 
X 

X 

X 
[1I13J 

X TC500 
C14U4] 
[26(10] 
[38110] 



BASE ADDRESS FOR OUTPUT TANKS 

TRANSMISSION NUMBERS AND OTHER GOODIES 
USE DEPENDS ON STATION TYPE 

% LAST TANK POINTER (FOR NAKS) 

X NOT USED 

X INPUT TRANSMISSION NUMBER 

X OUTPUT TRANSMISSION NUMBER 



00319250 
00319300 
00319350 
00319500 
00319600 
00320000 
00320600 
00320950 
00321000 
00321050 
00321100 
00321300 
00321400 
00322300 
00323000 
00324000 
00324050 
00324500 
00324670 
00324700 
00326000 
00326100 
00326200 
00326300 
00326400 
00326500 
00326600 
00326700 
00326800 
00326900 
00327000 
00327100 
00327200 
INP00327300 
00327400 
00327500 
00327510 
00327515 
00327520 
00327525 
00327530 
00327535 
00327540 
00327545 
00327550 
00327555 
00327560 
00327565 
00327600 
00327700 
00327600 
00327900 
00326990 
00329000 
00329800 
00329650 
00329900 
00330000 
00330100 
00330200 




* % PAGED SCREEN DEVICES 00330300 
% C 14 1 63 * NUMBER OK LINES PER PAGE 00330500 

* C20I83 * NUMBER OF CHARACTERS PER LINE 00330600 
X [2818] * NUM OF CHARS SENT ON CURRENT LINE 00330700 
X [36163 X NUM OF LINES ON PREVIOUS PAGE 00330800 
X [42163 * NUM OF LINES ON CURRENT PAGE 00330900 

$ POP OMIT 00330901 

S SET OMIT ■ NOTCDEBUGGING) 00330999 

REAL OTCALL • DT!* 00331000 

DEFINE DDT » P(DTC ALL.DEL. ZPl )# 1 00332000 

S POP OMIT 00332001 

t SET OMIT * NOTCAUXMEM OR MONITOR) 00335000 

ARRAY CTABLE[*JJ * 10 LONG* AUXERRORTOG IN CTABIEC8] 00335100 

DEFINE AUXERRORTOG « CTABLE[8]#; 00335105 

REAL SYSMTRl X 64 WORD AREA FOR MONITORING SYSTEM FUNCTIONS 00335110 

S SET OMIT ■ NOTCAUXMEM) 00335120 

DEFINE FTABLECFTABLE13 * CTABLE[2*(FTABLE1 ) J#» 00335150 

AUXMEMDSK * MCPNAMESEG*) % CONTAINS MCP & INT FILE IDS 00335200 

t RESET OMIT 00335201 

DEFINE MCPNAMESEG ■ CD I RECT0RYT0P-7 )* ) 00335400 

COMMENT MCPNAMESEG CURRENTLY CONTAINS THE FOLLOWING* 00335500 

WORD! 03*W0RD[15J - FILE IDS OF THE AUXDATA FILES FOR MCP & INTRJNCS, 00335600 

W0RDU6J-W0RD119] • CONTAIN THE WORD "AUXMeM » AS A MARKERt 00335700 

WORD[203-WORD[273 - FILE IDS OF THE McP"S AT HALT/LOAD* 00335600 

W0RD[283 - USED BY DISKSQUASH FOR COMM, BETWEEN SHAREDISK SYSTEMS, 00335810 

{ 00335900 

REAL OLAYMASKJX FOR LOCKING OUT GETMOREOLAYD I SK BY MIX INDEX 00336000 

PROCEDURE USERDISKSPEClALCASECQ»RiU.J))VALUE Q»J)REAL Q»R»JI 00336100 

ARRAY U[*3) FORWARD ) 00336110 

00363000 

PROCEDURE FORGETESPDISK(SEG)|VALUE SEG;REAL SEGJFORWARD? 00364000 

SAVE INTEGER PROCEDURE D I SKSPACEC NWORDS* P1M I X . AUX ) ! 00365000 

VALUE NW0RDS.P1MIX.AUX! 00366000 

INTEGER NWORDStPlMIX) REAL AUX! 00367000 

FORWARD!* 00368000 

PROCEDURE STATUS!* 00369000 

FORWARD!* 00370000 

PROCEDURE INTERRUPT(TYPE)! VALUE TYPE? REAL TYPE! FORWARD) 00370500 

REAL PROCEDURE FIND0UTPUT(MID»FID» TYPE » FORMS. REEL. CDATE* CYCLEiKIND) J* 00371000 

VALUE MID.FID«TYPE»FORMS#REEL»CDATE»CYCLE»KINDU 00372000 

REAL MID»FIDtTYPE»FORMS»REEL»CDATE»CYCLE*KINDI FORWARD!* 00373000 

REAL PROCEDURE F I NDINPUTCMID* F I D.REEL. CDATE* CYCLE* COBOL. UL» OF»MODE»FN) } 00374000 

VALUE MID»FID»REEL»CDATE»CYCLE»COBOL»UL»OF»MODE»FN!* 00375000 

REAL MID»FID#REEL»CDATE»CYCL.E»COBOL»UL.OF»MODE»FN! FORWARD) 00376000 

PROCEDURE START1MIN6(FN,U)! VALUE FN.U) REAL FN*U) FORWARD)* 00377000 

PROCEDURE FlLEOPEN(X»A)) VALUE XiA) INTEGER X»A) FORWARD! XR9000379000 

$ SET OMJT * NOTCAUXMEM OR MONITOR) 00379009 

PROCEDURE ENTERSYSMTRCN)! VALUE N! REAL N; FORWARD! 00379010 

S POP OMJT 00379011 

DEFINE AUXTRaCECAUXTRaCF1»AUXTRaCE2)»IF CTABLe[ 4] . [ 1 1 1 3 THEN 00379020 

ENTirR$YSMTRcNFLAGCAUXTRACE2)&AUXTRACEl[3U2l6J>*) 00379030 

SAVE PROCEDURE SAVEOPeN(A)) VALUE A! REAL A! XR9000379100 

BEGIN FltE0PEN(2»A) END) XR9000379200 

PROCEDURE SETNOTlNUSECU.RWD! VALUE U.RwL! REAL U»RWL! FORWARD! 00380000 

00361000 

DEFINE STQPTlMiNG*STARTlMiNG#) 00382000 

PROCEDURE F1LLBUFFERSCCURReNT,FINaL»C0BQL,NR)J 00385000 

VALUE CURRENT. FINAL, C0B0L»NR| REAL CURRENT, F INAL, COBOL. NR) 00385500 

FORWARD) 00366000 

DEFINE GETBUFFERS*FILLBUFFERS#! 00387000 



procedure Realfileclqsecah 
save procedure f ileclosec a ) * 
begin realfiuecuose 

REAU PROCEDURE Dl $KADDReSS(Mi 
VALUE MID»FID»FPB3#A»H»I0 
REAL MlO.FlDtFPB3«A, 101 A 

forward; 
procedure blastq(u)? value u> 
Real procedure fiLeheadeR(Mid 

value mid 
real mid 

INTEGER 
PROCEDURE PURGEIT(U)! VALUE U 

Real esptab,espcquntj 

REAL DlRDSK«ei7n 

REAL ESPDISKBOTTOMI % LOWEST 

REAL ESPDlSKTOP; % HIGHEST AD 

real messageholdeRix 

define usedra » opt i on, [ 47 j 1)# 

USEDRB * 0PTl0N,t46ll }*,% 
BOJMESS *OPT ION, [451 1 
EOJMESS sOPTION, C 44 1 1 
OPNMESS «0PTI0N,[43»1 
TERMGO "OPTION, [4211 J# 
GIVEDATE * 0PTI0N.14 
GIVETIME « OPTION.U 
X39(USED BY DCMCP) 
AUfOPRlNT»OPTION,t38 
X37CUSED BY DCMCP) 
X36CUSED BY DCMCP) 
COPNMESS«OPTION«[35> 
CLQSEMESS«0PTI0N,[34 
ERRORMSG«OPTlON,[33t 
RETMSG*0PTI0N,[32lU 
LIBMSG«OPT ION* [31 l 1J 
SCHEDM5G-OPTlON t C30« 
SECMSG««0PTI0N,t29ll] 
DSKTOG*OPTION, [28113 
RELTOG»OPTION, [27113 
P8DREL*0PTI0N,[26»1J 
CHECK * OPTION, [25l t 
DISKMSG » OPTION, [24 
DKLOG « OPTION, [23J1 
LlBERR*0PTI0N,[22ti3 
USEPBD*OPTlON, [21113 
SVPBT rOPTlON, [20113 
HST0G»0PTI0N,[19I1)# 
AUT0UNLD«0PTI0N,[18J 
RNALL«0PTI0N,[17I1J# 
C0DE0LAYc0PTI0N*[l6l 
X15CUSED BY DCMCP) 
DATAOLAY-OPTION, [14| 
HALTSET«0PTI0N,[13ll 
REMOT£*OPTION. [12113 
CANDYMESS«0PTI0N,[11 
BATCHT0G*0PTI0N,[10I 
BACKGROUND*(NOT OPTI 
ST0PTEST«0PTI0N f [8ll 
PUNCHLCKP0PTI0N,[7ll 



VALUE Al REAL Al FORWARD* 

VALUE Al REAL A; 
(A) END* 

DtFlOtFPB3»A»H»lO)l % 

I % 

RRAY H[*3« % 

REAL Ul FORWARD?* 
»FID»NR0WS.5lZE»BL£N»KLEN»5)IX 
»FlO#NROWS,i.iZEtBLEN»RLEN,SlX 
tFlOJX 

NR0WS,SIZE#BLEN»RLEN,SJ FORWARD* % 
I INTEGER Ul FORWARD'* 



ADDRESS OF ESPDISK 
DRESS OF ESPDISK 



0U3#»X 
il)#* 



1J#,X 

HIM 

n#. 
*, 

#» 

13#» 

#» 

t, 

t, 

t, 

]#» 

il]»* 

J#t 

## 

t,% 

*$% 

13## 

n#» 

I3#t 

]#» 

#» 

«13## 

13#t 

0N,[9»13)#» 

3#» 

)#» 



00388000 
XH9000389000 
IR9000389100 
XR9000369200 
(SHM300390000 
(SHM)00390lOO 
(SHM*00390200 
00391000 
00392000 
00393000 
00394000 
00395000 
00396000 
00397000 
00399000 
00400500 
00401000 
0040UOO 
00402000 
00403000 
00404000 
00405000 
00406000 
00407000 
00408000 
00409000 
00410000 
00411000 
00412000 
00413000 
00414000 
00415000 
00416000 
00416050 
00416100 
00416200 
00416300 
00416400 
00416500 
00416520 
00416550 
00416560 
00416570 
00416580 
00416590 
XDS00416600 
00416610 
00416620 
00416630 
00416640 
00416650 
00416660 
00416670 
00416680 
00416690 
00416700 
00416710 
00416720 
00416730 
00416740 



Opt 1 OAK 

LIST" 



CD0NLY*0PT!0N,[6m#» 00416780 

PKTQNLY*0PTl0N,[5in#« 00416790 

SEPARATE*0PTI0N,[4»U#» 00416800 

AUTOCE«OPTION,C3Jl3#» 00416810 

M0D3IQS»QPTI0N,[2ll]## 00416990 

AUTOMESS * OPTION, C1I1J#» 00416992 

XXXXXX» OPTION. tOlOHJ* 00417000 

REAL USERDISKBOTTOM) 00418000 

X DISK ADDRESS OF USER DISK AVAILABLE TABLE 00418010 

REAL DIRECTORYTQPJ 00418050 

X DISK ADDRESS OF DIRECTORYTOP SEGMENT '-STORED IN M[l] 00418060 

X BY MCP LOADER 00418070 

REAL DISKBOTTOM; 00418100 

X DISK ADDRESS OF TOP OF BYPASS DIRECTORY, USED IN SCRAMBLE. 00418200 

S SET OMIT m NOT (SHARED I SK ) 00418799 

DEFINE DIRECTORYSEG * ( D IRECT0RYTQP+2 )# I 00418800 

S SET OMIT * NOT STATISTICS OR OM I T 00418805 

REAL BYPASSBOTTOM; 00418810 

S POP OMIT OMIT 00418811 

S SET OMJT * SHAREDISK 00418849 

REAL HOLDER»NEXTSLOT»BYPASS> 00418850 

I SET OMIT ■ NOT STATISTICS OR OMIT 00418859 

DEFINE BYPASSBOTTOM * BYPASS, [CF ]# I 00418860 

$ POP OMIT OMJT 00418861 

DEFINE HOLDMAX « 30#{ % MAXIMUM NUMBER OF ENTRIES IN HOLDLIST 00418900 

COMMENT THE HOLDLIST CONTAINS A ONE WORD ENTRY FOR EACH PROCESS 00418910 

THAT IS WAITING TO USE A FILE THAT IS ALREADY IN USE, 00418915 

H0LDUISU1 ],tFFJ*THE CORE ADDRESS OF THE WORD THAT THE 00418920 

WAITING PROCESS IS SLEEPING ON, 00418925 

HOLDt-ISTUJ.lCFJeTHE DISK ADDRESS OF THE FILE HEADER 00418930 

THAT IS BEING WAITED FOR, 00418935 

H0LDLl5Tn],ri0l8]»MlX INDEX OF THE PROCESS THAT MADE THE 00418937 

ENTRY, (TSSMCP ONLY) 00418938 

HOLDLISTU J,t2t?3*THE SYSTEM NUMBER (SYSNO) OF THE SYSTEM 00418940 

THAT MADE THE ENTRY (SHAREDISK ONLY), 00418945 

HOLDLISTC I } v C 1 1 1 J IS SET BY A SYSTEM TO NOTIFY ANOTHER 00418950 

SYSTEM TO AWAKEN THE PROCESS THAT MADE THE ENTRY, 00418955 

THE NSFCOND ROUTINE EXAMINES THE HOLDLIST IN 00418960 

ORDER TO CHECK FOR THIS CONDITION (SHAREDISK ONLY), 00418965 

DIRECTORYSEARCH* NSECOND. AND CLEANOUT ARE THE PROCEDURES 00418970 

THAT MANIPULATE THE HOLDLIST, 00418975 

00418980 

THE WORDS ASSOCIATED WITH DIRECTORY HANDLING AKt» 00418985 

HOLDER, t CF 3 * DISK ADDRESS Of HOLDLIST, 00418990 

,IFF] » NUMBER OF ENTRIES IN HOLDLIST, 00418995 

NEXTSLOT • DISK ADDRESS OF FIRST HEADER IN QUEUE OF 00419000 

EMPTY SPOTS IN DIRECTORY (NEXTSLOT QUEUE), 00419005 

BYPASS, ICFJ * LOWEST ADDRESS OF THE BYPASS DIRECTORY, 00419010 

,CFF) « HIGHEST ADDRESS OF THE MAIN DIRECTORY, 00419015 

ON SHAREDISK* HOLDER* NEXTSLOT AND BYPASS ARE KEPT IN THE FIRST 00419020 

THREE WORDS OF THE DISK SEGMENT LOCATED AT DI RECT0RYT0P+2 , A 00419025 

READ UOcK MUST BE DONE BEFORE ACCESSING THE HOLDLIST OR Ne XTSL0T00419030 

QUEUE QR EXPANDING EITHER THE MAIN OR BYPASS DIRECTORIES, 00419035 

END COMMENT; 00419040 

DEFINE ScRAMBLE(SCRAMBLEl»SCRAMBLE2)s(-2x XI 0400419100 

((ScRAMBLEl,£6U8J+SCRAMBLEl f [24»24]) MOD MODULUS x MODULUS + X10400419200 

(SCRAMBLE2f[6ll8]+SCRAMBLE2,C24l24J) MOD MODULUS)* X10400419300 

DISKBOTTOM)## X10400419400 

MQDUl*US»13#« DJRMQDM69IJ X1040Q4195Q0 

COMMENT 00419600 



THE RELATIONSHIP BETWEEN MODULUS AND DJRMOD IS» 00419610 

DIRMOD j» MODULUS x MODULUS* WHERE MODULUS IS A LOW 00419620 

ODD PRIME* (THE RECOMMENDED VALUE OF MODULUS IS 13), 00419630 

FOR SYSTEMS WITH FEWER THAN 6 MEMORY MODS» MODULUS MUST BE 00419640 

SET TO A SMALLER VALUE SO THAT D 1 RECTORYBUI LDE* WILL 00419650 

NOT GET A NO-MfM, MAKING IT IMPOSSIBLE TO HALT/LOAD. 00419660 

IT IS SUGGESTED THAT MODULUS BE SET TO 11* DIRMOD TO 121 00419670 

FOR A SYSTEM WITH FEWER THAN 6 MODS, IT MAY BE NECESSARY 00419680 

TO SET IT SMALLER* DEPENDING ON THE DISK CONFIGURATION 00419690 

AND THE NUMBER OF MODS! 00419700 

S SET OMIT « NOT(DEBUGGING) 00419999 

ARRAY DBARRAYC*JJ 00420000 

REAL DBADR;* 00421000 

J POP OMIT 00421001 

t SET OMIT * SHAREDISK 00421099 

DEFINE LOCKOIRECTORY * 00421100 

BEGIN IF NOT DIRECTORYTOG THEN SLEEP( t TOGLE ) »D 1 RECTORYMASK ) J 00421200 

LOCKTOG(DIRECTORYMASK)! 00421300 

END** 00421400 

UNLOCKDIRECTORY * 00421500 

BEGIN 00421600 

UNLOCKTOGCD I RECTORYMASK) J 00421700 

END#; 00421600 

S POP OMIT 00421801 

I SET OMIT » NOT SHAREDISK 00422490 

PROCEDURE LOCKER(SEGMENT)} 00422500 

VALUE SEGMENT! % CURRENTLY* ONLY UNLOCKS ARE 00422600 

REAL SEGMENT! % DONE, IF LOCKS ARE REQUIRED* 00422700 

BEGIN % ADD A SECOND PARAMETER* "LOCK" » 00422800 

REAL T! t AS IN THE DCMCP, 00422900 

% IF LOCK THEN D I SKWA I T (NABSU T ] I NX 1 ). -0. SEGMENT ) ELSE 00423000 

BEGIN 00423100 

STREAMCSEGMENTt DI«CTJ)J 00423200 

BEGIN SI»«L0C SEGMENT! DSl«6 DEO END! 00423300 

Tl*T OR P2060J 00423400 

P(WAlTIOCtTJ INX P1000Q0000,0»18)»DEL)J 00423500 

ENDI 00423600 

END LOCKING AND UNLOCKING DISK SEGMENTS? 00423700 

DEFINE L0CKCL0CK1) * LOCKERCL0CK1 # 1 )#» 00424000 

UNLOCK(UNLOCKl) s LOCKERC UNL0CK1 )* I % ADD A ZERO IF LOCK IS USED00424100 

S POP OMIT 00424110 

REAL IOMASK.SAVEWORDJ 00425000 

REAL CORE! XUSED FOR SELECTION PURPOSES 00426000 

COMMENT 00426100 

C0RE.C4U4J m MULTIPROCESSING FACTOR (xtOO) 00426200 

C0RE,[18»15J « SUM OF CORE ESTIMATES FOR ALL JOBS 00426300 

NOW ACTIVE IN THE MIX (DI V 64) 00426400 

C0RE,[33I15J * AMOUNT OF CORE MEMORY INITIALLY AVAILABLE FOR 00426500 

PROCESSING NORMAL STATE JOBS CDIV 64); 00426600 

DEFINE CCSTACKp224#j X CHANGE THIS IF CONTROLCARD NEEDS MORE STACK 00426650 

DEFINE SELECTION « FORK(Pc ,SELECTRUN).Q#M . 196»0)#. 00426700 

FREECARD(FREECARD1)» 00426780 

F0RK(P( I C0NTR0LCARD).FREECARD1»»1»CCSTACK,0)## 00426790 

CCARD(CCARDl)* 00426800 

f0rk( pc, controlcard) or cloooooxlogli ne » ccardl » -1 »cc stack* 0)# j 0042681 

procedure selectruncf )l value ft real f| forward! 00426900 

procedure cqntrolcardcahvalue alreal a! forward!* 00427000 

real procedure directorysearchc a*b*c ) 1 value a*b»cu 00428000 

Real a»b*c! forward!* 00429000 

procedure nextdciojforwardj 00429100 



DEFINE HEA0ERUNL0CK«HU#» 
HLKHU1»HU2»HU3) = 
P(MKS»HU3»HU1»HU2»9»DIRECT0RYSEARC»DEL)*; 
REAL Dl RECTOR YSEARC*D I RFCTORYSE ARCH ; 
XXHEAPERUNUOCK CAN BE USED TO WRITE 



%% 

%% 
i% 
%% 
%% 



Ai RE 
VALUE 



header* turn off the interlock 
it may be called only after a d 
the parameters passed must be ca 
where a»b are the same as passe 

AND OS IS THE RESULT Of THAT D 
PROCEDURE ARTN(A»N)J VALUE A»N| ARRAY 
SAVE PROCEDURE DI SKWA I TCCORE . S I ZE »D I S 

value core#size»disk; 

REAL CORE»SlZE»DlSK> 

FORWARD; 
PROCEDURE MAK£PRESENT(A)> VALUE 
SAVE PROCEDURE DlSKlO(L»C» S.D ) I 

forward;* 

ARRAY MfSSAGETABLEt*]? 

DEFINE MESSAGETABLESIZE * 5#l % 

DEFINE 

OPTiONSZ » (MESSAGETABLE[0],[8ll 
TERMSGSZ * CMESSAGETABLEtUaeU 
KEYMSGSZ « (MESSAGETABLEt2).[6u 
CCTABLSZ m (MESSAGFTABLEC3j,[8ll 
* SET OMIT * PACKETS 
DEFINE 

SPOUTCSPOUTl)»SPOUTlT(SPOUTl*n#» 
SP0UTER(SP0UTER1»SP0UTER2»SP0UTER 
PROCEDURE SPOUTIT(MESSAGF»TYPE)l 
VALUE MESSAGE'TYPEJ 
REAL MESSAGE»TYPEI 
FORWARDI 
t POP OMIT 

$ SET OMIT * NOTCPACKETS) 
DEFINE 

SPOUT ( SPOUT l)*SPOUTER( SPOUT 1* 0*1) 
SPOUT IT( SPOUT I Tl»SP0UTjT2)aSP0UTE 
PROCEDURE SPOUTER(MESSAGEtUNITNO.TYPE) 
VALUE MESSAGE»UNITN0»TYPEJ 
REAL MESSAGE»UNITNO.TYPEJ 

forward; 

$ POP OMIT 

DEFINE 

FILEMESS*FMS#» 

FMS(FMS1»FMS2»FMS3»FMS4#FMS5»FMS6 

FILEMESSAGECFMSltFMS2»FMS3#FMS4»F 

PROCEDURE FILEMESSAGE(1»K»M»F*R»D»C»TY 

VALUE i»k#m»f»Rid»c»type; 

REAL I»K»M»F»R»D»C»TYPEJ 
FORWARO* 

procedure lbmess(fn»5n»il»12»e»unitn0i 

value fn»sn»u»i2#e#unitn0#x! 

real fn#sn»h»i2»e»unitn0*xj 

forward; 

procedure termjnatecmix); value mjxj 

save procedure term i nalmessage(n) i va 

boolean procedure systemf lle( a.b ) i valu 

REAL FENCE! ARRAY MEMR0W[30JI 
PROCEDURE ENTeRSYSFILe(N)! VALUE Nl Re 



IN THE DIRECTORY A CHANGED 
BIT AND DO THE FQRGETSPACE 
IRECT0RYSEARCH(A»B»4) 
•B'DS); 

TO THE DJRECTORYSEARCH 
IRECTORYSEARCH 

A[*]J INTEGER NJ FORWARDIX 
K); 



al a; forward; 
CfSto; Real l; integer c#s»d;* 



NUMBER OF MESSAGETABLE ENTRIES 



0J)#» 
0]>*. 
0J)#. 

o ] ) # ; 



3)*SP0UTIT(SP0UTER1»SP0UTER3)#; 



R ( SPOUT JT I ^ Off SPOUT I T2)#; 

J 



*FMS7)« 
MS5#FMS6»FMS7t l)#l 

pe); 



X); 



real mix; forward; 

LUE Nl REAL Nl FORWARDI 

e a*b; real a»b; forward; 



al n; forward; 



00430000 
00430100 
00430200 
00430225 
00430250 
00430275 
00430300 
00430400 
00430500 
00430600 
00431000 
0043110U 
00431200 
00431300 
00431400 
00431500 
00432000 
00433000 
00435000 
00436000 
00437000 
00436000 
00439000 
00440000 
00441000 
00449999 
00450000 
00450100 
00450200 
00450300 
00450400 
00450500 
00450600 
00450601 
00451499 
00451500 
00451600 
00451700 
00451800 
00451900 
00452000 
00452100 
00452101 
00452200 
00452300 
00452400 
00452500 
00452600 
00452700 
00452800 
00452900 
00454000 
00454100 
00454200 
00454300 
00463100 
00463200 
00463300 
00463400 
00464000 



» = 



PROCEDURE COMb; FORWARD** 

s set omit ■ nqtcstatistics) 

PROCEDURE FIUSYSTATJ FORWARD* 
PROCEDURE SAVESTATjSTiCSI FORWARD* 
DEFINE COUNTUP(COUNTUPliCOUNTUP2)«BEGlN COUNTUPBY( COUNTUP 1 i 1 ) 
C0UNTUPBY(CC0UNTUP1 ) + 30, COUNT UP2) END#» 

C0UNTUPBY(C0UNTUPBY1»C0UNTUPBY2)»C0UNTARRAY[C0UNTUPBY1 3 
*P(DUPH(C0UNTUPBY2)*> 
ARRAY COUNTARRAYC*)* 
REAL MCPTOPJ 
REAL- SYSTATBASEJ 

array swapdeLayc*]; 
array diskwaitimec*]! 

* 0«lt23l4fllJ • IN PRT SINCE IT OCCURS IN OUTER 



REAL LEFTHAL.Fi; 
REAL JOBNUMj 
REAL INTERVAL; 

$ POP OMIT 

PROCEDURE ASR; 

PROCEDURE COM11; 

PROCEDURE COM13; 
PROCEDURE COMMUNICATEOJ 
PROCEDURE COMMUNICATEE 

PROCEDURE LIBRARYLOAD; 

PROCEDURE LIBRARYZEROJ 

PROCEDURE LIBRARYOUMPI 

1 SET OMIT ■ NQTCDUMP 



FORWARD;* 
FORWARD)* 

forward;* 
forward; 
forward; 
forward; 
forward; 
forward; 
or debugging) 
value b; real b; forward; 



PROCEDURE DUMPCORE(B); 

$ POP OMIT 

PROCEDURE C0M19) FORWARD;* 

PROCEDURE C0M23] FORWARD;* 
PROCEDURE INTRINSICTABLfBUILdERCFH)! 

value fh; real fh; forward; 
procedure messagetablebuilder; forward; 

ARRAY PUNTERt*J; 

* 8 

SHAREDISK 
+ 2 

AUTODUMP 
♦ 19 



DEFINE 
$ SET 



PUNTSIZE 



OMIT 



NOT 



$ SET OMIT s NOT 



* LQUE OVERFLOW 



X DUMP CARD 



S POP OMIT OMIT 



SET 
SET 



DEFINE 

t POP 
* SET 

DEFINE 



#; 

NOT AUTODUMP 
NOT SHAREDISK 
* 10#» 

■ 23#; 



POP 

COMMENT 



OMIT * 

OMIT ■ 

DUMPCRD 

DUMPADR 

OMIT 

OMIT « SHAREDISK 

DUMPCRD « 8*, 

DUMPADR * 21#; 

OMJT 

THIS 

;20; 

1211 
1221 
1231 
124 t 
1251 
1261 
1271 
I 30 t 



OR OMIT 



OR OMIT 



IS THE CODE ON 

20»20tNOP»NOP 

STD»5»BFW 

INI#0»LFU 

10»L0D#21»STD 

25t IlOt 2*LBU 

0140000007700035 

0140000047400157 

OPDC 14.DIA 

OPDC 15#DIA 



THE DUMP CARD (ALL NUMBERS A 
TELLS ANALYZER ALL I/O 
BRANCH TO 23 
TIMER - LOOP UNTIL INTE 
SAVE MC83, RESTORED BY 
START I/O THEN WAIT AT 
I/O DESC FOR 77 SEG WRI 
I/O DESC FOR 74 SEG REA 
26#10#BFW I/O 1 - PICK UP RE 
26»6»BFW I/O 2 - DIAL TO ER 



00469000 
00469099 
00469100 
00469200 
00470800 
00470900 
00471000 
00471100 
00471200 
00471300 
00471400 
00471600 
00471700 
BL0C00471750 
00471800 
00471900 
00471901 
00474000 
00475000 
00477000 
00478000 
00478500 
00479000 
00479500 
00480000 
00480099 
00480100 
00480101 
00483000 
00487000 
00489000 
00490000 
00491000 
00643000 
00643100 
00643200 
00643300 
00643400 
00643500 
00643600 
00643700 
00644000 
00644100 
00644200 
00644300 
00644350 
00644400 
00644500 
00644600 
00644700 
RE OCTAL) 100645000 
RES ARE 0K00645010 
00645020 
RRUPTED 00645030 
2ND CARD 00645040 
TIMER 00645050 
TE FROM 3500645060 
D OF CODE 00645070 
S DESC* 00645080 
R FIELD* 00645090 



1311 OPOC 16»DIA 26»2»BFW I/O 3 - BRANCH INTO I/O 4 00645100 

1 32a OPDC 17»D1A 26* I/O a 00645110 

DESC 24»CBD 7 BRANCH To 24 FOR RETRY IF ERRORS 00645120 
1 33 • DESC 37*BFW GO TO 37 1ST TIME* SEE 41 FOR 2NB00645130 

1 34 1 INI#0»LFU DATACOM - LOOP UNTIL INTERRUPTED 00645140 

»35» 0000000000000501 DISK ADDRESS FOR WRITE 00645150 

1361 INI»0»LFU FREEADDRESS - LOOP ON INTERRUPT 00645160 

» 371 200# 157iSNQ»240 STORE DISK ADR FOR READ. SET 240 00645170 

TO OPERAND FOR DESC AT 41 00645180 

1401 STD'OPDC 26»25*STD PUT I/O DESC INTO 25 00645190 

»41l DESC 240»37»STD»N0P SET 37 FOR BRANCH TO 240 FROM 33 00645200 

»42» 16»LBU BRANCH TO 24 TO START THE READ! 00645210 

SAVE PROCEDURE RESULT; 00646000 

BEGIN 00647000 

GO TO PU18])! * TIMER IS A LOOP ON INTERRUPTS 00648000 

ENDI 00649000 

S POP OMJT 00649100 

SAVE PROCEDURE PUNTCDf VALUE U REAL U 00650000 

BEGIN REAL T»-3> 00650250 

$SET OMJT m NOT AUTODUMP 00650450 

REAL TMB» RSLT«RESULTJ 00650500 

LABEL HAtHBl 00650750 

S POP OMIT 00650800 

I * v I F I»0 THEN T ELSE PUNTER INX J; 00651000 

IF MEMR0W[P1MIX],[CFJ GE« FENCE THEN 00651300 

BEGIN TERMINATE(PIMIX); 00651400 

TERMINALMESSAGE(P(1»I))» % THE 1 IS THE FROMPUNT FLAG00651500 

END; 00651600 

STREAM(Q|»PCO»RDF)« U 00651800 

S SET OMIT * NOT AUTODUMP 00651900 

Al*18# D» = U»PUNTER INX 0); 00652000 

$ SET OMIT * AUTODUMP 00652100 

PUNTER); 00652200 

S POP OMIT OMIT 00652300 

BEGIN DSt»13 LIT"-SYS HANG* F»"l 00652400 

SI»»L0C Q; SH»S1*3J 00652600 

5(DS|»3 RESET; 00652800 

3(IF SB THEN DSI*SET ELSE DSt*RESET; SKJP SB))» 00653000 

DS|»2 LIT"; •*; SII*U 00653200 

63CIF SC*"*" THEN DSl*CHR); DSl*LlT M * f, 5 00653400 

$ SET OMIT » NOT AUTODUMP 00653500 

DII*A; DS|"8 LIT"29290+JI"; % INI * INI »4.B6W 00653600 

SI;*A; DS;»44 WDS; 00653800 

DH»A; DIt«DI+8> * IOBUSY- 00654000 

DSI»4 LlT"002C"; X 0#RTN 00654200 

DII-D1+28; X IOCOMPLETE-LOD R#RTN 00654400 

DSl«32 LIT"Q 4A*I2C0U*A+I2C0Y*A+I2(0#*A+I2( W I 00654600 

ENDI 00654800 

P(HP2); 00655000 

HA» TMBI*II60[3t42l6)| 00655200 

PC CTMB3* 1 10) J 00655400 

HB« DO IF (TMBt»P(MKS»RSLT)) » THEN % 10 BUSY 00655600 

BEGIN P(MKS»RSLT#DED; GO HA END 00655800 

UNTIL TMB.t3t6J»60; 00656000 

IF TMB,[CFl<I THEN GO TO HB; 00656200 

IF TMB,CFFJ#0 THEN GO TO HA; 00656400 

IF NOT HALTSET AND PUNTERt DUMPADR J«P501 THEN 00656600 

BEGIN 00656800 

STREAM(Sl«CPUNTERCDUMPCRDJ]» D»*?20); 00657000 

BEGIN SII*S; DSl »19 WDS; END; 00657200 



GO TO P(O»STS»O»STF»[M[02OJ J )l 00657400 

ENDI 00657600 

DO UNTIL FALSE; 00657800 

* SET OMIT * AUTODUMP 00657900 

ENDI 00656000 

WHILE HALTSET DO; 00659000 

PCWAlTIO(PUNTER INX 0»0»25))l 00660000 

SLEEP(0*0)| % MAKE IT EASY FOR ANALYZER TO FIND STACK 00661000 

$ POP OMIT OMIT 00661010 

ENDI 00662000 

PROCEDURE CREATELOGCDDDJI VALUE DDDJ ARRAY DDDt*3; FORWARD! 00750000 

REAL CANDYINX » CREATELOGI 00750100 

DEFINE CANDEMIX[CANDEMIXU*CANDYINX#J 00751000 

ARRAY MEM»MEMR0Wt*»*3; 00753000 

DEFINE DSW « 3*. 00754000 

BOJW » 4#» 00755000 

IGNORE ■ 5#* 00756000 

REMOVED * 6## 00757000 

CHANGED « 7## 00758000 

SECURED « 8#» 00759000 

ZIPER * 9#. 00760000 

NOTIN *10#t 00761000 

NOTX *11## 00762000 

WWWW *99#J 00799000 

* SET OMIT « NOT(DEBUGGING) 00799999 
REAL PAUSEVALUE«127I 00800000 
SAVE PROCEDURE PAUSE(R>» VALUE R» REAL R; 00801000 
BEGIN IF RSPAUSEVALUE THEN P( R t ZPl t DEL ) i ENDI 00802000 

$ POP OMIT 00802001 

S SET OMIT s NOTCCHECKLJNK OR DEBUGGING) 00802999 

SAVE PROCEDURE CHECKL I NKSC M I X,LOC ) I VALUE MIX»L0C) REAL MIX.LOCJ 00803000 

BEGIN REAL Br S»F »L»MS#T#C i 00804000 

LABEL PUNJ 00804050 

PCM[U); 00804100 

B*MtS*MS»CMEM[MIXtOlJ,[CFi3,IFFl| 00805000 

WHILE (F*(L*M[S3).tCF))#MS DO 00806000 

BEGIN IF P(«L»LOD)«CFF] NEQ B THEN 00807000 

BEGIN C»*1J GO TO PUN; END; 00808000 

IF FSS THEN 00809000 

BEGIN C 1-21 GO TO PUN; END; 00810000 

IF S«L0C THEN LOC*-t; 00810500 

B*SI S*FI 00811000 

ENDI 00812000 

IF S»LOC THEN LOC»»-U 00812500 

C*3l 00813000 

IF "1#L0C THEN GO TO PUN; 00813500 

B*MCCS*MS*S + 1)*U; 00814000 

WHILE CF*(L*M[S]),CCF])*MS DO 00815000 

BEGIN IF M[S+1]*B THEN 00816000 

BEGIN Cl«4; GO TO PUN; END; 00817000 

IF S#MS THEN 00817100 

BEGIN 00817200 

IF (T*MCS-1J)S0 THEN 00818000 

BEGIN Cm5; GO TO PUN; END; 00819000 

IF T»tCF]»S-l#L,[FF] THEN 00820000 

BEGIN Cl»6; 00821000 

PUNl PUNT(4); % INVALID LINK 0062U00 

END; 00821200 

END; 00821500 

B*Sl S*F; 00822000 



end; 

END! 
* POP OMIT 
ARRAY CTt * J I 
ARRAY SQ[*J! 
ARRAY DATC*3! 
ARRAY LOGARRAY[*Jj 
DEFINE STASUS[STASUS1)«SQ[STASUS1],C1B|6]*1 



ARRAY STASUSC*3! 



COMMENT 
DEFINE 



POSSIBLE 

TIMEND 

WAITSWAP 

BOJSTATE 

SATISFY 

EOJSTATE 

FORCESWAP 

TRANSIT 



COMMENT STASUSIIJ GIVES STATUS WITH RESPECT 

SYSTEM OF JOB WITH MI X»I ; 
STATES FOR STASUS! 



COMMENT 
TO SWAP 



w 
s 

B 

m 



Of* 

i## 

2#» 
3#. 

4#i 
bit 

6## 



REAL 



WAITST 
REAOYS 
RDYRPT 
READYB 
STABLE 
RUNNIN 
SELECT 
READYEND* 
C 



8## 
9#» 
10#» 
11#« 
56#» 
16f* 
32#! 



DEFINE LINK[LI 
ARRAY LINK[*3! 



DEFINE SCtSClJ 
ARRAY SCC f 3 1 C 
DEFINE LCCLC13 
ARRAY LC(*3! C 
DEFINE COUNTCC 
ARRAY COUNTt*] 



DEFINE 

DEFINE 
DEFINE 



DEFINE 

DEFINE 

DEFINE 
DEFINE 
ARRAY 



SLNCSLN 

COMMEN 
NLSCNLS 
EXPANDC 

COMMEN 
CANTEXP 

COMMEN 
MAXCORE 

COMMEN 

DONTEXP 

TQTALCT 

TQTALC*] 



DEFINE ACTIVE* 
ARRAY ACTIVE!* 

DEFINE POSSESS 
ARRAY POSSESS! 



ATE * 
TATE* 

R 

OJ * 

* 

G * 
ING = 

FORCEND»RD 
OMMENT REA 
HEM I 

NKU*SQ[L! 

COMMENT 

LINKtl 

WITH M 

HEAD 

»SOtSCl3.[ 

OMMENT SC 

BSOtLCU.t 

OMMENT LC 

OUNT13"SQ[ 

! COMMENT 

ASSIGN 

TO BF 

13»SQCSLNl 

T SLNU1 I 

13*SQ[NLS1 

EXPANDIJpS 

T EXPAND C 

ANDICANTEX 

T MAY BE D 

[MAXCOREi] 

T SET BY M 

ANDBITSIDO 

OTALU»CTt 

! COMMENT 

I TH C 
ACTIVEU*C 
]|COMMENT 
USING 

[possEssn 

•1JCOMMENT 



YRPTEND»SWAPEND» 

DYEND* SWAPEND* AND RDYRPT 

N THEIR RESPECTIVE QUEUES! 

NKlJ t [42l6J#l 

LINK CONTAINS LINKS FOR RE 

3 IS MIX OF NEXT JOB IN QU 

JX*I, LINKCOJ^HEAD OF REA 

F SWAP QUEUE! 

36 I 6 J# ; 

[13 IS FIRST CHUNK NUMBER 

30)63*; 

CI3 IS LAST CHUNK NUMBER ^ 

C0UNT13,[24I63#! 

C0UNTCI3*(NUMB£R OF CHUNKS 

ED) TO JOB WITH MIX«I)-1, 

UNDERSTOOD DYNAMICALLY! 

3,ti5«33#J 

S SLICE NUMBER FOR JOB WJT 

3, [8(431! 

QCEXPAND13.tl3i2J#! 

ONTAINS INFORMATION TO ALL 

PAND13»SQCCANTEXPANDlJ.[7l 

UE TO COUNT-CHUNKMAX OR MI 

«SQtMAXCORE13,[6|13#i 

AXIMUM CORE CARD! 

NTEXPANDBITS13»SQCD0NTEXPA 

T0TALUit42«63#! 

TOTALtlJ IS TOTAL NUMBER 
HUNK! 
TlACTJVEU,C36s63#! 

ACTIVECI3 IS NUMBER Of JO 
THE I TH CHUNKl 
•CTCP0SSESS1 3 tC30»6J#l 

P0SSESSIJ3 IS MIX INDEX 



END POINT TO LAST 

COMMENT 
ADY AND SWAP QUEUES, 
EUE FOLLOWING JOB 
DY QUEUE* LINKC313* 

COMMENT 
FOR JOB WITH MIX»U 

COMMENT 
OR JOB WITH M I Xw I | 

COMMENT 
"POSSESSED" (OR 
THIS POSSESSION IS 



H MIX*U 



OW AREAS TO EXPAND! 

13#! 

SSING MEMORY MODS! 



NDBITS13, [6123*! 

COMMENT 
OF JOBS USING THE 

COMMENT 
BS READY TO RUN 

COMMENT 
F JOB WHICH POSSESSES 



00623000 
00824000 
00824001 
00896000 
00897000 
00898000 
00898100 
00899900 
00900000 
00901000 
00902000 
00903000 
00904000 
00905000 
00906000 
00907000 
00908000 
00909000 
00910000 
00911000 
00912000 
00913000 
00914000 
00915000 
00919000 
00920000 
00921000 
00921500 
00922000 
00922900 
00923000 
00924000 
00925000 
00926000 
00926900 
00927000 
00929900 
00930000 
00930900 
00931000 
00932000 
00933000 
00933100 
00933200 
00933210 
00933300 
00933400 
00933500 
00933600 
00933650 
00933700 
00933750 
00933900 
00934000 
00935000 
00935900 
00936000 
00937000 
00937900 
00938000 



THE I TH CHUNK; 00939000 

REAL CHUNKMAXI COMMENT CHUNKMAX IS MAXIMUM ALLOWABLE CHUNK NUMBER! 00940000 

DEFINE CHUNKZIZEM024*! COMMENT CHUNKSIZE IS LENGTH OF ONE CHUNK* 00941000 

DEFINE DISKSTORECDISKSTOREl]*DAT[DISKSTORFi],t 8t25]#! COMMENT 00941900 

ARRAY DISKSTOREt*]! COMMENT DISKST0REU3 IS ADDRESS ON DISK OF 00942000 

SWAP AREA FOR JOB WITH MJX*I! 00943000 

DEFINE ACTLENIACTLENn»DATtACTLENl],[33»153#l COMMENT 00943900 

ARRAY ACTLEN[*J; COMMENT ACTLENCU IS ACTUAL LENGTH OF STUFF SWAPPED 00944000 

FOR JOB WITH MIXM) 00945000 

COMMENT MeMI 1**3 IS AN ARRAY WHICH POINTS TO MEMORY 00954000 

SYSTEM VARIABLES ( AVA IL»LEFTOFF * ETC > FOR JOB WITH 00955000 

MIX=IJ 00956000 

DEFINE BATCHED[BATCHEDll"CT[BATCHEDn«tlll3*» 00956200 

BATCHJ0BCBATCHJOBn»UVROW[BATCHJOBU,C7in*J 00956 300 

DEFINE MLINK1 ■ 0#. 00957000 

LEFTLIT * 1#» 00958000 

AVAIL * ?.*» 00959000 

ADDRESSES * 3#; 00960000 

COMMENT SPACE ALLOCATED BELOW THE FENCE IS NOT SUBJECT 00961000 

TO SWAPPING* WHILE THAT ABOVE THE FENCE IS SUBJECT 00962000 

TO SWAPPING! 00963000 

DEFINE UPOLAY(UP0LAYl)«c0RFtCHH]x40xUP0LAYl#» 00973000 

COMMENT * (FACTORxlO0)/400 x (UPOLAYX 16000) 00973100 

* FACTOR/4 x (UP0LAY1 IN MKROSECS)! 00973200 

DOWNOLAY(D0WNOLAYl)**P(DUP)-DOWNOLAYixBO-2OOOO#; %R 3800974000 

COMMENT DECREASES BY AVERAGE MICROSECONDS REQUIRED 00974100 

FOR A DISK I/O OF D0WN0LAY1 SEGMENTS! 00974200 

SAVE PROCEDURE SWAPC STATE »B ) ! VALUE STaTE»B! REAL STATE»B! FORWARD! 00990000 

procedure shortcommunicatesiforward! 00990501 

procedure initialswap(n)! value n! real nj forward! 00991000 

procedure bringbackcmix)! value mix! real mix! forward! 00992000 

procedure reentercstuff)! value stuff! real stuff! forward! 00992100 

procedure swapper! forward! 00992200 

boolean procedure outwait(b)! boolean bl forward! 00993000 

save Real procedure getareacn); value ni real n; forward! 00994000 

SAVE PROCEDURE FORgETARfA(N,A)! VALUE N,A! REAL N#A! FORWARD! 00994500 

SAVE INTEGER PROCEDURE SPACE(N)! 00995000 

VALUE N! INTEGER N! 00996000 

BEGIN SPACEI*GETSPACE(NtO,5)+2» END! 00997000 

t SET OMIT ■ NOTCDFX) 00998000 

ARRAY EUOCIO] * SDFX00998010 

9X777777777777777* 00998020 

9\777J77777777777* 00998030 

§1777777777777777 » 00998040 

•1777777777777777* 00998050 

91777777777777777$ 00998060 

9X777777777777777* 00998070 

9X777777777777777* 00998080 

9X777777777777777* 00998090 

9X777777777777777* 00998100 

9X7777777777777771 00998110 

COMMENT EUQ IS USED WITH THE REST OF THE 10 QUEUE STRUCTURE FOR XDFX00998120 

HANDLING AN EXCHANGE IN THE DISK-FJLE SUBSYSTEM, IN THIS X0FX00998130 

CASE» DISK 10 REQUESTS ARE HANDLED SPECIALLY, AFTER F I ND I NGXDFX009981 40 

AN 100 SLOT* THE EU NUMBER IS RETRIEVED FROM THE DISK X0FX00998150 

ADDRESS WORD AND USED AS AN INDEX INTO EUQ* WHICH I ND I CATESXDFX00998160 

THE QUEUEING STATUS OF THE EU. XDFX0Q99817Q 

%%%%% EUQIN] CONTAINS THE FOLLOWING FOR EU #N| %%%%% IDFX00998180 

133115] « IF 111 * 1 THEN LU OF CONTROL CURRENTLY HANDLING EU 00998190 

IF THEN TAIL OF QUEUE (IOQ INDEX) FOR THIS EU 00998200 



[18115] * HEAD OF QUEUE (100 INDEX), SDFX00998210 

t 3I15J * NEXT EU WAITING FOR A CU (EUQ INDEX), XDFX00998220 

t 21 1) * IF 0, EU IS ACTIVE BUT FURTHER IO-S ARE BEING QUEUED 00998222 

SO THAT A DIFFERENT EU CAN USE THE CONTROL, 00998224 

[ II J3 m TRUE IFF THIS EU IS IN OPERATION] XDFXQ0998230 

REAL EUWJ COMMENT EUW QUEUES UP EUS WAITING FOR CUSl SDFX00998240 

C33U5J * TAIL OF WAlTjNG-EU QUEUE (EUQ INDEX) IDFX0Q998250 

C18U53 * HEAD " M " " " " , 8DFX00998260 

INTEGER DISKOUNTI COMMENT NUMBER OF READY CUS* XDFX00998270 

SAVE PHOCEDURE LlNKEUJ FORWARD* 00998500 

t POP OMIT 00998999 

ARRAY F0RKQUEl*J> 01000000 

COMMENT THE FORKQUE IS A QUEUE OF REQUESTS TO RUN INDEPENDENT 01001000 

PROCESSES, ENTRIES ARE PUT IN THE QUEUE BY FORK* AND 01002000 

ARE INITIATED BY THE CONTROL SECTION OF THE MCP NEAR 01003000 

THE LABELS NOTHINGTODO AND SLATEST ARTER , THE FORMAT 01004000 

OF THE FORKQUE ISl 01005000 

01006000 

FORKQUE! P500777 xxxxx xxxxx 01007000 

THE F FIELD CONTAINS THE ADDRESS OF THE 01QQ8000 

FIRST WORD OF THE LAST REQUEST IN THE QUEUE. 01009000 

THE C FIELD CONTAINS THE ADDRESS OF THE 01010000 

FIRST WORD OF T H E FIRST REQUEST IN THE QUEUE, OlOHOOO 

when there are no current requests, both of these 01012000 

fields point at the forkque, 01013000 

the format of a forkque entry is? oiohooo 

01015000 

WORDU POOOPPP BBBBB FFFFF 01016000 

PPP IS PRIORITY +64 — USED IN LINKING IN NEW 01017000 

ENTRIES WITH A L I NK-L I ST-LOOKUP, IT 01018000 

ALSO DEFINES THE INITIAL PRIORITY FOR 01019000 

THE NEW PROCESS, 01020000 

BBBBB IS THE LINK BACK TO THE PRECEDING ENTRY, 01021000 

FFFFF IS THE LINK FORWARD TO THE NEXT ENTRY, 01022000 

WORD 21 ADDRESS OF DESCRIPTOR OF ROUTINE TO BE RUN, 01023000 

WORD 31 A PARAMETER TO THIS ROUTINE, 01024000 

WORD 41 SIZE OF STACK NEEDED, ZERO IF STACK 01025000 

ALREADY OBTAINED* OR WILL USE ISTACK, 01026000 

WORD 51 ADDRESS OF STACKt \f ALREADY OBTAINED, 01027000 

«0 s> STACK SPACE NEEDED 01027100 

si »> USE STACKQ TO GET SPACE IF AVAILABLE 01027200 

(IN parameter to fork only) 01027300 

END FORKQUE COMMeNTI 01028000 

01029000 

REAL BED! 01030000 

ARRAY BED1U3* 01031000 

COMMENT THE BED IS A LINKED LIST OF CONTROL LINES THAT ARE 01032000 

AWAITING SOMETHING. BED POINTS To THE FIRST ENTRY, 01033000 

AND BED1 POINTS TO THE LAST ENTRY IN THE LIST, 01034000 

(NOTE« BED1 MUST BE THE NEXT PRT CELL AFTER BED,) 01035000 

THE LINKS ARE STRUCTURED SO THAT THEY MAY BE 01036000 

MANIPULATED AS ARRAYS, CONSIDERED AS AN ARRAY! 01037000 

01038000 

CONTAINS THE LINK FORWARD TO THE NEXT ENTRY, 01039000 

CONTAINS THE LjNK BACK TO THIS ENTRY, 01040000 
CONTAINS THE MIX INDEX ASSOCIATED WITH THIS ENTRY 01041000 

CONTAINS THE TIME OUT VALUE 01042000 

CONTAINS A LOGICAL LINE NUMBER (FOR DATACOM) 01043000 

WHICH IS ASSOCIATED WITH THE ENTRY. 01044Q00 

WORD 5 CONTAINS THE F-REGISTER SETTING OF THE 01045000 



WORD 





WORD 


1 


WORD 


2 


WORD 


3 


WORD 


4 



SLEFP ROUTINE (WHICH MADE THE ENTRY), 

BED AND ALL FORWARD LINKS LOOK LIKE *>100777PPPPPxxxxx 
WHERE PPPPP IS THE PRlORITY+64 FOR THIS ENTRY 
AND THE BACK LINK LOOKS LIKE P500777xxxxxxxxxx , 
END BED COMMLNTJ 

RfcAL priorty; 

COMMENT PRIORTY IS THE PRIORITY ASSOCIATED WITH THE "JOB" 

CURRENTLY BEING RUN ON PROCESSOR 1, IN THE SENSE 
USED HERE* A "JOB* IS EITHER A USER PROGRAM OR AN 
INDEPENDENT LINE OF CONTROL WITHIN THE MCP; 



COMMENT P1MIX.P2MIX NOW DECLARED AT 0002 
COMMENT P1MIX IS THE MIX INDEX ASSOC 
RUNNING ON PROCESSOR 1, P 
ROUTINE IS CURRENTLY RUNN1 
P2MIX# SIMILARLY IS THE Ml 
JOB RUNNING ON PROCESSOR 2 
ONLY OPERATE IN NORMAL STA 
AND IS NOT PRESENT (OR SIC 



REAL 



STACKQ! 
DEFINE 



STANDARDSTACK «128#! * TO 
SAVE PROCEOURE FORKCROUT I NE * PARAMETER* 
VALUE ROUTINE* PARAMETER* PRIORITY* S 
REAL ROUTINE* PRIORITY* SIZE* 
ARRAY PARAMETER!*}* LOC AT I 0N[ *} J 

BEGIN COMMENT FORK QUEUES A REQUEST 
PROCESS IN THE LIST OF R£Q 
REQUESTS ARE ORDERED ACCOR 
FIRST-IN* FIRST-OUT AMONG 
SEE ALSO COMMENT AT FORKQU 
REAL T» FRONTLINK, BACKLJN 
IF LOCATIONS THEN 
IF (LOCATION«*STACKQ) NEQ 
T * GETAREA(0)J 
BACKLJNK * PCFORKQUE* 0&(P 

0* INX* ,FR 
M[T] * FRONTLINK&BACKLINKC 
M[FR0NTLINK],tFF3 * T I M 
MtT+1) * ROUTINE! M 
M[T+33 * SIZE! M 

END INDEPENDENT RUNNER QUEUEING! 



1700 ; 

IATED WITH THE "JOB" 

1MIX*0 MEANS THAT AN MCP 

NG, 

X INDEX ASSOCIATED WITH THE 

. PROCESSOR 2 — WHICH CAN 

TE " IS IDLE IF P2MIX*0» 

K) IF P2MIX«-l; 

INCREASE FOR INDEP RUNNERS 

PRIORITY* SIZE* LOCATION)? 
UE» LOCATION! 



TO INITIATE AN INDEPENDENT 
UESTS POINTED TO BY FORKQUEt 
DING TO PRIORITY. AND ARE 
EQUAL-PRIORITY REQUESTS, 
E DECLARATION? 
K; 

THEN STACKQ|»M[STACKQJ? 

LLLi 
3919 3 j 



RI0RITY+65)L9l39|9]* 
QNTLJNK. -),[FTl! 
CTFHCPRIQRITV*64)[9| 
[BACKLINKJ,CCF] * T! 
tT+23 * PARAMETER! 
[T + 4] *■ LOCATION, [CF] 



1 



RETURNS THE 
AND REMOVES 



STACK FOR A 
IT FROM THE 



SAVE PROCEDURE KILL(STACK)! 
VALUE STACK! 
ARRAY STACKt*3! 

BEGIN COMMENT KILL 
PROCESS* 
REAL S»NT3! 

PC64.STS)! 

IF (S*STACK ( tCFJ)<PRT,tCF3 THEN 

FORGETSPACE(S) 
ELSE BEGIN Ml S-l ]*STACKQ! STACKQ*S-1 
GO TO NOTHINGTODO! 
END INDEPENDENT RUNNER TERMINATION! 

SAVE PROCEDURE SLEEP( ADDRESS* MASK)! 
VALUE ADDRESS* MASK! 
NAME ADDRESS! 



COMPLETED 
SYSTEM! 



INDEPENDENT 



END! 



01046000 
01047000 
01046000 
01043100 
01049000 
01050000 
01051000 
01055000 
01056000 
01057000 
01056000 
01059000 
01060000 
01061500 
01062000 
01063000 
01064000 
01065000 
01066000 
01067000 
01066000 
01069000 
XR5601069100 
01070000 
01071000 
01072000 
01073000 
01074000 
01075000 
01076000 
01077000 
01078000 
01079000 
01079100 
01079200 
01080000 
01081000 
01082000 
01083000 
01064000 
01085000 
01066000 
01087000 
01088000 
01089000 
01090000 
01091000 
01092000 
01093000 
01093100 
01094000 
01095000 
01095100 
01095200 
01096000 
01097000 
01098000 
01099000 

onooooo 

01101000 



ARRAY MASKt+JJ 

BEGIN COMMENT SL 

FOR AN 

TO FIN 

CAN At, 

SUSPEN 

ON COM 

OF A V 

REAL L 

ARRAY B 

B 

$ SET OMJT = NOT(NE 

BOOLEAN LOG 

S POP OMJT 

PCBED* 
1 
P(PiMI 
PCO»RD 
LINK * 
BACCO* 
CLICK 
STOPLO 
GO TO 
END WAIT FOR EXT 



EEP MAKES AN ENTRY IN THE BED, IT IS USED TO 
EXOGENOUS EVENT TO OCCUR — AN I»0 OPERATION 
ISH, OR A TOGGLE TO BE RELEASED* FOR EXAMPLE, I 
SO BE USED TO CLEAR INTERRUPTS (SLEEPC 1 1 1) ) OR T 
D A PROCESS FOREVER C SLEEPC 0. ) ) , THROUGH CALLS 
PLEXSLFEP* IT IS POSSIBLE TO WAIT FOR ONE OR MOR 
ARIETY OF CONDITIONS TO BE SATISFIED? 
INK; 

ACK • *2t*J» 
AC * +2t*»*]» 
WL0G6ING) 
TURNED0FF*+7? % TESTED IN NOTHINGTODO 

( PR I 0RTY*65)SP(P7 777 7 77700000 * XCH ) [CTF ] »LLL» XCH* 

»XCH»INX»LOD)l 

X*CLICK*LOGLINE)? 

F)? 

bACKC03*CPRIORTY+64)lCTFj; 
U * FLAG(BACKtOI * C *P( OUP ) ) U LI NK H CTC J ) ? 
* $7777777777771 
GCP1MIX* 1)1 
NOTHINGTODO; 
ERNAL CONDITION? 



WAIT 



IT RESTARTS 



SAVE PROCEDURE COMPLEXSLFEPC CODE) ? 
REAL CODE? 

BEGIN SLEEP(1**P(,C0DE)} END? 

SAVE PROCEDURE RUNCMIX)) 
VALUE MIX; 
RFAL MIX* 

BEGIN COMMENT RUN IS THE BUSINESS END OF SAVEMIX, 
THE JOB WHICH SAVEMIX SAVED? 
PRIORTY * PRY0R[P1MIX * MIX]? 
i SET OMIT * NEWLOGGING 

STARTLOG(MlXtO)? 
t POP OMJT 

TOGLE * TOGLE OR STACKMASKi 
GO TO EXTERNAL? 
END REINITIATING SAVED JOB? 

SAVE PROCEDURE SAVEM I X( M I X* LOGL INE ) > 
VALUE MIX* LOGLINE? 
REAL MIX»L0GLINE? 

BEGIN COMMENT SAVEMjX IS USED TO KEEP A NORMAL STATE JOB IN THE 
WORKS, IT IS CALLED BY SELECTION TO INITIATE A NORMAL" 
STATE JOB FOR THE FIRST TIME* AND IS USED BY HALT AND 
THE P2BUSY SOFTWARE TO HANDLE THE PROBLEMS OF STOPPING 
PROCESSOR 2, AND NONEXISTENT PROCESSOR 2? 
FORKCPiOOOOOxLOGLlNE OR P< ,RUN) , Mi X* -2, 0, 0) ? 
$ SET OMIT * NEWLOGGING 
ST0PL0G(MIX»0)? 
$ POP OMIT 

END MIX INDEX SAVER? 



SAVE PROCEDURE HALT? 

BEGIN COMMENT IF ANYONE IS RUNNING ON 

STOP HIM, HALT ALSO ALLOWS FOR THE POSSIBILITY OF 
A NON-ACKNOWLEDGED PROCESSOR 2 INTERRUPT BEING FOUND* 



PROCESSOR 2* HALT WILL 
FOR THE POSSIBILITY OF 







T 




E 








DEL.O 
















































1102000 
1103000 
1104000 
1105000 
1106000 
1107000 
1108000 
1109000 
1110000 
1111000 
1112000 
1112099 
1112100 
1112101 
1113000 
1113100 
1114000 
1115000 
1116000 
1117000 
1118000 
1119000 
U20000 
1121000 
1122000 
1123000 
1124000 
1125000 
1126000 
1127000 
1128000 
1129000 
1130000 
1131000 
1132000 
1132999 
1133000 
1133001 
1134000 
1135000 
1136000 
1137000 
1138000 
1139000 
1140000 
1141000 
1142000 
1143000 
1144000 
1145000 
1146000 
1146999 
1147000 
1147001 
1148000 
1149000 
1150000 
1151000 
U520Q0 
1153000 



$ SET 



AND PERFORMS THE ESSENTIAL OPERATIONS IF NONE WAS! 

NOPROCESSTOG * NOPROCESSTQG+1* 
IF P2MIX>0 THEN 
BEGIN PCHP2)* 
OMIT ■ NQTCNEWLOGGING) 

ST0PL0GCP2MIX.0)* 



t POP OMIT 

PCPRIORTY) » PRIORTY * -5* 
SLEEPC1»1)* PRIORTY * POL1SHJ 
IF P2MIX>0 THEN 

BEGIN SAVEMIX(P2MIX»U0GLINE2)» P2MIX ♦ 0; 
TQGLE * TOGLE AND NOT HP2MASK; 
END END END STOPPING SECOND PROCESSOR* 
SAVE PROCEDURE ENTERLINfGC ADR»LINEi PRlRTY ) ; 

VALUE ADR»LINE»PRIRTY| REAL ADR»LI NE »PRlRT Y * FORWARD* 

$ SET OMIT « TWXONLY 
REAL 

S POP OMIT 
PROCEDURE DCWRITE(ADR»LINE»SUE)J 

VALUE ADR»LINE>SIZE* REAL ADR»L1NE»SI*E* FORWARD? 

BOOLEAN PROCEDURE BLASTREADCL I NE»C ) * 

VALUE LINE, CI REAL L|NE»CI FORWARD* 

SAVE PROCEDURE IOREQUEST( F I NAL# I ODESC # LOc AT I ON) * 
VALUE FINALtlODESC.LOCATION; 

ARRAY FINAL»LOCATlONC*JJ REAL IODESC* FORWARD* 

PROCEDURE OLDWIERDHAROLDJ FORWARD* 
PROCEDURE NOTIFYCANDECMiX)* VALUE MIX* REAL MIX* FORWARD* 

PROCEDURE SYSDISKlO(IO.L.A)* VALUE lO,L,A* ARRAY A[*3*REAL IO.L* 
FORWARD* 



save procedure newio* 
save procedure STARTIOCU)* value u* real 
save procedure INITIATCDCIOC I0DESC*S)I 

value iooescis* 

real iooesc»s* 

BEGIN 
t SET OMIT « NOTCSAVERESULTS OR DEBUGGING) 

STORAWAYI* 
S POP OMIT 

IOQUE[S] IMODLSCJ 
CHANNELtPCTIO)3 * 30* % 
CHANI0[P(TI0)3«BCL0CK+PCRTR)* 
PCC I0DESC1* 1 1051 
UNITC30J , t 16123 ♦ 3* 
END INITUTEDCJO* 
REAL INTERROGATEMASK* 
PROCEDURE NEXTDCIOI 

XJF AN INTERROGATE IS TO BE DONE IT IS 
XREADY QUEUE ENTRIES WAITING FOR DTTU 
X CONTAINS HEAD OF READY QUEUE IN CF) 
lOQUE FOR DC STUFF WILL GET ONE AND 
SARY, CHANNEL AVAILABILITY IS GOTTEN 



U* FORWARD* 



FORWARD? 



X 

X 
X 
X 

X 



BEGIN 



1ST INTERROGATE IS DONEMT MAY BE 
IS PLACED IN THE READYQUE. lOQUE 
WHENEVER THERE IS NOTHING ELSE TO 

LABEL DOJT* 

REAL lODiVtS* 

P(PIMIX)* 

PlMjX * 0* 

IF UNITE 303 ,[ 151 33 < 3 THEN 



HANDLED F|RST*ELSE CHECK 
AVAILABILITY, (DCREQUEST[ 
ALSO IF THERE IS NO SLOT 
WAIT FOR A CHANNEL AS NEC 
BY OUTERBLOCK CODE WHEN 



GOTTEN HERE ALSO WHEN A NEW 
SPACE IS GIVEN BACK BY IOFJ 
SEND TO DC. 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
XR6001 
XR6001 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
XR5901 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



FOR 

03 

IN 

ES- 

THE 
10 

NlSHOl 
01 
01 
01 



54000 
55000 
56000 
57000 
57099 
57100 
57101 
58000 
59000 
60000 
61000 
62000 
63000 
63100 
63200 
63290 
63300 
63310 
63350 
63400 
63410 
63420 
63500 
63600 
63700 
64000 
64200 
64300 
64301 
64500 
65000 
66000 
67000 
68000 
69000 
69499 
69500 
69501 
69600 
70000 
70100 
71000 
72000 
73000 
89000 
90000 
91000 
92000 
93000 
94000 
95000 
96000 
97000 
98000 
99000 
99600 
01200000 
01200100 
01200200 
01201000 



IF INTRGATCTR > THEN 
BEGIN % 

INTRGATCTR * INTRGATCTR - 1; 
LLNR * 0^ 

IQD»*INTERROGATEMASKj 
GO TO DOIT* 
END ELSE 

IF (LLNR*(S*STATABLE[03),[CF])#0 THEN 
BEGIN 

STaTABLEC03*S&(S*STATA8LE[LLNR3H40»25»83J 
STATABLE[LLNR3*S&0[25»40183; 

Sl«UlNETABUEttLNR]l«(*P{0UP))40[26l4rini % RESE 
$ SET OMIT <* TWXONLY 

IF S, t 21 I53*P0LLI NG THEN *IF POLLING* KILL WITH 
10DI«lNTERROGATEMASK&S[9l9»93 ELSE 
$ POP OMIT 

BEGIN 

I0DI8((VI«S1ATABLE[ 
S SET OMIT * TWXONLY 

IF S,C3«3]«MULTI THEN SE«>ARRAY CLLNR 3 , [ 40 I 8 3 
t POP OMIT 

LLNR3) INX P0400000000000001HSC9I9193 

*<Vl«MCVmi8l5llUV[2«l6llJl 

IF V,[5l23*0 THEN L I NET ABLE t LLNR 3 « *S&V ( 21 » 5 



01202000 
01203000 
01204000 
012?050>">0 
XR86012Q600Q 
01206500 
01207000 
01208000 
01208500 
01209000 
01209500 
T READYQE001210000 
01210495 



ACT INT, 



ELSE 



«53; 



DOITl 



end; 



IF (S*UNIT[303,CFF]) GTR 1023 THEN 
I0RE0UEST(0# I0D#0&30[12|42«63) 
ELSE IMTlATEDCIO(IODfS)J 
END) 

P1MIX * polish; 
END NEXTDCIO; 
SAVE PROCEDURE ENTEREADY8( T ) > 
VALUE T| REAL T) 
BEGIN 

LABEL ENDIT»BELOW; 
REAL UiSl 
$ SET OMIT « NOT TWXONLY 
REAL LINE«T| 

IF (S|«LINETABLECLINE3). [21l23*l THEN 
BEGIN 
$ SET OMIT * TWXONLY 
REAL LINE»X#V> 
IF CS|*LINETABLE[LINEI*IF T GTR LMAX THEN 

STATABLECT3.LEENKER ELSE T3),C21»23«l THEN 
BEGIN 

IF S.LINEDIS ■ MULTI THEN 

IF STATABLE[TI*SEOARRAY[LlNE3.C40«B33,tCF3*0 THEN 

IF S,[21J53 * WAITING THEN XSTATlON NOT WAITING TO DO MORE I/O 

BEGIN 

Ul«Tl 

WHILE (T|«SE0ARRAY[T3,LINELINK)#U DO 

IF STATABLEtTJ.CCF3#0 THEN XANOTHER STAT, ON LINE HAS I/O, 
BEGIN 

SEUARRAY[LlNE3,t40»83l*T; 

GO TO BELOWJ 
END! 

X|*(V»»GETAREA(S,BIFSIZE))*1I 
P(1)J ^INITIALIZE TEST FOR ACTIVE STATIONS 
DO IF (Ul*SEQARRAYtU3),[2«23«0 THEN 



01210500 
01211000 
01211005 
01211500 
01212000 
01212995 
01213000 
01213005 
01214000 
01215000 
01215500 
01216000 
01216500 
01217000 
01217500 
01218000 
01218500 
01221500 
01222000 
01223000 
01223500 
01224000 
01224100 
01224200 
01224495 
01224500 
01224800 
01224900 
01224995 
01225000 
01225500 
01226000 
01226500 
01227000 
01227500 
01226000 
01228500 
01229000 
01229500 
01230000 
01230500 
01231000 
01231500 
01232000 
01232500 
01233000 
01233500 



BEGIN 

P(DELiO)J VINDICATE ACTIVE STATION ON LINE, 

STREAM(XlU#Sl«Xi«U.[2«ll}»Wl*lM25llJ#VH»PCDUP)#X>j 

BEGIN 

DI»*X| 

DSlsLlT "$"JSCDSI«LIT "#"); 
SI»*L0C U;SI»*Sl+2; 
DSI"CHR1 WCOSfsLl T "*")J 
DSl*CHRJ VCDSlsLlT "*")J 

0Sl«2 LIT «PX M iXI-DI I XSAVE DI t OH MOR STATIONS 
DSJ*2 LIT "**"» 
END! 
X»*P; 
END UNTIL CU?*U,LINELJNK)*T; 
IF P THEN XNO ACTIVE STATIONS. DONT DO POLL 
BEGIN 

F0RGETAR£ACM[V3,[2»23»V)* 
GO TO ENDITI 
END? 

MCV3»»(*P(DUP))*P0tLlNG[bl43i5J*(UI«STATA8l,ECT3)[CTCJ* 
STATABLE[T3»sU&VtCTC3; XLlNK POLL INTO LINE QUEUE 
END ELSE GO TO ENDITI 
$ POP OMIT OMIT 

IP STATABLtCTJ.CCFJ * THEN 
IF NOT S.READYQED THEN 
BELOWl IF <Ul»STATABLECO3),tCF3*0 THEN XPUT LINE INTO READY QUEUE 
BEGIN 

STAT ABLE C 03 I »U&L I NEC C IF 3 J 
STATABLE[U,tFF3 3.LEENKER«*tlNE; 
END ELSE STATABLEr03»*U«LlNEtCTC3&LlNE[CTF3 ELSE % ALREADY IN 
ELSE GO TO ENDITI % NOTHING RDY 

LlNETABLEtLlNE3l«S&{ 
t SET OMJT s TWXONLY 

(P(DUP),[21»53*IDLPQLLING)*P(DUP)+ 
* POP OMIT 

l)[21l42|6]| X SETS READYeED 

ENDI 
ENDITI 

NEXTDClOi 
END ENTEREADYQl 

procedure usasitape(area»type»fromfutdir); xrhr 

value area»from»u»dirj real area * type » from* u*d i rj 
begin real ptn.yj 

akray ulabc* j i 

LABEL EXlTfERRORfVOL»BAD»WAIT»TlP«ETlPl 
SUBROUTINE LABELSPACEJ 

BEGIN ULABl«CM[SPACE(ll)33UOC8l38li03* 
M0VEC10#ULAB,tCFJ-l#ULAB t [CF3)l 

END labelspace; 

SUBROUTINE V0L1F1LLJ 

BEGIN STREAMCAREA.ULAB); 

BEGIN DSl«8 LIT " LABEL "i DH-DI + ll SU-AREAJ 

SI-SI + UMF SC«" " THEN DS*7L1T"0" ELSE DS*7CHR* 
D1-DI+37I XMID 

SIt*AREA? SI t »S I +b* DS»*5 CHRJ ^PHYSICAL TAPE NO. 
END* 
ENO V0L1FILL* 
SUBROUTINE HDR1CHKJ 

BEGIN STREAM(Yi#OlAREA»Xi*0)J 

BEGIN DUsLOC Xj DSl*4 LIT W HDR1"I 



01234000 
01234500 
01235000 
01235500 
01236000 
01236500 
01237000 
01237500 
01238000 
01238500 
01239000 
01239500 
01240000 
01240500 
01241000 
01241500 
01242000 
01242500 
01243000 
01243500 
01244000 
01244500 
01244505 
01245000 
01245250 
01245500 
01246000 
01246500 
01247000 
Q01247250 
01247500 
01248000 
01248050 
01246100 
01248150 
01248200 
01248500 
01249000 
01249500 
01250000 
01250100 
01250200 
01250300 
01250400 
01250500 
01250600 
01250700 
01250800 
01250900 
01251000 
01251100 
01251200 
01251300 
01251310 
01251400 
01251500 
01251600 
01251700 
01251600 
01251900 



SIivAREAI D I l*LOC XJ 

IK * SC*DC THEN TALLYl«ll 

Yl-TALLY) 

END* 
Y|*P; 
END HDR1CHK; 
SUBROUTINE HDRIFILL; 

BEGIN STREAM(AREA»UUAB); 

BEGIN SIl»AKEAJ Sll«$I+4; 

D I I*DI +171 DSJ«7 CHR; SFID 
SI t*SI*17l DSf*3 CHR; *REEL 
SII*SIM1! DS»s5 CHR; *C*DATE 
SI l*SI-8; DSJ*2 chr; xcycle 

si t »si4-7f ds»»5 chr; up-date 
oii*oi+ii si;*si+2; 
DSt*5 chr; kblock count 
dsi*7 chr; xrecord count 
end; 
end hdrifill; 
subroutine hardfill; 

begin ptni*prntable£u3,[30i18j; 
stream(ptntarea»ulab); 

BEGIN SIl*L0C PTN; Dll»Dl*53l 

DS:*5 DEC; DI»*ULAB! ^PHYSICAL TAPE NO. 
DSl*8 LIT " LABEL " ; 

end; 

ULABIUlsMULTITABLECU]; 

end hardfill; 
labelspace; 
if fr0m«1 then 

BEGIN VOLtFILL; 

P(WAITI0(PH0000005#P377»U)»DEL); 

P£WAITI0(AREA INX Pi 20540000000i P377.U ) » DEL ) ; 

HDR1CHK; 

IF Y THEN HDRIFILL ELSE GO TO ERROR; 

PCWAITl0(P3ftO0OO005»P55#U)»DEL); 

PCWAITlO(P340000005.P55»U)fDEL); 

GO TO WAIT; 



IF 



ENDI 
FROM *2 
BEGIN 



THEN 

IF TYPE*1 THEN 
BEGIN V0L1FILL; 

vol« pcwaitiocarea inx 0120540000000, p377, u) • del ) ; 

hdrichk; 

IF Y THEN HDRIFILL ELSE GO TO ERROR; 
PCWAlTI0C«*34000O0O5#P377tU)»DEL); 

go to wait; 

end; 

IF TYPE*2 THEN 
BEGIN HDRIFILL; 
HARDFILL; 
GO TO exit; 

end; 
end; 

IF FR0M*3 OR FR0M*4 THEN 
BEGIN IF TYPE«1 THEN 
BEGIN V0L1FILL; 

GO TO VOL; 
END! 
IF TYPE«2 OR TYPE*4 THEN 



01252000 

01252100 

01252200 

01252300 

01252350 

01252400 

01252500 

01252600 

01252700 

01252800 

01252900 

01253000 

01253100 

01253200 

01253300 

01253400 

01253500 

01253600 

01253700 

01253800 

01253900 

01254000 

01254100 

01254200 

01254300 

01254600 

01254650 

01254700 

01254800 

01254900 

01255000 

01255100 

01255200 

01255300 

01255400 

01255450 

01255500 

01255600 

01255700 

01255800 

01255900 

01256000 

01256100 

01256200 

01256300 

01256400 

01256500 

01256600 

01256700 

01256800 

01256900 

01257000 

01257100 

01257200 

01257300 

01257400 

01257500 

01257600 

01257700 

01257800 



BEGIN HDRlFILLJ 

hardfill; 
go to fxiti 

ENDI 

IF TYPE*3 OR TYPE*5 THEN 

BEGIN IF DIR-O THEN 

BEGIN PCWAITIO(P340000005»P377»U)#DEL)1 
P(WAlTIO(t*340000005»P377>U)»DEL); 
PCWAITIOCAKEA INX ei2054QQ00000»e377»U).DEL); 
END FLSE 

P(WAITI0(AREA INX P1207400000QO> t»377 » U) » DEL) ; 
HDRlCHKl 

if y then hdr1fjll else go to error; 
hardf ill! 
go to wait! 
end; 
if type*6 then 

begin hdr1f ill; 
hardfill; 
stream(ulab); 

BEGIN DH*ULAB; Dl!*DI+39! 
DS»»1 LIT "i"i 



end; 

GO TO 



end; 



end; 



EXIT 



AND PCRRR)) #0) THEN 
ELSE SLEEPUCLQCKJ. NOT 



CLOCK); 



WAlTi PTNl»0; 
TIP? IFCCTWOCU) 

GO TO EXIT 

PTNI»PTN+i; 

IF(PTN>120)THEN GO TO EXIT ELSE GO TO TIP* 
ERRORI P( WAIT 10(04200000000 » 0377 , U )» DEL) ; 

STREAM(TI»TINUCU3»ULAB); 

BEGIN SI **L0c T) SH«SI+5| 

DS!*LIT "#"! DSI«3 CHR? 
DS!»22 LIT " INVALID USASI 
END! 

SPOUT 1T(ULAB»1); LABELTABLE [U J *03 1 4 ; 

TYPE*0; PTN*0! 
ETIPl IFC(TMOCU) AND PCRRR)) #0) THEN 

GO TO BAD ELSE SLEEPC [CLOCK J , NOT CLOCK); 

PTN*PTN+U 

IFCPTNM20) THEN GO TO BAD ELSE GO TO ET IP J 
EXIT! MOVEClO.UUB,[Cn»AREA,[CFJ); 

F0RGETSPACECULAB,[CF3)! 
BADI 

end usasitape; xrhr 

t SET OMIT » NOT(AUXMEM) 

ARRAY AUXDATAI*3» AUXCODE[*J! 

COMMENT AUXQATA AND AUXCODE KEEP TRACK OF 
AUXILIARY MEMORY IS ASSIGNED TO 
WITH AUXLIMIT. THEY CONTROL THE 



RW/L**; 



HOW MUCH 

A JOB, IN LEAGUE 

AMOUNT USED, THEY 



ALSO ALLOW THE RETURN OF THIS SPACE AFTER PROBLEMS; 
INTEGER PROCEDURE AUX I L I ARYSPACEC S I ZE ) ; 
VALUE size; 
integer size! 
forward; 

PROCEDURE FORGET AUX ILI ARYSPACEC SI ZEfLOC); 
VALUE SIZE* LOC; 
INTEGER SIZE* LOC! 



01257900 

01258000 

01258100 

01258200 

01258300 

01258400 

01258500 

01258600 

01258700 

01258800 

01258900 

01259000 

01259100 

01259200 

01259300 

01259400 

01259500 

01259600 

01259700 

01259800 

01259900 

01260000 

01260100 

01260200 

01260300 

01260400 

01260425 

01260450 

01260455 

01260460 

01260465 

01260500 

01260600 

01260700 

01260800 

01260900 

01261000 

01261100 

01261150 

01261160 

01261170 

01261180 

01261200 

01261300 

01261400 

01261450 

01261500 

01261999 

01262000 

01263000 

01264000 

01265000 

01266000 

01267000 

01268000 

01269000 

01270000 

01271000 

01272000 

01273000 



SIZE. TYPE); 



FORWARD* 
PROCEDURE FILLQRKJLLCA. START* 
VALUE A» START. SIZE. TYPE; 
ARRAY AC*J* 
INTEGER START. SIZE! 
BOOLEAN TYPE* 
FORWARD* 
$ POP OMIT 
REAL SCHEDULERS* 
PROCEDURE REP0RTBACK(WHY.P1»P2)J 
VALUE WHY.P1.P2; 
REAL WHY.P1.P2I 
FORWARD* 
PROCEDURE MAKELOGCM.T)? VALUt M.TJ REAL M.T* FORWARD* 

REAL keyboardcounter; 

REAL PROCEDURE KEYINCB)! VALUE B* BOOLEAN B> FORWARD** 

DEFINE % KEYJN TABLE DEFINE VALUES FOR "REPLY" 

VAX * 01#i 

VIL * 02# 

VUL * 03# 

VQT * OH* 

VOU • 05#i 

VWY s 06# 

VOK c 21# 

VFM « 22#i 

VFR » 23* 

VOF * 24# 

VCC * 10#; 

VIF * 25#i 

VCT s 321 

VTL « 34# 

BOOLEAN PROCEDURE WHYSLEEP(MASK)* 

LABEL P1PROCESS* 

LABEL P2PR0CESS* 

REAL ONEOHONE 9 PlOl.ONEOHTWO • P102J* 
REAL NUMESS* 
REAL PBCOUNTl 

BOOLEAN PROCEDURE OLAY( LOC i M J XX ) { 
VALUE LOC.MIXXi REAL LOC»MIXX; FORWARD* 
PROCEDURE SEEKNAMCA. B.C. D.E.N)* VALUE A»B»REAL A. B. CD. E.N* FORWARD* 
PROCEDURE UNMOOQUECMIX)iX 
VALUE MIX;* 
INTEGER MiXl* 
BEGIN* 

REAL U.S.SN.T.X.I.PROCE** 

NAME OLDQ*X» 

LABEL DOLP.DELINKIT* 

FOR U*0 STEP 1 UNTIL 31 DO* 

IF(S*UNIT[U]|CFF3)##77777 THEN 
BEGIN* 

WHILE (SN*LOCATGUEtS3tCFF3)» t P77777 DO* 
BEGIN IF (T*NFLAGCL0CATQUEtSNJ)),[3|5J m% 
MIX THEN* 
IF LOCATQUEtSNJ.ClHU THEN S*SN ELSE 
BEGIN* 

LOCATQUElS3*LOCAT«UECS3«TtFTFJ»X 
IF UNIT[U3,tCFJ « SN THEN 

UNITtU3,tCFJ*5l 
RETURNIOSPACECSN)! 



VALUE MASK* SEAL MASK; FORWARD** 



01274000 

01275000 

01275100 

01275150 

01275200 

01275300 

01275400 

01275401 

02015000 

02016000 

02017000 

02018000 

02019000 

02020000 

02020500 

02021000 

02021200 

02021210 

02021220 

02021230 

02021240 

02021250 

02021260 

02021270 

02021280 

02021290 

02021300 

02021310 

02021320 

02021330 

02021340 

02022000 

02023000 

02023100 

02024000 

02052100 

02052200 

02052500 

02052600 

02052700 

02053000 

02054000 

02055000 

02056000 

02057000 

02057500 

02058000 

02059000 

02060000 

02061000 

02062000 

02063000 

02064000 

02065000 

02065100 

02066000 

02067000 

02067100 

02067200 

02068000 



fc-NO ELSE* 02070000 

S*SN;* 02071000 

END* 02072000 

END 02072100 

END* 02072200 

$ SET OMIT ■ NOT DFXj 02072490 

FOR Ui*0 STEP 1 UNTIL 9 DO 02072500 

IF EUQ[UJ>0 THEN * EU IS NOT ACTIVE 02072600 
BEGIN * DELETE THIS JOBS 10-802072700 

OLDQl*[EU«tUJ]l 02072800 

WHILE (Sl«0LDQCOl,tFFJ)<l023 DO 02072900 

IF L0CAT0UECS3t[3l5J=MIX THEN 02073000 

BEGIN OLDO[OJ|*(*P(DUP))&LOCATQUEtSHFTFJ) 02073100 

RETUKNlOSPACE(S)J 02073200 

END ELSE 02073400 

OLDQl«tLOCATQUE[SJ]J 02073500 

ENDI 02073600 
IF CUI»TI«S|«EUW,[FF])<1023 THEN * CHECK FOR QUE EMPT I ED02073700 
DO * BY I0-S DELETED AB0VE02073800 

IF (SN:=EU0[SJJ,tFFJ>l023 THEN 02073900 

BEGIN 02074000 

EUQ[S)|»SN&(N0T 0} [ 3 I 331 153 * 02074100 

IF U*T THEN EUW»«EUW&SNtl8t3tl5] ELSE 02074200 

EUQtU]|*(»PC0UP))*5NC3l3li5]l 02074 300 

END ELSE 02074400 

U«*S 02074500 

UNTIL CSl«SN.[3tl5]) > 1023; 02074600 

* POP OMIT 02074610 

DOLPl FOR U*0 STEP t UNTIL 31 DO* 02075000 

BEGIN* 02076000 

IF CS*CT*UN1T[UJ),[FFJ)*P77777 THEN 02077000 

BEGIN* 02078000 

IF LQCATQUE[SJ,C3J5J»MIX THEN* 02079000 

BEGIN* 02080000 
IF (X*T,[13l5])«0 OR Xsj6 OR X»31 THEN02081000 

GO DELINKIT; 02082000 

IF X*4 THEN* 02087000 

BEGIN* 02088000 

IF LOCATQUEtSJ.CFF 3*P77777 THEN* 02089000 

BEGIN* 02090000 

1«.FIRSTWAITJ* 02091000 

WHILE WAITQUEm/U* 02092000 

DO I * 1+1 AND 311* 02093000 

WAITQUEU]** 02094000 

WAITQUE[NEXTWAIT*NEXTWAITX 02095000 

+ 31 AND 3UJ* 02096000 

UNIT[U3*T&077777[l3»28l2O3l 02097000 

END ELSE 02097200 

DELINKITI UNIT[U3»=T&L0CATQUE[S3tFTF3l 02097400 

$ SET OMIT * NOT DFX 02097590 

IF CU AND P76)»18 THEN 0209760* 

IF UNITlU3»tFF3>1023 THEN 02097800 

BEGIN 02098000 

IF EUO[NT4)sM(IOOUE[S33.C6J63]<0 02098208 

THEN EUQINT43t*ABS(NOT 0) ELSE 02098400 

BEGIN 02098600 

IF EUQ[NT43 t [FF3<l023 THEN 02098800 

LINKEUI 02099000 

P([EU0[NT433#J0R)« 0209920© 

ENDJ 02099400 



S POP OMIT 



START IOCU); 
LNDJ 

RETURNIOSPACECS); 
END ELSE 

PROCE«-((U*23 AND U*24) OR X*3) 
AND X#25 OR PROCE; 



ENDX 



IF 



END 
PROCE 
BEGI 



END* 



i% 



END 
DEFINE 
DEFINE 
DEFINE 



ENDJ 
UNMOOOUElX 
PSF * 3141) 
TERMSEKTERMSET 
NOTERMSETCNOTER 
REAL PROCEDURE GETESPDI 
PROCEDURE DIRECTORYBUI 
VALUE A»DDD) REAL A) A 
REAL READERA*READERB) 
REAL CCTBLWORD * DIRECT 
DEFINE CCCOUNT « CCTB 
CCTBLADDR * CCTB 
S SET OMIT * NQTCPACKE 
ARRAY PSEUDO[*Jj XPSEUD 
ARRAY PSEUDOMIX[*3» NYL 
DEFINE PACKETPAGECPACKE 
PACKETRECtPACKET 
PACKETPBDtPACKET 
PACKETACT[PACKET 
PACKETERRCPACKET 
PAGESIZE*900#J 
PAGEFULL*(PAGESI 
OMIT 

REAL spoword; 

PROCEDURE TWXOUT(A#B#C« 
PROCEDURE MESSAGEWRITE 
BEGIN REAL RCW 
REAL U 

LABEL L',% 



LI 



DEFINE 
DEFINE 
DEFINE 
DEFINE 
DEf INE 
DEFINE 
S POP 



THENX 
NX 

SLEEPUf l);PROCE*OJGO TO DOLPX 
X 



l)*PRTROW[TERMSETU f [PSFJM#J 

MSETl)«PRTROWtNOTERMSETli,[PSF3^1#; 

SKIFORWARDU 

LDER(AiDDD)? 

RRAY DDDt* J J FORWARD) 

ORYBUILDERJ 

LWORD f [FF3#» 

LWORD.tCFl#J 

TSJ 

OMAX1 

0NZ1PPER[*J) XMIXMAX 

TPAGE13«PSEUD0[PACKETPAGEl3»t22t26J#; 

RECn*PSEUD0CPACKETRECn,[18j33#; 

PBDl]»PSEUDQ[PACKETPBDl J,f8«10J#* 

ACTt J -PSEUDO [PACKE TACT 1J»C2I6]#I 

ERR1 J -PSEUDO C PACKET ERR 1],[1I1J# J 

X SAME AS PBDROWSZ AT 08699100 
ZE DIV 3)x5-40#J X ALLOW FOR 8 INFO RECORDS 



D)> VALUE A#B#C»DJ REAL A»B»C»D1 FORWARD* 
Rl 

9*01% 



IF REMOTE AND SPOWORD*0 THEN 
BEGIN 

TWXOUTCMESSAGEHOLDER INX i »230» 1 OR M» ABS(SPOWORD ) ) I 
ENDI 

if spoword^o then 

BEGIN 

P(WAITI0(MESSAGEH0LDER I NX 1»0»2S))J 

P(DED»X 

END I 

NUMESS * NUMESS-lll 
T * M[MESSAGEH0LDERJtU8U5JJ 

FORGETSPACECMESSAGEHOLDER INX i)| 
IF T * THENX 

BEGIN MESSAGEH0LDERtC33ll5] * T|X 
GO TO LX 



02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 



099600 
099800 
099810 
100000 
100400 
101000 
101100 
102000 
103000 
104000 
105000 
106000 
107000 
106000 
109000 
110000 
110100 
110200 
111000 
112000 
112100 
112200 
112300 
112*00 
112500 
113079 
113080 
113085 
113086 
113087 
113088 
113089 
113090 
113091 
113092 
113099 
113100 
113200 
114000 
115000 
116000 
117000 
118000 
U900Q 
119010 
119015 
119020 
119200 
119300 
119400 
119500 
120000 
121000 
121010 
122000 
123000 
124500 
125000 
126000 
127000 



ENDI* 
MESSAGEHOLDER * 0|56 
KILLCCRCW] INX NOT 2)1 
ENDU 

* SET OMIT m PACKETS 
PROCEDURE SPOUTlT(MESSAGEtTYPE); 

VALUE MESSAGEtTYPt; 
REAL MESSAGE»TYPE» 
$ POP OMIT 

* SET OMIT * NOTCPACKETS) 
PROCEDURE SPOUTER(MESSAGE»UNITNO.TYPE); 

VALUE MESSAGEtUNITNO#TYPEI 

REAL message»unitno»type; 

S POP OMIT 

BEGIN REAL MKScWsMESSAGE-1 * 
REAL S»T»MIX| 

* SET OMIT • NOTCPACKETS) 

DEFINE PACKETFREE"PSEUD0tUNITN0J,C21ll]#» 

PACKETMASKnp4 00000000#J 
REAL PSD#PSW»Y»Z»8B; 
INTEGER NT1»R| ARRAY BUFt*3l 
R|*UNITN0; UNITNO»«0> 

IF R*0 THEN IF P1MIXHO THEN R J sPSEUDOMI XCP1MI X ] | 
IF R>31 AND R<36 THEN UNITNO«*Rl 



•1 



$ POP OMIT 

MESSAGE I "P (. MESSAGE! LOO),t 33 i 15 3' 
$ SET OMIT u NOT(PACKETS) 

IF TYPE#64 THEN 

BEGIN 
t POP OMIT 

STREAMCAt*QlB*sMESSAGE+l); 

BEGIN SJt»B| IF SC*"* H THEN TAUUVt-ll 
AI*TALLYJ 

ENDI 

IF P THEN MAKELOGCMESSAGE»TYPE)J 
t SET OMJT » NOT(PACKETS) 

ENDI 

IF TYPE OR UNITNO#0 THEN 
OMIT 
OMIT 

IF 
$ POP OMIT 

BEGIN 



% 
% 



CHECK 
FIRST 



FOR ♦ IN 
POSITION 



POP 
SET 



» PACKETS 
TYPE THEN 



$ SET OMIT 



S POP OMIT 



MJX I* MCMESSAGE-13,1916]* 
IF MESSAGE>FENCE THEN 
BEGIN S*M [ MESSAGE* U.tCF 3 -MESS AGE I 
T»BGETSPACECS-l#6«»5)+i; 

move(s»message»t)» 
forgetspacec message* 1)1 
message*ti 

ENDI 

NOT(PACKETS) 
IF TYPE THEN 
BEGIN 

IF MESSAGEHOLDER • THENX 

BEGIN MESSAGEHOLDER * MESSAGEI* 

FORK (PC.MESSAGEWR ITER)* 0,0.90,1) I 
END* 

ELSE MtMESSAGEH0LDER»tl8ll5J], [181153 * MESSAGEI 



02128000 
02129000 
02130000 
02131000 
02131999 
02132000 
02132100 
02132200 
02132201 
02132299 
02132300 
02132400 
02132500 
0213250J 
02133000 
02133010 
02133129 
02133130 
02133140 
02133150 
02133200 
02133300 
02133350 
02133380 
02133381 
02133500 
02133509 
02133510 
02133520 

02133521 
02133600 
02133700 
02133800 
02133900 
02134000 
02134004 
02134005 
02134006 
02134007 
02134009 
02134010 
02134011 
02134020 
02134030 
02134100 
02134200 
02134300 
02134400 
02134500 
02134600 
02134700 
02134799 
02134800 
02134900 
02134901 
02135000 
02136000 
02137000 
02138000 
02139000 



MCMLSSAGH »« OftM I X C 4 I 43 I b J I 02140000 

MESSAGEH0LDER.C18U5J * MESSAGE!* 02141000 

S SET OMIT m NOT(PACKETS) 02141099 

ENDI 02141100 

I POP OMIT 02141101 

M[MESSAGE-1].[9I63 * 01* 02142000 

IF P(MKSCW,[33ll5]>DUP) « THEN* 02143000 

BEGIN I 02143050 

STREAM(N*0JX*MESSAGE+1)» 02144500 

BEGIN SI * XII 02145000 

L» IF SC * "*" THEN* 02146000 

BEGIN IF SC" " " THEN* 02147000 

Bl BEGIN SI ♦ Sl-flU 02146000 

IF SC * " " THEN GO TO BIS 02149000 

IF SC * ALPHA THEN* 02150000 

BEGIN SI * SI"ll* 02151000 

DS * CHRI* 02152000 

02153000 

END ELSE GO TO LI* 02154000 

ENDI* 02155000 

IF SC * P14 THEN* 02156000 

BEGIN OS * CHRI* 02157000 

0» IF SC * 014 THEN* 02158000 

BEGIN SI * SI+ll* 02159000 

02160000 

GO TO <*;% 02161000 

ENDI* 02162000 

GO TO Ll* 02163000 

ENDI* 02164000 

DS * CHRI* 02165000 

02166000 

GO TO LI* 02167000 

ENDI* 02168000 

DS * CHRI* 02169000 

02170000 

N * Oil 02171000 

ENDI* 02172000 

S SET OMIT » NOTCPACKETS) 02173069 

NTWI NTl*((NTl f tCFJ-CMESSAGE+l))x8+NTl.l30l3])x6| 02173070 

END ELSE NTl*Px6l 02173072 

IF UNITNO*0 THEN IF PACKETPAGECUN I TN0-32 J>1 THEN 02173075 

BEGIN UNJTN0l»UNJTN0-32l 02173080 

IF NOT PACKETFREE THEN SLEEP ( [ PSEUDO CUN I TNO J J »PACKETMASK ) I 02173085 

IF CPSDI*PACKETPAGE[UNITN0J)>1 THEN 02173087 

BEGIN * JUST TO BE SURE 02173088 

PACKETFREEI-FALSEI 02173090 

Zl*IF (PSWI»PACKETRECtUNjTN03) THEN 60 ELSE 30| 02173095 

SI*((YI«IF NTl>/25 THEN 120 ELSE NT1 DIV 6>*7) DIV 81 02173100 

BUF»*tM[T»«GETSPACECZ+S#64»5)+2]HZt8»36«10]l 02173110 

M[BUF-23t[9l63i«0| 02173120 

STREAM{NI»S#AAI»MESSAGE*1#BUF|WBUF INX Z)l 02173150 

BEGIN SII*AAI DSl«N WDS ENDI 02173160 

DISKWAIT(-T»Z»PSD+PSW DIV 2)1 02173210 

R»s(PSWxl8) MOD 301 02173220 

IF CBBI*BUFtR+17J,[CFJ) GEO PAGEFULL THEN 02173230 

BEGIN STREAM(BUFI»£BUF[Rn)l 02173240 

BEGIN DSIP12LIT" "I 02173245 

DS»«28L1T"ALL FURTHER MESSAGES LOST "I 02173250 

2<D!I*DI*46)J DSl«6LlT"ix5908"l 02173255 

ENDI 02173260 






POP 
SET 



OMJT 
OMJT 



PACKETPAGttUNITNO]«*i; 18 TO MARK 
END 
ELSE BEGIN PCP154000500010000Q& C BB+1 ) t CTC J ) J 
IF PSW«0 THEN 
BEGIN PCBUF[29JfXCH)J 

PUBUF[29J J.STD)) 
DlSKWAIT(T.30»PSD+5); 
P([BUFC29]3»STD); 
END ELSE 

P(tBUFtR»U3»STD)l 
BUF[RM7]>*P154000Q1Q4000000«;BB[CTC]& 

CS*1 + (M[BUF INX Z3.ll S53#*'> w 
STREAM(NI»S-l#CLI»Sx8-YtAA»*BUF INX *,B 
BEGIN 16CDSMLIT" ")J Sll*AAJ 
IF SC#">" THEN DSl*6 CHR ELSE 
BEGIN D!l«DI-8i 6(IF SCi^* THEN DSl*CH 

BEGIN DIf»DI+lJ SII»SI+U END)* 
ENO; N(DSl*8 CHR)J DI»*DI"CL» AA I »D I f 
SI»*AAI SIfaSI-ll 

IF Sc«"*" THEN BEGIN OH»D|"ll DSJ«L1T" 
CLCDSl»LIT" "}J 
ENDIEND1 
DISKWAIT(T»Z»PSD+PSW DIV 2)? 
IF PACKETPAGECUNITNOm THEN 
IF PSW*0 THEN 
BEGIN PACKETPAGECUNITN03l»PSO+3j 

PACKETRECtUNITN0ll»4l 
END ELSE 

PACKETREC[UNlTNO]l*PSW-i; 
PACKETFREEI»TRUEI 
FORGETSPACE(BUF)J 
END* % JUST TO BE 
END* 
IF NOT TYPE THEN 



OVERFLOW 
% PBDSTOPPER 



02173265 
02173270 
02173275 
02173280 
02173282 
02173284 
02173286 
02173288 
02173290 
02173292 
0217329* 
))C8l38flO]l 02173296 
UFj*tBUFtR33)l02173300 
02173305 



R ELSE 



; end; 



SURE 

BEGIN 
END) 



FORGETSPACECMESSAUE INX 



* POP OMIT 



PACKETS 
END! 



if cnumess * numessm) > thenx 
sleep([numessj»-0)jx 
end else forgetspacecmessage+1)* 
end;* 

PROCEDURE ENDOFDECK(R)J VALUE R* REAL Hi FQRWABD* 
PROCEDURE PBI0(A»B)I VALUE Al REAL A»BI FORWARD* 
PROCEDURE TERMINATECMJX)! VALUE MlXI R£AL MIXII 

BEGIN IF MIX LEO THEN BYBY("MCP DS»ED*% 10 ) t 
IF PRTROWfMlX] 4- THEN 
BEGIN 

IF NOTERMSETCMIX) THEN 
BEGIN 

PRTR0WtMlX3,CFF]*MlX f tFFJl 
ENDIX 
PRTROWtMIX),[PSFJ*l> 
BRINGBACK(MIX,[CF])1 
END! 
ENDU 
REAL PROCEDURE PLACEF INDER(S» A»L) \ 
VALUE SiAJ 
REAL S#A>Ll 



02173310 
02173315 
02173320 
02173325 
02173330 
02173335 
02173340 
02173345 
02173350 
02173360 
02173362 
02173364 
02173366 
02173368 
02173370 
02173375 
02173380 
02173383 
02173385 
1)IP(XIT)I02173389 
02173390 
02173391 
02173999 
02174000 
02174001 
02175000 
02176000 
02176100 
02177000 
02177100 
02178500 
02180000 
02181000 
02181500 
02182000 
02183000 
02184000 
02185000 
02186000 
02166100 
02186200 
02186300 
02187000 
02187100 
02187200 
02187300 



ARRAY CIDROW[ 

PROCEDURE ST 

PROCEDURE TE 

BE6I 



REAL MJXE 

LABEL STT 

SUBROUTIN 

IF L 

$ SET OMIT * 

ENDO 

S POP OMIT 

ELSE 
BEGI 



FORWARD; 
*JiClDTABLE«CIDROWt*i*3J 
OPCANDYJ FORWARD; 

RMINALMESSAGA(N); VALUE NJ REAL N; 
N LABEL FOUND»DO|TiOWT#TOIT; 

REAL A»T#S»ADR;* 

NAME B;X 

REAL mstart; 

ARRAY FIBf*]; 

REAL BLENfNBUF; 

r#topio#lun»l;x 

INTEGE.R I-Sl LABEL Qli% 
1% 

E slapitoff;x 

UN GEO 32 THEN 

PACKETS 
FDECKCLUN-32) 



end; 

LABEL LB, 



t SET OMIT » 
$ POP OMIT 



N SLEEP([TQGLEJiSTATUSMASK); 

READY «■ NOT (I * TWO(LUN)) AND READYU 

RRRMECH ♦ NOT I AND RRRMECH OR I AND SAVEWORO;* 

LABELTABLEtLUN] ♦ ni4)2 

MULTlTABLEtLUN] * RDCTABLE t LUNil * Oi% 
% 

lbi ; * 

LABEL SK1.SK2»SK3; 
BOOLEAN FROMPUNT • -5; 
REAL MlXXsPJMIX.PlMIX; 
NOT(NEWLOGGING) 
STARTLOG(MlXX»0); 



00 



P1MIX|*MIXX 
IF FROMPUNT 
UNLOCKTOG(T 
REPLYCP1MIX 
PRTR0WIP1MI 
PRJORTY*PRY 
MSTART*MEM[ 
IF N#35 THE 
IF JARIP1MI 

STOPCA 
IF FROMPUNT 
BEGIN STREA 

BEGIN 
6 
D 

end; 
ni»o; 

GO TO 

end; 

A * IF N < 
B * PRTtPlM 
IF P(M[L*PR 
S*ADR*0 EL 
BEGIN IF PC 
BEGIN 

t*o; 



* GET SPACE BELOW THE FENCE 



; 

THEN MIXX|«0; 
ARtPlMJXJ); 

]*INTABLEROWtPlMIXJ*OJ 
X],tPSFJ*i; 
0RCPJMIXJ»-1I 
PtMlX.MLINKUtCCFj; 
N 
X#0]« w CANDE " AND JAR[ P1MJ X* U»"TSHARER" 

ndy; 
then % pick up punt message 

M(Nt AI*AI*SPACEU5)); 

0SI«LIT"«"J SIl'Nl 

3CIF SC«"* W THEN JUMP OUT ELSE DSt*CHR); 

S»*2 LIT"!*''; 



SK1I 



THEN ABSCN) ELSE SPACEUQ);* 

JX.4JIX 

T[PlMrX,8J,tCF]3.TOPtXCHtDEL)THEN 

SE 

M[LJ»T0P#XCH»0#lNX»,ADR#O THENX OVERLAID 

IF NOT MCLM33UJ THEN4N0T TYPE 13 JNT 

BEGIN S*ADRI XSEGNO IN RCW 

ADR*M[M[L),MOMJ,tCF)l X AND THE M$CW 

END ELSE S*-i; 



02167400 
02187500 
02187600 
02168000 
02189000 
02190000 
02191000 
02191100 
02191500 
02191600 
0219200P 
02193000 
02194000 
0219500C 
02195100 
02195199 
02195200 
02195201 
02195300 
02196000 
02197000 
02198000 
02199000 
02200000 
02201000 
02202000 
02202100 
02202150 
02202200 
02202249 
02202250 
02202251 
02202300 
02202400 
02202500 
02203000 
02205000 
02205100 
02205200 
02205290 
02205300 
02205400 
02205500 
02205550 
02205600 
02205650 
02205700 
02205750 
02205800 
02205850 
02205900 
02206000 
02207000 
XTR02208000 
XTR02209000 
RCWTR02210000 
02211000 
02211010 
XTR02212000 
02212100 



THEN 



■- -\ 



END ELSE % ITS PRESENT! WEVE GOT TO WORK XTR02213O00 

BEGIN TisIF ADR>FENCE THEN MSTART ELSE OJ 02214000 

WHILE (Sl.MtTJ.tCFJ) LSS ADR DO 02215000 

IF S GTR T THEN T»«S ELSE PUNT ( CPUNTER t 4 i J ) ; 02215500 

S*IF MCT], C3I6J»1 1HEN MtT*11,tCF3 ELSE OJ XTR02216000 

T*T*2i END; *TR02216100 

IF PRTtPlMlX,8J,tCFJ/L OR M t L- 13 , MSFFXSTACK IS MARKE0O22162OO 

THEN DO L*M[LJ,MQM UNTIL NOT M t L 3 , MSFF > «GET LAST MSCW02216300 

L*MfL3,M0M|XP0INT L TO NEXT RCW»JUST IN CASEi STR02216400 

END UNTIL (IF S#0 THEN IF Ss(-l) THEN ELSE 02216500 

(BtOKS OR NOT BtSJ.PBJI) 02216510 

ELSE P(MtT»23,C3l63»0UP)#7 AND P(XCH)*13 02216600 

> R 1**0* 02216610 

FOUND? ADR * ADR-TU 02217000 

T#PLACEFINDER(S.ADR#S)» 02217100 

SKlt IF N GTR THEN 02217200 

BEGIN 02217300 

B * tMtSPACE(TERMSGSZ)3]J 02218000 

DISKWAIT(-(B INX ) . TIRMSGSZ , MESSAGETABLE i 13 , t 22 t 26 3 ) I 02219000 

END ELSE Nl«0; 02220000 

STREAM<Zi»N#0»Xl«T»Tl*6i0t»(JARlPlMIX»0Jl# 02221000 

PlMIX»INDX*PRTtPlMlX,8J JNX NOT 2 INX 0* 02222000 

DSZEMF P(MtP(DUP)+13»T0P) THEN P ELSE P,t8»10J# 02222200 

T0GI«(Np7)# Q»»tBtN33# PFIw(NOT FROMPUNT ) . I 47 J 1 3 1 A)J02223000 

begin ci * ci+2; go to lux 02224000 

dsjblit w - w i sh*q; 02225000 

L> SH«SI + 1I 02226000 

IF SC » M 8 W THEN SI»*SI+i ELSE 02227000 

BEGIN AI»DU DH«LOC TJ 02228000 

DS«*0CT» DII«AJ 02229000 

END? 02230000 

DS»wT CHRI 02231000 

IF TOGGLE THEN GO TO LI 02232000 

DS|*LlT M l»| GO TO L2I 02234000 

Ll» SI * M% 02235000 

IF SC * "•" THEN* 02236000 

BEGIN SI * Si+lJ A *■ SIJX 02237000 

GO TO LIH 02238000 

ENDJX 02239000 

DI * AJ* 02240000 

L2l* 02241000 

SI * Jl SI «■ SI + ll DS * 7 CHRI DS * LIT "/"l* 02242000 

SI * SI + l; OS * 7 CHR> DS «■ LIT "» M )X 02243000 

SI*L0C P1MJX| DS*2DECI A*DIi 02244000 

DI*DI-2I DS*FILLI DI*A| 02244500 

PFCSllwX; DS|»20 CHR; Al*Dl)i 02245000 

T0G(D1*A; DS*2 LIT "» "; A*DU Sl*lNDXI 02251010 

SKIP SB; IF SB THEN BEGIN Dl+INDXJ 02251020 

SKIP DBJ DS*RESETI DI*Ai TOG*TALLYI 02251030 

DS*12 LIT "EFF INX IS *"; ENDJ 02251040 

A*DU SI*INDXJ DI*LOC fi) DS*8 DEC; 02251050 

SI*LOC Q; 7CIF SC>"0" THEN JUMP QUTI 02251060 

TALLY*TALLY+U SI*5I+1)J DI*AI 02251070 

TOTALLY; D5*8 CHRl DI*Dl"Tl 02251080 

T(DS*LIT " "); DI*DI-T| A*DI); 02251090 

T0G(SI*L0C DSZE; DI*LOC O; DS-4 DEC; 02251100 

DI*A; DS*5 LIT » GEO "I SI*LOC Q; 02251110 

TALLY*0; 3C IF SC^O" THEN JUMP OUT; 02251120 

TALLY«.TALLY + l; Sl»Sl+l)J 02251130 

utally; ds*4 chr; dudi-t; 02251140 



T C D S * L I T " H )J DI-DI-T; A*DI)J 02251150 

01 * Al DS * LIT « + »i% 02252000 

END** 02253000 

IF N#0 THEN FORGETSPACE(B)* 02253050 

IF S>0 THEN S*S&ADRtCTFJ* 02253100 

IF L0GLINE,[33»7] NE« THtN 02253150 

BEGIN BRE:AK[L0GLINE»[40I8)JI«01 0225320© 

REPORTBACKCDSWt S&NC 8 I 3B I 10 3 1 A) J 02253300 

END* 02253400 

S*A* 02254000 

IF FROMPUNT THEN GO TO SK2* 02254050 

F0RGET5PACECT)? 02254100 

STREAMCBt»S»A»sAl»SPACEU7))* 02255000 

BEGIN 17CDS-8 LJT"#")J S I *BJ Q I *A I D I *0 I +81 DS*2 LIT" "J* 02255100 

17(8(IF Sc#"*" THEN DS*CHR ELSE JUMP OUT 2 TO LI)) I 02255200 

111 DS*2 LIT" »l% 02255500 

END** 02256000 

SK2I SP0UT(S){ 02256500 

IF NOT TERMGO THEN BEGIN HALTJ* 02257000 

C0MPLEXSLEEP(*100=NUMESS)JX 02258000 

DO UNTIL KEYIN(Q)»1* 02258100 

NOPROCESSTOG * NOPROCESSTOGM J END** 02258200 

JARIPIMIX.U ••JARlPlMlXnm 02259000 

IF CLOGARRAY[ 31 J AND J0MASK)»0 THEN 02259100 

SLEEP(tL0GARRAYt3U J» 10MASK){ 02259200 

UNHOOQUECPIMIX);* 02260000 

IF FROMPUNT THEN BEGIN MI XX t *P1 MI X J GO TO SK3 END) 02260050 

MIXER* P300+P1MIX1I 02261000 

IF N»35 THEN % ES-ED 02261050 

IF CJAR[P1MIX»0J EQV "PRNPBT ") w NOT THEN 02261100 

IF C JARCP1M1X. 1 3 EOV (-("DISK « ) ) ) s NOT THEN 02261150 

IF CL|"PRTCP1MIX»?25J) * THEN 02261200 

BEGIN IF (LUNl»L,C38l53)<16 THEN SLAPITOFF; 02261300 

LUNI»L, [43*53* 02261400 

SLAPITOFFJ 02261500 

END* * PRNPBT/DISK ESED: TO CLEAR UNITS, 02261750 

STTt Tl*M[MSTART3> 02262000 

WHILE (L«-T,tCFJ)#MSTART DO 02263000 

IF (T*MCL]),UU2]»MIXE.R AND T>0X 02264000 

THENX 02265000 

BEGIN LUN * (TOPIO ♦ NFLAGC MtL + 2 1 ) ) . [ 12 I 6 3 ; 02266000 

IF LUN >32 THEN 02266100 

BEGIN 02266200 

FILECLOSECTOPIO INX 0); 02266300 

GO TO STT* 02266400 

END! 02266500 

IF UN1TCLUNM13I53 * P20 02267000 

THEN BEGINS 02268000 

QZtX 02269000 

SLAPITOFF* 02270000 

UNlTtLUN],C13J5]»BP20*Ji MARK IT NOT READY ANYWAYS O227O5O0 

FORGETSPACECL INX 2)J» 02271000 

GO TO STTIX 02272000 

END ELSE 02273000 

BEGIN T «• 0! 02274000 

FIB * M[T0PI0 INX NOT 23? 02275000 

ADR * NBUF * FIB[133,tll93-l* 02275100 

IF PCM[T0PI0],t3l53»DUP)»22 OR P(XCH)»26 THEN 02275150 

BEGIN FOR S ♦ 1 STEP 1 UNTIL ADR DO 02275200 

TOITI IF NOT M[TOPIO INX S3, [19113 THEN 02275250 



DOlTl IF 



LUN<18 THEN 

BEGIN MCTOPIO INX S3. [2011] ♦ Ol 

MCMtTOPIO INX S3 INX 1/J * MtTOPIO INX S 

& FIBC53 [FTC3I 
FIBC53 ♦ P(DUPiLODfO*l»CFX,+)l 
IF NOT PRlRQWCPlMlXJ.miJ THEN 

IF nBll4J,tCF3«FlBC14),CFF3 THEN 
BEGIN PBIOCTOPIO INX S»F1B[14J)J 

SLEEPUMtTOPIO INX S3J»JOMASK) 
END EtSE 



BEGIN 



end; 



STREAM(C*MtTOPJO INX S3* 
Z*FIB[14J,[FFJ); 
BEGIN SI ♦ CJ DS «- 18 WDSI END 
FIBC14],[FFJ * P(DUP),[FF J-18; 



END ELSE 

BEGIN IF WAITIOCMETOPIO INX S 3 # P357 »LUN ) , [ 45l 1 
THEN GO QWT; 
FIBI61 * *P(DUP)+i; 



IF 



S 
IF 



ENDI 
ADR<0 
BEGIN 
ENDI 
• 0; 

FIBtin 
BEGIN 



THEN 
IF ADR 



THEN FIBtin * BLENI GO OWTI 



THEN 



< (BLEN*F IBC183, [31153) 
IF NOT FIBU3J THEN 

FIBU73 * *PCDUP)-CFIB[53,[46»23*3); 
MCTOPI03 ♦ FLAGCF IBC163X 

STREAMCN*FlBCi7)»0*M[TOPlOJttCF3)l 
BEGIN N(DS + 8 L I T " " ) i END; 
ADR * -II GO DOIT! 
END EtSE ADR * "2i 
GO TOITI 
END ELSE 
OWT» FOR NT1 •• STEP 1 UNTIL NBUF DO 

MCTOPIO INX NTU * *PCDUP) OR IOMASKI* 
IF LUNS22 AND LUN>20 OR (LUN<18 AND 
(P<M[T0Pl03.[3l53»DUP)*22 OR P(XCH)*10)) 
THEN 
BEGIN IF LUN < 18 THEN * UNIT IS BACKUP 
BEGIN SM7IX 

STREAM(A»D*L+4); 
BEGIN SI*AI DS*17 WDS ENDI* 
NT4*H[T0PI0 INX NOT 2J INX OJX 
NTl*MtNT4+14]|X 
NT2*NT1,CFF3I NT1*NT1 , CCF 3 I % 
IF M[TOPI03,[3l53«22 THEN 
IF NT1-NT2-72 THEN* 
BEGIN NTl*MCNT4+51»tFFJl* 
MtNT4*51,tFF]»NTj+ll* 

MtNT2+173» 01540004002000000 «NTlCCTC)l« 
MCNT4 + l43 t [FF3*NT2-l8lJ! 
END ELSE* 

IF M[NT2+35),[27I6J»0 THEN M[ NT2+35 3 , [ 28 | 1 JM | 
F I8C 17 3 ♦ -11 

M[T0PI0J * FUAG(FIBH6J40[20|47lJ3«S[8i38il03)| 
END ELSE % 

BEGIN T*(A INX P54O0OOOOOO00O00 ) & (LUN#22) [ 32 » 47 1 1 3* 
U7tei30llO)lS 
IF LUN#22 THEN XIF PUNCH FILE. IGNORE 



02275300 
02275350 

302275400 
02275450 
02275500 
02275550 
02275600 
02275650 

102275700 
02275750 
02275800 
02275850 

102275900 
02275950 
02276000 
02276050 

J02276100 
02276150 
02276200 
02276250 
02276260 
02276270 
02276280 
02276290 
02276300 
02276350 
02276360 
02276370 
02276400 
02276450 
02276500 
02276550 
02276600 
02276700 
02276750 
02277000 
022/8000 
02278100 
02278500 
02279000 
02280000 
02281000 
02282000 
02283000 
02284000 
02285000 
02285100 
02286003 
02287000 
02287100 
02287110 
02287120 
02287130 
02287148 
02287200 
02287210 
02287230 
02287240 
02287250 
02287254 



IF WAITlO<*«002000000»e357»LUN),[45IU THEN GO QU 02287255 

T»WAlTlO(Tf*35 7»LUN)l» 02287260 

IF T,[45lU THEN GO TO QZ;* 02287270 

END* 02287280 

END ELSE* 02290000 

IF LUN»23 OR LUN»24 THEN* 02291000 

BEGIN ADR*L+4J* 02292000 

LBJ IF(T*UNIT(LUN))itl3lbJ«25 THEN* 02293000 

BEGIN ADR*T f [CF}l 02294000 

STREAM (A*"END W «ADR); BEGIN SI * ADR** 02295009 

LI S] ♦ SI + 11 IF SC * H " THEN GO TO LI* 02296000 

$ SET OMIT ■ PACKETS 02296999 

DI * LOC A; DI * 01*51 IF 3 SC * DC THEN TALLY * if A *% 02297000 

S POP OMIT 02297001 

* SET OMIT * NOTCPACKETS) 02297009 

DI»"»LOC AJDH*D1*5; IF 3SC«DC THEN TALLY»*0 ELSE 02297016 

BEGIN DI*LOC Al DS*4 LIT "PACK"! DI*LOC Al 02297100 

SI*SI-3l IF 4SC»DC THEN TALLY*0 ELSE 02297200 

TALLY I *1 END! A** 0229730» 

$ POP OMIT 02297301 

TALLY ENDI IF P THEN BEGIN* 02298000 

02299000 

02300000 

UNI ULUN 1*07777777/77* 02 301000 

END 02302000 

ELSE BEGIN M[ T0PI03*M[T0P I010R*2804000000; T*Q|* 02303000 

M[MCTOPI0n* w END, "&P14[ 1 1 43l 5)1 END!* 02304000 

ENDI 02305000 

IF T#0 THEN* 02306000 

BEGIN* 02307000 

LB I »T*WAlTlO(P4OOOOOOO + ADR»0367flUN);a; 02308000 

IF T, [45113 THEN GO TO 0*1* 02309000 

IF T.C42UJ THEN GO TO LB ELSE* 02310000 

GO TO LBI* 02311000 

END END;* 02312000 

IF T*0 THEN 02313000 

IF FIBI53.C42I1J 02313500 

THEN FORGETSPACECL INX 2) 02313600 

ELSE FILECLOSECTOPIO INX 0)1 02314000 

GO TO STT 02315000 

END; ENDI 02316000 

FORGETSPACE(A)!* 02317000 

TlwMCMSTARTJl 02318000 

MIXERI"P400+P1MIX; 02318050 

WHILE (L*T,[CFJ)*MSTART DO 02319000 

IF(T*M[L3)iC3lt23"MIXER AND T>0 THEN* 02320000 

JF M[MCL*41,[CFJ*5],Uliil THEN F 1 LECLOSECL + 7 ) I 02321000 

T|*MtMSTART]) 02322000 

MIXERI*P600*P1MIXJ 02322050 

WHILE (L*T,[CF])J»MSTART DO 02323000 

IF(T#-M[L1),C3I12J"MIXER AND T>0 THEN* 02324000 

IF M[L*73,t«i»l] THEN F ILECL0SE(M[L*1J INX 3)1* 02325000 

SK3I FOR LUN|»0 STEP 1 UNTIL 31 DO 02326000 

IF RDCTABLE[LUN1,[8»6J « PlMjX THEN* 02327000 

slapitoff;* 02328000 

prtcp1mix,9]i»5j xset for getspace 02328500 

p(,c0m5)i go to diffcom; 02329000 

ENDI* 02330000 

SAVE PROCEDURE TERMJNALMESSAGE(N) > VALUE N; REAL Nl 02330100 

BEGIN NT1 ♦ Nl 02330200 



P(0#STF)l 

TERMINALMESSAGA(NTl) 
ENDI 
ARRAY UNITC0DEC*3! 
BOOLEAN PROCEDURE READEMFROMDI SKC 
VALUE H» 1BI ARRAY HC*3»IB 
$ SET OMIT * NOTCPACKETS) 
PROCEDURE DRAlNO(UNIT»BUMP#ERROR)J 
VALUE UNlTfBUMPfERRORl REAL UN 

BEGIN REAL Tl 
LABEL NEXTI 

UNIT*UNlT-32; 
IF BUMP THEN 

PACKETACT[UNITJ|*PACKETAC 
IF ERROR THEN PACKFTERRCU 
]F PACKETACT[UNlT]wO THEN 
IF LABELTABLEEUNIT + 32U0 
IF ClDTABLEtUNlT,3]<CIDTA 
BEGIN 

LABELTABLECUNIT+32 3*-P14l 
T|*GETSPACEU3*64»5)+4I 
NEXT! DO UNTIL READEMFROMD 
tM[T33410t8l38ll03)J 
IF PACKETERRIUNIT3 THEN B 
STREAM(E*"END"l Q*?H»D*T 
BEGIN SI'LQC 0} SI*SI+7l 

Q*DI I SI*0> 
LI IF SC»" " THEN BEGIN 
DI*LQC El DI*DI+5> I 
E*TALLY» ENDJ 
IF P THEN GO TO NEXT* END 
M[T INX 103-UNlTCODEtUNIT 
FREECARD(T&(UNIT + 32)C2U2 
END ELSE 

ENDOFDECKCUMUERROR[im 
END DRAINO; 
t POP OMIT 

REAL STREAM PROCEDURE UNI TINCTINU 
BEGIN* 

*> WHATjX 

SC ■ " " THEN* 

BEGIN SI * SI+1 
«• T1NUU 
t SET OMIT * SHAREDISK 

37CDI * DI+5J 



H.IB3J 

t*3l FORWARD! 



LI 



SI 
IF 

DI 



IT) BOOLEAN BUMPtERRQRl 



T[UN|T)-1I 
NIT J l«TRUEJ 

THEN 
BLECUNIT.73 THEN 



isk(cidr0w[unit3» 

egin; 
); 

IF SC/DC THEN D1*DI+1! 

SI*SI*1I GO TO L ENDJ 
F 3 SC*DC THEN TALLYMI 

} 

♦ 93) 
l63&ERRORtlil<l3); 

13)1 



>WHAT)J VALUE WHATjl 



I GO TO L ENDJX 



S POP OM 
t SET OM 



IT 
IT 



N0TC5MAREDISK) 
«KDJl«Dl*5l 



$ POP OMIT 



IF 3 SC ■ DC TH 
TALLY * TALLY*! 
SI * SI-3DIX 
UNJTIN * TALLY!* 
ENDIX 

define enteruserfile(enteruserfile 

pceuf(enteruserfilei»enteruseRfjl 

Real procedure eufca»b*l>j value a 

integer procedure calculatepurgec 

value purge* real purge!* 

begin real y»d|x 



EN JUMP OUTJX 
IX 



1>ENTERUSERFILE2#ENTERUSERFILE3>: 
E2iENTERUSERFILE3)#DED#! 
»B»LI REAL A»B»Ll FORWARD! 
PURGE)!* 



02330300 
02330400 
02330500 
02347100 
02347150 
02347160 
02347199 
02347200 
02347210 
02347220 
02347222 
02347230 
02347240 
02347250 
02347260 
02347280 
02347290 
02347300 
02347310 
02347315 
02347320 
02347330 
02347335 
02347340 
02347350 
02347360 
02347370 
02347360 
02347390 
02347400 
02347410 
02347420 
02347430 
02347440 
02347450 
02347460 
02347461 
0234B000 
02349000 
02350000 
02351000 
02352000 
02353000 
02353999 
02354000 
02354001 
02354099 
02354100 
02354101 
02355000 
02356000 
02357000 
02358000 
02359000 
02378000 
02378500 
02379000 
02380000 
02381O00 
02382000 



REAL Jf% 02383000 

Real c^im 02334000 

STREAM(A*[DATEJ»B*IY))JX 02385000 

BEGIN SI*AJ SI*SI+3» OS * 2 OCTl DS * 3 OCT ENDJ* 02386000 

J * CD * ( Y + 3) D1V 4xl461+CY+3) MOD 4 x 365 +D+PURGE-X 02387000 

1) DIV 1461 * X 02388000 

IF (Y * (D * D MOD 1461) DIV 365) * 4 THEN* 02389000 

BEGIN Y «• 3; D ♦ 365 END ELSE D * D MOD 365JX 02390000 

CAICUUTEPURGE * C 4x J+Y*3)x 1000 + D + U % 02391000 

STREAMCOCCJ)! BEGIN SI*CJ DS * 8 DEC ENDJX 02392000 

END1X 02393000 

PROCEDURE CHANGEDATE(BUFF)) VALUE BUFF* REAL, BUFFI FORWARDJ 02393100 

DEFINE MIDNIGHT « BEGIN XCLOCK I sXCLOCK-W I TCH I NGHOUR J 02393200 

DATE»»CALCULATEPURGE(1)» 02393225 

CHANGEDATECSPACEUO)); Q2393250 

END#> 02393300 

REAL PROCEDURE TAPELABELCMt F.R»C »P) J VALUE M»F#R»C»P| XA102393400 

REAL M»FtR»c»PI FORWARD? XA1Q2393500 

S SET OMIT « NOTCDUMP OR DEBUGGING) 02393999 

PROCEDURE PRINTC0RE(X)J VALUE X) REAL XJ X10302394003 

BEGIN REAL B»S»N»I*KJ ARRAY Tl*JjX 02395000 

LABEL L1»L2I XAI0239505Q 

REAL UfMSi X10302395100 

LABEL NW»PR»SK> 02395158 

DO UNTIL ( U * 02395200 

IF LABELTABLEC20J * THEN 20 ELSE 02395300 

IF LABELTABLEC213 « THEN 21 ELSE 02395400 

IF PCRRR) t [27H] THEN 20 ELSE 02395500 

IF P(RRR), C26I1J THEN 21 ELSE 0) / Of 02395600 

02396000 

s * 01 02396100 

HALT; 02396110 

WAITSTORE(O)! 02396120 

ST0REDY[0)*0l 02396130 

HHILE (S «- MtS]),C33ll53 f DO 02396200 

IF HCS3.C1I173 « P1000 THEN 02396300 

B * 0LAY(S t t33ll53»0); 02396400 

STOREDY[0]*l; 02396500 

S SET OMIT « NOT(DEBUGGING) OR OMIT 02396599 

B*(DBARRAY INX 2)&15[8 I 38 1 103 ) 02397000 

S POP OMIT 02397001 

$ SET OMIT » DEBUGGING OR OMIT 02397499 

B I 'SPACE ( 30 H 15(8 I 36 1 10) J 02397500 

$ POP OMIT 02397501 

Lll IF P(WA!Tl0(P4000100000»4»U)),U5in THEN GO To LI) XAI02397800 

IF X GTR MJXMAX OR X LSS THEN X|*0J X10102398000 

MSl*Sl»MEMROWCX],(CFJI %\ 0102398100 

IF STASUS[X3*RUNNING OR S*Q THEN U0302398200 

* 02398500 

DO BEGIN Nl»IF (Tl«M[S3) GTR AND T,[CF3 N£Q MS X10302399000 

THEN *10»02399100 

NOT S INX T INX 1 ELSE 31 X 02400000 

IF CS AND P7777) » *7777 AND (T AND *7777) * THEN* 02401000 

N * 1JX 02402000 

NWI STREAM(N*IF N>6 THEN 6 ELSE N#S*B)JX 02403000 

BEGIN 60(DS * 2 LIT " ")J* 02404000 

DI * Bl SI * LOC S* SKIP 33 SBJX 02405000 

5(DS*3RESET* 3(JF SB THEN* 02406000 

DS ♦ SET ELSE DS ♦ RESETI SKIP SB))|X 02407000 

DS «• LIT " "1% 02408000 



Si - s;x 

NCDS ♦ LIT M "J 

3(1F SB THEN DS< 

SKIP SB))))JX 



2CDS-tIT ,f 

SET ELSE 



DS 



6cds*3reset;x 

RESET;* 



* DC THEN TALLY * 1 



BEGINU 
60CDS«-2UT"*");* 



sk; enojend;* 



ENDf* 
K «• lis 

PRI I * WAIT!0(BlCCN>6)+l)[27t46t2J»*64»U)> 
IF I, [42111 THEN* 

I * WAlTI0{t»4000100000»4»U); 
IF I,C45lU THEN GO TO PR;* 
SKI S ♦ S+6; N * N*6;X 
IF N > 6 THEN* 

BEGIN* STREAM(A*S-6lS);* 

BEGIN SI * Al IF 48 SC 

A * tally;* 
end;* 

IF P THEN* 

begin if k then 
stream(B); 
k * o;* 
GO TO pr;* 
END ELSE GO TO 
IF N > THEN GO TO NW;X 
S ♦ T. [331153;* 
END UNTIL S«MS; 

NOPROCESSTOG * NOPROCESSTOG-1 f 
L2I IF P(WAITlOC84000100000#4»U)) t [45lll THEN GO TO L2; 

end;* 

REAL MEMOD; 
PROCEDURE DUMPCORECBUFF); 

VALUE BUFF; REAL BUFF; 
BEGIN REAL B»S»Nt TM.TA»U»D> 
INTEGER If 

ARRAY TP[*j; ARRAY TL[*3I 
LABEL X»Li; 

BOOLEAN SUBROUTINE CHKMODf 
BEGIN; 

STREAM(N«MM«-MEMOD)f 

BEGIN SI*LOC MM; SKIP 40 SB; SKIP N SB; 
IF SB THEN TALLY*lf N*TALLY; 

end; 

CHKMOD * Pf 

end; 

FOR Ul«0 STEP 1 UNTIL lb DO 

IF CMULTITABLECUJ*"MEMORY ") AND 

(LABELTABLE[U3,[5>I23]» W 1DUMP W )THEN GO TO Lll 
FOR U*0 STEP 1 UNTIL 15 DO IF LABELTABLE[U J»0 

AND PRNTABLEtUl.UUJ 
BUFFl»BUFF,[15ll5I-l; 
STREAM(BUFF); 

DSI"17LIT"#N0 MEMDUMP 
GO TO XJ 
LI t MULTITABLE[U];«"MEM0RY "I 

LABELTABLECU1,[1 «29l 1*0 1024644447; 
STREAM(Al*"001 ,f >Bl*[LABELTABLEtUm; 
BEGIN SI $■ LOC a; SI »* SI + 5; 

DI»«DI+5I DSl*3ADDf 
ENDf 

RRRMECH f« TWOCU? OR RRRMECH; 
BI«GETSPACE(20»0t0)+2; 



THEN GO TO Lll 



tape*"; 



*10 

*A 

*A 
%A 
*A 
*A 
XA 
*A 
XA 
XA 
*A 
XA 

*A 
XA 
XA 
*A 
*A 
*A 
XA 
XA 
XA 
XA 
XA 
XA 
XA 
*A 
*A 
*A 
XA 
*A 
*A 
XA 
XA 



02409000 

02410000 

02411000 

02412000 

02413000 

02414000 

02415000 

02416000 

02417000 

02416000 

02419000 

02420000 

02421000 

f02422000 

02423000 

02424000 

02425000 

02426000 

02427000 

02426000 

02429000 

02430000 

02431000 

02432000 

302433000 

02433100 

102433500 

02434000 

102434050 

102434100 

102434110 

102434120 

102434125 

102434130 

102434135 

102434140 

102434142 

102434144 

02434146 

102434146 

102434150 

102434155 

(02434160 

102434170 

102434160 

102434190 

102434200 

102434210 

102434215 

102434220 

102434230 

102434240 

102434250 

102434260 

102434270 

102434280 

102434290 

102434300 

102434310 

102434320 



STHEAM(LTT*BUFF.[33llbJ<100fBUFF*BUFF,l33ilb]f B)l 02434330 

BEGIN XAI0243434Q 

DS»*8LIT" "; S 1 1 *B * DS»«19WDS; XA102434350 

D! ♦ Bl 02434360 

LTTCSI * IOC BUFF; DS * 2 PEC; JUMP OUT 1 TO L);0243436b 

SI * BUFF; 02434367 

20(8(IF SC*"* M THEN DS»CHR ELSE JUMP OUT 2 XAI02434370 

TO L))J LI XAI02434380 

END; XAI02434390 

LABELTABUEtU] f Cl«5]««»« , 20; XA I 02434400 

TLl»tMtTAPELABEL("MEMORY % lABELTABLEt U 3 t [6 I 423 » XAIQ2434410 

1 • 1 » 103 J J&10C8I 36: 103; X A I 024 34420 

STREAM(A*PRNTABl&[UM30llBJ*TU)J 02434424 

BEGIN Sl'LOC A? Dl*01+53i DS*5 DEC END; XAI02434426 

TPl*[MtTAl«GETSPACE(513»0tO)+2]Ja5i3t8l3BU0J; XA I 024344 30 

TMI»0&P173/[I«37I11 J; XA I 02434440 

PCWAlTlO(TL&e05000tCTFJ#OiU)»DEL); XA I 024 34450 

P(WAITl0([TM],(i»40»U)»DEl); XA I 02434460 

Sl«0; XAI02434470 

HALT; WAITSTORECO); XAI02434480 

ST0REDY[03*0; XAI02434490 

WHILE (Sl«M[S3)f[33U53 NEQ DO XAI024345Q0 

IF M[S3,UU73*M000 THEN XAI02434510 

D»*QLAYCS.[33ll53»0); XA 102434520 

stqredy[OJm; XAI02434530 

Sl«0; XAI02434540 

DO BEGIN XAI02434550 

Ni«S,[33l31) XAI02434560 

IF CHKMOD THEN S I* -S XAJ02434570 

ELSE M0VE(512»S»TA+l); XAI02434580 

TP[03 %* S; XAI02434590 

P(WAITIO(TP&«»05000[CTF3»0#U)»DEL); XA I 024 34600 

IF S LSS THEN S »» 3584 - S; XAI0243461* 

END UNTIL (SibS+512), [181153; XAI02434620 

P(WAlTIO(B&20t8J38liOJ&5[21»45»33#0»U)»DEL); XA 102434630 

P(WAITIO(tTM3»P40tU)»DEL); XA 102434640 

P(WAITIO(TL&P05000[CTF3»0»U)»DEL); XA I 02434650 

P(WAITIOUTM3»04Q»U)#DEL); 02434652 

PCWAITI0(P4740000020»P377fU)»DEL); 02434654 

FORGETSPACECTP); XA102434660 

FORGETSPACECTL); XAI02434670 

FORGETSPACE(B); XAI02434680 

LABELTABLEtU3,tl»53*P0i; XA I 02434690 

BUFF I «BUFF ,t 15115 3-1 ; XA I 02434695 

STREAM(U*TINUCU3»L*LABELTABLECU3»BUFF); XA 102434700 

BEGIN XAI02434710 

SI t»LOC U; SI l« 51 + 5; XAI02434720 

DSl-lLIT" "I DSl»3CHR; XAI02434730 

SI*LOC L; SI*SI+1; DS* 1 LIT " w ; DS*7 CHR; XAI02434735 

DS»*7LIT" DP-ED*"; XAI02434740 

ENDI XAI02434750 

NOPROCESSTOGI*NOPROCESSTOG-U XA 102434760 

Xt SPOUTCBUFF); XAI02434770 

END DUMPCORE; XAI02434780 

$ POP OMIT 02434781 

PROCEDURE NAMEIDCA»KTR);X 02603000 

REAL A#KTR;X 02604000 

BEGINJX 02605000 

5TREAM(A*CA3|KTR};X 02606000 

BEGIN DI * A; DS * 8 LIT "0 " ; X 02607000 



DI ♦ DI-7J SI «• KTRJX 02608000 

ll IF SC * " M THEN* 02609000 

Bt GIN SI * SI + U GO TO L ENDIS 02610000 

IF SC ■ """ THEN* 02611000 

BEGIN SI * SI+ll* 02612000 

7(IF SC * M * M THEN JUMP OUT TO LXITIX 02613000 

OS *• CHRI* 02614000 

IF SC * """ THEN JUMP OUT TO LQJ)IS 02615000 

LQl SI •• Si+llS 02616000 

GO TO EXIT;* 02617000 

ENDlS 02618000 

IF SC ■ ALPHA THEN* 02619000 

BEGIN 7(0S * CHRIS 02620000 

IF SC s ALPHA THEN GO TO LAIS 02621000 

JUMP OUT TO EXIT J X 02622000 

LAI )|S 02623000 

LEI IF SC • ALPHA THEN * 02623500 

BEGIN SI*SI+lJ GO TO LEI END! * 02623501 

GO TO EXIT I* 02624000 

END!* 02625000 

IF SC * "*" THEN* 02626000 

BEGIN DS * CHRI SI * Sl-Jj GO TO EXJT ENDlS 02627000 

IF SC ■ "«" THEN* 02628000 

BEGIN DS*2 LIT"*-*"! Sl»Sl+ll GO TO fc X I T ENDI 02629000 

DS «• CHRIS 02630000 

EXJTIA * SIIS 02631000 

ENDlS 02632000 

KTR * P(XCH)IX 02633000 

ENDlS 02634000 

REAL PROCEDURE T APELABELCMULF ID»F I D»REELNO» C YCLE* PURGE ) I % 02635000 

VALUE MULFID»FID»REELNO»CYCLE*PURGElS 02636000 

REAL MULFID»FID#REELNQ»CYCLE»PURGEI* 02637000 

BEGIN REAL LBLlS 02638000 

LBL IB SPACE(10)I 02639000 

STREAM(S 02640000 
DATE* MULFID»FID»REELNOiCYCLE#PU*CALCULATEPURGECPURGE)»S 02641000 

LBDlS 02642000 

BEGINS 02643000 

DS*8 LIT" LABEL "|S 02644000 

SI*LOC MULFIDI* 02645000 

DS*W0SlX 02646000 

DS*WDS|S 02647000 

DS*3 DECIX 02648000 

SJ * LOC DATEI SI * Sl+ilS 02649000 

DS * 5 CHRIS 02650000 

SI*LOC CYCLElS 02651000 

DS* 2 DECIS 02652000 

SI*L0C PUI SIfrSl+3!* 02653000 

DS*5 CHRI DS*1 LIT M M IS 02654000 

5<DS*8 L1T"00000000 M )X 02655000 

ENDIS 02656000 

TAPELABEL*LBLIS 02657000 

...END|* 02658000 

REAL PROCEDURE LABELASCRATCHCLBL)! VALUE LBLIREAL LBLlS 02659000 

BEGINS 02660000 

REAL LUN»TM,REEL»Tl 02661000 

LBL * P(,LBL#L0D)tC33ll5J|S 02662000 

STREAMCL*LBL+3#R*tREELJ)l 02662100 

BEGIN SI*LI DS*3 OCT END* 02662200 

LUN*FlND0UTPUTCMCLBL+n#MCLBL+2J»2#Q»REEL»0»0»TM)l 02663000 



if lun>0 them 
begin; 

STREAM(A*PRNTABLEtLUNj,[30»18J»T*lTJ#L*LBL+6); 
BEGIN DI*DI+5l SI*LOC A> DS*5DEC; SI*SI«8; Dl*Tl 

DS*8DEC» DI*DI-7; DS*6FILLI END* 

RDCTABLE[LUN3.[8I6J*P1MIXj 

MULTlTABLEtLUN]*MtLBL + UJ 

RRRMECH-TWQCLUN) OR RRRMECHJ 

PCWAlTlOaBL OR 0120500000000* 0,LUN )» DEL ); * 

TM*04"**"U«37UU;* 

PCWAlTIOUTMJ»0»LUN)»DEL);* 

FILEMESSAGEC" OUT M U I NU[ LUNJ[ 6 « 30 » 16 ) * T * 

MtLBL+1 J#M[LBL+2J»REEL#0»0#0PNMESS)J 
END? 

LABELASCRATCM*LUN* 
END LABELASCRATCHIX 
PROCEDURE NSECONOIFORNARDIX 

BOOUEAN PROCEDURE SYSTEMF I LE ( A » B ) i VALUE A»BJREAL A»B; FORWARD? 
DEFINE CHECKSTACKSPACF^IF P(PRTCP1MI X, * j INX 0)-P(0*RDS) LSS 
63&CCANDYINX NEO PlM I X ) [ 4i I 47 I J] 

THEN BEGIN P(64»STS); GO TO STACKOVERFLOW; END#; 
REAL PROCEDURE PUTORTAKECMI X» WHERE* I 0* WHAT) \ 
VALUE MlXiWHERE#IO»WHAT; 
REAL MIX.WHERE»I0»WHAT) 

COMMENT THIS ROUTINE IS USED TO GE1 OR RETURN ONE OR MORE 
WORDS FROM A (PERHAPS) SWAPPED AREAt THIS 
ROUTINE IS SMART ENOUGH TO NOT DO DISK ACCESSES 
UNLESS IT NEEDS TO. TOO, IF ONE WORD IS GOTTEN* 
IT IS RETURNED AS THE VALUE. IF MORE THAN ONE 
WORD IS GOTTEN* THE VALUE RETURNED IS A POINTER 

TO THE area containing the words, the routine 
does getspace/forgetspace action on multiple-word 
areas, of course input versus output decides; 
s#count#sizei 
da't.northj 

IF (STASUStMlX] AND STABLE) * THEN 

BEGIN IF I0,[2llJ THEN CL I CK | *CLQCK+PC RTR )+ 1 80; 
SLEEP(CSQ[MIXJJtO*STABLEU8U2l6J>; 
IF (STASUS[MIX) AND STABLE)*0 THEN PC 0*NOT» RTN ) I 
END! 

SQ[MIXJ*-*P(DUP); 
COUNT «• ABSCI0)*CI0*O); 

10 * io>o; 

IF NORTH*(S*[WHERE3,lCFJ)2EENCE AND( ( T*STASUS[ M I X ] )» 

READYSTATE OR TsRDYRRT OR TpWAITSTATE) 

THEN BEGIN T l» SPACECSJZE »* 30*( C C0UNT+58)D I V 30)); 

DA*DISKSTORECMIXj*(S*-([MEMlMlX»MLINKni 
INX 1) + S) DIV 30; 

S«-S MOO 301 

DI5KWAIT("T»SIZE»DA); 

WHERE*CMtT + Sn; 

end; 
if c0unt*1 then 
begin putortake*nflag(where); 

if not 10 then muwherejj ♦ what; 
end else begin 

if 10 then what \* spacec count ) ; 

P(CWHEREJiWHAT); 

IF NOT 10 THEN P(XCH); 

STREAM(S*P#D«"P«SlZE*-COUNT); 



XWF 



BEGIN INTEGER 
REAL 



02663100 
02663200 
02664000 
02664100 
02665000 
02665100 
02665150 
02665200 
02666000 
02667000 
02668000 
02668500 
02668600 
02668800 
02669000 
02670000 
02692000 
02692500 
02693000 
02693500 
02694000 
02700000 
02701000 
02702000 
02702100 
02702200 
02702300 
02702400 
02702500 
02702600 
02702700 
02702800 
02702900 
02703000 
02704000 
02704100 
02704120 
02704140 
02704160 
02704180 
02704200 
02704300 
02704400 
02705000 
02706000 
02707000 
02706000 
02709000 
02710000 
02711000 
02712000 
02713000 
02714000 
02714100 
02714200 
02714300 
02715000 
02715100 
02715200 
02716000 



BEGIN SI*S; DI*D! DS*SUE WDS; END; 02716100 

P(DELtDEL); 02716200 

PUTQRTAKE*WHAT; 02716300 

END! 02717000 

IF NORTH THEN 02718000 

BEGIN IF NOT 10 THEN D I SKWA I T ( T , S I ZE » DA ) ; 02719000 

FORGETSPACECT); 02719100 

END? 02719200 

IF NOT 10 THEN IF C0UNT#1 THEN FORGETSPACtC WHA T ) ; 02720000 

S(J[MIX]*-*P(0UP)1 02720100 

EN01 02721000 

PROCEDURE DIRECTORYFULLCPASSBY); VALUE PASSBY; REAL PASSBY; 02722000 

BEGIN REAL T; 02723000 

STREAM(LOSTl»PASSBY/0» PIMIXi T|«Tt«SPACEUO))J 02724000 

BEGIN 0S*34 LIT " + ** SHOULD H/Ll DISK DIRCTRY FULL«"; 02725000 

SI*LOC PIMJXI DS*2 DECJ 02726000 

P1MIX*DI» DI*D1"2» DS*FILLJ DI*P1MJX; 02727000 

L0ST(DI*DI*3JDS*17 LIT". SOME FILES LOST*")* 02726000 

DS*LH "*"; 02729000 

END? 02730000 

SPOUT(T); 02731000 

Tl»SPACEC30)| XR7102731100 

M[T + 283*H14; 0273200P 

IF PASSBY#0 THEN D J SKWA I T ( T » 30» PASSBY , [ CF i ) ; 02733000 

FORGETSPACECT); 02734000 

IF [MEMCPlMIX.OJJ.lCFJiFENCE THEN 02735000 

SWAP(WAITSWAP#1) 02736000 

ELSE SLEEP(0»0); 02737000 

END! 02738000 

PROCEDURE DCERR(R)» 02740000 

VALUE Rl REAL R; 02741000 

BEGIN REAL RCW*+0; 02742000 

LABEL EO»El»E2#E3»E4#NEXT»SEARCH»F0UND»ENUIT; 02742500 

REAL A»B»C; 02743000 

SWITCH ERRl«E0»El»E2#E3#E4; 02743500 

IF (BI«R,C4»4])«15 THEN GO SEARCH; 02743900 

A«*SPACE(10); 02744000 

STREAM(RI»R&0[4»4s4]»YJBR f [9»4j»Zl*R,[14l4].A)J 02745000 

BEGIN Sl»*LOC R; 02746000 

DSl«14 LIT"#DCA ERR • RD*"» 02747000 

16(ds»*3 reset; 3c if sb then dsi*set else dsi*reset; 02748000 

skip 1 sr)>; siikloc y; 02749000 

ds|*8lit%tu/buf = "; ds i s2dec i ds i «l i t"/"; ds l *2dec ; xr9502 7491 00 

RlsDj; 02750000 

END; CI»P; 02751000 

GO TO ERRCB]; 02751100 

EOl STR£AM(R|»C>; 02751200 

DSl«15 LIT "-BAD TU/BU NUM*"; 02751300 

GO TO NEXT; 02751400 

EU STREAM(R|*C); 02751500 

DSI«14 LIT "-BAD RES DESC*"; 02751600 

GO TO NEXT; 02751700 

E2« STREAM(R;»C); 02751800 

DSl*15 LIT "-BAD INPUT ADR*"; 02751900 

GO TO NEXT; 02752000 

E3» STREAM(RI«C); 02752100 

DSt»19 LIT "-READ BOUNCED BACK*"; 02752200 

GO TO NEXT; 02752210 

E4« 5TREAM(Rf»C>; 02752220 

DSl»29 LIT"»BUSY INTERRUPT DURING WRITE*"! 02752230 



NEXTi 02752300 

SP0UTlT(At3b)J 02752400 

SEARCH! A1«R,[9»9J) 02753000 

IF B#0 AND B#4 THFN 02754000 

FOR B»«t STEP 1 UNTIL LMAX DO 02755000 

IF A*LINETABLE[BJ,[9»9] THEN GO FOUND? 02756000 

GO ENDIT) 02757000 

FOUNDI IF BUASTREAD(B»3) THEN 02758000 

$ SET OMIT « TWXONLY 02758090 

IF LINEDISCCB3«MULTI THEN 02758100 

BEGIN A»*SE6ARRAY[BJ.t4Q|8J» 02758200 

STATABLEIA) l*(+P(OUP))*P(OUP) [231221 1HU24I47U J 02758300 

11(2114711]) 02758400 

IF TANKUNEIAJ*0 THEN 02758500 

IF TAIL0UT#A THEN 02758600 

BEGIN TANKLINE[TAILOUT]»sAJ 02758700 

TAIL0UT»*A) 02758800 

STARTWORKING; 02758900 

END) 02759000 

ENTEREADYQ(B)) 02759100 

ENDI 0275920* 

S POP OMIT 02759210 

I 02759400 

ENDITI KILIURCWJ INX NOT 2)1 02759500 

END OF FUNNY DC RESULT DESCRIPTOR HANDLING) 02760000 

PROCEDURE DCBUSY(V)) 02761000 

VALUE VI 02762000 

REAL V) 02763000 

BEGIN 02764000 

REAL RCW*+0! 02765000 

REAL A) 02766000 

A»*SPACE(5)) 02767000 

IF VtCCFi » THEN 02768000 

BEGIN 02769000 

STREAM(A)I DSl»29 L I T"-*#PREV I OUS INPUTCS) LOST/-**") 02770000 

END 02771000 

ELSE 02772000 

BEGIN 02773000 

STREAM{VI»V,[CF]*1»A)I 02774000 

BEGIN Sll»V) 02775000 

DS)«17 LlT f, -*i'LINE STARTING w ) OStwLl T ,,,t,, l 02776000 

DSl*10 CHR) 02777000 

OS t«LlT t,n, *l DS»*8 LIT " LOST#-* M ) 02778000 

ENQJ 02779000 

F0RGETAREA(M(VJ,C2l2]'V)) 02780000 

END) 02781000 

TWXOUTC A» 37*04 3(1 1 46l2 J »V,[FFJ) J 02783000 

FORGETSPACECA)) 02784000 

KILL((RCW] INX NOT 2)) 02785000 

END BUSY INTERRUPT HANDLER) 02786000 

ARRAY SPACERC*]) 03000000 

REAL BIGUNS) 03001000 

DEFINE BIGUNMIN * 4#) 03001100 

PROCEDURE MOREAREAS) 03002000 

BEGIN REAL I»J) 03003000 

REAL RCW*+0) 03003100 

I»»(Jl«GETSPACE(162»5#5)+l)+3 AND NOT 3) 03004000 

03005000 

M0VEC162»J.U*1)) 03006000 

J*I+159) 03007000 



FOR IM STEP 20 UNTIL J DO 03008000 

F0RGETAREAC2i I); 03009000 

03010000 

AREARDY*TRUE> 03011000 

03012000 

KILLURCWJ INX NOT 2)> 03013000 

ENDI 03014000 

SAVE PROCEDURE FORGET AREAC N» T ) I VALUE N»Tl REAL N.TJ 03015000 

BEGIN REAL R»S| 03016000 

S SET OMIT * NOTCCHECKLINK OR DEBUGGING) 03016009 

REAL SP»ME»MSI LABEL PUNI 03016010 

* POP OMIT 03016011 

T*PC,T»LOD).[CFJJ 03016500 

DO UNTIL T#0l 03016600 

WHILE N«*2 AND (S*MtR*(IF N THEN 10&UU46I1] ELSE 03017000 

5*TC 1 1 «7t 1 J ) +T]).tll33*N*4 DO 03018000 

BEGIN M[S,[FF31iCCFJ*Sl 03019000 

M[S3,[FF)«-S,[FFJJ 03021000 

IF T>R THEN T*Rl 03022000 

N*-N+l» 03023000 

END! 03024000 

IF N«2 THEN B I GUNS*B I GUNS+1 * 03025000 

M[S*M[R»PCM[SPACER[NJ]«0*T{CTT3tLLt,»DEL),lFFJJ,[FFJJ 3026000 

.ICF3*Tl 03026100 

M[M[T3*«R&SCCTF3&N[2U6l23 J.CFF J*Tl 03027000 

S SET OMIT s NOTCCHECKLINK OR DEBUGGING) 03027004 

IF CHECK THEN 03027005 

FOR NtsiO STEP 1 UNTIL 2 DO 03027010 

BEGIN Tt»RtsSPACERCN],CCFJ; 03027020 

SPt»S|*[SPACER[N]) ( tCF3> 03027030 

MSI*MC0J,[CF3J 03027040 

ME»»PRT,[CF]» 03027050 

DO BEGIN 03027060 

IF MCR3.tFF)#S THEN GO TO PUN* 03027070 

IF R#SP THEN 03027080 

IF MCRj,[?»23*N OR M[R] GE« THEN GO TO PUNJ 03027090 

Sl»R| 03027100 

IF (Rl«MCRJ t CCFJ) LEQ MS OR (R GEfi ME AND R*SP) THEN 03027110 

PUNl PUNT(3)I % DATACOM INVALID LINK 03027120 

END UNTIL R»TI 03027130 

ENDI 03027140 

S POP OMIT 03027141 

END) 03028000 

SAVE REAL PROCEDURE GETAREA(N)! VALUE N) REAL NJ 03029000 

BEGIN REAL T»+l»ll 03030000 

1*NJ 03031000 

WHILE (T*SPACERin)itCF3»tSPACERU33itCF3 DO 03032000 

1*1+11 03033000 

DO UNTIL I<2l 03033100 

M[(SPACERmi«T&M[T»»T,tFFJ3CFTFJ),tFFJ3 SR7P03034000 

• CCF1 t«[SPACERC I 3 JlS USE LIL AREAS FRM END XR7*03035000 

M[T3l«0&N£2l46l2]U XR7703036000 

IF I»2 THEN 03037000 

IF (BIGUNS|*BIGUNS-1) LSS BIGUNMIN THEN 03038000 

IF AREARDY THEN TOGLE , t 25 » 23 t »2J 03039000 

WHILE Ii'N DO 03043000 

F0RGETAREA(I*I-1#(IF I THEN 10 ELSE 5)+T)J 03044000 

ENDI 03046000 

SAVE PROCEDURE QUEVENTCTi MJ X)» 03048000 

VALUE T.MIX; Rp.AL T#MIX; 03049000 



BEGIN M[EV 
EVENT 
M[T], 



ENT[MIXJ,[FM J.CCFJ 

[MIX],[FFJ*T| 

[CF3*0l 



Tl 



ENDI 

PROCEDURE CO 

BEGI 



M[T 
IF I 
BEGI 



END 
BEGI 

ENOI 
Tl»[ 

DISK 

ENOI 

PROCEDURE CO 

BEGI 



MM1J 

N REAL 

ARRAY 

REAL 

* GETA 

THEN 

N IF N 

M[T*2 

MCT + 3 

N SOS 
MQVEC 

M[T*13 

I0CT»N 

GO TO 

MM2j 

N ARRA 
NAME 
REAL 
LABEL 
S*A,t 
IF CT 
BEGIN 

ENOI 

WHILE 

BEGIN 



X DISK I/O COMMUNICATE 

DA*-5»SZs:-6#F*"»7» I0*-9»RES»»l0l 

A»-8t*)l 
St Tl 
REACO)3»CFF 3 * RESI 

OT A.C2I1J THEN MAKEPRESENT < [ 10 J INX 1)1 

J * M[S * M(A,CFM3tCCFl-?3*P(Si XCHH2»2U3I 

)*MCS*11I P([MtSJ]»IOR)l S*-(A INX F)t 



XI 



PROCE 
REAL 



REAL 



PROCE 
* SET 

REAL 
V 

REAL 
V 



END! 
IF CT 

EVENT 
LOGLI 
WT[Q3 
CLKtO 
GO TO 
ENOI 
DURE LOGOUTI 
PROCEDURE INP 
VALUE NU 
REAL MO 

FORWARDI 
PROCEDURE OUT 
VALUE ADR 
REAL ADR 

FORWARDI 
DURE GIVEAWAY 
OMIT * TWXON 
PROCEDURE OUT 
ALUE AOR'NUM* 
PROCEDURE OUT 
ALUE adR»num# 



PACE(SZ)I 

SZ»A»S)I M[T+23 *■ NABS(S)I 

II 

OT INX S»Sm[2i47ll}tDA)J 
RETURN 

% COMMAND LANGUAGE WAIT COMMUNICATE 
Y A»-6C*Jl 
CLK*-7#WT*-8| 
Tf SJ 

X> 
FF 31 
*-A,tCF3)*0 THEN 

MtS3,tCF3*Ol 
FORGETAREA(M[T3,(2|23»T)l 

EVENT[PlMlX3,tCF3«0 DO 

IF NOT WT[03 THEN GO TO X| 
CLICK*CL0CK+P(RTR)+2b6| 
SLEEP([EVENTtPlMIX3 3»(NOT 0),[CF3)I 
IF TERMSETCP1MIX) THEN GO TO RETURNl 

*CS**(M[S3*(A&(T*EVENTCP1MIX3)[CTC3) OR M) )&T [ FTF 3 ) , 

[CFJsO THEN T,tFF3*[EVENTCPlMlX33l 

[PIMIXJ*T| 

NE*S,tPFJl 
Ml 

3*PR0CTlMEtPIMlX3-»-CL0CK + P(RTR); 
RETURN 

FORWARD I 

UTSC AN( MODE » SOURCE »DEST»NUM» FLAGS) I 

MfFLAGSl 

DE # SOURCE »DEST#NUM» FLAGS! 

RAN960(ADR»NUM»TYPE»LCC»B)I 

»NUM#TYPE»LCCJ 

#NUM»TYPE»LCC»B| 

(A)l VALUE Al REAL AS FORWARDI 

LY 

RANBIDS(ADR»NUM»TYPE»B»C)I 

TYPEI REAL ADR»NUM. TYPE* B. C I FORWARDI 

RANTC(ADR»NUM»TYPE»B»C)I 

TYPE! REAL ADR» NUM# TYPE» B » C I FORWARDI 



03050000 
03051000 
03051100 
03052000 
03053000 
03054000 
03055000 
03056000 
03056500 
03057000 
03Q5M00 
03057200 
03057300 
03057500 
03056000 
03058100 
03056200 
03058500 
03058600 
03059000 
03060000 
03061000 
03062000 
03062100 
03062200 
03062300 
03062400 
03063000 
03063500 
03064000 
03064500 
03065000 
03065500 
03065600 
03066000 
03066200 
03066500 
03067000 
03067100 
03067200 
03067300 
03067400 
03067500 
03068000 
03069000 
03070000 
03071000 
03072000 
03073000 
03074000 
03075000 
03076000 
030?7000 
03078000 
03079000 
03079990 
03080000 
03080100 
03080200 
03060300 



S POP OMIT 

i SET OMIT » 

PROCEDURE RUN 

SAVE PROCEDUR 

ARRAY ARGHt*] 

DEFINE SEPTIC 

SEPTIC 

$ POP OMIT 

PROCEDURE MA 

PROCEDURE CO 

BEGI 



NOT SEPTICTANK 

SEPTIC(BUFF)! VA 

E DlSPOSAL(L» I»R)! VA 
I 

SIZE • bOOf» % 

EOF ■ 249#> % 



LUE BUFFI REAL BUFF! FORWARD* 
LUE L>I#K! REAL L»I»R! FORWARD! 

SEPTICS1ZE MUST BE A MULTIPLE OF 2 
AND SEPTICEOF « SEPTICSJZE/2 - 1 



10JI) + 4»64»5) + 4l 
AKEPRESENTUU INX 1)1 



END! 
PROCEDURE RE 
VALU 
REAL 
BEGI 



KEPRESENTCA)! VALUE A! REAL A* FORWARD* 

MM9J 

N REAL I»*5! 

REAL L*-7| 

REAL ARRAY A»-6(*ll 

L0GLINE*L! 

l»«GETSPACECCLl B A t C8l 

IF NOT A,t2lU THEN M 

MOV£CL*A*I)J 

CCAR0<U26I3I43I5]>» 

GO TO RETURN! 

P0RTBACK(WHY»P1»P2)I 
E WHY#PltP2l 

WHY»P1#P2! 
N REAL Tl 
IF L0GLINE.t33l7)*0 T 
BEGIN M[T*GETAREAC(P2 
M[T+1 J*WHY! 
MtT+2l*XCL0CK+P(RTR)! 
M[T*3)*PU 
IF P2>0 THEN MOV 
QUEVENT(T»CANDEM 
END! 



HEN 
>0)x2)J,[FF3*LOGLINE! 



E(10#P2»T>4) ELSE M[T+4]*P2! 
IXtLOGLINE.CflOJB]])! 



END! 
PROCEDURE TWX 
VALU 
REAL 
BEGI 
* SET OMIT » 



$ POP OMIT 

DEFI 

SUBROUTIN 

BEGI 



* SET OMIT m 

COUN 

* POP OMIT 

END! 



OUTCADR»NUM»TYPE»LL)l 
E ADR#NUM»TYPE»LL! 

ADR»NUM»TYPE»LL! 
N LABEL START»EXITJ 

TWXQNLY 

LABEL BYEBYE! 
REAL OOP! 

REAL AiBfL»N»T»C>DJ 
NE TANKING«STATABLE[LL 
E HJTE! 

N DlSKWAlT(A»30*GLOMSl 
♦TANKADDRESS)J 

Nl»N*ll 

NOTCSTATISTICS) 
TUPU6.1)! 



J,OUTPUTANKING#! 

ZExLL+((L+N) AND NOT GLOMSIZE) 



M[A)»*0! 

IF (LLI»LL AND (-255) 
BEGIN B*SPACECNUM,[39 

STREAM(N1*NUM,[3 

BEGIN SI*ADR! Nl 

DS»N2 CHR! DS*LlT »*"! 

END! 

SPOUT(B)! 

PCXIT3 I 



) LEO THEN 
161+2)! 

6I6]»N2*NUM*ADR'B)I 
(DS»32 CHR! DS*32 CHR)! 



03080301 

03080990 
03081000 
03081100 
03081200 
03081300 
03081400 
03081910 
03099000 



03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 
03 



100000 
101000 
102000 
103000 
104000 
105000 
106000 
107000 
108000 
109000 
110000 
111000 
112000 
U3000 
114000 
115000 
116000 
117000 
118000 
119000 
120000 
121000 
122000 
123000 
124000 
125000 
126000 
127000 
127099 
127100 
127200 
127201 
128000 
128100 
129000 
130000 
131000 
131100 
131199 
131200 
131201 
131500 
132000 
133200 
133300 
133400 
133500 
133600 
133700 
133800 
133900 






if 



STARTS 



$ SET OMIT ■ 



$ POP OMIT 



t SET OMIT * 



$ POP OMIT 



tND> 

IF TERMSETCP1MIX) 
IF BREAKILL3 OR DI 
NOT STATABLEILLJ 
IF NUM GTR 184 THE 
IF LL LEO LMAX THE 
IF SCHEDLJNEULJ T 
BEGIN IF STATABLE[ 

SCHEDIOCNUM.T 

P(XIT)I 

end; 

if not remote then 

if not(tanks[llj), 

SLEEP([TANKS 
Tl*TANKStLL3»*ABS( 
A*T,[CFJ> 
Dl*T, CSOUSEJI 

L»»T.TANKL+D1 

TWXONLY 

IF STATABLEtLL3»ST 

BEGIN Dt"T*C14l 
Dt«(IF D 

END* 

IF D + 9 GEO GLOMSIZ 

BEGIN IF D + 6 GEO G 

IF NOT T.tlOl 

BEGIN M[(B*GE 

MCB1*0&1 

Ti«TANKS 

QUEVENT( 

end; 

if pco»rds)>f 

BEGIN TA 
SWA 
GO 
ENDI 
IF D GEO GIOMSIZE 
BEGIN CLICKl«CUOCK 
SLEEPUTANKSC 
IF TANKSCIU, 
BEGIN TANKS[ 
TWXONLY 

STATAB 



AND LL*ABSCSPOWORD) 

SCONNECTlNGtLLJ OR 

.DIALEDUP THEN P(XIT); 

N NUMIB184; X ■ 1 SEG AFTER 

N 

HEN 

LLJiDlALEDUP THEN 

ype»cadr&llcctf3>); 



pcxit); 

[1113 THEN 
ILLJJt'O); 
*P(DUP))J 



ATIONTYPE NEQ TWX THEN 
5J-TNA0G[SEQARRAYtLL3,[26i63 3, [H5J; 
< THEN GLOMSIZE ELSE 0) + D + T , [ SOUSE 3 



F. THEN 

LOMSIZE THEN 

11 THEN 

TAREA(0))+1J*10; 

0[16l41l7J|LL[25iftQl8JI 

[LL3tsT&l[10»47ll J; 

B»CANDEMIX[LINE3)J 

ENCE THEN 

NKS[LL3l»NABS(T)41l 11 147113; 
P{WAITSWAP»1)I 

TO start; 

THEN 

*1023; TANKSUL3I»NABSC*P(DUP)); 

LL33»0&CNOr T)[14I14|533; 

tl4U93*T,CJ4!l93 THEN 

LL3»*NABS(»PCDUPmOtl9J19ll4]J 

LE[LLJl*(*P(DUP))&0t23J23U3; 



% 



AT 
SET 



THIS 
OMIT 



PCX1T)I 

end; 

go to start; 
end; 
end; 
point data-comm droppings cohere to form a mighty extrusion 

• TWXONLY 

IF(DI*STATABLE[LL3 
IF(NUMl»OUTRANTC 
GO BYEBYE 
ELSE ELSE 
IF D NEQ TWX THEN 

IF(NUM»»0UTRANBIDS(ADR»NUM#TYPE»B»O) LSS 2 THEN 
GO BYEBYE 
ELSE ELSE 



♦STATIONTYPE) • TC500 THEN 
CA0RiNUM.TYPE»B»O) LSS 2 THEN 



03134000 

THEN GO TO RETURN; 03134100 

03134110 
03134120 
LINE F0LDING03134130 
03134140 
03134150 
03134200 
03134250 
03134300 
03134400 
03134500 
03135000 
03136000 
03136300 
03137000 
03140000 
03141000 
03141099 
03141100 
03141200 
+N;03141300 
03142000 
03142001 
03142100 
03142200 
03143000 
03143100 
03143200 
03143300 
03143400 
03143500 
03143600 
03144000 
03145000 
03146000 
03147000 
03148000 
03148100 
03148110 
03148120 
03148130 
03148139 
03148140 
03148141 
03148150 
03148160 
03148200 
03146300 
03149000 
03150000 
03169999 
03170000 
03170100 
03170200 
03170300 
03170400 
03170500 
03170600 
03170700 



S POP OMIT 03170701 

NUMl*0UTRAN980CADR»NUM*TYPE»L0NGCARRlAGE[LLJiB); 03170800 

IF NOT TANKING THEN 03178000 

IF CSTATABLE[LLJ.CCF]*0 03179000 

* SfcT OMIT * TWXONLY 03179090 

AND D*TWX) OR (D#TWX AND NOT ( SEQAKRAY[ LL ) , SELF CTEO ) 03179100 

S POP OMIT 03179101 

) THEN 03179900 

BEGIN IF NOT AREARDY THEN 03180000 

SLEEP UTOGLE]#AREARDYM ASK); 03180100 

$ SET OMIT * NOTCTWXONIY) 03180190 

DCWRITE(B»LL»NUM); 03180200 

GO TO EXIT; 03180225 

END; 03180259 

TANKING»«TRUE» 03180275 

$ SET OMIT * TWXONUY 03180290 

0OPl*DCWRITE(BilltNUM-(D*TWX))J 03180300 

IF D/TWX THEN C,t*7llJl«l ELSE GO TO EXIT; 03180350 

END* 03180400 

TANKINGI*N0T(00P); 03181000 

$ POP OMIT OMIT 03181010 

IF A*0 OR STATABLEtLLJtSWAPPED THEN 03182000 

BEGIN M[A*B-l3*NUM-i; RITE END ELSE 03183000 

BEGIN IF (Tl"MCA]|[CF3)*NUM GTR 232 THEN 03184000 

BEGIN 03185000 

$ SET OMJT m TWXONLY 03185090 

MtA]l"ABSC*P(DUF)>; 03185100 

* POP OMIT 03185101 

RITE; 03185500 

TJ«0; 03186000 

END; 03187000 

STREAM(Nl»sT.[4bl33»BfN3l*NUM»N2«»P(DUP).C40J2J» 03188000 

t SET OMIT m TWXONLY 03188390 

Xi«D»«(MCAJ»lllU AND C«C2|1]>* 03188400 

$ POP OMIT 03188401 

At*T,[39»6J+A*l); 03188500 

BEGIN DU*D1+Nl; SlJsB; 03189000 

$ SET OMJT • TWXONLY 03189090 

X(Sll*Sl+i; DIlaDlM)! 03190000 

S POP OMIT 03190001 

N2(DSI»32 CHR; DSJ«32 CHR); 03191000 

DSl»N3 CHR; 03192000 

END STREAM; 03193000 

$ SET OMIT « NQTCTWXONLY) 03193490 

MtA)l*T*NUM-i; 03193500 

$ POP OMIT 03193501 

$ SET OMIT m TWXONLY 03193990 

M[A]i«T+NUM-1-D-D; 03194000 

IF C OR (Ctt45Jl3 AND M[AltUFJ NEC 0) THEN 03194100 

BEGIN RITE; 03194200 

END ELSE M[A]l*C*PCDUP))&C[lllf 1JI 03194500 

S POP OMIT 03194501 

END; 03195000 

S SET OMIT m TWXONLY 03195090 

BYE6YEI IF C,[45ll] THEN *WE R GION DISCONECT U 03195100 

BEGIN IF A*Q OR STAT ABLEULJ , SWAPPED THEN A;*B-1; 03195150 

STATABLEtLL],tl6»Ul*0; 03195200 

stream(ai*a+d; dsi»2 lit leftarrow; 03195300 

m[ai»»i; rite; 03195400 

tankjngi*true; 03195500 



IF STATABLECLU.STATIONTYPE THEN 

TNA0G[SEQARRAY[LU.[26I6J JI«{*PCDUP))&U42H2I6JI 



END? 



S POP OMIT 
EXIT! 

S SET OMIT » 

S POP OMIT 

END 
PROCEDURE CL 
VALU 
BEGI 

* SET OMIT m 
t POP OMIT 



* SET OMIT * 

t POP OMIT 

t SET OMIT * 

$ POP OMIT 



ENDI 

REAL, PROCEDUR 

VALUE ADRi LI 

REAL ADRi LI 

BEGIN 

* SET OMIT 9 

REAL LBUF 

REAL BUF» 

IF NOT (P 

STATABL 

BEGIN 

BUFI 
(L 
BUFS 
DO 



F0RGETSPACEC6M)* 
TANKSULJlsNABSC*PCDUP)H<P(DUP).lSOUSEJ + N 

TWXONLY 

•OOP 

)C27i42i63l 

TWXOUT» 

EARTANK(LL#MCP)I 

E LL»MCP» REAL LLiMCPJ 

N REAL T» 

IF (LLI»LL. [40183) LEO LMAX THEN 

IF LL*0 OR SCHEDLINECLLJ THEN P(XlT)J 

TWXONLY 

IF STATABLECLL3,STATI0NTYPE«TWX THEN 

IF MCP THEN 

IF TANKSfLL], [SOUSEJ « THEN 

BEGIN STRFAM(AI*7-CL0CK,U0!2]»TI*(T»«GETAREACQ)m)» 

BEGIN A(DSl*LIT "<"); DSJ=LIT "*"* ENDI 

M[TJl»<*P(DUP))&LL[lOUOlB]| 

ENTERLINEQ(T#LL»0)J 

end; 

IF NOT TANKStLLl . C 1 1 1 i THEN 

SLEEPC[TANKS[LL33i-0)i 
Tl*TANKS[LL3«*ABS(*P(DUP))J 
IF T,[CF3#0 THEN 
IF M[T3#0 THEN 
BEGIN 
TWXONLY 

M[T3»«ABSC*P(DUP))J 

DISKWAIT(T,[CF]»30»GL0MSIZEXLL+(CT,TANKL+T,TANKN) 
AND NOT GLOMSIZEJ+TANKADDRESS)! 
NOTCSTATISTICS) 
C0UNTUPC16.DI 

MtT3i*0> 

STATABLE[LL),0UTPUTANK1NGI«U 

T «*J ; 
END ELSE T 1*01 
TANKS[LL]J«NABS(*P(DUP))&(P<DUP),[SOUSE3+T>[TANKNDIAL3» 

E DCWRlTE(ADRfLINE»SIZE)l 
NE» sue; 
NE» SIZE! 

NOT TWXONLY 
»FBUF1 

NTi»BUFSZwNT2»A»NT3> 
APERTAPE(LINF3 OR L0CKED[ LI NE 3 ) AND 
EUINE3.DIALEDUP THEN 

•IF SIZE<28 THEN ELSE 
INSTABLE [LINE 3, [61 33*1). [45«2 3 J 
ZIb(BUF OR P(DUP),[46I13)X28 ♦ 281 



03195600 
03195700 
03195900 
03195901 
03196000 
0319700ft 
03197090 
03197100 
03197110 
03197200 
03198000 
03200000 
03201000 
03202000 
03202600 
03202700 
03202799 
03202800 
032028Q1 
03203100 
03203200 
03203300 
03203400 
03203450 
03203500 
03203600 
03203900 
03204000 
03205000 
03206000 
03207000 
03207500 
03207599 
03207600 
03207601 
03208000 
03209000 
03209099 
03209100 
03209101 
03210000 
03210100 
03210200 
03211000 
03212000 
03213000 
03214000 
03214100 
03214200 
03214300 
03214900 
03215000 
03215100 
03215200 
03215250 
03215300 
03215400 
03215500 
03215600 
03215700 



->Ci 



u 



£' 



BEGIN 03215800 

STREAMCADRI Xl = IF SIZE>BUFSZ THEN BUFSZ ELSE SIZE* 03215900 

XU»P(DUP)>63» Zt»(AI«GETAREA(BUF))*ni 03216000 

BEGIN SI ;«AD«I 03216100 

Xi<DSl*32 CHRI DS»«32 CHR)I DS**X CHRI 03216200 

ADRi *S1 I 03216300 

END* 03216400 

ADR!«Pl 03216500 

IF LBUF#0 THFN M[ LBUF 3 I *C *P( DUP) )&A[ CTC 3 ELSE FBUFl*AI 03216600 

MtLBUFl»AJl»(*P(DUP))»LINE[10l40l8HLBUFtCTFJl 03216700 

END UNTIL (SIZEI-SIZE-BUFSZ) LEQ 0; 03216800 

M[LBUF3l«(*P{DUP))M[4»47tnj 03216900 

ENTERLINEQ(FBUF*LINE»0){ 03217000 

END! 03217100 

$ SET OMIT ■ TWXONLY 03217300 

REAL BUF*NTl*NR«NT2»A»NT3»D*NT4»DISC*NT5»CCNT»NT6»LTlNeNT7#LBUF»ABCl03217400 

REAL STYP»T#TN«PM#Pc*LM»LC»TEXTMD»LFC»NFC 8 NT7»S*PM| 03217500 

LABEL LINKEMIN#GNC»PNC»D0TC»POP,P0L»SENDJ 03217600 

LABEL IGNOREOUTPUT.GETANUTHERBUF* 03217700 

IF PAPERTAPEUINEJ OR L0CKEDCLINE3 OR 03217800 

NOT STATABLECLINEJ.OIALEDUP THEN GO I GNOREOUTPUT I 03217820 

BUFt«(CLTINI*LINETABLE[IF LINE GTR LMAX THEN ST AT ABLECL I NE 3 tLEENKER 03217900 

ELSE LINE]), [6133 * 1), [45123; 03218000 

IF SIZEM THEN BUFtsOl 03218100 

BUF1*BUF&C(P(DUP) OR PCDUP ) , [ 46 » 1 J ) * 28 + 28HCTF3I 03218200 

IF (STYP|»STATABLEtLINE],STATlONTYPE) NEQ TWX THEN 03218300 

BEGIN 03218400 

TNtsTNA0G[(Tl«TANKS[LlNEJ&(Sl*SEQAKRAYUlNE]H42j26|6J),t42t6J]| 03218500 

CCNTl*T»[19|8Jj 03218600 

END ELSE 03218700 

CCNT»*0» DISC »*t * 03218800 

DO 03218900 

BEGIN 03219000 

GETANUTHERBUFI IF DISC GTR 2 THEN BUF l«0&28[ C TF 3 ! 03219050 

Dl*(A»*GETAREA(BUF.[CF]))+U 03219100 

IF(NRl»ABC»*BUF,[FF3) GTR SIZE THEN NK|«SJZEJ 03219200 

IF STYP p TWX THEN XSPJTWX IT OUT 03219300 

BEGIN? 03219400 

STREAM(All*ADRl X»*NRt NR I »P< DUP) , [41 1 1 3 i D3I 03219500 

BEGIN SII»A1I NR(DSl«32 CHRI DSl*32 CHR)I 03219600 

DS»*X CHRI All*SI! 03219700 

END STREAM; 03219800 

ADRlap; 03219900 

GO LINKEM1N* 03219950 

END ELSE NR|*0J 03220000 

IF DISC»7 THEN GO POPJ 03220100 

IF SIZE » 1 THEN 03220200 

BEGINI 03220300 

STREAMCDISC««0IADR#HBITI«T,[12I13» 03220400 

E0TBITI»(P(DUP)»0) AND (DISC LSS 29),D)I 03220450 

BEGIN SllwADR; IF SC«LEFTARR0W THEN 03220500 

SIl«SI+ll IF SC"LEFTARROW THEN 03220600 

BEGIN TALLY|»28J 03220700 

E0TBIT(DSI"LIT "$"; TALLYt*29)| 03220750 

HBIT(DS««LIT "#"? TALLYl*5); 03220800 

DS|«LIT LEFTaRROW; 03220900 

ENDI 03221000 

DISCI«TALLY| 03221100 

END STREAM! 03221200 

IFCDJSC»*P) GTR THEN 03221300 



B 

END 
IF DIS 
BEGI 
ST 

DI 
GO 

END* 
IF NOT 

BEGI 
IF 
BE 

EN 
ST 



EGIN T,[12ll3l*FALSEI 

GO LINKEMINJ 
END) 

C * 3 THEN 
Nl 
REAM(D)I 

DSl»2 LIT "#«-"J 

SC««2J 
LINKEMJNI 



NOSEUI 



I TNI 



NEXl 



NEHPGI 
PYLON! 



T, [12113 
Nl 

NOT T.U3I1 

GIN M[tM|«GE 

LBUFl«LM& 

D) 

REAM(TNi*TN, 
(TN, 
STADl»S 
C3l*CPC 
MFH»»(L 
EOLl«(T 
ERASI»T 
TCI«CST 
TXT»»TE 
SEU«LM 
BEGIN 

ERASCJUMP 

MFHCSJ«*LOC 

DSl«LIT 

C2(DSl»L 

DSI^LIT 

DSl*2 LI 

DI l«DJ 

MFH(SI l«LOC 

DSl*LlT 

C2(DS»* 

C3(TC(J 

TC(SI IB 

IF T 

TNI w 

DSl»LIT """ 

TCCUUMP OUT 

ERAS(BID(DS 

BOP(JU 

B0P(DS|*2 L 

BIDCJUMP OU 

DSl»3 LIT " 

EOL(DSl*3 L 

TXTCDSULIT 

BOPUOII 

END HEADING S 

DI»Pl PM|»P 

IF STYP»TC500 

TNA0G[T,[42l 



THEN XTIME TOO 

XGET A-HEAD 

0)3l*0&LINE[10l40t83&2C5i43l5J* 

J»BOPl»CTEXTMDI« 

OR TN»[42I63)*0)» 
CDUP),l24ll3»C2l«S,[25ll3» 
,[24I13)» 
NEDlS»MULTI)t 
83+l«TN t [20l83). 
3>BID1»CSTYP»BIDS)# 
00). 
(STATABLEtLlNEJ t [23llJ)»D» 



3 THEN 
TAREA( 
LMCCTF 

[38110 
[28183 
»Cll*P 
DUP)#S 
TIN, LI 
N,[28l 

,[1311 
YP*TC5 
XTMDt* 
♦ 1)1 

UT TO 

STADI 
"$"j c 

IT "#" 
"Q")J 
T "K*" 

STADI 

LIT "* 
UMP OU 
LOC TN 
OGGLE 
TALLY! 
t 

TO PY 
1-3 LI 
MP OUT 
IT "-* 
T TO N 
C "I 
IT "3 

"#")J 

TREAMI 
I 

THEN * 
633l*( 



NOSEL)* 

sii«si+2; 

1(DSI«LIT "#">l DSlBCHRl 

)l DSl^CHR) C3(DSi»LIT "#»)| 

* SELECT MULTJ 
I % OR CONTENTION 

SH*SI+2l 
C1(DS|=LIT "»«">J DStsCHR* 
")l DSI*CHRl 

T 2 TO I TN> I DSI«LIT W #»)J 
I DSI«3 dec; 
THEN TALLYI«0 ELSE TAULYMU 

DSl»LIT "#"))! 

LON)J 

T "» "J JUMP OUT 2 TO NiX)j 

2 TO NEX)J DSt-3 LIT "1 ">l 
"J JUMP OUT TO NEWPG3J 
EWPG)I XDONT DO BACKSPACE FOR 



)l 



BIDS 



Tl 
AB 
ENDI 
IF STYP NEQ TC500 THEN 



*T&2[12t46l23l 
C|BABC-(D,[30I33&C 



UP TRANSMISSION NUMBER 
*P(OUP))*(lF PM THEN 1 ELSE 
P(DUP) f [36ll0J+l)[38l38ll03l 



D-A»nt30l33tl53)l 
XHEADINGOUT 
XBID FOR CONRAC 



FOR RETAILNG 



03221350 
03221400 
03221500 
03221600 
03221700 
03221800 
03222000 
03222100 
03222200 
03222300 
03222400 
03222500 
03222510 
03222520 
03222530 
03222540 
03222600 
03222620 
03222700 
03222750 
03222800 
03222850 
03222900 
03223000 
03223200 
03223250 
03223300 
03223350 
03223400 
03223500 
03223600 
03223700 
03223800 
03223850 
03223900 
03224000 
03224100 
03224200 
03224300 
03224400 
03224500 
03224600 
03224800 
03224900 
03224950 
03225000 
03225040 
03225050 
03225060 
03225100 
03225200 
03225300 
03225400 
03225500 
03225600 
03225700 
03225800 
03226000 
03226200 
03226300 



BEGIN 03226400 

NRtwQ] 03226450 

IF(PM|»TN,tl4|6J)«0 THEN GO DQTCj *MaX LINES/PAGE 03226500 

IFCUH|*TN,t20»8])*0 THEN GO DOTCI *MaX CHAR/LINE 03226600 

IF(PC»*TN,t42l63) GEO PM THEN GO POP| *LINES/PAGE 03226700 

JFCUC»*TN,t28l83) GEti LM THEN GO POLI XCHAR/LINE 03226800 

IF OISCONNECTINGfLlNE) THEN PCl*i; 03227000 

GNC» IF CCNT + NR GEO SIZE THEN GO SEND! 03227100 

IF TEXTMD THEN 03227200 

BEGIN 03227300 

STREAM(NCt*0#Ai»*ADR» 03227400 

MCI*CIF LM-LC LEO ABC-NR THEN LM-LC ELSE ABC*NR )03227500 

-1# 03227550 

MWI^P(OUP), 14111 J x 2»FCTl*LFC»Dll«D|)l 03227600 

BEGIN OltsDIJ Sll-All 03227650 

FCTCIF SC«' f » tw THEN JUMP OUT TO LASTOJ 03227700 

TALLY!«Oj FCTIsTALLY; 03227800 

mw(32(if sc*"*'" then 03227900 

BEGIN MCI»TALLY» TALLYI*0; MWt*TALLYJ 03228000 

JUMP OUT 2 TO LASTC; 03228100 

END ELSE DSl»CHRJ TALLY t »TALLY + 1 ) ) I 03228200 

MCCIF SC» w ^t ,, THEN JUMP OUT ELSE 03228300 

OSl«CHR» TALLY«»TALLY*1)J 03228400 

MCI»TALLYI 03228500 

LASTCI 01l»DIJ DII«LOC NO DI»*DI+7J 03228550 

DSI*CHR) All*5i; 03228600 

END STREAM; 03228650 

D»«PJ IFCLFCisP) THEN P(DELiDEL) 03228700 

ELSE NRli«P(32»x#4-*DUP#LC» + «,LCtSTD»NR#*)j 03228750 

END ELSE 03228800 

STREAMCNC«*0#AU*ADR*)J 03228900 

BEGIN SII'AIJ Dil»LOC NCJ 03229000 

DII«DI*7l DS»»CHR| A1«*SI; 03229100 

END STRFAMI 03229200 

ADR»*P; 03229300 

IF (NFC»«P) » 31 THEN GO SEND! XGROUP MARK 03229400 

IF TEXTMD THEN 03229500 

BEGIN 03229600 

IF NFC«60 THEN TEXTMD I "FALSE; XCHANGE MODE 03229700 

GO PNCI 03229600 

END ELSE 03229900 

IF(NFC«43 OR NFCM4) THEN XLF OR CRLF 03230000 

IF DISCONNECTINGUINEJ THEN 03230100 

BEGIN IF NF043 THEN NFC«*48J GO PNC END 03230200 

ELSE BEGIN IF STYP-BIDS THEN 03230500 

BEGIN tC 1*0; NFCI»43; END ELSE 03230600 

IF NFC*«4 THEN LCI»0; 03230700 

PC««PC+l; 03230600 

END 03230900 

ELSE IF NFO60 THEN TEXTMDi«TRUE *CHANGE MODE 03231000 

ELSE IFCNF04 OR NFC«58HHEN LCI*PCI*0 XHOMER 03231100 

ELSE IF NFC«29 THEN LCI»LCM ^BACKSPACE 03231200 

ELSE IF NFC«3 THEN PCIwPCM XREV LF 03231300 

ELSE IF NFC«2 THEN LCl»LC+i; XNON DES SPACE 03231400 

PNCI STREAM(NCI«NFCID); 03231500 

BEGIN SII»LOC Nc; Sl*«Sl+71 03231600 

DSI«CHRI NC 1*01 1 03231700 

END STREAM! 03231800 

QI«P; 03231900 

IF NFC»60 THFN LCl*LC+LFC 03232000 



ELSE IC»*LC*TEXTMD; 03232100 

NH««NR+U 03232200 

IF LC GEO LM OR PC GEO PM THEN 03232300 

BEGIN XTHERE IS A LINE FULLOFIT 03232400 

IF DlSCONNECTlNGtLINEJ THEN PC1»U 03232500 

lF(PCI»PC-fl) 03232600 

GEO PM THEN IND A PAGE 03232700 

BEGIN PC»»PM* JSFULLSOFIT 03232600 

IF NR*ABC THEN GO LINKEMJN 03232900 

ELSE 03233000 

POPl BEGIN; X5TUFF A BUFF IE.CETXIT) 03233100 

STREAM(Fll»(ABC-NR GEO (TEXTMD+5 ) ) l 03233200 

F2»*TEXTMD» 03233300 

F4l*CPC GEO PM).D)I 03233400 

BEGIN TALLYI*7; 03233450 

Fl( F2(DSl«LIT "#")1 03233500 

F4(DS»«3 LIT "4 "I 03233600 

JUMP OUT TO NEWPG); 03233700 

DS»»3 LIT "1 »; 03233800 

NEWPGI DSlwLlT w #"; TALLYJ*2); 03233900 

DSl'LIT LEFTARROW; FlfsTALLY; 03234000 

ENO STREAMI 03234100 

IF(0ISCl«P) a 2 THEN XSTUFFED AND BUFFED 03234200 

IF LC GEO LM THEN 03234300 

BEGIN! STREAMCA1 J*ADR»FRYl*TEXTMDl )> 03234400 

BEGIN SItsAU TALLYIMJ 03234500 

IF SC»LEFTARRON THEN 03234600 

FIREI BEGIN AU*TALLY; TALLY|*0» FRY»«TALLY ENDJ03234700 

FRYCIF SC*"*" THEN 03234800 

BEGIN SII"SI*lf TALLYl«2; 03234900 

IF SC*LEFTARROW THEN JUMP OUT TO FIRE 03235000 

ELSE 03235100 

PANI IF SC»"* H THEN 03235200 

BEGIN TALLY»»ll FRYC TALLY I "0 ) > 03235300 

FRY|*TALLYJ SIl«S!+lI 03235400 

GO TO PANI 03235500 

END ELSE TALLY;*i; 03235600 

END ELSE BEGIN TALLY«*0> FRY»*TALLY END; 03235700 

All*TALLYI TALLYlsH 03235800 

FRYCTALLYI*0)» 03235900 

FRYI»TALLY)I 03236000 

END STREAM! 03236100 

TEXTMDiwP* 03236200 

CCNT»«CCNT+PJ 03236300 

END ELSE IF(SUE-NR-CCNT) LEO 3 THEN 03236400 

CCNTI«SIZE-NRI 03236500 

GO LINKEMINI 03236800 

END END ELSE XPAGE NOT FULL 03236900 

POLI LC»*LC-LM) 03237200 

END; 03237300 

l.fcucif lfc then else <nfc»6q>>> 03237400 

if nr lss abc then go gnc 03237500 

else if ccnt + nr geo sue and nfc-60 then 032376q0 

disc i w7« go linkemini 03237650 

sfndi ccnt«*size-nr| 03237700 

if t. [s0use3 gtr 1 then 03237800 

begin; stream(d); dsi«lit leftarrowi 03237900 

END ELSE 03238000 

GO POP; 03238100 

END ELSF XTC500 03238300 



DOfCI BEGIN IF(NRl-ABC) GTR SIZE-CCNI THEN NR I «S 1 ZE-CCNT I 03238400 

STREAMCDISCI»1*A1I«A0RJ 3238500 

Xl»NR»NRl»P(DUP),[Mll)» 03238600 

LaSTBI«((CCNT+NR) GE« SIZE)* 03238700 

BUNGIT t»CABC-l GTR NR)# 03238750 

CRAMIT»*(ABC GTR NR)»D)> 03238600 

BEGIN SI I »A 1 J 03238850 

NRCDSl»32 CHR! DSl*32 CHR)> 03238900 

DS»«X CHR; 03239000 

LASTBCTALLY|«3; 03239100 

CRAMIKOSiaLIT "#"J 03239200 

BUNGIT(DS!*LIT LEFTARROW)! TALLY»*2); 03239300 

DISC«*TALLY)J 03239400 

AHpSII 03239450 

END STREAMI 03239500 

ADR t *Pi D I SC » "Pi 03239600 

END TC500J 03239700 

LINKEMINM 03239900 

MtAJ»*(*P(DUP))&LlNEtiOl40«8)&LBUF[CTF3; 03240000 

IF LBUF NEQ THEN Ml LBUF J l »( *P< DUP) )&A[ CTC J 03240100 

ELSE LBUF, IFF }!*AJ 03240200 

CCNT|»CCNT+NRJ 03240250 

LBUF«CCF3l*AJ 03240300 

IF STYP THEN 03240340 

TNl»TN&LC[28»40»8:UPC[42J42t6JI 3240360 

IF DISC GEQ 12 THEN M[ LBUF 3 I »( *P(DUp) )&d I SC [ 7 1 43* 3 J ; 03240380 

IFCDISC GEQ 3 AND DISC) THEN GO GET ANUTHERBUF I 03240400 

END UNTIL CCNT GEO SIZE OR DISC GTR 11 03240600 

M[LBUFJl*C*PCDUP)HDI$C£4U7»nj 03240650 

IF STYP NEO TWX THEN 03240700 

BEGIN 03240800 

IF CCNT LSS SIZE THEN 03240900 

Tl»T&CCNT[19l40l8] 03241000 

ELSE 03241100 

Tl«U(T,[SQUSE]-(P(DUP)*0)H19»34U4J& 03241200 

(T,tUl5)*l)CHl«3l5Jl 03241300 

IF MUBUF,[FF]J, (5153*2 THEN SEQARRAYC L I NE 3 J «NABS( *PC DUP ) ) I 03241350 

TANKS[LlNE]l*C*P(DUP))&Ttl3»13J20J& 0324 14Q0 

DISC(12I47I1JJ 03241500 

IF STYP THEN 03241530 

BEGIN TNAOGCT, C42«6]J|P(*P(DUP))&LCt28l40l8HPC[42»42l6j| 3241540 

STATABLE! LINE 3 J »( *P< DUP ) ) &TEXTMD[ 23 I 47 ll J J 03241550 

END; 03241560 

END! 03241600 

ENTERLlNEQ(LBUF,[FF3»LINEt0)i 03241700 

IGNOREOUTPUTI 03241800 

DCWRJTEI*TANKS[LINE3.tl9!143«*0 AND STYP#TWX| 03241870 

S POP OMIT OMIT 03241890 

END DCWRITINGJ 03241900 

PROCEDURE SPOSETCTYPE.BUFHJJ VALUE TYPE»BUFH; REAL TYPE»BUFH1 FORWARDI 03245900 

PROCEDURE QUITTER(LINE)! 03246000 

VALUE LINEI REAL LINE) 03246050 

BEGIN REAL RCWs+Ol 03246100 

REAL MIX#T#I»STA»S; 03246120 

ARRAY A[*3l 03246140 

LABEL EXIT»BSB»NRDONEJ 03246168 

STA*LINEiIFF3l 03247050 

IF L0CKEDCLINEl»LINEiCCF31 THEN COMPLEXSLEEPCNOT L0CKEDILINE3 ); 03247200 

IF (S*STATABLE[STA3)itl7UJ THEN GO TO EXIT; 03247350 

XSET QU1TN - QUITTER INTERLOCK 03247500 



S»Stl[l7l47ll]J 

IF CJ»S,[CF]}*0 THEN 

BEGIN XTHROWAWAY THE LINE QUEUE 

00 F0RGETAHEA((T*MCIJ) t [2iZJ»I) 
UNTIL (I»T.[CF)}«OI 
S*S&0[CTC]» 
ENO» 

IF (l!«UINETABUEtLINEJ)iCCFJ * THEN 
BEGIN ITHROWAWAY INPUT QUEUE 

LINETABLEtLINE3l«I8iOlCTCJl 
00 F0RGETAREA((Tt*MU)),[2l2J»I) 
UNTIL CIIsT,[FF33*0J 
ENOI 

M£T|*GETARtA(0)]!»C*P(DUP)H$TAC 10 » 40 1 8 J&1UJ47UJJ 
GIVEAWAY(T)! XQUEUE INPUTANK OELETE 
IF (II»LlNETABLECLlNE3).t21l5J * DISCON THEN 
IF CAN0EMIXISTA3 » THEN ELSE 
BEGIN 

MCT»GETAREA(0>]*(*PCDUP>)lSTA[l0l4Ql8H3[5U6l2]| 
STREAM( 
t SET OMIT * TWXONLY 

Al*I.LINEDlS#TWXi 
$ POP OMIT 

Tl*T+l)l 

BEGIN XQUEUE A BYE TO CANDE 
S SET OMIT * TWXONLY 

A(DSt*LlT" ,,,, lDSiaLIT M #")l 
t POP OMIT 

D5l*3 LIT W BYE M ; 
* SET OMIT ■ TWXONLY 

ACDSIR2 LIT "##*>J 
t POP OMIT 

DSl»LIT "*«| 
ENDI 

GIVEAWAY(T)> 
END ELSE 
$ SET OMjT p TWXONLY 

IF UMI.L1NEDIS) * MULTI THEN 
$ POP OMJT 
BEGIN 

Sl*S&CT««GETAREACO))tCTCJ» 
t SET OMIT * TWXONLY 

IF I * TWX THEN 

BEGIN XSENO OUT CARR, RET AND LINE FEED 
$ POP OMIT 

STREAM(Tt«T+l)i DSi»4 LIT "$<#♦»; 
M[TJ,14»13ipSTA * ABS(SPOwORD)i 
t SET OMIT * TWXONLY 
END ELSE 
BEGIN % CONTENTION SEND OUT EOT 

STREAM(TI»T+1)J DSI*2 LIT "$*"; 
M[TJ.l5l5J|*P0LLINGj 
END! 
S POP OMIT 
ENDI 
MIX*(STATABLEISTA]*S),MIXNR> 

IF DAT[MIX],NDSABLE OR C T MLSTATUSCL I NE3*BROKEN3 THEN 
BEGIN 

IF CANDEMIX[STAJ#MIX AND MlX#0 THEN 

BEGIN BREAK[STAJl«i; 



03247650 
03247800 
03247950 
03248100 
03248250 
03248400 
03248550 
03248700 
03248850 
03249000 
03249150 
03249300 
03249450 
03249500 
03249550 
03249600 
03249750 
03249900 
03250050 
03250200 
03250345 
03250350 
03250355 
03250500 
03250650 
03250795 
03250800 
03250805 
03250950 
03251095 
03251100 
03251105 
03251250 
03251400 
03251550 
03251700 
03251845 
03251850 
03251855 
03252000 
03252150 
03252295 
03252300 
03252450 
03252455 
03252600 
03252759 
03252895 
03252900 
03253050 
03253200 
032533S0 
03253500 
03253505 
03253650 
03253800 
03253950 
03254100 
03254250 
03254300 



IF TANKFUUSTAJ OR 1NPUTANKISTAJ.INPUTRLAOY THEN 

BRJNGBACK(MIX)J 

IF T THEN 

BEGIN 

IF NOT INPUTANKCSTAJ.CltU THEN 
SUEEPtt INPUTANKtSTAJ Jt"0)l 

INPUTANK[STAJl"(*P<DUPm0[10l«0i8HQU0M0l8)| 
END ELSE 

IF PAPERTAPE[STA3 THEN * QUEUE QUEST MARK 
BEGIN M[T|*GETAREA(0)J|«(*PCDUP))SSTAC10lAOf83 

STREAM( 

* SET OMIT « TWXONLY 

AjsLINEDISCILINE^TWX* 

* POP OMIT 

TI»T*1)| 
BEGIN 
S SET OMIT « TWXONLY 

A(DSI#LIT""";dSI«LIT h # w )1 

* POP OMIT 

S SET OMIT * TWXONLY 
I POP OMIT 



DS»*LJT MARK; 
A(0Sl*2 LIT "##">J 
OSIBLIT "*«J 



ENDI 

GJVEAWAYCT)) 
END* 
END 
END ELSE 

TERMINATECMIX & 6UCTF3); 

IF STA«ABSCSPOWORD) AND LSTATUS [L JNE J*BROKEN THEN 
BEGIN 

GO TO BSBJ 
END! 

IF STATABLECSTAl,OUTPUTANKING THEN 
BEGIN 

WHILE NOT TANKSCSTA3,C1«U DO 
SLEEPUTANKSCSTA33»-0)> 

STATABlElSTA],OUTPUTANKING I* Oi 

IF TANKStSTA]»t2l83 NEQ OR TAILOUT * STA THEN 

BEGIN 

T * 0) 

DO IIpT UNTIL (Tl»TANKSlT3,C2|8J)*STAI 
TANKStn,t2l8]|»TANKStSTA3iC2l6]| 
IF STA*TAIL0UT THEN TAIL0UT»«II 
ENO> 

IF TANKS[STA3»[l0ll3 THEN 
BEGIN MCCI*GETAREA(0))+1J*0I 

Mcni«0&STAtCTFHlOti8tflll73l 
QUEVENTCI.CANDEMIXCSTA])! 
ENDI 
END I 

Tl»TANKSCSTA3t«PCDUP»L0D»0»SSNt 1NX); 

IF T#0 AND NOT C STAT ABLEC STA ], SWAPPED ) THEN M[TJ»*QJ 
* SET OMJT m TWXONLY 

IF STATABLEtSTA3,STATlONTYPE • TC500 THEN 
TNAOGtSEQAHRAYtSTA3.[26l63 3l«(*P(DUP))&Otl»t»133 
EtSE IF(STATABLEtSTA3,STATlONTYPE * CONRAC PR 
STATABLEtSTA3,STATlONTYPE * BIDS) THEN 



03254400 
03254550 
03254700 
03254850 
03255001 
03255050 
03255150 
03255200 
03255300 
03255450 
03255600 
03255750 
03255895 
03255900 
03255905 
03256050 
03256200 
03256345 
03256350 
03256355 
03256500 
03256645 
03256650 
03256655 
03256800 
03256950 
03257100 
03257250 
03257400 
0325755ft 
03257700 
03257720 
03257740 
03257780 
03257808 
03257850 
03258000 
03258150 
03258300 
03258450 
03258600 
03258750 
03258900 
03259050 
03259200 
03259350 
03259500 
03259650 
03259800 
03259950 
03260100 
03260250 
03260400 
03260550 
03260600 
03260695 
03260700 
03260850 
03261000 
03261150 



BEGIN 03261300 

TNA0GISEfiAHRAY[STA],t26»6JJiP(*H(DUP)HPC0.XCHH14IH«H3; 03261450 

STATABLE[STA3l*C*PCDUP))&0[22l46l2Jj 326 1600 

END* 03261750 

S POP OMIT 03261755 

BSBI 03261600 

S SET OMIT * TWXQNLY 03261695 

IF LlNEDISCtLlNE]*TWX THEN SEQARRAY [ STA 3 t t 1» 13 I "0 ELSE 03261900 

t POP OMIT 03261905 

IF LSTATUS[LINEJ#BROKEN THEN SEOARRAYC STA } 1 sO J 03262050 

IP LSTATUSCLINE3 i DISCON THEN 03262200 

BEGIN 03262350 

STATABLEtSTA3l"(*P(DUP))*l[l6U7ilJ» %U I SCONNECT 1 NG 03262500 

QUITN[STAJ»*0J 03262580 

IF ABS(SPOWORD) * STA THEN GO TO NRDONEI 03262600 

Mm»GETAREA(0)}l«C+P<DUPm(STA& 3262650 

(CUSTATUSCtlNEJ»BR0KEN)+Ut36|46i2J)tCTFJl 03262800 

0UEVENT(T#CANDEMIX[LINEJ)J 03262950 

ENO ELSE 03263100 

BEGIN 03263250 

A ♦ [MCGETAREACl) + imSYSDISKRU8l38»10JJ X<9 WORDS LONG 03263400 

SYSDISKI0C3»-STA.A)J 03263550 

At03,DIAUEDUP»AC13*OI 03263700 

SYSDISKI0(0»-STA»A)J 03263650 

F0RGETAREA(1*A, [CF3-1)> 03264000 

S SET OMIT * TWXONLY 03264149 

IF LINEDlSCtLINEJwMULTl THEN SEOARRAYC STA J , C 3 1 1] l «1 i 03264150 

S POP OMIT 03264151 

STATABLE[STA]l*(*P(0UP)H0C14l47llH 03264300 

X RESET BREAK AND DISCONNECTING 03264450 

C(MIXI*P(DUP),MIXNR)bO OR MIX*CANDYINXH16f47UJJ 03264600 

IF STA*ABS(SP0W0RD> THEN SPOSET ( NABS( ) i ST A ) I 03265400 

END* 03265450 

NRDONEt 03265500 

UJNETABUEtUlNE3t«(*P(DUP))&( 03265550 

£ SET OMIT u TWXONLY 03265599 

IF P(DUP),UNEDIS*C0NTENTI0N THEN WAlUNGENQ ELSE 03265600 

S POP OMIT 03265601 

IDL) C21 t A3 I 5 J i 03265650 

ENTEREADYQ(STA); X XMIT NEW DATA» START A POLL FOR MULTIPOINT 03265700 

QUITNtSTAJlRO* 03265750 

EXITI 03265800 

KILL([RCH1 INX NOT 2)1 03265950 

END QUITTER; 03266000 

PROCEDURE DCWAIT(ADR#LINE»R»MASK»CLCK)I 03267000 j )/" / , ; A /T 

VALUE ADR»LINE»MASK»CLCKI 03267200 ( lAy /H < ' 

REAL ADR»LINE»MASKfCLCK| 03267400 

REAL Rl 03267600 

X 03267700 

X MASK ( (47|1J WAIT FOR AN INTERRUPT AFTER I/O COMPLETE. 03267710 

X C46»13 LOCK THE LINE FlRSTi 03267720 

X C45U3 WAIT FOR AN IDLE STATUS BEFORE LOCKING, 03267730 

X tlHl UNLOCK THE LINE WHEN DONE, 03267740 

X 03267750 

BEGIN REAL A.BJ 03267600 

LABEL TRYAGAINI 03268000 

IF LINE GTR LMAX THEN P(XIT)* 03268200 

IF MASK, [46113 THEN IF LOCKEDCLINEJ THEN 03268300 

TRYAGAINI CQMPLE*SLEEP< NOT LOCKED! L I NE 3 ) I 0326840* 

IF NOT L0CKEDCLINE3 THEN 03268500 



BEGIN 03268600 

IF MASK, [4511] THEN 03268700 

IF LINETABLEUlNE3,C21l23#l THEN 03268800 

BEGIN CLICK»*CL0CK+PCRTR)+320; * WAIT FOR IDL 03269000 

C0MPUEXSLEEPCLINETABLECL1NEJ.C 21 123-1)1 03269200 

IF LOCKEDtLINEJ THEN GO TRYAGAJN; 03269400 

END; 03270000 

LOCKEDUINEJIMI 03270200 

$ SET OMIT m TWXONLY 03270399 

IF WNED!SCIL1NEJ*TTY THEN SEOARRAYCL INE 3 . SELECTED « «i» 03270400 

$ POP OMIT 03270401 

IF (Bi»STATABLECUNE3),CCF3#0 THEN X THROW AWAY OUTPUT QUEUE 03270600 

BEGIN STATABLEUINEJI"B«0[CTCJI 03270800 

DO FORGETaREA((AI*MCB3),[2»23»B) UNTIL ( B I »A . [ CF 3 3*0? 03271000 

END* 03271100 

M[BI*GETAREAC0)J»*C*P(DUP)Hl(4«47ll3&LlNEU0!40»63j 3271200 

GIVEAWAY(B)! XQUEUE INPUT DELETE TO OLDWIERDHAROLD 03271300 

IF (Bl*LINETABLECLlNE3)iCCF1#0 THEN X THROW AWAY INPUT QUEUE 03271400 

BEGIN LINETABLELLINE3»*B&0[CTC3; 03271600 

DO F ORGETAREA((At»MtB3),l2»23»B) UNTIL C B ? «A. [ FF 3 )*0; 03271800 

END END! 03272000 

X 03272200 

R|«0J 03272400 

LSTATUSCLINE3l»IDLJ 03272600 

LINETABLElLlNE3,[CF3l«P(,R»LOD)J 03272800 

ENTERLINEQ(ADR»LINE.1)J 03273000 

CLICK|«CL0CK+PCRTR)+60I * SET 1 SECOND I/O MAX 03273100 

SLEEP(P(,R»LQD>t-0); 03273200 

IF MASK THEN X WAIT FOR INTERRUPT 03273400 

IF R.CCFS^ADR+l THEN X UNLESS I/O BOUNCED OR 03273600 

IF R.CCF3 # THEN * I T IS ALREADY BACK 03273800 

BEGIN R!»0; 03274000 

IF CLCK#Q THEN CLI CK l»CLOCK+PCRTR) + CLCK ; 03274200 

SLEEPCP(,R»L0D)f-0)» 03274400 

END; 03274600 

X 03274800 

IF MASK. [Ill] THEN X UNLOCK THE LINE 03275000 

BEGIN X RESET LOCKED* LSTATUS. INPUT QUEUE 03275200 

S SET OMIT * NOT(TWXONLY) 03275399 

LlNETABLEtLINE3l«ABSC*P(DUP))&OtCTC3&lDLI21l43J53; 3275400 

* POP OMIT 03275401 

$ SET OMIT * TWXONLY 03275599 

IF (LINETABLECLINE3l*ABSC*PCDUP))&OtCTC3&(IF PC DUP ) , L I NED I S 03275600 

"CONTENTION THEN WAITINGENQ ELSE I DD C 21 1 43 I 53 ) 03275800 

,LINEDIS#TWX THEN SEQARRAY [L I NE3 , G 1 1 43 1 »0* 03276000 

S POP OMIT 03276001 

END! 03276200 

STATABLE£LlNE3,tCF3l»0; 3276400 

END; 03276600 

REAL PROCEOURE INPUT SCANC MODE » SOURCE* DEST »NUM»FLAGS> ; 03276800 

VALUE NUMtFLAGS; 03277000 

REAL M0DE»S0URCE»DEST»NUM, FLAGS; Q3277200 

BEGIN INTEGER I»J»N; 03277400 

REAL U; 03277600 

REAL DATA»U+l»NOTEQ-DATA<-l»ASCII««NOTEQ+l»BSsDATA; 03277800 

REAL INPTSC»*1I 03278000 

LABEL AUT; 03278200 

X 03278400 

INPUTSCANI»DEST; 03278600 

Ul«NUM MOD 63; 03278800 



$ SET OMIT s TWXONLY 03278999 

IF FLAGS. [33|3]*TWX THEN 03279000 

P(M0DE«P(DUP),t3«ll]#P(XCH),[33ll3»FUAGS,(«7lU-l) ELSE 32/9200 

t POP OMIT 03279201 

P(FLAGS.[FF])? 03279400 

UlvFLAQS, [461111 03279600 

FOK IlaNUM DIV 63 STEP -1 UNTIL DO 03279800 

BEGIN 03280000 

IF (Nl*IF 1*0 THEN J ELSE 63) » THEN GO AUT; 03280200 

t SET OMIT * TWXONLY 03280399 

IF FLAGS, [33l3J*TWX THEN 03280400 

S POP OMIT 03280401 

STREAMCSOUKCE* DEST. M0DEl*4| Nt BS# U ) J 03260600 

BEGIN SllaSOURCEl DIt=DESTj 0328080i 

N(IF SC * »S" THEN 03281000 

BEGIN DESTI«DI> DII«LOC BSJ 03281200 

S0URCEI«SI> SI»»L0C DEST! 03281480 

IF 8 SC«DC THEN DII*DEST ELSE 03281600 

BEGIN DH-DESTI DIlsDl-1 ENDS 03281800 

SI««S0URCE» Sll»Sl+iJ 03282000 

END ELSE 03282200 

IF SC « "*" THEN 03282400 

BEGIN SIlsSI + U U(DS»*LIT"* W )J 03282600 

TALLY isll MODEJ'TALLYi 03282800 

JUMP OUT TO EXIT J 03283000 

END ELSE DS»sCHR)> 03283200 

EXITl DESTl *DI I S0URCEi*SI» 03283400 

$ SET OMIT * TWXONLY 03283599 

END 03283600 

ELSE 03283800 

BEGIN 03284000 

STREAM(S0URCE» DEST* M0DEl*4» DATA* NOTEQI ASCII. U» N)J 03284200 

BEGIN SII*SOURCEI DI iwDESTJ 03284400 

N(NOTEOCTALLYI«0; NOTEO * "TALLY I 03284600 

IF SC«"*" THEN JUMP OUT TO DSITJ 03284800 

DATACJUMP OUT TO Ll)J TALLYl*U 03285000 

Lit DATAI=TALLY» JUMP OUT TO L2); 03285200 

IF SC * "#"THEN 03285400 

BEGIN TALLYIMJ NOTEO»*TALLYj SIl«SI + U 0328560* 

ASCIIC0Sl«LIT"i« w 5l GO TO Ll 03285800 

END) 03286000 

L2l DATACJUMP OUT TO DSIT); 03286200 

IF SC • "#" THEN TALLY «* 1 ELSE 03286400 

IF SC ■ "«■" THEN TALLY J« 1 ELSE 03286600 

BEGIN ASCIICJUMP OUT TO DSIT) I 03286800 

IF SC*"-" THEN BEGIN SImSI + ll GO TO L END 03287000 

ELSE TALLY»»2J 03287200 

ENDI 03287400 

JUMP OUT TO SETALLY; 03287600 

DSITI DSl»CHR) 03287800 

Lt )l GO TO L3J 03288000 

SETALLYI SIt«SI*ll MODE I»TaLLY* UC DS t *LI T"*" ) I 03288200 

L3» SOURCEI»SII DESTl»DU 03288400 

ENDI 03288600 

NQTEQl«PJ 03288800 

P(DATAJ»P»P&Pt34l47« J J&NQTEQ[ 33 I 47 I 1J ) J 328900* 

S POP OMIT 03289001 

ENDJ 03289200 

PCCMODEJ»STD)l 03289408 

P«tDESTJ»STD)l 03289600 



PC [SOURCE J » STD) I 03289800 

IF MODE, [45 I1J THEN ELSE GO AUT1 03290000 

END! 03290200 

AUTI 03290400 

INPUT$CAN»«<DE$T,[30I3]«DEST[30»33U5J) - ( INPTSC . C 30 » 3 U 03290600 

INPTSCC 301 331 15] )l 03290600 

ENDI 03291000 

PROCEDURE C0MM13J 03292000 

BEGIN X INPUT TO NORMAL STATE JOBS ABOVE THE FENCE 03292200 

ARRAY A*-5[*]; 03292600 

REAL Nw6iD»T»Xt Ai#A2.A3tS0RC#Nl.N2j 03292800 

REAL M0DE»FLAGSJ 03292900 

LABEL START»NEXTSEG.READIT»EXIT; 03293000 

DEFINE COUNTEND * C45lU#; 03293200 

* 03293400 
% INPUTANKS IS NOT LOCKED - DONT LOSE CONTROL WHILE UPDATING IT 03293608 

* 03293800 
SUBROUTINE UPDATEINPUTANKj 03294000 
BEGIN 03294209 

WHILE NOT (X|«lNPUTANK[TJ),[tU J DO SLEEP( t I NPUTANK[ T 3 3 t -0) J 03294400 

IF MCAUfCFFl LEQ ( A3 I *SQRC , [ 30 I 3J& (SORC-A 1- 1 ) t 30 » 33 1 15] ) 03294600 

OR (MODE AND NOT ME A1 1 • C2l 13 > THEN % SEG IS EMPTY 03294700 

XlsX8,0t2«2!8H(X t !NPUTN-l)(40l40l8H<CX t INPUTL + l) 03295000 

AND NOT CLUMPSIZEH10I4018J 03295200 

ELSE XI«X&A3C2I40I8]I 03295400 

t SET OMIT * TWXONLY 03295599 

INPUTANKCT3l«X«M0DEt38l33t2]J 03295600 

* POP OMIT 03295601 
$ SET OMIT « NOT(TWXONLY) 03295799 

INPUTANKCTJ taXj 03295808 

S POP OMIT 03295801 

END; 03296000 

* 03296208 
STARTl 03296400 

IF TERMSET(PIMIX) THEN GO TO RETURN; 03296600 

IF LINEDISCt 03296756 

$ SET OMIT a TWXONLY 03296775 

DtMF CT»sL0GLlNE,t40i8J)>LMAX THEN ST AT ABLE [ T J , LEENKER ELSE T 03296800 

* SET OMIT m NOT TWXONLY 03296625 

Tt»L0GLlNE«[40t8J 03296850 

$ POP OMIT OMIT 03296875 

J * SCHED THEN 03296900 

BEGIN SCHEDJOCN»0»<*0*TCCTFHCAHCTCJ))J P(XIT); END; 03297000 

IF (X|«INPUTANK[T]) f INPUTN * THEN % NOTHING IN TANK 03297200 

BEGIN BREAKtT]l*0; 03297400 

IF N GTR THEN % SEND OUT OM IF NOT PT OR READ I N03297600 

* SET OMIT m TWXONLY 03297799 

IF NOTCPAPERTAPEtTJ OR P( L I NETABLEC D J »DUP ) . LI NED I S#MULT I AND 03297800 

P(XCH),[21«U) THEN 03298000 

S POP OMIT 03298001 

$ SET OMIT » NOTCTWXONLY) 03298199 

IF NOT (PAPERTAPECn OR L JNETABLE t T ) , [ 21 1 1] ) THEN 03296200 

$ POP OMIT 03296201 

BEGIN 03298400 

STREAM(X|*(X»*GETAREA(0))+1); 03298600 

BEGIN DSI*LIT"#"; DStsLlT MARK; END; 03298700 

TWX0UT(X+1,2,-0»LQGLINE); 03298800 

FORGETAREA(O.X); 03299000 

IF jNPUTANKtT), JNPUTN#0 THEN GO TO START; 03299200 _____ I 

END; 03299408 " ~ " 



INPUTANKCT3 f INPUTRCA0Yl»l J 3299600 

SWAP(WAlTSWAPtl)J 03299800 

GO TO START} 03300000 

ENDI 03300200 

% O330OA00 

N2l»(Nl*ABSCN))x8| 03300600 

Dl»A.tCn; 03300800 

STREAM(N»«N-1»A)I * BLANK OUT BUFFER 03301000 

BESIN DSl*8 LIT" " I SIt«AI DSl*N WUSI END? 0330J200 

SORU»(<AU"SPACE<30)) + X,[2»53)&X[30»7l33 + ll 3301400 

A3»*A2l 3 SPACEC30)l 03301600 

$ SET OMIT » TWXONLY 03301799 

FLAGSl»USTATABLE[T][33ll.0l3)40ATtPlMIXH«6l7ll]4A2tCTF3l 03301800 

MODE l«0&X[ 33* 38 123 ; 03302000 

S POP OMIT 03302001 

$ SET OMIT * NOT(TWXONLY) 03302199 

FLAGS|«UDAT[PlMIX3[46l7ll3&A2tCTF3l 03302200 

S POP OMIT 03302201 

NEXTSEG! 03302400 

* SET OMIT • NOT(STATISTKS) 03302599 

C0UNTUPC16»1)I 03302600 

t POP OMJT 03302601 

DISKWAIT<-A1»30»PR0GTANK+CLUMPSIZEXT+X,INPUTI)I 03302800 

NllMNPUTSCAN<MODEtSORC»A3i(M[Al],[FF3-X,t2«83)»FLAGS); 03307000 

X t * 1 F Nl GTR N2 THEN N2 ELSE Nil 03307200 

5TREAM(M|wX,[37l6JlNl"X,[43l5l»A2»D)l * MOVE DATA INTO 03307400 

BEGIN SI»*A2> X PROGRAM BUFFER 03307600 

M(DSt*32 CHR)I DSl*N CHHI 03307800 

Ml»DI> 03308000 

END) 03308200 

DI*PJ % SAVE WHERE WE ARE IN 03308400 

UPOATEINPUTANKl % CASE WE NEED MORE 03308600 

IF MODEtCOUNTEND THEN % SCAN STOPPED BY COUNT 03308800 

IF (N2MN2-N1) GTR THEN % MORE INPUT REQUIRED 03309000 

BEGIN SORCI*«Al + il 03309200 

A3l«A2! 03309400 

GO TO NEXTSEGJ 03309600 

END ELSE 03309800 

BEGIN % SCAN TO END OF MESSAGE 03310000 

READITI DISKWAITCAltSO.PROGTANK + CLUMPSIZExT + X^NPUTDl 03310200 

S SET OMIT » NOT(STATISTICS) 03310399 

C0UNTUPU6.1)! 03310400 

$ POP OMIT 03310401 

$ SET OMIT ■ TWXONLY 03310599 

IF STATABLEIT3,STATI0NTYPE»TWX THEN 03310600 

$ POP OMIT 03310601 

BEGIN 50RC1»AU100I * FORCES UPDATE1NPUTANK TO 03310600 

IF NOT MUIJ.MESSEND THEN * GO TO THE NEXT SEGMENT 03311000 

BEGIN UPDATEINPUTANKI 03311200 

GO READITI * NO END HERE * TRY NEXT 03311400 

ENDI * WE DO HAVE AN END 033H600 

IF NOT MCA1J. 12113 THEN X IF NOT PAPERTAPE SET 03312200 

BEGIN UPOATEINPUTANKl % POINTERS TO NEXT SEGMENT 03312400 

GO TO EXIT! 2! ELSE SCAN FOR * 03312600 

END ENDI 03312800 

$0RCI*A1*1J X RESET PARAMETERS TO 03313000 

A3l«A2l X SCAN FOR CR OR * 03313200 

Nlt*INPUTSCAN(M0DE»S0RC»A3»M[Al3,[FF3»FLAGS)l 03313400 

UPOATEINPUTANKl 03313600 

IF MODEiCOUNTEND THEN GO READITI X TRY AGAIN 03313800 



END OF HANDLING COUNTENDl 03314000 

EXIT! 03314200 

IF X.StOWDOWN THEN 03314400 

IF X.JNPUTN LSS ,5*CLUMPSIZE THEN 03314600 

$ SET OMIT . TWXONLY 03314799 

BEGIN 03314800 

IF STATABLEtT],STATlONTYPE * TwX THEN 03315000 

* POP OMIT 03315001 

BEGIN STREAMCA2)! 03315200 

DS|*15 LIT"C0NTJNUE TYPING"! 03315400 

TWX0UTCA2*15»1»L0GLINE)J 03315600 

$ SET OMIT s TWXONLY 03315999 

END ELSE TANK0K[T3l*0> 03316000 

S POP OMIT 03316001 

I NPUTANKCT J, SLOWDOWN «»0! 03316800 

ENDI 03317000 

F0RGETSPACECA1)! 03317200 

F0RGETSPACE(A2); 03317400 

END C0MM13I 03317600 

* 03333950 

PROCEDURE C0MM5J 03375000 

XDATACOMM INPUT COMMUNICATE FOR C&E* 033750&0 

XFORMAT OF DISK BUFFER WHICH OLDW IERDHAROLD WRITES ON DISK WHEN FUL03375100 

X LASTSEG -2b WORD SET BY IOFINISH WHEN DISK WRITE COMPLETE, 03375200 

X LASTSEG • 1 * DISK ADDRESS (DEKlMAL) 03375300 

X LASTSEGCO] « INFORMATION WORD WRITTEN ON DISK 03375400 

X [3 115] b RELATIVE DISK ADDRESS WITHIN THIS DISK CHUNK 03375600 

X [18U5J b LINK TO NEXT BUFFER 03375700 

X [4018] * NUMBER OF VALID WORDS IN THIS BUFFER SEGMENT 03375900 

% LASTSEGtlJ THRU LASTSEGC29J CONTAIN JNPUT MESSAGES, 03375950 

BEGIN 03377000 

ARRAY AB-6[*3> 03378000 

REAL T#U) 03379000 

ARRAY S « Tt*3; 03380000 

DEFINE FI0ADR»T-2f IXTHIS IS DIFFERENT FROM GLOBAL ONE OF SAME NAM03380100 

LABEL LOOPEND; 03380200 

IF (T*FIRSTSEG,tCFJ) ■ LASTSEG, tCF] THEN 03381000 

BEGIN 03382000 

CANDEINPUTREADY * FIRSTOFFSET * LASTOFFSET; 03383000 

IF CANDEINPUTREADY THEN 03384000 

BEGIN 03385000 

FOR U»»l STEP 1 UNTIL LMAX DO 03385015 

IF SCHEDLINECU] THEN 0338502* 

BEGIN IF STATABLEtUj.DlALEDUP THEN 03385025 

IF SEGARRAYtUJ LSS THEN 03385030 

BEGIN SEQARRAY[UJl»ABS(*P(DUP))J 03385040 

F0RK(P(,SCHED10)»(-U)#0»128fl)| 03385050 

GO TO LOOPEND! 03385060 

END! 03385070 

END ELSE GO TO LOOPENDl 03385080 

LOOPENDi 03385090 

IF(U*A,tCF])«T THEN GO TO RETURNl 03385100 

IF U > 1023 THEN FORGETSPACE (U-2) I 03385200 

MU.[FF]J*C*P(DUP))&T[CTCJ OR Ml 03385300 

GO TO RETURNl 03385400 

END! 03385500 

ENOI 03365600 

IF T * (T*A INX 0) THEN 03393000 

BEGIN 03394000 

IF A,t2ll] THEN 03395000 



BEGIN 

IF (MtFlOADRJ AND IQMASK) * THEN 
SLEEPUM[FlQADRn»lOMASK)J 

F0RGFTSPACECT»2)I 
END* 
M[A»CFF33 * (A & PC,FIRSTSEG»L0D)ICTC3) OR Hi 

end; 

FQRKCP( ,N0TIFYCANDE)»PlMIX»0»126t 1 j; 
GO TO RETURN; 
END C0MM5! 
PROCEDURE ENTERLINE«CADR»LINE»PRIRTY)| 
VALUE ADRfLINE#PRIRTY; 
REAL ADR*LINE#PRIRTYI 
BEGIN 

REAL A»B»SI 
LABEL TOIT; 
S*STATABLECLINE1I 

a*adr; 

IF PRIRTY THEN 
BEGIN XLINKJNFRONT 

WHILE P(M[ADR]»DUP)iCCFJ*0 DO ADR*Pl 
MCA0R3*PCXCH)&StCTC3; 
GO TQITl 
END) XNEXT IS LINK AT END 
IF S,[CFJ#0 THEN 
BEGIN 

WHILE P(MtS],DUP),CCF]#0 DO S*P| 
M[S}*P(XCH)&AtCTCJl 
END ELSE 
TOITI 

STATABLE[LINE3*S&A[CTC]I 
ENTEREADY«(LINE)> 
END ENTERLINEQl 

S SET OMIT ■ TWXONLY 
PROCEDURE NAKQUEI 

BEGIN % THIS STACK IS 64 WORDS LONG BE CAREFUL 
REAL E»I»S»TtV»KCW«+Ol LABEL LOOP! 
WHILE (Tl*SE8ARRAYCOJ>.U8«30J # o DO 
BEGIN 

WHILE CH»T,[FF3) * DO 
BEGIN SPLACE ENTRIES IN QUEUE IN 
TlwT&MC I 3 CCTF3 1 

IF STATABLECVlvMCI^l JJtSTATlONTYP 

BEGIN ITC500 NAK RETRANSMIT TJME 

MtI+2)l*(*P(DUP))*30l 

Et«(TNA0GtSEQARRAYCV],C26l6] 

(S»«P(DUP),£38U0J>>»0 THEN S 

END ELSE XFOR B9352 NAK RETRANSMI 

BEGIN ^INCREMENTS OF 3 SEC, FO 

MCI+23l*(*P(DUP))-KE»»(S»»SE 

,[9»3J * l)xl80l 
IF E#8 THEN SEQARRAY t V J |«S&E 
El«CTNAOG[S, C26»6JJI»C*PCDUR 
END! XNEXT - RESET TANK TO POINT 
EI»M(I*2]I Sl»tTJ,[CF]i XINSERT S 
WHILE (Vl»M[S3,[CF3)*0 AND MCV+23 
MCJ3.lCF3l»VI M[S3,tCF3»«H 
ENOJ XEND PUTTING IN LIST NOW TAKE OUT 
SmcLQCK ♦ P(RTR)J 
SEQARRAY[03l«T| 



WAKEUP TIME ORDER 



E«TC500 THEN 

IS NOW 1/2 SECOND 

3l»(*P(DUP))&(IF 

-1 ELSE 999)[38»38»103)J 

T TIME INCREASES IN 

R EACH SUCCESIVE NAK, 

QARRAYCVJ) 

C9I 45f 331 

))&0(26l28t203)l 

TO THE NAKKED MESSAGE 
TA IN TIME LIST 
LSS E DO SI*VI 



03396000 
03397000 
03398001 
03399000 
03400000 
03401000 
03403000 
03414000 
03415009 
03416000 
03417000 
03418000 
03419000 
03420000 
03421000 
03422000 
03423000 
03424000 
03425000 
03426000 
03427000 
03428000 
03429000 
03430000 
03431000 
03432000 
03433000 
03434000 
03435000 
03436000 
03437000 
03436000 
03439000 
03439995 
03440000 
03441000 
03441500 
03442000 
03442500 
03443000 
03443500 
03444000 
03444500 
03445000 
03445300 
03445400 
03445500 
03445600 
03445700 
03445800 
03445900 
03446000 
03446100 
03446200 
03448000 
03448500 
03449000 
03449500 
03450000 
03450500 



ZjCfeft'L lx '£ ( * 



,0/lttvcX 



LOOPt IF CE l*M[ C I l*T,[CFJ)+2J) LEQ S THEN XIS IT TIME TO TRY AGAIN 03451000 

BEGIN XYES, DELINK IT FROM THE TIMER QUEUE 03451500 

Vl*M[|+l)J 03452000 

Tl»SE«ARRAYl01l»TlM[I HCTCJl 03452500 

FORGETAREA(Ofl)! *NOW DETANK THE I/O AND TRY AGAIN, 03453000 

IF TANKLINEtVJaO AND TAILOUT/V THEN 03453500 

BEGIN 03454000 

TANKLINEUAILOUTJJsVf 03454500 

TAlLOUTl*Vj 03455000 

STARTWORKINGJ 03455500 

ENDI 03455800 

IF T,tCF3 * THEN GO LOQPJ 03455900 

END EUSE XNOW SLEEP UTHER TIME FOR NEXT STA OR 1/2 SEC (MiN) 03456000 

BEGIN CLICK |*IF E GTR (11*5 + 30) THEN I ELSE E> 03456100 

SLEEPC0.03I XWHEN SLEEP IS DONE GO BACK AND PLACE NEWLY 03456200 

END! END; XNAKKED STATIONS IN LIST AND WAKE UP THE ONES THAT CAN BE 03456300 

KILLCCRCWJ 1NX NOT 2)1 03456500 

END REMOVING STATIONS FROM NAKQUEJ 03457000 , -< 

PROCEDURE OCTIMEQUT(R)) VALUE Rl REAL RJ 03458000 ^ - - . r /) U [ 

BEGIN *THIS STACK IS 64 WORDS LONG BE CAREFUL 03458200 T~> f I //M & 

LABEL LEAV#LEAV1#TRY»F0RGET*EN01TI 03459000 ! ,- y U 

REAL L»C»S»T#RCW«+0; 03460000 

REAL SELTIMl 03460500 

Ll«Sl«R,[FFJl 03461000 

Rl'RitCFJI 03462000 

IF (TMLINETABLECL3),L!NEUIS* MULTI THEN 03463000 

BEGIN 03464000 

IF SELTIM|pT i C21»53 NEQ POLLTIMEOUT THEN 03465000 

SI»SE8ARRAY[LJ,C40I8J ELSE % SELECT TIMEOUT 03465500 

BEGIN XFIND WHICH STA TIMED OUT. IF ONLY ONE ON LINE IT DID IT 03466000 

IF SE8ARRAYtLJ,LlNELINK«L THEN GO LEAVU 03466500 

STREAMCR |*(R*1)» 1(32 1*71 DITl-CT 1)1 03467000 

BEGIN XLOOK FOR GRPMK IN CHARACTER AFTER EOT. 03468000 

Slt»Rl 03469000 

BCSIfuSI+SllF SC*"* W THEN Sl»»Sl+2* 03470000 

IF SC#"*" THEN R»«SI ELSE JUMP OUT)? 03471000 

SH*RIDSI«L1T "0"J XPUT ADOR CHARS IN T C2&3 POSIT) 03472000 

IF SC*"#" THEN XTALLY REFLECTS CASE CHANGE POSIT 03473000 

BEGIN XCASE CHANGE BEFORE THE FIRST ADDR CHAR 03474000 

TALLYIs2lSllwSl+li 03475000 

ENDJ 03475100 

DS«»CHRI 03475200 

IF SC«"*" THEN 03475300 

BEGIN XCASE CHANGE BEFORE THE SECOND ADDR CHAR 03475400 

SI l«SI+l> TALLY leTALLY+U 03475500 

ENDI 03475600 

DSl»CHR) 03475700 

RI*TaLLYJ 03476000 

ENDJ 03477000 

Tj«P&Tl34»6»12l; XPLACE IN FORMAT QF SEQARRA* [ 12 1 1 4 1 03478000 

DO IF P(SEQARRAY[S]*DUP),[12I14]#T THEN 03479000 

ELSE GO LEAV 03480000 

UNTIL (SI«P,LINELJNK)«LJ 03481000 

% CANT FIGURE IT OUT - POLL AGAIN 03481100 

FORGETAREA(MrR3,[2J2]»R)J 03481200 

SEQ.ARRAYa]l«(*PCDUP))&SE«ARRAYCSEQARRAYlLJ,[40l8J3 03481300 

C40I32I81I 03481500 

LSTATUSILJ|«IDLJ 03481700 

ENTEREADYQ(L)) 03481900 __________ 

GO ENDITI 03482000 



LEAVl PCDEL); Sf.QARRAYCLJ,tA0»8J»»S; 03483000 

END? 03484000 

UEAVll IF (CI»LINETABLE[UJ)»(CF3 * THEN 03484100 

IF NOT lOCKEDtLJ THEN 03484150 

BEGIN HNETABLEtL3l*C&OCCTC3l XTHROWAWAY INPUT QUEUE 03484200 

DO FQRGETAREACCTI=M[C3),12«2J>C) 03484300 

UNTIL, (CIsT.tCFJ) » 0) 03484400 

ENDJ 03484500 

IF DlSCONNECTINGtS) THEN GO TO TRY) 0348455f 

M[Cl«GETAREA(0)]|*(*P(DUP))&lt4»47in&SC10>40l8]; 03484600 

GIVEAWAYCOI *QUEUE A DEUETE TO CE IN CASE ANYTHING WAS SENT 03484700 

SEQARRAYCS]«»ABSC*P(DUP))&(TJ*P(DUP),[4l2j+l)[4l46l23; 3484800 

XTHE NEXT PART ATTEMPTS 10 FIND IF THE STA REALLY TIMED OUT 03484850 

IF T LSS 4 THEN 03484900 

BEGIN XTRY 3 TIMES TO SEE IF HE HAS GONE AWAY 03485000 

CLlCKlsCL0CK*P(RTR)+30J 3485100 

SLEEP(0»0)| XWAIT 1/2 SECOND BEFORE DOING ANYTHING 03485200 

SELTlMlsSEOARRAYtSJ, SELECTED AND SELTIMi 03485250 

M[RJJ»(*P(DUP))&C1+SELTIM)[4|42|6J&0[10I10I38J| 03485300 

STREAM(X|s5ELT!M.S»«Ct*SEQARRAY[S]»Tl*Ti*Cit24jl3» 03485400 

CI*C!*C,C25in»H<«T#C»Rl*R + !>J 03485500 

BEGIN XCOMPOSE A SINGLE POLL TO SEND OUT 03485600 

SU»L0C S>SUsSl+2!DS!»LIT "t M > 03485700 

T(DSl*LIT "*");DSl*CHR{ 03485800 

C(DSt*LIT "# H )»DSlsCHRl 03485900 

L(DS|*UIT w ** •» ) ; D S I * 3 LIT "P*«-"l 03486000 

XCDI $pOI*3I DSI»L1T "Q")| % SELECT INSTEAD 03486050 

END; XIF THIS POLL GETS A LEGIT RESPONSE THEN FAKE T,0, 03486100 

LSTATUS[L]I»IDL» 03486200 

ENTERLINEQ(R»S#1)J 03486300 

GO TO ENDITI 03486400 

END! XIF THIS TEST FAILS 3 TIMES HE IS DISCONNECTED 03486500 

TRYl SEQARRAYCS), t3|3Jl*4l 03486600 

ENO ELSE 03486800 

IF STATABLEtS], (16113 THEN % NOT BEING DISCONNECTED 03487000 

IF BLASTREAD(L#7) THEN 03487100 

IF (Tl«SEQARRAYtL]),I«in THEN SEQARRA Y C L3 t »T&0C 4 » 47 l 1 3 ELSE 03487200 

BEGIN SEfiARRAYtLJ|sNABS(T)&n4i47»l]; 03487300 

MtCI*GETAREA(0)3»?R&SELECTt5»43i5J&L[10l40;83? 3487400 

STREAM(C»»C+1»RI»R+1)J 03487500 

BEGIN DSlwLIT " nn l 0St"7 LIT "-*##*#*"; 03487600 

DI»*C> DS«»2 LIT "*♦"! 03487700 

END! 03487800 

M(R.)|B(*PCDUP))&0(4MI44UL[10I40I8 3 J 3487900 

ENTERLINEQ(C»L#1)J 03488000 

GO TO ENDITI 03488100 

END 03488200 

ELSE GO FORGETI % BLASTREAD FAILED 03488250 

IF (TtaSTATABLE[S3),DIALEDUP THEN 03488300 

BEGIN 03489000 

IF CANDYINX#0 THEN 03490000 

BEGIN 03491000 

MCRjl»(*P(DUPmO[4|4|44J& 03492000 

CS46[33j41|7J)(CTF]J 03493000 

QUEVENT(R#CANDEMIX[SJ)J 03494000 

END ELSE F0RGETAREA(M[R3»C2»2J»R)I 03495000 

STATABLEtS3l«U0n5«46l2J| 03496000 

LSTATUStLJl«DISCONJ 03497000 

F0RK(p(,QUlTTER)iL«iS[CTF3»'"2#96»l)| 03498000 

END ELSE 03499000 



BEGIN 



IF T*MUL 
FORGET! FQRGETARE 

ENDI 
ENDITI 

KILLURCW3 IN 
END DCTJMEOUTJ 

$ POP OMIT 

PROCEDURE NOTIFYC 

BEGIN ARRAY S 

REAL TsS 

IF (DISK 

BEGIN 

MCT 
M[T 

QUE 
DIS 

end; 

IF (M[FJ 
Sl*[MCFI 
DISKIOCS 
S SET OMIT * NOT 
COUNTUPC 
t POP OMIT 

MtTfPGET 
MCT + Ul* 
MCTf23»» 
M(T+3)|« 
OUEVENTC 
IF (UAST 
BEGIN 

FIR 
END ELSE 
BEGIN 

FIR 
F IR 
ENDI 

K1LLCCRC 

END NOTIFYCANDE 

PROCEDURE PAPERTA 

VALUE RiSTA.FLAGS 

REAL R.STA. FLAGS 

BEGIN LABEL READI 

DEFINE DELETE 

REAL TEMP»J»X 

SUBROUTINE PA 

BEGIN 

S SET OMIT » NOT 

COUNTUPC 

$ POP OMIT 

DISKIOCM 
C 
A 
INPUTANK 
IF INPUT 
BEGIN BR 

J, I 

ENDI 



LINETABLE[Lll*(*PCDUP))&(IF (T»»P(DUP),LINEDIS J /CONTENT ION 
THEN IDL ELSE WA I T I NGENQ )[ 21 143 « 5 ] I 
TI AND SEQARRAYCLj,[32l8J#L THEN ENTEREADYO( L) » 
A(M[RJ,[2l2]#R)J 



X NOT 2)1 



ANDEI 

C*jl 

»RCWb+0| 

ADRl»DlSKADR + FIRST$EGlO].[imi) GEO TANKCHUNKS I ZE T 

t»GETAREA(0) Jl»(*P(DUP))l5tlBUH7]l 

♦Ul*BASEDISKADR»»GETUSERDISKC-TANKCHUNKSIZE)» 

VENT(T»CANDYINX)| 

KADR««Ol 

OADRJ AND IOMASK)«0 THEN SLEEP ( t MCF I OADR J ) • I OMASK) | 

OADRJJl 

#FIRSTSEG,tCF ]- J » 30» BASEDI SKADR + D I SKADK ) I 

(STATISTICS) 

I6t 1)1 

AREA(0)]|s(*p(DUP))&7tl8»4H7]J 

FIRSTOFFSETI 

FIRSTSEGC03 t [40l8J-FlRST0FFSET*ll 

DISKADRI 

T#CANDYINX)| 

SEG INX 0) « (FIRSTSEG INX 0) THEN 

STOFFSET * LASTOFFSETI 



STOFFSET *■ II 

STSEG.tCFJ ' FIRSTSEGIQMFFJJ 

W] INX NOT 2)1 
I 

PEIO(R»STA»FLAGS*BUFSZiMl)| % HANDLES END OF MESSAGE 

»BUFSZ.Mn 
*BUFSZ*Mp 
TI 

• [4tU#S 
I 
PERTAPEOISKIOI 

(STATISTICS) 
16*1)1 

CR»2]»R-l»(X+n DIV 8 ♦ 1»PR0GTANK+ 

LUMPSIZExSTA+(((X|*J,JNPUTN+TEMP,tlO{83)+J.INPUTL) 

ND NOT CLUMPSIZE))! 

CSTA3»BABS(J»»J*(X+1)C40J40JBJ)I 

ANKfSTA],lNPUTREADY THEN 

INGBACK(STATABLE[STA],MIXNR)I 

NPUTREADYl*0| 



03499100 
03499300 
03499400 
03499450 
03499475 
03499500 
03500000 
03501000 
03502000 
03502005 
03504000 
03505000 
03506000 
HEN03507000 
03508000 
03509000 
03510000 
03511000 
03512000 
03513000 
03514000 
03515000 
03516000 
03516099 
03516100 
03516101 
03517000 
03518000 
03519000 
03520000 
03521000 
03537000 
03538000 
03542000 
03543000 
03544000 
03545000 
03546000 
03547000 
03548000 
0354900D 
03550000 
03550100 
03550200 
03550300 
03550400 
0355050ft 
03550600 
03550700 
03550709 
0355071© 
03550711 
03550600 
03550900 
03551000 
03551100 
03551200 
03551300 
03551400 
03551500 



kjO 




?ft 




% 




\o 



Mt R-33 , t 10 t 8 3 t 901 * RESET DELETE POINTER 

IF CX|*TEMP,tCr3-2) GTR THEN 
BEGIN M[X-13l»M[R-33J 

IF (M[XJ AND I0MASK)*0 THEN SLEEP( [M[ X 3 3 » 10MASK ) J 

end; 



end; 



Jl*lNPUTANK[STAJ; 
TEMP|«M[Rj; 

IF MI, DELETE THEN 

BEGIN IF CX|«MCR-3J>*0 THEN ELSE 

IF TEMP, tCF 3#0 THEN 

IF <X|«M[R-3J!*M[TEMP,[CF]* 



READITI IF 
* SET OMIT 



X DELETE - RESET PTRS TO PREV MESS 
GO READITJ * WE HAVE A PREV MESS 
X TRY THE OTHER AREA 
3J)#0 THEN X IF THERE IS ONE. 



THEN 



X ETX IN A PREVOIUS SEG 



X,[10l8i#TEMP,C10l8J 
* NOTCSTATISTICS) 
BEGIN C0UNTUP(16.1)I 

* POP OMIT 

DlSKWAlT(-R#30»PR0GTANKfCLUMPSlZExSTA+(J.lNPUTN+J,INPUTL+ 
X f [10l83) AND NOT CLUMPSIZE); 

* SET OMIT * NOTCSTATISTICS) 

ENDJ 

* POP OMIT 

MtR]|»(#PCDUP))&XtiOJlOt23J; * REST TO PREVIOUS * 

pcxmj 

end; 
INputank[staJ?»abs(J); 

STREAM(A»*(P(TEMP,[FF3-BUFSZiDUP),[33ll2J+R4-l)&P(XCH)[30i45»3] 1)J 
BEGIN SII*A; X FIND THE LEFT ARROW 

Lt IF SC#"*" THEN BEGIN SllaSl+1* GO TO L END* 
A I =S r ; 

END? 

Xl«PCDUP),t30l33&CPCXCH)-RM)[30»33il5J*ll 

M[R"33MMtR]l«TEMP&X[CTF]l X SET CHAR COUNT TO * AND 

IF TEMP,[CF3*0 THEN Mt TEMP , [ CF 3-3] I *M[RJ J % SAVE FOR DELETE 

IF FLA6S«4 THEN X QUESTION MARK - END OF PAPER TAPE 



begin papertapediskioj 

if x gtr then forgetspacec x ) ; 
sleepumcr-2]]»i0mask)| 

f0rgetspace(r-2)i 
papertapecsta)i*falsej 

t SET OMIT ■ TWXONLY 

IF STATABLE[STA],STATlONTYPE«TWX 
S POP OMIT 

TWX0UTC0»0»1»STA) 
END ELSE X 

IF TEMP, [10183 GEO CLUMPSIZE DIV 2 
BEGIN PAPERTAPEDISKIOI 

J,[FF3l»X+2) 

M[X*2]|«QtR[CTCUl[2l4riUJ 
END ELSE J,CFFJI"RI 
INPUTANK[STA3»«NABS(J)I 
PAPERTAPEIOl 



X WRITE IT. SWAP AND UP TANK 

X FORGET THE PREVIOUS BUFFER 

X WAIT FOR CURRENT I/O THEN 

X FORGET THE BUFFER 



THEN 



NOT END 
THEN 
X 

% 



- TEST FOR SWAP IN 



WRITE IT OUT. SWAPf 
REUSE OLD ARRAY 



UP TANK 



X RESET TO CURRENT BUFFER 



END 
X 

X 

X 
X 
X 

X 

PROCEDURE HELLOCK); 

VALUE KJ REAL Kj 



HELLO SENDS OUT THE 
TO MARK THE STATION 
LINE ESTABLISHMENT, 
SITE. THE DELAY CAN 



HEADING 
ACTIVE, 
IF THIS 



TO 
IT 
IS 



BE CHANGED 



A NEW 

WAITS 

TOO LONG OR 

BY CHANGING 



USER AND UPDATES SYSTEM/DISK 
7 SECONDS TO ALLOW SUCCESSFUL 
TOO SHORT FOR A GIVEN 
THE LITERAL AT 03590100, 



03551550 
03551600 
03551650 
03551700 
03551750 
03551800 
03551900 

0355200Q 

03552100 

03552200 

03552300 

03552400 

03552500 

03552600 

03552689 

03552690 

03552691 

03552700 

03552800 

03552809 

0355261» 

03552811 

03552900 

03553000 

03553100 

03553200 

03553300 

03553400 

03553500 

03553600 

03553700 

03553800 

03553900 

03554000 

03554100 

03554200 

03554300 

03554400 

03554500 

03554600 

03554699 

03554700 

03554701 

03554800 

03555200 

03555300 

03555400 

03555500 

03555600 

03555700 

03555800 

03555900 

03572000 

03572100 

03572200 

03572300 

03572400 

03572500 

03573000 

03574000 





BEGIN REAL I»J»L»V.B> 
REAL RCW*+OJ 
ARRAY A«B[*]| 
IF NQT(LINETABLECJ»«M[K 

IF UI«M(K3 + 
446 

) GTR CLOCK+PCRTR) 
BEGIN 

CLI CK* 1 1 
SLEEP(0»0)> 
ENDI 

IF DISCONNECTINGU »*MIK 
SLEEPUSTATABLEUJJtPOO 
XBE SURE WE ARE THRU DI 
CONNECTCDJ IMARK DIALE 
STREAM (TU*CL»wL I NE TABLE 
L I N E | » I » QQQ»bB!»G 
BEGIN 

DS|*24 LIT"-*#B550 
SI»«LOC TU; DSl«2 
DSMO LIT "» STATI 
0Si*4 LIT "#-*«-"; 

end; 

THX0UT(B»63»0t3CH46i2] 
% NEXT LET CANDE IN ON 
IF CANDYINX * THEN 
BEGIN 

M[Vl»GETAREA(Q)Jl» 
M[V+23l«STATABLECI 
OUEVENT(V#CANDEMIX 
END ELSE 
BEGIN STREAM(B)* 

USl»27 LIT W CANDE I 
TWX0UT(B»27#1»I); 
END* 

A »* iOQUE&BtCTCUSYSDI 
SYSDISKI0(3»-I#A)/ 
ACOJ.DIALEDUP •■ U 
SYSDISKIO(0»-l»A)» 
F0RGETAREA<1»A,[CFJM)J 
FORGETAREA(0#K)> 
KILLJURCW] INX NOT 2)1 

AROLDJ 
NGF AND 
USEFUL, 



+23J.DIRECTLINE) THEN 

% DELAY IN 64-THS, DEFAULT' 

THEN 



+ 1H THEN 
00020000000000){ 
SCONNECTING PREVIOUS USER 
D UP AND ATTACH TO CANDE 
[J)).[9M]»BU*L,[Hl4Jt 

ETAREA(i) + ni 

TIME SHARING - "J 

DEC* DSf»LlTV"J DS»*2 DEC* 

ON ")DS*2 DEO 



• 1)1 

WHATS HAPPENING 



(*PCDUP))&(UU33|4li7 3)tCTF3; 
J,tlO»3]J ISTATION TYPE 
[I J); 



S DOWN.,, PLEASE WAIT"; 



SKRLC8I38U0JJ * < 9 WORDS LONG 



XUPDATE SYSTEM DISK 





THEM 



END HELLOi 
PROCEDURE OLD! 
X DOES MAN 
% SOME OF 
BEGIN 

REAL RCW ■ +0J 
REAL STAI 

REAL H»I»J»KfRiS»T»Tl»STATAB»SOUR 
S SET OMIT » TWXONLY 

BOOLEAN UPQFLAGf 
* POP OMIT 

REAL M0DE*K#BUF5Z*T| 
DEFINE CREND » t46tU#» 

DISKOONE « 

DELETE ■ 

COUNTEND « 

PAPERTAPE * 



WONDEROUS THINGS, 



* FIRST SO C0M5 CAN FIND IT 
CE»NUM»FLAGSI 



(H+31)#» 
[4lllli 

[45in#; 

(STATAB LSS 



0)#) 



DEFINE 

LABEL RESTART#START,LOOP,DELL»CE»AGAlN»PT,DELINKIT> 



03575000 
03576000 
03577000 
03589000 
03590000 
SECS03590100 
03590200 
03591000 
03592000 
03593001 
03594000 
03595000 
03595500 
03595519 
03595520 
03595530 
03595540 
03595558 
03595560 
03595570 
03595580 
03595590 
03595600 
0359562* 
03595630 
03595640 
03595650 
03595660 
03595670 
03595681 
03595690 
03595750 
03595800 
03595900 
03596001 
03596100 
03596200 
03596300 
03596400 
03596500 
03598000 
03598200 
03599000 
03608000 
03609000 
03610000 
03611000 
03612000 
03612100 
03613000 
03613099 
03613100 
03613101 
03614000 
03614100 
03614200 
03614300 
03614400 
03614500 
03615000 



S SET OMIT ■ TWXONLY 03615099 

LABEL NORMALQ«CR*SCANITJ 03615100 

S POP OMIT 03615101 

LABEL FORGlTtDISCARDJ 03615200 

SUBROUTINE UPQJ 03616000 

t SET OMIT * TWXONLY 03616099 

BEGIN IF UPQFLAG THEN * SCANNING 30 WORD ARRAYS 03616100 

BEGIN FORGETSPACECI-2)) 03616200 

IF CI»sMtI3,CCF3)«0 THEN % LAST ARRAY 03616300 

BEGIN UPQFLAGI*0* % RESET FLAGS AND I 03616400 

M0DE**1* XMAKE SURE WE STOP 03616430 

GO TO NORMALQ; 03616500 

END* 03616600 

BUF5ZI»MCI3,[FFJI * NUM OF CHARS IN ARRAY 03616700 

END ELSE * DATACOM INPUT BUFFERS 03616800 

$ POP OMIT 03616801 

BEGIN INPUTANKCSTAl I •C*PCDUP))|CM[ 13, 14*23^0) C3b|«ri 1)1 03616900 

WORKERINQ, C C F 3 I *M C U , t C F 3 1 03617000 

FORGETAREACM[l3tC2l2J*I3J 03617100 

t SET OMIT m NOT(TWXONLY) 03617199 

SOURCE «*( I t -WORKER INQ,CCF))*1* 03617200 

END* 03617300 

* POP OMIT 03617301 

* SET OMIT » TWXONLY 03617399 
NORMALQl II*W0RKERINQ,[CF ]* 03617400 

END* 03617500 

SOURCE 1*1*1* 03617600 

TllsO* X SET SOURCE CHARS SCANNED 03617700 

END* 03617800 

* 03617900 
SUBROUTINE SCAN1NPUT* * SCANS INPUT FOR CANDE 03618000 
BEGIN * Ti JS SOURCE CHARS SCANNED 03618100 

NUM | »NUM+ I NPUTSC AN ( MODE t SOURCE »J»BUFSZ»T1» FLAGS)* 03618200 

Tl HSOURCE « E30I 33 1 (SOURCE ttCF 3* IMH 301 331 1531 3618300 

END) 03618400 

S POP OMIT 03618401 

* 03618500 
SUBROUTINE GETANOTHER* 03618600 
BEGIN % Tl IS OLD OBJ JOB BUFFER 03618700 

INPUTANK£STA3.[FF)»«RI«(IF Tl GTR THEN Tl ELSE SPACEC 32) ) + 2> 03618800 

MtR"23tsIOMASK* 03618900 

END* 03619000 

* 03619100 
SUBROUTINE 0BJ0BD1SKER) % DISKIO FOR INPUT TO JOBS 03619200 
BEGIN 03619300 

Jl« INPUT ANKISTA)!"ABS(*P(DUP))* 03619400 

OISKIO(M[R»23» R-l« (M[R) , [FF3+7 ) pj V 8*1» PROGTANK+ 03619500 

CLUMPS I ZexSTA + ((K|»J, I NPUTN+MC R) , C 10t83 )*J,INPUTL 03619600 

AND NOT CLUMPSIZE))* 03619700 

t SET OMJT ■ NOT(STATISTICS) 03619709 

C0UNTUP(16#1)I 03619710 

S POP OMIT 03619711 

IF M£R3 LSS THEN J l«J&(K + l ) [40t 40f 83 f % UP INPUTANKS 03619800 
IF (Tll*M£R3,[CF3-2) GTR THEN % WAIT FOR PREVIOUS 1/003619900 

IF (MCT13 AND IOMASK) w THEN SLEEPC [M£T1 3 3 # IOMASK) j 03620000 

IF J.INPUTN GEO ,9xCLUMPSIZE THEN % TOO FULL* SLOW HIM BY036201QQ 

IF NOT J, SLOWDOWN THEN * MESSAGE IF TWX OR NO 03620200 

$ SET OMIT «J TWXONLY 03620299 

BEGIN IF STATABiSTATIONTYpE'TWX THEN % ACK IF NOT TWX 03620300 

$ POP OMIT 03620301 



BEGIN STKEAM(Dt»(K|»GETAREA(0))*l)l 03620*00 

DSl*ll LIT"PLEASE WAIT"! 03620500 

TWXOUTCKMi ll»liSTA)l 03620700 

FORGETAREACOiK)! 03620600 

t SET OMIT » TWXQNLY 03620899 

END ELSE TANKQKtSTAJl»n 03620900 

S POP OMIT 03620901 

J.SLOWDONNlMI 03621000 

END ELSE 03621100 

IP J.INPUTN*CLUMPSIZEM THEN TERM I NATEC STATAB ,M IXNR&67 1 CTF J ) ! 03621200 

INPUTANK£STA]!*NABSCJ>! X UPDATE AND UNLOCK I NPUT ANK03621 300 

END OF OBJECT JOB INPUT TANK HANDLER* 03621400 

X 03621500 

RESTART! I 03621600 

S0URCEI"(II«W0RKLRINQ,tCF3)*l! X HEAD OF INPUT QUEUE 03621700 

STARTI 03621800 

IF 1*0 THEN X INPUT FROM DATACOM TO PROCESS 03621900 

BEGIN 03622000 

IF (STAI»M[IJ,LINENR)»0 THEN X SS OR CX FROM SPO 03622100 

BEGIN STATABI-O! 03622200 

BUFSZIM52! 03622300 

GO TO CE! 03622400 

END! 03622500 

IF (STATABI«STATABLE[STA]),OWHTHROWOUT THEN 03622600 

BEGIN X RESET ON DELETE OR MESSEND 03622700 

5TATABIE[STAJI»STATAB4CM[U,[4I2J»Q>C13I47!IJI 3622800 

GO TO DELL! X IGNORE THIS BUFFER 03622900 

END! 03623000 

* SET OMIT » TWXONLY 03623099 

BUFSZ««28x(IF PC L I NETABLE 1 1 F STA GTR LMaX THEN ST AT AB.LEENKER 03623100 

ELSE STAJ,BUFSIZE»DUP)*2 THEN P+2 ELSE P + l)! 03623200 

IF NOT (FLAGSI«STATAB»GANDEFLAG OR M[JJ.C6ltJ) OR 03623300 

(KlnSTATAB,STATlONTYPE» , TWX) THEN ELSE GO TO CE! 03623400 

* POP OMIT 03623401 
S SET OMIT * NOTCTWXONLY) 03623499 

BUFSZl«28x(IF PC LI NET ABLE [ STA 3 . BUFS I ZE» DUP )*2 THEN P + 2 ELSE 03623500 

PM)1 03623600 

IF STATAB, CANDEFLAG OR H[l],[6U] THEN GO TO CE! 03623700 

S POP OMIT 03623701 

X 03623800 

X OBJECT JOB OR NOT TELETYPE 03623900 

X 03624000 

Tl»»0> 03624100 

IF INPUTANKISTAltFIRSTBUF THEN X SCAN OUT HEADER AND QM 03624200 

* SET OMIT * NOTCTWXONLY) 03624299 

IF CPCM[SQURCE1»T0P,XCHMH5J * *14) AND P THEN % QUEST MARK03624300 

IF PAPERTAPE THEN FLAGSl»4 ELSE GO TO CE! 03624400 

NUMisBUFSZ! 03624500 

S POP OMIT 03624501 

I SET OMJT « TWXONLY 03624599 

BEGIN STREAM(SOURCE»Kl)l 03624600 

BEGIN SltuSOURCE! 03624700 

KC28CIF SC*""" THEN BEGIN SII*S1*1! JUMP OUT END! 03624800 

Sll»SI+l!)l 03624900 

S0URCEI*SI! 03625000 

IF SC*"* H THEN JUMP OUT TO L! 03625100 

SIHSIMJJ 03625200 

IF SC«MARK THEN TALLYl*!! 03625300 

L! K I -TALLY! 03625400 

END! 03625500 



S POP 



LOOP* 



IF P THEN FLAGSl*4) X «M FLAG 

NUM I *ABSC( SOURCE l*P) f C 30 » 3 J & C SOURCE- I "1 H 30 ) 33 ! 15J-BUFSZ) 
ENO ELSE NUM|*BUFSZl 
OMIT 

IF (RJ*JNPUTANKCSTA},(FF])*0 THEN 
BEGIN GETANOTHER! 

M(R)l«0tSTATAB[2tHHl 

ENDI 



* GET A NEW BUFFER 
% PAPER TAPE FLAG 



IF CSlsMUJ), DELETE THEN 
BEGIN UPG) 

IF PAPERTAPE THEN GO TO PTJ 
DO BEGIN 

SLEEP([M[R-2J]#I0MASK); 
F0RGETSPACECR-2)) 
END UNTIL (Rl»MCRj f [CFl)*OJ 
INPUTANK[STA3,CFF]I»0; 
GO TO START* 
END) 

IF MtRj,CFF3+NUM GTR 232 THEN 
$ SET OMIT ■ NOTCTWXONLY) 

BEGIN OBJOBDISKERI 
* POP OMIT 
S SET OMIT » TWXONLY 

BEGIN IF NOT FLAGS THEN OBJOBDISKERI 
S POP OMIT 

KlffRJ 
GETANOTHER; 



X FORGET ALL PIECES OF 
* CURRENT MESSAGE 



% OUT OF ROOM 



% IF OBJ. WRITE IT OUT 

% GET A NEW ONE AND 
% SET FIRST WORD 



END) 



M[RJI»0lK[CTCH(M[KJ t tl0iaUim0U0lBHSTATAB[2UHJl 



S SET 

S POP 

S SET 

..*. pop 



S SET 

S POP 
J SET 



% POP 



PTI 



STREAM(NI»NUM 01 V 2. SOURCE* 
OMIT * TWXONLY 

Nlt«NUM AND 1» 
OMIT 

Dl*(R+i + M[RJ,C18ll2J)4M[KH30l30l3J)l 
BEGIN Sll«SOURCE> 

DSI'N CHR| DS«*N CHRJ 
OMIT « TWXONLY 

DS»»N1 CHRI 
OMJT 
END) 

MtR]|B(*P(DUP))R(P(DUP),[FFl+NUM)tCTF3 OR 0&S[4)4«3J) 
UPQI 

IF NOT S,MESSEND THEN 
IF MtN.LINENRpSTA AND l#Q THEN 
OMIT • NOT(TWXONLY) 

GO TO LOOP ELSE GO START) 
OMIT 
OMIT * TWXONLY 

BEGIN NUM|*BUFSZ) 

GO TO LOOP) 
END ELSE GO TO START) 
OMIT 

INPUTANK[STA3,tFF]»»0) 
IF PAPERTAPE THEN 
BEGIN 

PAPERTAPE I0CR»STA.FLAGS#BUFSZ.S)) 
GO TO START) 
END) 



% MORE MESSAGE TO COME 

% GO GET NEXT BUFFER 



% NO MORE FOR THIS STA NOW 



% SPECIAL HANDLING TO PACK 
% PAPER TAPE INPUT 



03625600 
)03625800 
03625900 
03625901 
03626000 
03626100 
03626200 
03626300 
03626400 
03626500 
03626600 
03626700 
03626800 
03626900 
03627000 
03627100 
03627200 
03627300 
03627400 
03627500 
03627549 
03627550 
03627551 
03627599 
03627600 
03627601 
03627700 
03627800 
03627900 
03628000 
03628100 
03628200 
03628299 
03628300 
03628301 
03628400 
03628500 
03628600 
03628699 
03628700 
03628701 
03628800 
03628900 
03629000 
03629100 
03629200 
03629299 
03629300 
03629301 
03629399 
03629400 
03629500 
03629600 
03629601 
03629700 
03629800 
03629900 
03630000 
03630100 
03630200 



S SET OMIT s TWXONLY 03630299 

IF FLAGSsO THEN * INPUT GOES* TO OBJECT JOB 03630300 

BEGIN 03630400 

* POP OMIT 03630401 

M[R]»wNABS(*PCDUP))l % 111 CAUSES INPUTANK TO 03630500 

OBJOBDISKFRI * BE UPDATED 03630600 

IF Tl GTR THEN FORGETSPACEC T 1) I * FORGET OLD BUFFER 03630700 

IF JiINPUTREADY THEN % IF IT IS WAITING 03630000 

BEGIN BRINGBACK(STATAB,MIXNR)J % SWAP IT IN 03630900 

lNPUTANK[STA],INPUTREADYtsOJ 03631000 

END* 03631100 

SIEEPUM[R-2JJ»10MASK)J % WAIT FOR LAST I/O 03631200 

FORGETSPACECR-2)! 03631300 

GO TO STARTl 03631400 

S SET OMIT * TWXONLY 03631499 

END; 03631500 

S POP OMIT 03631501 

% 03631600 

% INPUT GOES TO CANDE 03631700 

% 03631800 

$ SET OMJT « TWXONLY 03631899 

UPQFLAG»*1J * SET TO USE 30 WORD ARRAYS 03631900 

IiaOl 03632000 

DO * RELINK QUEUE IN FORWARD 03632100 

BEGIN J»«MtRJ,tCFJ> * DIRECTION 03632200 

MCR J « CCF3 l»1 1 03632300 

IlsR; 03632400 

END UNTIL (R»«J)*OJ 03632500 

BUFSZl»MCI]i(FF]f * NUM OF CHARS IN ARRAY 03632600 

SOURCE »*I«-i; 03632700 

$ POP OMIT 03632704 

CE« IF H*0 THEN H »*SPACEC60) I 03632800 

S SET OMIT 9 NOTCTWXONLY) 03632899 

FLAGSl»3t(H + l)[CTFUM[IHll6ll]l 03632900 

* POP OMIT 03632901 
S SET OMIT s TWXONLY 03632999 

FLAGS »»3&(H+i)tCTFHMUHH6m&STATABt33llO»3J; 03633000 

M0DEI*T1!*0J 03633100 

CRI IF Tl*BUFSZ THEN UPQI * CR AT END OF BUFFER 03633200 

S POP OMIT 03633201 

NUMiwOl 03633300 

Jl*H + U 03633400 

AGAINI 03633500 

JF MtHiDEUETE THEN 03633600 

BEGIN 03633700 

DELLI UPGI GO TO STARTl 03633800 

END! 03633900 

S SET OMJT ■ NOTCTWXONLY) 03633999 

NUM | «NUM* INPUT SCAN(MOOE» SOURCE »J»BUFSZ» FLAGS); 03634000 

$ POP OMJT 03634001 

$ SET OMIT * TWXONLY 03634099 

SCANINPUTI 03634100 

S POP OMIT 03634101 

IF NUM GEO 224 THEN % TOO LONG FOR CANDE 03634200 

BEGIN STREAM(Dt*H<-29); * CUT IT DOWN TO HER SIZE 03634300 

BEGIN DIlsDI-ll OSlsLIT H *"J END; 03634400 

NUMM224* 03634500 

END ELSE 03634600 

$ SET OMIT * TWXONLY 03634699 

IF NOT MODEiCREND THEN % ETX OR COUNT EXHAUSTED 03634700 



S POP OMIT 03634701 

BEGIN UPQi 03634800 

IF NOT MODE THEN * COUNT EXHAUSTED 03634900 

IF 1*0 THFN 03635000 

£ SET OMIT * TWXONLY 03635099 

IF M[J3.LINENR»STA OH UPQFLAG THEN GO AGAIN? 0363510i 

* POP OMIT 03635101 

$ SET OMIT s NQTCTWXONLY) 03635199 

IF MU3.LINENR * STA THEN GO AGAINI 03635200 

S POP OMIT 03635201 

END! 03635300 

IF ABSCSPQWORD) » STA AND STA NEQ THEN XBACK UP SPO 03635305 

BEGIN M[H-1)I"0) 03635310 

IF KEYBOARDCOUNTER * THEN 03635315 

F0RKCP<.KEYIN)»U(H+l)CCTFJ#0»192fO) ELSE 03635320 

IF CRl«KEYBOARDCOUNTER.IFFJ) NEQ THEN 03635325 

BEGIN IF <JI«MCR«»2MCF1> NEQ THEN 03635330 

IF M[(Rl*J)-2] NEQ THEN GO TO DISCARD? 03635335 

M[R*23l«H*i? 03635340 

END ELSE KEYB0ARDC0UNTERI*KEYBQARDC0UNTER&(H+1HCTF;I{ 03635345 

KEYBOARDCOUNTERt*KEYB0ARDCOUNTER&H17l47inJ 0363531* 

H»*SPACE(60)I 03635355 

GO TO DISCARD? 03635360 

END; 03635365 

% WE HAVE SCANNED INPUT STARTING AT H*l 03635400 

IF (P(M[H+13»T0P»XCH),[U5J * ?14) AND P THEN % QUEST MARK 03635500 

FLAGSl»NABS(FLAGS)i 03635600 

IF CRl*(NUM+7) DIV B)+LAST0FFSET GTR 2V THEN % NO ROOM 03635700 

BEGIN IF CANDEINPUTREADY THEN % REUSE CURRENT AREA 03635800 

BEGIN IF CMCIOADRJ AND JQMASK) » THEN 03636000 

SLEEP([M[I0ADRJ]»I0MASK)I 03636500 

FlRSTOFFSETlM? 03637000 

END ELSE % GET A NEW ONE 0363750Q 

BEGIN 03638000 

LASTSEGtO], [FFJ |s ( S I "SPACEC 32 ) )*2? 03638500 

M[S3 l» IOMASK; 03639000 

LASTSEG.KF 3l*S + 2? 03639500 

END? 03640000 

LASTSEG[Q3l"OUtl7l47ll3? 03640500 

LASTOFFSET I* 1? 03641000 

END? 03641500 

5TREAMCMA I *H+l»RtN I «[LASTSEGC LASTOFFSET* 1 3 })l 03642000 

BEGIN SIf*MA? DSlsR WOS END? 03642500 

LASTSEG[LASTOFFSET3l»NUM&FLAGStl»l?13&STAC10l40J83? 0364 3000 

LASTOFFSET , t CF 3 1 »(LASTSEG[ 03 1 *(*P(DUP))4(LAST0FFSET+R)tCTC 3 )*1? 03643500 

IF CANDEINPUTREADY THEN % IF CANDE WANTS IT* GIVE IT TO HER 03644000 

BEGIN r0RK<PC,N0T!FYCANDE}fCANDYlNXt0»126ti)| 03644500 

% OLDWEIRDHAROLD IS A MOTHER FORKER 03645000 

CANDEINPUTREADYI«FALSE? 03645500 

END? 03646000 

DISCARD? 03646100 

S SET OMIT « TWXONLY 03646499 

IF MODE ( COUNTEND THEN % INPUT WAS TOO LONG SOME LEFT 036465Q0 

IF UPQFLAG THEN X QM OR NOT TWX 03647000 

BEGIN % SCAN TO ETX OR CR 03647500 

SCANITI Jl*H*l? 03648000 

SCANINPUTI 03648500 

IF NOT MODE.CREND THEN 03649000 

BEGIN UPQI 03649500 

IF MODE THEN ELSE GO SCANIT? X COUNTEND - TRY AGA I N03650000 



% 

% 
% 



END) 
END ELSE STATABLECSTA3,QWHTHROWOUT»»i; % TWX - DISCARD BUFFS 

IF mode.cRend then go to ck else go to start; 

S POP OMIT 

S SET OMIT » NOTCTWXONLY) 

IF MOQE.COUNTEND THEN STAT ABLEC ST A 3 .OWHTHROWOUT I *1) 

GO TO START? 

* POP OMIT 

r 

END OF INPUT HANDLING) 

WHEN INPUT QUEUE IS EMPTY* DETANK OUTPUT 

IF (STAI«HEADOUT) * THEN * OUTPUT TO DETANK 

BEGIN 

IF HbO THEN HI*SPACE(60)) 

IF NOT TANKSlSTAJ.UliJ THEN 

5LEEPCCTANKSCSTAJJ»NABSCO))l 

STATABt*STATABLECSTA3J 

* SET OMIT * TWXONLY 

IF STATAB,STATlONTYPE*TWX AND STATAB , CCF J#0 
AND SEQARRAYCSTA3, SELECTED THEN GO TO FORGIT) 
$ POP OMIT 

T)«TANKS[STAJ J *ABS( *P(DUP ) ) ) 
t SET OMIT ■ TWXONLY 

IF STATAB.NAKKER THEN I NAKKED • RESET TANK 
BEGIN NTll*TNAOG[SEaARRAY[STA3,[26)63J) 

IF (NT2l»T,tH«5J-NTl,[H53) LSS THEN 
NT2t»NT2 ♦ 321 
Tl*TANKS[STA]l«T&CT,[27l6HNT2H27l«2l6] 

&NTitl*ll)13J&0[l2l4nn) 
STATABLE[STAJ f NAKKEKJ»0) 
END) 

* POP OMIT 

IF Tll*<T,[SOUSEJ*0) THEN XNUTHIN ON DISK 
IF T1I»(T,[CF]«0) OR STATAB, SWAPPED 

THEN GO DELINKIT ELSE 
IF Tll»(M[T]*0) THEN GO DELINKIT ELSE 
BEGIN 
t SET OMIT * TWXONLY 

IF STATAB, STATIONTYPE NEQ TWX THEN 
BEGIN DISKWAITCT.CCF3»30»GLOMSUEXSTA* 

TANKS [STA J, (Hl5] + TANK ADDRESS)) 

* SET OMJT b NOTCSTATISTICS) OR OMJT 

COUNTUP(l6ti)J 
S POP OMJT 

$ POP OMIT 



T)«TANKSC$TAJl*C*PCDUP)UlU9|34lHJ) STANK 



END) 



Il»MtJl*T,[CF3I INX 1) STAKE IT 
M[JJ««0) XFROM CORE 

END ELSE * DRAIN THE DISK 
BEGIN Jl«T,U9l8)f 

DISKWAITCH«30«GUOMSUEkSTA*T, [1415 3* 
TANKADDRESS)) 
t SET OMIT « NOTCSTATISTICS) 

COUNTUPU6»l)J 
S POP OMIT 
* SET OMIT * TWXONLY 

IF STATAB, STATIONTYPE » TWX THEN 



03650500 

03651000 
03651500 
03651501 
03651999 
03652000 
03652500 
03652501 
03653000 
03653500 
03654000 
03654500 
03655000 
03655500 
03656000 
03656500 
03657000 
03657500 
03658000 
03658099 
03656100 
03658200 
03658201 
03658500 
03658549 
03658550 
03658600 
03658650 
03658700 
03658750 
03658800 
03658850 
03658900 
03658901 
03659000 
03659500 
03659600 
03660000 
03660500 
03660590 
03660600 
03661000 
03661500 
03661509 
03661510 

03661511 
03662000 
03662500 
03662501 
03663000 
03663500 
03664000 
03664500 
03665000 
03665500 
03665509 
03665510 
03665511 
03665590 
03666000 



t POP OMIT 

s set OMIT * 

S POP OMIT 



BEGIN 

I l*M[H3 • U * 
IF I > 56x(RP 



TWXONUY 



1; 

l+CLINETABLEC 



IF STA>LMAX THEN ST ATAB ,LEENKER ELSE 



$ SET OMIT * TWXONLY 



$ POP OMIT 

DELINKITI 
$ SET OMIT » 
$ POP OMIT 



STA3,[6»33 > 2)) THEN 
BEGIN H*56xR* XTWX I 

T!«U(Tf [19l53*Rx7)Cl 
END ELSE XIN BUF 

Tl"H0[19U0l8J*(T.[S0U 
CT, C 14153+1 >t 1414315 
TANKS[STA3l*(*PCDUP))U[ 14*14 
XOWH DETANKS TWX ONLY 
Ul*CH+J, UO»5 3)&J[ 30*451 3Jj 

END ELSE XLET DCWRITE 

BEGIN 

1 1 *MCH 3 • C CF J 3 XDONT HARRY 
vJ**CH + J,[40»53HJ[30»45*3 

ENDI 



END* *OF TAKIN NOW SOME G1V1N 

IF NOT Tl THEN 
TWXONLY 

Rl» 



T OUT 
9 143 I 53 1 

FER SUE HUNKS 
SE3-l)[27142t6J& 
3* XKEEP THE 
11931 XPOT 

XR1GHT 

DO IT 

HARRI 
3* 



DCWRIT 

STATABLEtST 

CM[T3 NEQ 

T,[CF3 NE 

XCHECK FOR 

IF T, [10*23 

IF GLOMSI 

BEGIN * 

TANKS 

IF T, 

BEG 



END 
IF T, 
IF 
T 



E(J+1»ST 
A3.0UTPU 

AND C 
Q 0)1 
MOARl IN 

NEQ T 
ZE/5 GEO 
WHRN TAN 
[STa3»«( 
[10*13 
IN M[CR» 
M[R3|« 
QUEVEN 
I 

cum 

CANDEMIX 
HEN BRIN 



Afl)l 

TANKING)* 
NOT STATA 

COAR OR D 
HEN IOPE 
T, [SOUSE 
K STARTS 
*P(DUP)H 
THEN 

*GETAREA< 
04STACCTF 
TCR»CANDE 

THEN 

CSTA3 NEQ 
GBACK(STA 



(T t TANK 
BLE[STA 

ISKJTAN 
N THE D 
3 THEN 
GETTING 
0[10»46 

0))MJl 
3&10C16 
MIX[STA 



N * 0) OR 
3 f SWAPPED) AND 

KS 

OAR FOR MOAR 

LMPTY.REFILL OIT 
123; 

*0j 
;4ii73i 

J)* 



STATAB 
TAB, MIX 



FORGITI 



IF H 

WORK 

GO T 

END OLD 

SAVE PROCED 

VALUE Al 

REAL Al 



END* 

HEADOUTl*TA 

IF STA * TA 

TANKS[STA3I 

GO TO RESTA 
END OF OUTPUTTER 
#0 THEN FORGETSPA 
ING»*FALSEI 
NOTHINGTODO; 

EMACIATEDWIERDHAROLD SURE IS SKINNY* 
URE GIVEAWAYCA)* 



iNKS[STA],[2l83* 
ILOUT THEN TAILOU 
i»NABS((*P(DUP))&0 

GETTING* 
kCE(H)* 



T**0* 
[214018 



.M1XNR 
NR)* 



])* 



XA IS THE ADDRESS OF THE LAST BUFFER SEGMENT OF A MESSAGECTHE EOM 



03666500 

03666501 
03666600 
03667000 
03667400 
03667500 
03667600 
03668000 
03668500 
03669000 
03669500 
03670000 
03670500 
03671000 
03671500 
03672000 
03672490 
03672500 
03673000 
03673500 
03674000 
03674500 
03674501 
03675000 
03675500 
03676000 
03676090 
03676100 
03676110 
03676200 
03676500 
03677000 
03677500 
03678000 
03678500 
03679000 
03679500 
03680000 
03680500 
03681000 
03681500 
03682000 
03682500 
03683000 
03683500 
03684000 
03684500 
03685000 
03685500 
03686000 
03686500 
03687000 
03687500 
03686000 
03688500 
03668600 
03689000 
03690000 
03691000 
03692000 



X IS IN THIS BUFFER) 
* ENTIRE MESSAGE INTO 
% CANOEt FOLLOWING BU 
BEGIN 

INTEGER II 

I t*AI 
WHILE P(M[AJ.[FFJ 
P(DEL)i 

IF WORKERINO.ICF3 
WORKERINO I* A & 
ELSE 
BEGIN 

MCWORKERINQ, 
WORKERINQ t 
ENOI 

STARTWORKJNGI 
END GIVEAWAYI 
PROCEDURE DCIOFINISHCR) 
VALUE Rl 
REAL Rl 
BEGIN 

REAL T»NTl»S«NT2» Sl«N 
LABEL BRAKEfDlSCONN.DE 

* SET OMJT * TWXONLY 

MSGACK#EOTITtACK#SELEC 
EOT,POLLBACK»WAITENQ,E 
$ POP OMIT 

finis#breakeR»eRRor,ds 
> set omit * not(twxonly) 
switch readactlon|»rea 
rdrdyabn.auti 

* POP OMIT 

S SET OMIT « TWXONLY 

SWITCH READACTlONl*REA 

zeitaus*eot»rdrdyabn*m 
switch writeacti0n*wri 
breaker* breaker »pollb a 
s pop omjt 

define interrogate ■ r 



TO BE GIVEN TO WORKER , G I VEAWAY LINKS THE 

WORKERS QUEUE TO BE GIVEN TO A USER JOB OR 
FFER CONSOLIDATION, 



»DUP) * DO A I" P> 



• THEN 
ICCTF) 



[FFJJ I* C+PCDUP)) & AtCTCJl 
* WORKERINQ & UCTFJI 



\ 



T3» V«NT4» E«NT5» ST*NT6» I*NT7* D. LI 
LINK*JUNKET»BlGJOKE«READRDY»AUT#RDRDYABN»GONE 

TNAK»ENQRD»MSGANSrNOTHERE#BREAKlTtFORGETNQUE» 
NQACK»£NQNAK»COONGRlLL*AUS*ZEITAUS. 

lT»ACTlNTfWRITERDY»FINISH»FOUND»«UElT*IOUEITl 

DRDY»B I GJOK£»AUT#AUT» BREAKER* AUT»AUT»AUT# 



READREADY* 

GROUPMARK ■ 

LINKEM* 

PTR* 

RDRDY« 

MSGSTAT* 

WRITEREADY* 

ABNORMALFLAG' 

IDLE* 

IDLEABNORMAL 

NOTREADY « 

BUSY* 

LAST * 



R,[2 
(NOT 
251 4 
2616 
4311 
5151 
R.C2 
R,[2 
((R. 
C(R, 
((R, 
((Ri 
tt 



DRDY»BIGJOKE»MSGANS»ENQRD*BREAKIT»NOTHERE* 

SGANSI 

TERDY»POLLBACK» 

CK#ENOACK#ENQNAK# BREAKER J 

,tl6ll]#* 

at i ]#*> 

R,[25lU)#» 
0181* 
** 
#» 
» 

3iU#» 

[23110) AND Pl475)*0)#» 
[23U0J AND ei475)*P1000)#» 
[24193 AND M35)»«>24)#* 
[27161 AND ?75)»P20)#» 



SUBROUTINE HITHEREI 
BEGIN 

Mt(V*GETAREA(0))]*CLOCK+P(RTR)> 

M[V*1)*ST> 

M[V*2J*Sil 

F0RK(P( , HELLO ).V»»6» 128*1)1 
ENDI 
SUBROUTINE FORGETII 



03693000 
03694000 
03695000 
03696000 
03697000 
03698000 
03699000 
03700000 
03701000 
03702000 
03703000 
03704000 
03705000 
03706000 
03707000 
03708000 
03709000 
03710000 
03710500 
03711000 
03711500 
03712000 
#03712500 
03712995 
03713000 
03713500 
03713505 
03714000 
03714495 
03714500 
03715000 
03715005 
03715495 
03715500 
03716000 
03716500 
03717000 
03717005 
03717500 
03718000 
03718500 
03719009 
03719500 
03720000 
03720500 
03721000 
03721500 
03722009 
03722500 
0372300P 
03723500 
03724000 
03724500 
03725000 
03725500 
03726000 
03726500 
03727000 
03727500 
03728000 



PC t° ^ 




BEGIN 

FORGETAREACMU J,C2I2]»I>| 
ENDI 

SUBROUTINE SEGUENCEl 
BEGIN 

IF (Et»SEQARRAY[ST3)* THtN 

BEGIN 

STREAMCES»E.[21»2n»V»*<Vl*GETAREAC0mi)J 
BEGIN 

si*loc eidi*di+16j 
ds*8 decids*lit "♦"i 
di*di"9ids*7 fill! 
e*di jdi+vj 
si*e;ds*9 chr; 

ENDI 

ENTERUINEQ(V#S1#0)J 
ENDI 

M[V],C«I13I«1I 
ENDI 

SUBROUTINE JUNKERl 
BEGIN 

IF I • CCF J#0 THEN 
BEGIN LINETABLEtSUl"I*OtCTCJI 
WHILE CVlaMr I 35«CFFJ#0 DO 
BEGIN F0RGETAREACV,[212]»I>* 
IUV,[FFJl 
END ENDI 

M[Vl*GETAREA(0)]|«(*P(DUP))&l[4U7Jl]&STtlOj40»8jl 
GIVEAWAY(V)! 
ENDI 

SUBROUTINE DETANKj 
BEGIN 

IF STATABUEtSTJ.OUTPUTANKING THEN 
IF TANKLINEtSTJ«0 THEN 
IF TAJLQUT#ST THEN 
BEGIN 

TANKLINE[TAILOUT3*ST> 
TAIL0UT*STI 
STARTWORKJNGI 
ENDI ENDI 
SET OMJT * TWXONLY 
SUBROUTINE NAKHANDLERI 
BEGIN 

P([TNAOGCSEOARRAYrST].[PTR]]]»DUP#LOD»DUP)l 

IF T»TC500 THEN P(PR t P, I 38 1 103-1 ) [ 38 I 381 10] ) ELSE 

P<P*P£42l36l6J&0l28l40l83)l 
P(XCH»STD)I 
TANKSCST3. C 131 1 J t»l I 
DETANKI 
L I ■ I DL ; 
ENDI 
POP OMIT 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% START 
El*ll XINITIALIZE ERROR COUNTt ETC 
UNIT130J, C 16 I 23 I *0| 
IF REMOTE THEN ELSE GO TO FJNISHI 
S1*LLNR| 
IF INTERROGATE THEN 

IF LLNR»0 THEN IPASSIVE VARIETY 

BEGIN 



03728500 
03729000 
03729500 
03730000 
03730500 
03731000 
03731500 
03732000 
03732500 
03733000 
03733500 
03734000 
03734500 
03735000 
03735500 
03736000 
03736500 
03737000 
03737100 
03737200 
03737300 
03737400 
03737500 
03737600 
03737700 
03737800 
03737900 
03738000 
03738100 
0373820ft 
03738400 
03738500 
03739000 
03739500 
03740000 
03740500 
03741000 
03741500 
03742000 
03742500 
03742590 
03742600 
03742659 
03742700 
03742750 
03742800 
03742850 
03742900 
03742950 
03743000 
03743050 
03743060 
03743250 
03743500 
03744000 
03745000 
03745500 
03746000 
03746500 
03747000 



II«R.[9»9J» 03747500 

FOR Sl*l STEP 1 UNTIL LMAX DO 03748000 

IF I#LINCTABLECS1 J.C9I9] THEN ELSE GO FOUND* 03748500 

I SET OMIT * NOT SEPTICTANK 03748700 

DISP0SALC32»l00UEtS]»R); 03748750 

$ POP OMIT 03748800 

El'OJGO ERROR* 03749000 

END! 03749508 

FOUNDl 03750000 

DI*P(LINETABLECSntDUP)iLINEDIS> L»*P.£21l53> SLSTATUS 03750500 

i SET OMIT * NOT SEPTICTANK 03750700 

DlSP0SAL(LtI0QUECS3»R)» 03750750 

$ POP OMIT 03750800 

Tl wSTATABLECST t* 03751000 

S SET OMIT * TWXONLY 03751495 

IF D»MULTI THEN SEQARRAY t SI 3 , [ 401 83 ELSE 03751500 

S POP OMIT 03751505 

SU.STATIONTYPEI 03752000 

$ SET OMIT s NOTCSAVERESULTS OR DEBUGGING) 03752495 

STORAWAYI-sRJ STORAWAY I "STATABLE £ ST J I STORAWAY » =»H NETABLEC SI 3 * 03752500 

* POP OMIT 03752505 

IF L0CKEDCS13 THEN 03753000 

BEGIN 03753500 

M[LINETABLE[S13 3*NABS(R)J 03754000 

GO TO AUTI 03754500 

ENDS 03755000 

IF INTERROGATE THEN 03755500 

BEGIN 03756000 

IF LLNR » THEN 03756500 

BEGIN* PASSIVE INTEROGATE IN ANSWER TO DC INTERRUPT 03757000 

IF READREADY THEN 03757500 

BEGIN 03758000 

INITIATFDCIO((P0400000040000000 & R[9l9l9J) OR 03758500 

(GETAREA(LlNETABLE[S13iBUFSlZE)+l)t S)J 03759000 

LLNR*SU 03760000 

$ SET OMIT » TWXONLY 03760495 

IF DsTWX THEN 03760500 

BEGIN 03761000 

* POP OMIT 03761005 

IF ABNORMALFLAG THEN 03761500 

IF L#WRB OR LlNETABLE[SU f REAUYQED THEN LHRRA03762QQO 

FLSE BEGIN 03762500 

BRAKFI M[l l»GETAREA(0)3l»(*P(DUP})& 03763000 

CST&2[33»4H73HCTF3I 03763500 

L*BROKEN; 03764000 

GO DELINK? 03764500 

END ELSE 03765000 

L*IF L»IDL THEN KIRSTIME ELSE NORMAL! 03765500 

IF NOT STATABLE[5T3.DIALEDUP THEN HITHEREI 03766000 

I SET OMIT m TWXONLY 03766495 

END ELSEICONTENTION OR MULTIPOINT 03766500 

BEGIN 03767000 

IF ABNORMALFLAG THEN 03767500 

IF NOT CE*LINETABLECS13), [20113 THEN 03768000 

BEGIN 03768500 

L»«IF L*WRB THEN 57 ELSE L&6[ 42 « 45 « 33 ; 03769000 

LINETABLECSUl*E&LC20l42i6j? 03769500 

IF L LEQ 49 THEN GO JUNKET ELSE GO FINISH* 03770000 

END ELSE GO FINISH ELSE 03770500 

BEGIN 03771000 



IF BUSY THEN 

If L*SELECT THEN 

BEGIN LINETABLE[Si],t20«Ul*ll 

P(SELECTANS)! 
END ELSE 
IF L*WRB AND T-TC500 THEN PCMSGANSWER) 

ELSE 
IF L.[43«3J*0 THEN PC L&5 1 43 » «5 « 3 3 ) ELSE 
IF L«1DLP0LL1NG THEN PCPOLLT I MEOUT ) ELSE 
PCTIMEDOUT) 
ELSE 
IF L«WRB THEN PCMSGANSWER) ELSE 

P(L&2£43l46l2J)J 
L«*PJ 



ENDI 



* POP OMIT 



ENDI 

GO TO finis; 



ENDI 

IF WRITEREADY THEN 

BEGIN 

IF ABNORMALFLAG THEN 

BEGIN 
$ SET OMIT a TWXONLY 



S POP OMIT 
OSIT I 



$ SET OMIT * TWXONLY 



S POP OMIT 



IF D«MULTI THEN 

BEGIN SEQARKAY!STJ,C4:2)J*0? 

GO TO IQUfc.iT; 
END) 
IF D*TWX THEN 

IF STATA6LEtST],DlALEDUP THEN 
BEGIN 

Mn*GETAREA<Q)J*C*P(DUP))&CST&3C 331411 H) 
tCTFJl 

GO DELINK) 
ENDI 

HITHEREI 
L»*IDLl 

IF D*CONTENTION THEN 
BEGIN 

1 »«GETAREA(0)l 

GO TO EOTITI 
END ELSE 



GO TO AUTI 
ENDI 

L*WAITING) 

IF STATABLf[ST3,CCFJ»0 THEN GO AUT ELSE GO OUEITl 
END! 

if l * discon then go to aut; 
if idle then 
* set omit • twxonly 

if d»contentlon then 

BEGIN 

IF (Vi*SEQARRAY[ST}).[3in THEN 
BEGIN 

SEOARRAY[STJI«ViOC3l47»UI 

GO TO AUTI 
ENDI 



02771X00 
03/71200 
03771300 
03771400 
03771500 
03771600 
03771700 
03771800 
03771900 
03772000 
03772100 
03772200 
03772300 
03772400 
03772500 
03773000 
03773005 
03773500 
03774000 
03774500 
03775000 
03775500 
03776000 
03776495 
03776500 
03777000 
03777500 
03778000 
03778500 
03778505 
03779000 
03779500 
03/80000 
03780500 
03781000 
03781500 
03782000 
03782500 
03782995 
03783000 
03783500 
03784000 
03784500 
03785000 
03785005 
03785500 
03786000 
03786500 
03787000 
03787500 
03787601 
03788000 
03788495 
03788500 
03789000 
03790000 
03790500 
03791000 
0379150S 
03792000 



L*WAITINGEN<1> 03792500 

GO QUEI TI 03793500 

END ELSE 03794000 

IF D"MUUTI AND L#WRBUSY THEN GO AUT fcLSE 03794100 

$ POP OMIT 03794105 

GO IQUEIT; 03794500 

XSEGUENCE OF EVENTS AFTE« DISCONNECT! 03795000 

%l - NOTIFY C&E OF DISCONNECT 03795500 

%2 - MARK DISC0NNECTED»ST0P FURTHER 10 FOR THIS LINE 03796000 

X3 - DELETE CORE QUEUES#ENTeR MARKER IN C*E TANK 03796500 

X4 - FORK TO QUITTER 03797000 

%b - CALL TERMINATE ON USER JOB (IF NECESSARY) 03797500 

X6 - c&E COMMUNICATES AC*. OF DS» MaRK£R» LOG«OFF» ETC , 03796000 

%7 - DELETE DISK TANKS»CLEAR TABLES. UPDATE SYSTEMDISK 03798500 

IF IDLEABNORMAL OR NOTREADY THEN 03799000 

BEGIN 03799500 

$ SET OMIT * TWXONLY 0379979S 

IF DsMULTI THEN 03799800 

IF L»SELECT OR L»WrB THEN 03799900 

BEGIN Ll»IF L-SELECT THEN SELECTANS ELSE MSGANSWER J 03800000 

GO TO ACTINTJ 03800100 

END ELSE GO TO GONEJ 03800200 

S POP OMIT 03800210 

DISCONNu L*DISCON; 03800500 

STATABLE[STJ,[15«2Jls0; 03801000 

M[I*GETAREA(0)J*(*PC0UP))&(ST&6[33»41I7))[CTFJ; 03601500 

DELINKU IF CANOYINX»0 OR ( ST*ABS( SPOWORD ) AND L#DISCON) THEN 03802000 

FORGET! ELSE QUEVENTC I » CANDY I NX ) J 03802500 

F0RK(P(,0UITTER)fSHSTCCTF3»-2»96f 1); 03803000 

IF LINETABLEtSU.READYQED THEN 03803500 

BEGIN 03804000 

LINETABLE[S13,READYQEDI*0; 03804500 

IF (II«<VI»STATABLE[0]),CCF))-SI THEN 03605000 

STATABLEt03l*V&STATABLE[Sl JtLINKEMJ ELSE 03805500 

BEGIN 03806000 

WHILE PCSTATABLEmtDUP),LEENKER#Sl DO 03806500 

I»*P.LEENKER; 03807000 

STATABLE t II * *P( XCH) & STATABLE C SI J [ L I NKEMJ J 03807500 

IF V,tFF3«Sl THEN 03808000 

5TATABLECOJ*V»I[CTF3» 03808500 

ENDJ 03809000 

STATABLECS13,LEENKER|*0I 3809500 

ENDJ 03810000 

GO TO AUTI 03810500 

ENDJ 03811000 

IF BUSY THEN 03811500 

BEGIN 03812000 

S SET OMIT * TWXONLY 03812090 

IF D«MULTI THEN 03812100 

IF L LSS WRBUSY THEN GO AUTJ 03812200 

* POP OMIT 03812210 

IF NOT <H*LINETABLE[Sn),[20llJ THEN JUNKER! 03813000 

IF Li»WRB THEN % IDLE OR READING 03818500 

BEGIN F0RK(P(,DCBUSY)#USICCTF]»1#128»1)I 03818751 

GONEJ LisWRBUSYJ 03819000 

GO TO ACTINTJ 03819250 

ENDJ 0381950Q 

El«4» * FALLS THRU TO ERROR 03819750 

ENDJ 03820000 

% DCBUSY TRIES TO EXPLAIN WHAT HAPPENED TO THE 03820500 



ERROR t 



JUNKET! 



% KLUTZ ON T 

FORKCPC.DCER 
IF E»0 THEN 
BEGIN NEXTDC 
GO TO F 
END ELSE GO 
ENDI 

*ACTIVE INTERROGA 
IF NOTREADY THEN 
IF L * RRA THEN 
BEGIN 

LSTATUSCSUi 
IF PAPERTAPE 
BEGIN 

Mt(V*GE 
ENTERLI 
SEQUENC 
END! 



HE OTHER END OR THE LINE, 
R)iRSE(4l44l4]i 1.90,0)1 

101 

inish; 

AUTJ 

TE 

GO TO DISCONN; 



slDLJ 

(SI) THEN NEXTDCIO ELSE 

TAREA(0))4l]«-e2425435736743700) 

NEQ(V#S1.1)I 

EJ 



Il*LlNETABLE 

junker; 

IF I,[CF)#0 
GO TO FINISH 
ENDI 
S SET OMIT » TWXONLY 

IF L'SELECTANS OR 
BEGIN It«GETAREAC 
GO TO SELECT 
ENDI 
$ POP OMJT 

IF L - WRBUSY THE 
IF IDLE THEN 
GO IQUEIT ELSE 
THR0WAWAY[S13«-TRU 
GO AUTJ 
ENDI 

% READ OR WRITE 
I * I0QUECS3 , CCF3-1 J 
IF R,ICF] * 1 + 1 THEN 
BEGIN *READ OR WRITE 
IF R,t30lU THEN 
$ SET OMIT m TWXONLY 

IF D'MULTI THEN 
IF STATABLECSTJ.D 
BEGIN STATABLEtST 
L»«SEOARRAYt 
SEOARRAYISU 
GO TO ENQNAK 
END ELSE 
$ POP OMIT 

GO TO DISCONNl 
IF R,t24lU THEN 
BEGIN XREAD 

F0RGETllE»«3 
END) 
$ SET OMIT * TWXONLY 

IF D*MULTI THEN 
BEGIN EI»15I 

GO TO ERROR? 
ENDI 



[Sl)> 

THEN FORGETU 
I 



L*MSGANSWER THEN 
0)1 

NAKJ 



N XBUSY INTERRUPT 



E> 



XLOST LEFT ARROW 



BOUNCED BACK 



IALEDUP THEN GO TO DISCONN ELSE 

J.[CFJ»*OJ 

ST]l*C*P(DUP))&lt3»47il]l 

l*(*P(DUP))&L[40»32|8]l 

I 



IGO TO ERROR! 



03821000 

03821500 
03822000 
03822100 
03622200 
03822300 
03822500 
03823000 
03823500 
03824000 
03824500 
03625000 
03625500 

03826009 
03826500 
03827000 
03827501 
03828000 
03828500 
0382900S 
03830000 
03831000 
03833000 
03833500 
03833590 
03833600 
03833700 
03633600 
03633900 
03633910 
03634000 
03834500 
03835000 
03835500 
03636000 
03836500 
03837000 
03837500 
03638000 
03838500 
03636600 
03838695 
03838700 
03638800 
03838900 
03839000 
03839100 
03839200 
03839300 
03839305 
03839406 
03639500 
03840000 
03840500 
03841000 
03841490 
03841500 
03641600 
03841700 
03841800 



$ POP OMIT 03641810 

LlMDL) 03341900 

GO TO AUTI 03842000 

END; 03842500 

IF ItCRDRDYJ THEN GO TO READACT IONC L , £44 > 4 J J ELSE 03843000 

BEGIN STATABLECST],tCF)««MU)| 0384350S 

$ SET OMIT p NOTCTWXONUY) 03843995 

GO TO WR1TERDYJ 03844000 

* POP OMIT 03844065 

* SET OMIT m TWXONLY 03844495 

GO TO WRITEACTIONCUI 03844500 

S POP OMIT 03844505 

END! 03845000 

BIGJOKE 1 I 03845500 

Lt»NQRMAL; 03846000 

IF LINETABLECS1M20I1] THEN GO TO READRDY; 03846500 

$ SET OMIT « TWXONLY 03846995 

IF D«TWX THEN 03647000 

BEGIN 03847500 

$ POP OMIT 03847505 

IF CPCMCI + UtTOP) AND PC XCH ) , I i» 5] s?37 ) 03848000 

THEN SEQARRAYCSn+O? 03648500 

$ SET OMIT « TWXONLY 03848995 

END ELSE 03849000 

BEGIN 03849500 

IF D*MULTI THEN 03850000 

BEGIN 03850500 

STREAM(Ii«I«ltEl"[EJ)i 03851000 

BEGIN 03851500 

SI*llSI«-SJ*HDS*LIT "0"; 03852000 

IF S C * w # ,f THEN 03852500 

BEGIN 03853000 

SI*S1*1ITALLY*21 03853500 

ENDI 03854000 

DS*CHRIIF SC»"* H THEN 03854500 

BEGIN 03855000 

SI*SI*1ITALLY*TALLY+1| 03855500 

ENDI 03856000 

I*TALLY;DS*CHR; 03656500 

ENDI 03857000 

E»«P&EC34|6I12]; STtsSlI 03857500 

DO IF P(SEQARRAY[ST]iDUP),[12ll4J#E 03858000 

THEN ELSE GO TO AUS 03858500 

UNTIL CST*P,LINELINK)«Si; 03859000 

EloZIGO TO ERROR! 03859500 

AUSt Tl»STATABLE[STJ,STATlONTYPE> 03860000 

SEQARRAY[ST]f«PCXCH)&0[4l46l2jJ 03861000 

SEQARRAYtSl),[40l8J*STl 03861500 

END ELSE 03862000 

BEGIN ^CONTENTION 03862500 

STREAMC1 |»H-H)| 03863000 

BEGIN SII»I; 03663500 

IF SC * "S" THEN TALLYlMJ 03864000 

II»TALLYI 03864500 

END) 03865000 

IF P THEN ELSE GO TO WAJTENQ; 03865500 

ENDI 03666000 

IF NOT STATABLFCSn»DlAL£DUP THEN HlTHEREJ 03866500 

Eft 2251252142665164; X "BREAKWRU" 038669Q0 

STREAM(J|«T«BIDS| II"I*l'El*[E))J 03867000 



EXXi 



BEGIN SH'll 

IOC IF SC * HWM THEN 
Sit»Si*ii IF SC#"#" 
IF SC»MARK THEN 
BEGIN 

SI I=SI + 1I 

IF 5 SC*»DC THEN 

BEGIN 

S!lwSl*5J 
IF 3 SC*DC 
END! 
ENDI 
Jl*TALLY| 



£>lt»Sltl ELSE JUMP 
THEN SllaSUl ELSE 



TALLYI»3 ELSE 



THEN TALLYj»2» 



OUT) J 
GO TO 



EXXJ 



ENDI 

IF (El*P)#0 THEN IF EM THEN % DISCARD ETX ONLY FOR 

BEGIN VS*U LSTATUS[S1JJMDLI GO TO ACKJ END ELSE 

LINETABLECS1]I«(*P(DUPJ)&ECCTC1&1[20|47IUI 
END) 
* POP OMIT 
READRDYU 

M[I J,[iO|8J»STl 
P(tSTATABLE[ST33#IOR}> 
IF GROUPMARK THEN 
BEGIN 

IF (El«(Li»(LlNETABLE[Sn»-(*P(DUP)) 

CI0LC2H43l5])) ( t20ll]) THEN 

BEGIN 

FORGETllLlNETABLECSUI»L*0[20i«niJI 
$ SET OMIT * TWXONLY 

IF D#TWX THEN 
BEGIN 

Vl*GETAREACO)> 

IF l,[CM»0 THEN ELSE GO ACK; 

IF (E*P(SEQARRAY[STJ»UUP),NAKCNT+1) 

LSS P(XCH),NAKMAX THEN 

BEGIN 

M[V+1 J*P0537000000000000l *NAK 
MtV3,tMSGSTAT3<-NAKlNG» 
END ELSE 
BEGIN 

E*OI 

Mt V*J ] l«NOT 01 % DISCONNECT 

MtVJ,[MSGSTATj*DISCON) 

end; 

seqarraycstj,nakcnt*e; 

enterlineqcv.stu)* 

GO F INI SHI 

END ELSE 
S POP OMIT 

GO TO AUTl 
ENDI XNEXT IS NO THROWAWAY 
V*GETAREA(0)» 
OMIT * TWXONLY 
IF D*TWX THEN 
BEGIN ^CONTENTION OR MULTIPOINT 

IF T # TC500 THEN 

TNA0GCSE0ARRAYCST],[PTRJ] i (28»2O3j»0j 

SEQARRAY[STJ,NAKCNT*OI 



BIDS 



S SET 

ACKl 



03867500 

03866000 

03866500 

03869000 

03869500 

03870000 

03871000 

03871500 

03872000 

03872500 

03673000 

03873500 

03874000 

03874100 

03874500 

03874600 

03874900 

03675000 

03675500 

03675505 

03876000 

03876500 

03877000 

03877500 

03878000 

03878500 

03879000 

03879500 

03880000 

03880495 

03880500 

03881000 

03881500 

03882000 

03882500 

03883000 

03883500 

03864000 

03884500 

03885000 

03885500 

03886000 

03886500 

03887000 

03887500 

03868000 

03688500 

03689000 

03689500 

03889505 

03890000 

03890500 

03891001 

03891495 

03891500 

03692000 

03892500 

03893000 

03893500 

03894000 



M[V + U«-P34370000O00O00OO; *ACK 03894500 

MCV3,CMSGSTATJ«-ACKINGJ 03695000 

ENTERLINEQ(V»ST»1)I 03895500 

IF E THEN GO FINISH* 03696000 

ENO ELSE 03696500 

% POP OMIT 03896505 

IF PAPERTAPEtSU THEN 03897000 

BEGIN 03897500 

NEXTDCIOl 03698000 

rORGETAREA(0»V)J 0389850t 

END ELSE 03899000 

BEGIN 03899500 

STREAM(V*V+I)J 03900000 

DS*AL J T w <<»**» , l 03900500 

ENTERLINEQ(V#S1#1)I 03901000 

SEQARRAYtSl]t"(EI«*P(DUP))& 3901500 

<E,C2U27] + E.C2U9J)mj21l27J* 03902000 

sequence; 03902500 

ENDJ 03903000 

M[!]|*<*P(DUPmi[5l«mJt(Vl»LINETABLE[SlJ}[CTn» 03903500 

IF V, tCF3»»0 THEN Mt V J, CCF J*I I 03904000 

LINETA8LECSn*V40CCTCJ> 03904500 

GIVEAWAY(I)J 03905000 

GO FINISHI 03905500 

ENDI XNEXT IS IFAL ENDING-MORE TO CQMt 03906000 

IF THROWAWAYtSU THEN 03906500 

BEGIN 03907000 

FORGETUGO TO AUTJ 03907500 

ENDI 03908000 

IF (V*LINETABLEISn),CCFl#0 THEN 03908500 

BEGIN 03909000 

MCVlifCFJMJ 03909500 

IF (E*M[VJ,t7J33 + l)»(8 DIV C V t BUFS 1 2E + 1 ) ) THEN 03910000 

BEGIN 03910500 

MU3*(*P(DUP)HV[CTFj; 03911000 

LINETABLE[Sn*V&OtCTCJ* 03911500 

GIVEAWAY(l)! 03912000 

GO TO AUT; 03912500 

END* 03913000 

END 03913500 

ELSE EMI 03914000 

MUW *PC DUP ) )&Et 7 I 45 I 3 1& VtCTF Jl 03914500 

LINETABLEtSlJ*VU[CTCJl 03915000 

AUTH NEXTDCIOI 03915500 

FINISH LSTATUS[SU*LI 03916000 

GO TO FINISHI 03916500 

* SET OMJT » TWXONLY 03916995 

ENQRDH 03917000 

STREAM(VI»I+1I)I 03917500 

BEGIN 03918000 

S!l»V| IF SC""*" THEN SJ|*Sl+4| XJGNORE HEADER 03918500 

IF SC»"$" THEN TALLYH3 ELSE 03919000 

IF SC> "I" THEN TALLYM1I 03919500 

VI«TALLYI 03920000 

ENDI 03920500 

IF CV?*P) OR (EI*LINETABLECSU),C20»1J THEN 03921000 

IF V«3 THEN GO TO EOT ELSE 03921500 

BEGIN 03922000 

LINETABLECSUUE40C20I47I1JI 03922500 

Mti'j,C5l5JI«P0LLINGl 03923000 



MtI*Ul«e0537000000000000J *NAK 03923500 

END ELSE IF NOT TANKOKtSTJ THEN 03924000 

BEGIN 03924500 

M[Il|t5l5JIMCKlN6ENQl 03925000 

Mri + l]l*t»343700000000000Q; BACK 03925500 

END ELSE 03926000 

BEGIN 03926500 

EOTIT! 03927000 

Mtll,t5l5Jl«P0LLINGI 03927500 

STREAMCI l»I+l)JDSt»2 LIT "$*") 03928000 

END! 03928500 

COONGRIULI 03929000 

LSTATUS[S1]*L*IDL> 03929500 

ENTERLINE8(I»S1»J)I 03930000 

GO FINISH) 03930500 

MSGANSlI 03931000 

IF <Ef«UNETABLECSlJ),[20!U THEN 03931500 

BEGIN 03932000 

UIMETABLECS1JIPE*0[20I47I1J1 03932500 

GO TO SEUECTNAK; 03933000 

END! 03933500 

IF D«C0NTENTJ0N THEN SEQARRAY t ST ] , [ 4 II ] J*0> 03933900 

STREAM(AI»I+1I)I 03934000 

BEGIN SI»*AJ IF SC*"*" THEN SIt*Sl*4J XSKIP HEADING 03934100 

IF SC » LEFTARROW THEN TALLY*«2» 03934150 

IF SC«"&" THEN TALLVIkI) At*TALLY) 03934200 

END) 03934300 

IF (EI»P)*2 AND D»MULTI AND L THEN 03934310 

BEGIN STATABLE[ST]l*(Vl«*P(DUP))4Vt23l22llHU24l47lim[21147in 3934320 

&OCCTC 3 1 03934330 

WHILE CE»»V,[CF]) NEQ DO FORGET AREA ( ( V » *M[ E 3 ) , t 2 * 21 * E ) ) 03934340 

NAKHANDLER) 03934350 

LSTATUStSUl«IOLl 03934360 

Mtn»*0|SELECTt5»43l5Jl 03934370 

STREAM(A»«El«SEQARRAYCSn#Cl)»Ei[24U J»C2««E.[25llJ» 03934380 

C3!*CEi[24ll J NEQ E.[25llJ)tRj*I+l)l 03934390 

BEGIN SII*L0C A) SIl*Sl+2j OS t»LI T W S M ) 03934400 

CKOSI-LIT »*»)} DS»*CHRI 03934410 

C2CDS»*L!T »#")) DSl»CHRl 03934420 

C3CDSl««LIT "#")* DSl*2 LIT "QX") 03934430 

DSt«LIT LEFTARROW) 03934440 

ENOI 03934450 

ENTERLINEQ(I»S1»1)I 03934460 

GO TO FJNISHJ 03934470 

ENOI 03934480 

IF E THEN 03934490 

BEGIN SACKED THE WRITE 03934500 

IF L THEN 03935000 

BEGIN XI T WAS A MESSAGE 03935500 

MSGACKl 03936000 

El»(TNAOGtVl»SEQARRAY[STJ.lPTR]]t« 03936500 

UPCOUPmTANKStSTH 1U4I 13 j)| 03937000 

STATABLEtSTJi»(*P<0UP))*P(DUP)t22l23UJl 03937500 

IF T * TC500 THEN 03938000 

BEGIN IF D#MULTI THEN SEQARRAYC ST J , t 3 1 1] I »1 ) 03938500 

DETANKl 03939000 

END ELSE 03939500 

IF ST ■ ABS(SPOWORD) THEN 03939600 

BEGIN TNA0G[V)I«E4U42|42I63I 03939700 

DETANKl 03939800 



END ELSE 
IF CThA0G[V]|«EIE[36l42|6)},[42!6]#E*[14l6J 
SEQARRAY[ST)»»ABS(*P(OUP))> 
IF D ■ MULTI THEN GO TO ENQNAK ELSE GO TO 

END; * ACK TO SELECT IS NEXT 

SEQARRAY[ST3l«(*P(DUP))&0C9l45l3]&0[4l46»2]; 

GO ENONAKJ 

ENDJ XNAKKed IS NEXT 
SELECTNAKl 

$TATA8LE[ST3|B(V|»*P(DUP))8,Vt23«22llJ&lC24U7tn&H2l»47tl 

WHILE CEl*V,CCF])#0 DO FORGETAREAC ( V » *M[ E 3 ) , C 2 I 2 J »E ) I 

IF L THEN 

BEGIN % NAK TO A MESSAGE 

NAKHANDLERJ 

GO TO BREAKER; 
END ELSE 
BEGIN * NAK TO SELECTED 

SEQARRAYCST]|*ABS(*P(DUP))J 

IF T * TC500 THEN 

IF DISCONNECTlNGtSTJ THEN 

BEGIN 

VlwGETAREACO)! 

MClJl»C*P(DUP)>*7[5l43l5JtV[CTC]l 
STREAMd »»I+1)JDS«»2 LIT"**"; 
M[VJ.t5l53l«7; 
M[V*13»»N0T 01 
GO COONGRILLI 
ENOI 

M[(EI»GETAREACO))*Ul"STI 
IF (VI*SEfiARKAYC0]) t [l6»30}«0 THEN 
FORK ( PC ,NAKQUE)» 0.1* 96*1); 
M[E+23l*CLOCK+P(RTR)J 
IF V,EFFJ»0 THEN Vl«VSEtCTFJ 
ELSE M[V,[3ll5]],tCFJisE; 
SEQARRAYC03«*V&EC3I33I15]| 
IF D»MULTI THEN GO ENQNAK ELSE GO EOTIT) 
END1 
NOTHEREH 

IF D * MULTI THEN 

BEGIN IF SEQARRAYCSlJ.LINELlNKisSl THEN 
IF NOT STATABLE[SU,DIALEDUP THEN 
BEGIN SEQARRAY[SU.[3I3]I*4; GO TO 
END ELSE IF T*TC500 THEN 
BEGIN 
WAITENQI 

LI'WAITINGENQI 
FORGETNOUEI 

FORGETU 

GO queit; 
end; 

ZEITAUStl 

FORK(P( t DCTlML0UT)f USHCTFJt 1*96*1 )f 

GO TO AUTJ 
EOTU 

IF (El"LINETABLECSU).tCFJ * THEN 

BEGIN 

LINETABLECS1J*E40CCTC3I 
BREAKITH 

FORGETU 

IF D»TWX THEN GO AUT» 



THEN DETANK; 

eotit; 



3&OCCTC3; 



% one station on line 
enqnak; end; 



03939900 
03940000 
03940500 
03941000 
03941500 
03942000 
03942500 
03943000 
03943500 
03944000 
03944500 
03945000 
03945500 
03946000 
03950000 
03950500 
03951000 
03951500 
03952000 
03952500 
03953000 
03953500 
03954000 
03954500 
03955000 
03955500 
03956000 
03956500 
03957000 
03957500 
03958000 
03958500 
03959000 
03959500 
03960000 
03960500 
03961000 
03962000 
03962100 
03962200 
03962300 
03962400 
03962500 
03963000 
03963500 
03964000 
03964400 
03964500 
03965000 
03965500 
03965900 
03966000 
03966500 
03967000 
03967500 
03968000 
03968500 
03969000 
03969500 
03970000 



IF E THEN GO BRAKE ELSE GO DSITJ 
END] 
DETANKJ 

IF D»CONTENTlON THEN 
IF T m TC500 THEN 
GO EOTIT ELSE GO WAITENQ 
ELSE GO TO ENQNAKJ 
$ POP OMIT 
RORDYABNH 

STREAM(T*I*Hfi*IF P( L 1 NET ABLE C SU ,BUFS I ZE»DUP ) 

*2 THEN P*2 ELSE P + l 3 1 

BEGIN 

SI*TJ 

Q<28CIF SC« H >" THEN 

BEGIN 

TALLYMJ 

JUMP OUT 2 TO LLLLJ 
END ELSE 

IF SC*"*" THEN JUMP OUT 2 TO LLLL ELSE 
SI»SI+1))I 
LLLLt TOTALLY) 
ENOI 

IF P THEN ^RECEIVED EOT OR EXC. PT« 
BEGIN 

FORGETU 
ACTINTt LLNRJ8S1I 

INITIATEDCl0ClNTERR0GATEMASK&Rt9t9»9]»S); 
GO TO FINIS* 
END ELSE 

GO TO READRDY;XTHERE ARE 14 S IN THE BUFFER 
WRITERDYJ I 

P(tSTATABLt[ST]]»lOR)l 
IF M(I),C4IU THEN DETANKJ 
BREAKER! I 

FORGETU 
GO TO AUTI 
$ SET OMIT = TWXONLY 
POLLBACKfi 

IF SEQARRAYCST],C4I2J*0 AND D*MULTI THEN 
BEGIN Lt»IDLPOLLING* 

IF STATABLEtSTJ.tCFJi'O THEN GO FORGETNQUE ELSE GO BREAKERI 
END ELSE 
GO TO BREAKERI 
ENQACKI ! 

l*firstime; 
go to breakeri 

ENONAKti 

FORGETU 
$ POP OMIT 
IQUEITU 

L*IDL) 
QUE I T l I 

LSTATUSJSlJ-L! 
ENTEREADYQ(ST); 
FINISH! I 

IF UNITC303 1 1 151 3J * THEN 
BEGIN 

UNITt 303 , C 181 151 * NOT 01 

RETURNIOSPACE(S)! 

IF FIRSTWAIT t NEXTWAIT THEN NEWIO! 



03970500 

03971000 

03971500 

03972000 

03972500 

03973000 

03973500 

03973505 

03974000 

03974500 

03975000 

03975500 

03976000 

03976500 

03977000 

03977500 

03978000 

03978500 

03979000 

03979500 

03980000 

03980500 

03981000 

03981500 

03982000 

03982500 

03983000 

03983500 

03984000 

03984500 

03985000 

03985500 

03986000 

03986500 

03987000 

03987500 

03987995 

03988000 

03988500 

03988600 

03988700 

03988800 

03989000 

03989500 

03990000 

03990500 

03991000 

03991500 

03991505 

03992000 

03992500 

03993000 

03993500 

03994000 

03994500 

03995000 

03995500 

03996000 

03996500 

03997500 



END! 03998000 

PC INI ) I 03998500 

GO TO EXTERNAL! 03999006 

END DCI0FINISH9801 03999500 

SAVE PROCEDURE INI T I ATE J 0( 10DESCtMIX»U) I % 04000000 

VALUE lODESC»MiXtUIX 0400*000 

REAL MlXtUjX 04002000 

real iqdesc** 04003000 

begin label exiti* 04004000 

real pt» + 1 ; xr5904004100 

PCTIO)! *R5904Q04200 

$ SET OMIT * NOTCSAVERESULTS OR DEBUGGING) 04004499 

IF U*30 THEN STORAWAYI»l<->DESCJ 04004500 

* POP OMIT 04004501 

CHANNEL[P(DUP)3*Ul 04005000 

P(UODESC)#IIO)|X 04006000 

CMANJOCPTJl«CLOCK+PCRTR)| XR5904 007000 

IF U < 16 THEN* 04008000 

IF I0DESCI22I1J THEN* 04009000 

BEGIN TRANSACTIONS) * IF I ODESC , t 18 « 1 3 THEN 0% 04010000 

ELSE TRANSACTIQNCUJ-UX 04011000 

GO TO EXITS* 04012000 

ENDI 04013000 

TRANSACTIONS) ♦ *PCDUP)+1J* 04014000 

S SET OMIT 9 NOTCSTATISTICS) 04014009 

IF (U OR 1)519 THEN 04014010 

BEGIN C0UN1UP(0»I0DESC|[27I6J)J 04014020 

C0UNTUPBYC32»CL0CK+P(RTR)-DISKWAITIME[NT3J)« 04014022 

IF MIX NEO THEN COUNTUPBY ( 9, 1 ) | 04014025 

CQUNTUPBY(2#U*18)J 04014030 

Ul *MC 100ESC J I 04014035 

IF CMlX|»U,t6l6]> > 2 THEN COUNTUPBYC 5» LEFTHALF 1 ) ELSE 04014038 

C0UNTUPBY((MlX»2)+4iIF MIX THEN LEFTHALF1 ELSE 1)1 04014040 

STREAM(Ut»[U3)l BEGIN SI l*U? DS|«8 OCT ENDI 04014045 

MlXl»J0DESC,C27l6]i 04014047 

IF U GEO MCPBASF AND U LEO MCPTOP THEN C0UNTUP( 1 0, M I X ) | 04014050 

IF U GEO ESPDISKBOTTOM aNd U LEO ESPDISKTOP THEN 04014055 

C0UNTUPC11»MIX) ELSE IF U GEO D 1 RECTORY! OP THEN 04014060 

IF U LSS BYPASSBOTTOM THEN 04014065 

C0UNTUP(((U-DlRECTQRYT0P),[44l4J»3)+25fMIX) ELSE 04014067 

IF U LEO D1SKB0TT0M THEN COUNTUPC 12. MJX ) I 04014070 

C0UNTUPBYfl3»I0DESC,tCFJ LSS FENCE)! 04014080 

C0UNTUPBY(36-PT,C47in.IF PT*3 THEN UEFTHALF1 ELSE 1)1 04014085 

END ELSE C0UNTUPBY(59-PT,t47»lJ#IF PU3 THEN UEFTHALF1 ELSE 1)104014090 

$ POP OMIT 04014095 

EXITIENDI 04014100 

SAVE PROCEDURE WAI TORSWAPCU. A) I VALUE U*AI REAL UiAl 04014200 

BEGIN REAL Nl 04014300 

label l* o4oi44oo 

LI 04014500 

BEGIN CLKK*CL0CK*P(RTR) + 32l 04014600 

SLEEP<[M[A))»IOMASK)| 04014700 

IF (MCA) AND IOMASK)#0 THEN P(XIT)| 04014710 

IF PIMIXJO THEN 04014800 

BEGIN 04014900 

IF (NT2*UNIT[U),U3I5))»16 H NT2 = 31 THEN 04015000 

IF CMEM[PlMlX»0)),tCF)iFENCE THEN 04015100 
BEGIN REPLYCP1MIX)*«V0KJ SWAP( WA I TSWAP» 1 ) I ENDI 04015200 
IF TERMSET(PIMIX) THEN XR7004015290 

IF (N*N*1)>9 THEN 04015300 



IF U#25 THEN 04015310 

begin iR7OQ40i54O0 

UNITCUJt*(*P(OUP))&UOCATQUEt SR700401541 

Nl»PCDUP),[FF3 3lFTF3&OU3»13l53; XR7004Q15420 

RETURNIOSPACECN); 04015430 

MCA3l*(*PCDUP))U[30{47« 13 OR iOMASKj XR7004015460 

PC XI T ) ; 8R7004015470 

END; SR7004015480 

END) 04015500 

END) GO TO L.J 04015600 

ENOI 04015700 

SAVE PROCEDURE QUEUEUP(U); VALUE U I REAL U ? * 04016000 

BEGIN IF U*30 THEN 04016100 

WA!TQUE[FIRSTWAITI«(FIRSTWAIT+31) AND *13»*U ELSE 04016200 

BEGIN WAITOUETNEXTWAIT] * UII 04017000 

NEXTWAIT » NFXTWAJT+1 AND 311% 04018000 

ENDlX 04019000 

ENDI 04019100 

i SET OMIT * NOTCDFX) 04019499 

SAVE PROCEDURE LINKfUl 04019500 

BEGIN REAL EU»NT4; 04019600 

IF EUW,tFF3 GTR 1023 THEN EUW « »EU&EUt CTF 3 ELSE 04019700 

EUQCEUW,tCF3 3,[3ll5 3«*EUWl*EUW&EU[CTC3; 04019800 

END) 04019900 

t POP OMIT 04019901 

SAVE PROCEDURE STARTIOCU); VALUE UJ REAL UJ* 04020000 

BEGIN REAL T»NT1»R*NT2» S*NT3|S 04021000 

$ SET OMIT » NOTCDFX) 04021099 

LABEL BACK; XDFX04Q21 100 

S POP OMIT 04021101 

IF (T * UNITCU3),U3»5J » THEN* 04022000 

IF CS * T, C18U53) < P1777 THEN* 04023000 

S SET OMIT « NOTCDFX) 04023099 

BACKl XDFX04023100 

» POP OMJT 04023101 

BEGIN IF PCTIO) * THEN* 04024000 

BEGIN INITI AT EIOCIOQUEt S3 .LOCATQUEt S3, [31 5304025000 

»U)U 04026000 

PC3);4 04027000 

END* 04028000 

ELSE BEGIN QUEUEUPCU);! 04029000 

PC4H* 04030000 

ENDJX 04031000 

PCT&PCXCH)[15t45»3Jf CUNIT[U3 3»*);X 04032000 

$ SET OMIT * DFX 04032999 

END;* 04033000 

$ POP OMJT 04033001 

S SET OMIT * NOTCDFX) 04033049 

END ELSE XDFX0403305* 

IF CU AND P76)*18 THEN XDFX04033100 

BEGIN 04033150 

IF EUW<P7777700000 THEN XDFX04033200 

BEGIN NT4*S*CT*TSEU0CR*EUW,[FF33[18I18I30J),CFF3; XDFX04Q33300 

EUW* EUW & EU6[R3[l8i3Ji53; IDFX04033400 

EU0[R3*-NABSCU); XDFX04033500 

IF U«19 THEN DO J OQUEI NT4 3 , [ 3 I 5 3 * 12 XDFX04033510 

UNTIL CNT4*LOCATOUE[NT43,lFF3)>1023; IDFX0403352Q 

GO BACK; XDFX04033600 

END; XDFX04Q33700 

DISKOUNTlsDlSKOUNT+i; 04033800 



ENOI 04033900 

* POP OMIT 04033901 

ENDlX 04034000 

SAVE PROCEDURE PR I NTERF I NI SHC U) J VAUUE Ul REAL UJX 04035000 

BEGIN 04036000 

* SET OMIT ■ NOTCNEWLOGGING) 04036099 

ST0PL0G(P1MIX»0)J 04036100 

* POP OMIT 04036101 

IF NOT UNITtUJ,tl6llJ THEN UNI T [Uj , [ 17 J U * 01 04036200 

START!0(U)JS 04037000 

GO TO EXTERNAL** 04038000 

ENDJX 04039000 

SAVE PROCEDURE IOREOUESTCF I NAL» IOOESC »LOCAT ION) J X 04040000 

VALUE FINAL»IODESC»LOCATION1X 04041000 

ARRAY FINAL#L0CATI0NUJ;* 04042000 

REAL IODESCJ* 04043000 

BEGIN REAL U»NT1 • T*NT2# S»NT3» R»*l f X 04044000 

$ SET OMIT * NQTCDF'X) 04044099 

REAL EU«NT4; XQFX040441QO 

LABEL FAKE»DOlT#INf XDFX04Q4420Q 

S POP OMIT 04044201 

IF IOOUESLOTS LEQ 04043000 

(Ul*IF LOCATION, [9|1J OR P1MJX*0 THEN ELSE 7) THEN 04045100 

SLEEP<riOQUESLOTS3#rr< r -U)l 04045200 

IOQUEAVAIL * IOQUECSjsIOOUEAVAILJl 04046000 

t SET OMIT = NOTCSTATISTICS) 04047009 

DISKWAITIMECSJ|»CL0CK+P(RTR); 04047010 

$ POP OMIT 04047011 

$ SET OMIT « NOTCOFX) Q4Q47099 

IF C(U*L0CATI0N,(1?|6J) ANO 62) « 18 THEN XDFX04047100 

BEGIN IF CT*EUQtEU*MCI0DESCJ,C6«6)])<0 THEN GO FAKEl XDFX04047200 

IF T,[2«n THEN 04047300 

IF OISKOUNT > THEN 04047350 

BEGIN U * 18> 04047400 

IF P(RRR).[29llJ THEN 04047450 

INI IF UNITlUJ.tFFJ > 1023 THEN 04047500 

BEGIN DISKOUNT*DlSKQUNT-i; XDFX04047600 

EUO[EU]*NABS(T*U)J XQFX04047700 

FAKEl I0DESC*I0DESCSTlNU[U*ABS(T)H3l3l53J XDFX0404780Q 

LOCATION, C12t6]«-Ut XDFX04047900 

GO DOIT X0FX04048000 

END! 04048050 

IF U * (UM9) THEN IF P(RRR) f [28|lJ THEN GO IN; 04048060 

DISKOUNT*OI XDFX04048100 

ENOI 04048125 

IF T,IFF3>P1777 THEN XDFX04048150 

IF (Tl«TIS[CTFHS[CTC))iC2M] THEN LINKEU ELSE ELSE04048200 

LOCATOUE[T,[CFJ],tFF]«-T*T*StCTCJl XDFX0404845Q 

EUQtFUUTl X0FX04048500 

END ELSE X0FX04048550 

BEGIN XDFX04048600 

DOITl IF (T*UNIT[U]),I13I51 « THEN XDFX04048650 

* POP OMIT 04048651 
$ SET OMIT * NOTCDKBNODFX AND NOT DFX) 04048701 

IF(Ul*LOCATION f (12I6DM6 THEN 04048705 

IF M[I0DESC] ( t5Ul THEN 04048710 

BEGIN 04048715 

L0CATl0N,C12l6J|«Ul*l9l 04048720 

I0DESC,t3|5Ji«12J 04048725 

END) 0404873* 



* POP OMIT 04048731 

t SET OMIT * DFX 04048799 

IF (T * UNITCU «■ LOCATION, [12l6J)),[13i5J * THIN 04048800 

t POP OMIT 04048801 

BEGIN IF P(TIO) # THENSt 04049000 

BEGIN INI Tl ATt IOC I ODESC »P1M I X,U ) ) S 04050000 

PC3))X 04051000 

END ELSE BEGIN QUEUEUPCU))* 04052000 

PC4)U 04053000 

END)* 04054000 

T * UP(XCH)U5l45|3HSU8l33U53;X 04055000 

END ELSFX 04056000 

IF T,CFF]>1023 THEN 04057000 

if T,u3i5]*P3i then 04057100 

BEGIN 04057200 

I0QUEAVAIL*S) 04057300 

PCX IT) 04057400 

END ELSE 04057500 

T , 1 18 1 15 J * S ELSE* 04058000 

L0CATaUE[PCT,[33»15J»DUP)J«-L0CATQUECR]&X 04059000 

SC lfll 331 153 1* 04060000 

$ SET OMIT » NOTCDFX) 04060099 

UNIT[UJ*US[CTC)? XDFX04060100 

END! XDFX04060200 

$ POP OMIT 04060201 

IOQUESLQTSl«IOWUESLOTS-i; 04060500 

LOCATQUEtSJ * LOCAT I QN&P1M1 X t 3 J 43 1 5 i OR 07777700000) % 04061000 

$ SET OMIT * DFX 04061999 

UNITCU) ♦ T4St33»33tl5)»* 04062000 

$ POP OMIT 04062001 

I0QUEISJ * IODESCIX 04063000 

I0C0UNT[P1MIX)«.*PCDUP)*(T,U3!5]#16)J 04063100 

FINALOUECS] * FINAL1X 04064000 

ENDlK 04065000 

SAVE PROCEDURE F I N I SHOFF IOC U) ) VALUE U) REAL UjX 04067000 

BEGIN REAL T«NTl» FIN*NT3» V«NT4» I0D»NT6) 04068000 

LABEL 0N#0FF.C0.Cl.C2»C3»C4tC5#C6,C7U 04069000 

SWJTCH CSW ♦ C0»CliC2»C3»C4#C5#C6»C7;i 04070000 

IF FIN > THEN* 04071000 

IF FIN.C25IU THEN* 04072000 

BEGIN T * FIN, [315)11 04073000 

FIN * FIN&I0D[3f 3I5J&0C25I25U }}% 04074000 

GO TO CSWCTJJX 04075000 

END ELSF GO ON ELSE GO QNJX 04076000 

COl GO TO COJX 04077000 

Cil F IN* C8I 103 * VI* 04078000 

GO TO C2JX 04079000 

C3l F IN 9 C6t 103 * V)X 04080000 

C4t FIN * NOT V INX 1 INX FI N| * 04081000 

GO TO C5)X 04082000 

C6I STREAM(A*0I I0D)»X 04083000 

BEGIN DI * LOC A! SI •• IOD) SI ♦ SI+4) DS*4 OCT END) 04084000 

T *• P DIV 8-1IX 04085000 

OFFI FIN, [81101 * T)X 04086000 

GO TO C2)X 04087000 

C7I STREAM(A*0lI0D))X 04088000 

BEGIN 0! * LOC Al SI * IOD) DS * 4 OCT END)* 04089000 

T * P DIV 8-1JX 04090000 

FIN * (NOT T INX 1 INX FINHTC6) 381 10 Jl % 04091000 

GO TO C5)X 04092000 



C2I 

endi* 

REAL MCPI 

PROCEDURE PROGRA 

BEGIN NA 

ARR 

REA 

ARR 

REA 

CHE 

lOCN*MtS*( IF( 



ONI IF U < 16 THFNX 

IF I0D,[22tl3 THEN* 
C5l M[IOD INX 11 * MtNOT V INX lOD INX 13 ♦ V* 

ELSE* 

MUOD INX NOT 03 * VI* 



BEG 

$ SET OMIT « NOT 

S POP OMJT 

IF JUN 

OR M 

IF (USERCODEt 



MRELEASEI* 

ME Tl REAL FSXwJUNKI 

AY R«-4[*3lS 

L IOD»NTll* 

AY L0CNf*3l* 

L SI 

CKSTACKSPACE?* 

IOD»NFLAGCM[PCT*CM[PRT[PlMlX»f jn»DUP»PRL>]>) 

,[22»l3 THEN 2 ELSE NOT 1) IN 
IF I0D.C3>53« 6 THEN 
iINI STREAM(SJ»M[PRT[P1MJX»8 
DIB 30»TRB 2)»D**»600 
BEGIN SI*SJ DS«-2 CHR END; 
(STATISTICS) 

C0UNTUP(27tI0D, [27*63)1 



04093000 
04094000 
0409S00P 
04096000 
04097000 
04098000 
04098700 
04099000 



831 INX PCDUP»0»XCH. 
n 005)l 



SWF 
X 1003 1 
DIA 10t 



END 
IOR 
TCO 
IF 



K,[36 

CIODJ 

P1MIX 

BEG 

IFC 



BEG 



END 

IF 

DISK 

EQUES 

3, [19 

CNT1* 

STR 



SAVE 



REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 



GO 

END)* 
PROCEDURE N 

BEGIN RE 
S ♦ 
INI 

FIR 
UNI 
ENDJS 
MDELTA • ?U 
MLOG * 012 
MROW * PI 3 
LOGSIZE 
LOGHOLDER 
NUMAINTMESS 
LOGENTRY 
NXDISK 



»12)#45 AND RELTOG 

,[3{63 * AND MUQD3 LSS CDIRDSK x DSKTOG) THEN 
3 EQV MCP) * NOT THEN 

IN TERMINATECP1M1X)! TERM I NALMESSAGEC 30 ) END! 
FSrPlMIX.CFSX*P(*(NOT 2 INX LOCN) » 4, COC ) » [ 1 311 1 3 
DIV 5),[40»433 

AND TW0(I0D.C2«»13&FSX[43J44|43))J*0 THEN 
IN T[03l»T[03U[19»47tl3&0[26l40l73> 

Mt(*C(NOT 2)INX LOCN))INX 5 3t* NABS( *P(DUP ) ) 1 

GO TO RETURNI 
I 
NOT 100,124113 THEN M[ S3 ,( 1 1 I 1 3*1* 

BUSINESS! 
TCR»IOD«LOCN)|S 
113 * o; 

P(»(NOT 2 INX L0CN)#l3»COC>itiOl9J-l>*0 THEN* 
EAM(NT1»C*T[03#T)> 

BEGIN SI * Tl 51 «■ SJ+81 DS *• NT 1 WDSlS 

SI * LOC CI DS * WDSIS 
ENDIS 
TO RETURNI* 

EWIOIX 

AL S*NT3»U*NT4IS 

UNlT[U*WAlTQUECFlRSTWAJT3 3 f [10115] IS 
TlATEIO(lOQUE[S3»LOCATQUEtS3,[3l53#U)U 
STWAIT - FIRSTWAIT + 1 AND 31 1 X 
TCU3.C13I51 ♦ 31* 



IS 
IS 
IS 



P43IS 
P56IX 
9571% 
P63IS 

0761* 



04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 



100000 
101000 
102000 
103000 
103050 
103100 
104000 
105000 
105100 
105200 
105300 
105400 
105409 
105410 
105411 
105500 
105510 
105550 
105600 
105650 
105700 
105750 
105800 
105850 
105890 
105900 
105950 
105990 
106000 
107000 
108000 
109000 
110000 
111000 
112000 
113000 
114000 
11500© 
116000 
117000 
118000 
119000 
120000 
121000 
121050 
121100 
121150 
121170 
121200 
121250 
121300 
121350 



ARRAY MAINTLOGARRAY * *77[*3lX 04121400 

PROCEDURE OISKORAUXERRORCRJJ VALUE Hi REAL Rj FORWARD; 04121410 

PROCEDURE ACTUALJ0ERR(R)| VALUE Rl REAL R| FORWARD! 04121425 

PROCEDURE LlNKuP(TYPEtKFY)J VALUE TYPE»K£YI REAL TYPEfKEYJ FORWARDS 04121450 

PROCEDURE CHECKJ0BQRFILEMESSCMIX#FI6»U);X 04121500 

VALUE MIX»FIB»UI REAL MjX,FlB,U» FORWARDJX 04121550 

PROCEDURE L0G0UTMAINT(B)» VALUE BJ REAL Bt FORWARDU 04121600 

PROCEDURE MaiNTLOGGER(B)! VALUE BJ REAL B? FORWARUU 04121650 

DEFINE 04121700 

LOGVERSIONpC X VERSION NUMBER ON NEXT CARD 04121710 

2 04121720 

& % CURRENT ENTRIES ON NEXT CARD 04121730 

21 04121740 

[30«42|6j)#, 04121759 

TAPEBUFFERSIZE • 200#J 04121850 

ARRAY MAINTBUFFER[*]| 04121950 

SAVE PROCEDURE I OF IN I SHC R»C ) I VALUE R»C) REAL R»CI 04122000 

BEGIN BOOLEAN STOP* 04123000 

COMMENT 04123010 

WHEN E*0# STOP TAKES THE FOLLOWING VALUESl 04123020 

DISK ERROR (OTHER THAN NOT READY ON A DFX SYSTEM) 04123030 

1 OTHER ERROR 04123040 

2 LOCKED ADDRESS (SHAREDISK) 04123050 

3 ERROR WHEN UN I T C U 1 • 1 5 * 6 3 # 04123060 
WHEN E»0. STOP TAKES THESE VALUESl 04123070 
-2 10 FOR WHICH COMPLETE SHOULD NOT BE SET (DISK WRITE 04123080 

BEFORE READ WITH UNIT OR EU SWITCH), 04123090 

1 PRINTER 10, 04123100 

NORMAL 10, 04123110 

END COMMENT* 04123120 

REAL TIM*ST0P+1. U*TJM+1J 04123500 

LABEL TEST,N0WAIT»PR0C»NEW»QUP# JNCR; 04124000 

LABEL ERRORS, D I SKERR »DS»X»SW»LP» TAPE »DK»DX,DX1, DC »OK»LU 04125000 

REAL T«NTl.S«NT2tSl«NT3»VsNT4#E*NT5f I*NT7>X 04126000 

NAME LQCN»E* REAL 10D*NT6»F IN»Sl; 04127000 

SWITCH TYPE * OKtLP»TAPE»OK#DKfOK,OK»OK,QK#OK! 04128000 

04128010 

* SET OMIT m NOT(DFX) 04128099 

SUBROUTINE FlXUPEUOl 04128100 

BEGIN IF EU«CV3 LSS THEN EU«[ V 3 I »ABS( NOT 0) ELSE 04128200 

BEGIN IF EUQ[VJ,[FF) LSS 1023 THEN LjNKEUJ 04128300 

P(CEUQ[V3J# IOR); 04128400 

ENDI 04128500 

END* 04128600 

04128610 

t POP OMIT 04128611 

$ SET OMIT ■ NOTCNEWLOGGING) 04128799 

ST0PL0G(P1M1X,0)I 04128801 

t POP OMIT 04128801 

PCCHANJOtCn; * INITIALIZES TIM04128900 

Sl*{Tl«UNlT[P(CHANNELtC3#DUP)]),Cl8UiJ> X INITIALIZES U 04129000 

IF U«30 THEN DCIOFINISH(R)! 04129100 

ERRORS! 04129900 

IF (E * R,C26I73)+(V * T,[5»83 ) # THENX 04130000 

BEGIN IF(S1 * FINALQUECSJ) < THENX 04131000 

IF (E ♦ S1.C25J83 AND E) * THENX 04132000 

IF V * THEN 04133000 

S SET OMIT m NOT DFX 04133090 

IF (U AND 62) * 18 THEN 04133100 

BEGIN It«10QUE[S)l 04133200 



GO TO DX; 04133300 

END ELSE 04133400 

S POP OMIT 04133410 

GO TO OKI 04133500 

IF (U AND P774) t 16 THEN 04134000 

BEGIN 0413405* 

RDCTABLE[U]»«(*P(DUP))& < CM )[ 1 146*2 ]* R[ 3 » 3 I 5 J J 04 1 34060 

GO TO Xj 04134070 

END* 04134080 

IF E * THENX 04135000 

BEGIN % RECOVERED MASS STORAGE * 04137000 

MAINTBUFFER[NX0ISKI»NXDISK*4 AND 15) 04137100 

I* -0 & U[2»46»2J & L0CATQUE[SJ[4i3«5] & 04137110 

CLQGENTRYI*L0GENTRY + 1HCTF J & 04137120 

RDCTABLE[U]tl8tl J2JJ 04137130 

IF FINALOUEtSJ GTR THEN 04137140 

BEGIN 04137150 

MAINTBUFFEHCNXD1SKJI*C*P<DUP)) & 04137160 

CCM[M[Sii»UOCATQUEtS] INX NOT 2} INX 4304137170 

,[131111 01 V ETRING) + 1)[9I39I9J? 04137180 

M[SU,[7«U l» II 04137190 

END) 04137200 

P(MAINTBUFFER[NXDlSK+2)lM0QUECSJ)J 04137202 

S SET OMIT * NOTCAUXMEM) 04137203 

IF NOT (U, [46111) THEN 04137204 

BEGIN 04137205 

STREAM(SJ«PtCCF) « )l 04137206 

BEGIN 04137207 

SI»«LOC SJ 01 l«LOC Si DSi*8DEC; 04137208 

END! 04137209 

END ELSE 04137210 

$ POP OMIT 04137211 

P(NFLAGCM[P)))J 04137212 

P(pmil44*4].lMAINTBUFFERCNXDlSK + in,STD)J 04137215 

MA1NTBUFFER[NXDISK+31;*MAINTBUFFER[UJJ 04137220 

IF (LOGHOLDER INX 0) * THEN 04137230 

BFGIN 04137240 

LOGHOLDER, CCFU^CMAINTBUFFERINXD I SK) II 04137250 

F0RK(P(,MAINTL0GGER)»0#0»128tl)| 04137260 

END ELSE MtLOGH0LDER,[FF)l,[CFJl* 04137270 

[MAINTBUFFERCNXDISK33I 04137275 

LOGHOLDER.rFFjlstMAlNTBUFFERCNXDlSKlJj 04137280 

NUMAINTMESSis NUMA I NTMESS* 1 / 04137290 

T,E5»81 * 01 04142000 

GO TO SW| 04142500 

ENDlX 04143008 

IF V * THEN* 04144000 

t SET OMIT * NQTCSHAREDISK) 04144099 

IF R,[25U)«9 THEN * LOCKED ADDRESS 04144100 

BEGIN 04144110 

IF FINALQUE[S3>0 THEN I FIND IOD 04144120 

BFGIN IMOQUEtSJ.tCFJl 04144130 

I0D*L0CATQUEtS3,tCFll 041441*0 

WHILE CMUODJ.CCFJ)#I DO IOD-IOD+U 04144150 

MCIODJ, [20111*11 % SET LOCK BIT 04144160 

ENDJ 04144170 

LQUEUQAVAIL]|«MU0QUE[SmSUl41f7lJ 04144180 

ST0Pl«2l 04144200 

IF CLQAVAlL»'»LOAVAIL+i)>LQMAX THEN 04144260 

PUNT(8)I % LOCK QUE OVFLOW 04144270 



IOCOUNTCLOCATOUEtS3.t3lSJ]**P(DUP)-ll % TO SWAP 04144275 

GO TO DJSKERR1 04144260 

END ELSE 04144300 

$ POP OMIT 04144301 

BEGIN * ORIGINAL ERROK ON MASS STORAGE* 04145000 

TINUtU)itl8ll21l"»(DUP) t CltH12J*ll 04146000 

MAlNTBUFFER[U]»*R&TW0(C)[18s43l4JJ 04146100 

RDCTABLE[LJ|»(*P(DUP))&(C*l)tl»46«23; 04146200 

Vl"129J 04147000 

S SET OMIT * NQTCSHAKEDISK) 04147399 

LOCATQUEtSliCBll Jl»MH0QUECSn.t42UJI 04147400 

IF NOT R, [25111 THEN M[ I OQUE C Sll , [ 42 I 13 I *Q> 04147500 

$ POP OMIT 04147501 

END* 04148000 

ELSE BEGIN X RECURRENT ERROR ON MASS STORAGE* 04149000 

P(MAINTBUFFER[U3t«P(DUP»L0D) OR 04150100 

R*TW0(C)[18»43|4])J 04150200 

IF (V * V+l) > 137 THENX 04151000 

BEGIN Rl*Pj 04151200 

IF L0CATeUElSJ,(9llJ THEN X OLAY 1/0 04151220 

MtLOCATQUECSJ] l*R OR IOMASKJ 04151230 

$ SET OMIT s NOT(AUXMEM) 04151235 

IF NOT UtC46|U THEN X AUXMEM 04151240 

BEGIN 04151250 

V »s 0; GO TO Xj 04151260 

END! 04151270 

S POP OMIT 04151275 

OISKERRI 04151300 

* SET OMIT • NOTCDFX) 04151399 

I»*10QUE[SU 04151400 

If R. [30111 THEN 04151600 

BEGIN V|»MUJ,[6I6JJ FlXUPEUQl 04151800 

Vl«0l GO TO XI 04152000 

ENOI 04152200 

S POP OMIT 04152201 

T,[5»10]|sQ; 04152400 

GO TO OX; 04152600 

END* 04152800 

PCDEDI 04152900 

ENDIX 04153000 

UNITCU3 ♦ T&VC5I40I8JIX 041540QO 

DSlX 04155000 

CHANNEL[P(TI0)j * Ul% 04156000 
CHANlOtP(TIO)ll»TlMI XR5904156J00 

PUIOQUE[Sll»IIO)lX 04157000 

GO TO EXTERNAL }% 04158006 

XI STOP * (V#0)x2*liX 04159000 

T, [51131 * 32xE+8lX 04160000 

GO TO TEST* 04161000 

END! 04161500 

SWll GO TO TYPE[T,tIU3Jl* 04162000 

LP' 04163000 

IF STOP |« (T I* T&Q[16U6»11), [17111 THEN 04164000 

TEST I IF FIRSTWAIT * NEXTWAJT THEN GO TO INCR ELSE* 04165000 

GO TO NEW ELSE GO TO NOWAITJX 04166000 

TAPE I 04167100 

IF (R, [2115) AND «»23) m 022 THEN . X BINARY READ 04167200 

IF R, [15131 i* ((8-R,[22|ll) AND 7) THEN X PARTIAL WORD TRANSFER04167300 

IF M003I0S THEN X JF MODEL III C0NTR0LS04167400 

BEGIN R,[28llli*U X TREAT IT AS A PAR 1 TY ,04167500 



GO TO ERKORSJ 04167600 

END ELSE GO TO OK 04167700 

ELSE GO TO OK ELSE GO TO OKI 04167800 

DKl 04167900 

IF NOT Cll«I0QUE[S))i[24t]] THEN 04168000 

IF FINALQUEtSJ,E24in THEN* 04169000 

$ SFT OMIT * DFX 04169090 

BEGIN 04169100 

$ SET OMIT m NOT DKBNODFX OR OMIT 04169190 

IF <M[lOQUE[SJl»!*U2«l47injl«*(P(DUP> I NX P(0» LNQ» XCH) > )04169200 

,t5ll] EQV NOT U THEN X OTHER CONTROL 04169400 

BEGIN PcTfS)) % IOREQUEST STOMPS T» S» SI & V 04169600 

IOREQUESTCFINALQUE[S]t I OQUEt S ]&6[ 3 I 43 I 5 } » 04169800 

L0CAT0UEtSH18H2U2l6J) J 04169900 

Sl*P| Tj*PI % ONLY T AND S NEED TO BE SAVED, 04170000 

ST0Pl*"2J 04170200 

IF P(TIO)«0 THEN GO TO QUP ELSE GO TO OKI 04170400 

END ELSE 04170600 

I POP OMIT 04170650 

$ SET OMIT * DKBNODFX OR OMIT 04170750 

MCI0QUEtS]|*UU24l47in J»**(P(DUP) INX PC 0* LNG» XCH) ) J 04170800 

S POP OMIT 04170900 

GO TO DSI 04171000 

END ELSE GO TO OK ELSE GO TO OKI 04171200 

I POP OMIT 04171250 

S SET OMIT * NOT DFX 04171350 

IF PCMm,[6l6]tDUP> # CM[lOQUE[Sll»UlC24l47in J l«* 04171400 

*(P(DUP) INX P(0.LNG»XCH)))tt6t6i THEN % DIFFERNT EU 04171600 

BEGIN P(T»S)I % IOREQUEST STOMPS T. S» SI & V 04171800 

I0RE8UEST(FlNALQUEtS]» IOOUE I S J&6[ 3 I 43 I 5 I » 04172000 

LOCATQUEtSi)» 04172200 

S»*P| Tl«Pl VI»PI % ONLY T AND S NEED TO BE SAVED, 04172400 

ST0Pl«-2l » V ■ EU NUM. LEFT AT START OF IF04172600 

GO TO PXtl 04172800 

END ELSE GO TO DS| 04173000 

DX» 04173010 

Vt»Mt 1 J . C6I63I 04173020 

DXlJ IF LOCATQUE(S],[FF] LSS 1023 THEN 04173040 

IF EUW.tFFJ LSS 1023 THEN 04173060 

IF EUQtV] LSS THEN 04173080 

EUflCV]l«(N0T 0>SOC 1 1 1 12 J 04173100 

ELSE ELSE ELSE 04173110 

BEGIN 04173120 

FIXUPEUQI 04173130 

IF EUW,[FF3>1023 THEN D I SK0UNT*D I SKOUNT+1 ELSE IDFX04173200 

BEGIN EUWl«EUW&(II*EUQtSl»*EUW,CFFUHl8»3ll5J| 04173500 

EUQ[S1]I«NABS(U)I 04173600 

L0CATOUEtStl«SJi»P(OUP»LO0)HCFTF]l T,[CFJl»U 04173700 

IF U THEN WHILE ( SI « *LOC ATQUL [ SI ] , [ FF J ) LSS 1023 DO 04173800 

I00UEISJ],C3I5JI«12* XDFX04 173850 

END 04173875 

ENDI 04173900 

IF P(TI0)sO THEN GO TO QUPI % THE CHANNEL MAY BE GRABBED04173925 

$ POP OMIT 04173980 

04176000 

$ SET OMIT ■ DFX 04176699 

DXI 04176900 

S POP OMIT 04176901 

OKI IF FIRSTWAIT m NEXTWAIT THEN 04177000 

NOWAlTl IF (SI »* L0CATQUECSj,[l6|15]) LSS 01777 THEN 04178000 



INITIATE IOC I0QUECSn»L0CATQUE(SU,L3i5)'U>S 04180000 

ELSE 04181000 

PROCI T is T40C 161 1612 J 04182000 

ELSE 04183000 

BEGIN* 04167009 

NEWI NEWIOJ* 04188000 

IF STOP THEN GO TO INCRJX 04189000 

QUP? IF L0CATQUECS3.CFF3 GTK 01777 THEN GO TO PROCl 04190000 

OUEUFUPCU)** 04191000 

T * U4[13»43»53)* 04192000 

END** 04193000 

INCRl 04194000 

IF (TIM*CLOCK+p(RTR)»TIM) LSS THEN TIM*0J *027"04194059 

IOOl"]OQUE(SJI 04194100 

IF (U OR 1>M9 THEN 04194200 

BEGIN 04194300 

IF <JUNK»*MnODJ,C5!7J)>9 THEN 04J94400 

JUNKI»NFUP,[CF] + (JUNK AND Pi 7 ) ; 04194500 

IF JUNK<NEUP,[FFJ THEN 04194550 

PEUIO[JUNK]|bP(DUP»LOD)+CLOCK+P(RTR)-EUIO[C]? 04194600 

ENDI 0419465G 

H»(Sil»NFUAG(L0CATQUEtSJ)).t3«5J; * MIX INDEX 04194700 

$ SET OMIT » NOT(NENLOGGING) 04194799 

IF FINALQUEISJ < THEN * MCP I/O 04194800 

MCPIOTIMEI 13*(*PC0UP))+T1MI 04194900 

* POP OMIT 04194901 

IOTIMEH J*<*P(DUP>)+TIH| 04195000 

IF S1.C10H3 THEN X CANDE I/O OR NO MEM 04195100 

IF U«25 THEN FORGETAREACOt IOD) ELSE 04195150 

BEGIN 04195200 

if M[ci»si,icF]-n,nei7j»i3 then fqrgetareaco.o 04195300 

ELSE OUEVENT(C»I)l 04195400 

IF CVI»M[C*23) < THEN FORGETSPACE C V ) ELSE 04195600 

BEGIN 04195709 

IF V,[2lU THEN ELSE PC [Ml V 3 3 » PRL ) j 04195800 

M(V+l3|sM[C+3]) 04195900 

END 04196000 

END CANDE 10 HANDLER* 04196100 

IF E*0 THEN 04196200 

IF STOP THEN 04196400 

P(T) 04196600 

ELSE GO TO LI 04196800 

ELSE BEGIN 04197000 

lOCOUNTCI J**P(DUP)MJ 04197500 

RETURNIOSPACECS)* 04199000 

Llf P(UPC,St»LQD)[FTF33* 04201000 

END! 04202000 

PUUNIT[U33»ST0)* 04203000 

FIN «■ FINAL8UECS3 AND NOT MEMORY** 04205000 

IF (U OR 1) NEQ 17 THEN 04205018 

IF IODt[24ll3 THEN* 04206000 

BEGIN V ♦ ABSU0DiC33ll5J-R,[33tl5J)lX 04207000 

IF IOD, (8U03 < V THEN* 04208000 

IF IOD, 123113 THEN* 04209000 

V ♦ IOD, 181 103 J X 04210000 

IF U < 16 THEN* 04211000 

IF IOD, [21123 * THEN* 04212000 

BEGIN! STREAM(A*QiB*M[Sl,t33»l53+V»13>>* 04213000 

BEGIN SI ♦ LOC Bl* 04214000 

IF SC m "*" THEN TALLY * U* 04215000 



A ♦ TALLY;* 04216000 

END!* 04217000 

V «■ -P+V!* 04218000 

END!* 04219000 

04219100 

FINISHOFFlO(U)!* 04220000 

END!* 0422100* 

IF E * THEN* 04222000 

t SET OMIT ■ NQTCSHAREDISK) 04222499 

IF ST0P#2 THFN 04222500 

* POP OMIT 04222501 

BEGIN IF STOP LEO 1 THEN 04223000 

BEGIN 04223500 

FORKC 04224000 

P(,DISKORAUXEHKOR)+((U AND 07/4) NEQ 16)» 04224010 

R&St3l43«5J#-2»140,0)f 04224100 

LOCATOUECSJ.Cllf Ul»l| 04224500 

END 04224750 

ELSE IF FIN < THEN PCLOC ATQUE I S J » R» XCH» * ) J X 04225000 

END* 04226000 

$ SET OMIT » NOTCSHAREDISK) 04226499 

ELSE 04226500 

* POP OMIT 04226501 

ELSE BEGIN* 04227000 

IF FIN < THEN PCR OR I OMASK , LOC ATttUEC S ) i «- )* 04228000 

ELSE 04228100 

S SET OMIT m NOT (DFX OR DKBNODFX) 04229099 

IF STOP GEQ THEN 04229100 

* POP OMIT 04229101 

BEGIN 04229200 

LOCN ♦ [M[L0CATQUECS]3]J* 04230000 

IOD * I0D,133U5J>* 0423100* 

WHILE LOCNtOJ, I33H5] * IOD DO* 04232000 

LOCN •• 1 INX LOCNJ* 04233000 

LOCNCO] * M OR F INI * 04234000 

END ENDJX 04235000 

IF P1MIX s THEN GO TO NOTHINqTODOI* 04236000 

if i * p1mix then go to return!* 04237000 

go to initiate!* 04236000 

end iocompletej* 04239000 

save Real procedure waitiociodiMaskiu)!* 04240000 

VALUE MASKiUilOD!* 04241000 

REAL MASKtUilODI* 04242000 

BEGIN* 04243000 

REAL T! 04243100 

DEFINE OCTADE» DS*3 RESET|3CIF SB THEN DS*SET ELSE 04243206 

DS*RESET!SKIP SB)*! 04243300 

IOD * NFLAGCPC,I0D#LQD)HTINU[UJ[3t355JJ* 04244000 " 

MASK «• NOT MASK!* 04245000 

IOREOUESTCNABSC I0D)&MASK[25: 40)6] f IOD* 04246000 

[I0DHUE12I42I6])!* 04247000 

IOD * I0D&0[25l25l8H0tl9« 19ll]j* 04246000 

WAlTORSWAP(U#[lOD3»tCFJ)l 04249000 

IF (<HAlTlO*lODtt26|7J) AND MASK AND MASK . [ 18 1 153 )*0 THEN 04250000 

BEGIN 04251000 

STREAM(I0D*I0D,[26|73»MASK*(N0T MASK ) , { 4 1 t 7 J » 04251200 

Z|«[TINU[U))> Ti*Tl«SpACEC12))» 0425130© 

BEGIN DS*20 LIT" UNEXP 1-0 ERROR ON "!SI»2! 04251400 

SI*SI*5!DS*3 CHRIDS-8 L 1 T" I RESULT*"! 04251500 

SI*L0C IOD* SI *-Sl+6* SKIP 3 SB!3(0CTADE>! 04251608 _ 



DS*6 LIT". MASKS" ; S I *S I +6; SK I P 3 SB; 04251700 

3(0CTADE)»DS*2 LIT*,**! 04251600 

END) 04251900 

IF P1MJX ■ THEN BEGIN P(T)J PUNT(O) END; 04252000 

IF NOTEKMSET(PIMIX) THEN 04252100 

BEGIN 04252200 

TEHMINATECP1MIX&19[18$33«15J); 04252300 

IF vlARCPlMlX»9J,ll?li THEN % "SYSTEM" JOB 04252500 

BEGIN 04252600 

SP0UTIT(T»35); * UNEXPEOERROR-LIBMAIN XR6404252700 

6LASTQCU); 04252600 

END ELSE 04252900 

TERMINALMESSAGECT); 04253000 

END; 04253100 

END; 04253200 

END; 04253300 

REAL PROCEDURE T APEPAR I T YRETRY ( R,U. KEY ) J % 04254000 

VALUE R,U»KEY; REAL R»U*KEY; FORWARD;* 04255000 

PROCEDURE DISKORAUXERROR(R); VALUE Ri REAL R; 04256000 

04256200 

BEGIN 04256400 

REAL 04256600 

U» 04256600 

St 04257000 

E» 04257200 

T. 04257400 

MK# CELL ■ MK» 04257600 

I0D» 04257800 

MIX, 04258000 

FIN, PARlTYs FIN* 04258200 

KEYli 04258400 

KEY2, 04258600 

DISC* 04258800 

MASK, 04259000 

AREA* Ul b AREA* 04259200 

RSLT, MSG * RSLT* 04259400 

PRTMAX, Tl * PRTMAX, 04259600 

DISKCELL* T2 * DISKCELL* 04259600 

OLAYIO» 04260200 

DSKADRS; 04260400 

04260600 

NAME LOCN * DISKCELL; 04260800 

04261000 

LABEL DSjT* START* QUIT* RETRY* KJLLL* KILLER; 04261200 

04261400 

S SET OMIT « NOT(AUXMEM) 04261600 

DEFINE NOTRDYCOUNT « AUXERRORTOG. I 3 » 3 l*i 04261800 

04262000 

SUBROUTINE AUXMESSAGE; 04262200 

BEGIN 04262400 

STREAMCMEMPARj«R,[26»n, LOKOUT < «R . I 27 U J . 04262600 

PARl*(R,[28li] OR R,C29I1J)» NOTRDY j «R , [ 30 I 1 ] » 04262800 

DESPAR»«R,I31tn» BSY|«R,[32I1 J* REED I * I OQUECS J , C2 1 13 » 04263009 

T»*TINUCU]» MIX. AlsIOQUECS], [FF ], S 12 J *I OQUEl S J . t 8 « 1 } » 04263200 

R» KfYll»KEYH"SPACE(30))l 04263400 

04263600 

BEGIN 04263800 

DS|"LIT H » W ; SII»L0C T; SH»Sl+5; DS|»3CHR; % UNIT NAME 04264000 

DS|*6LIT W WRITE"; 04264200 

REED(OI l»Dl-5; DSlMLl^READ")*' 04264400 



OS * 

01 I .» 

MEMP 

LOKO 

PAR 

NOTR 

DESP 

BSY 

DS|« 

S I I = 

OSi* 

si \u 

DSl* 

16CD 
OS 1 
IF S 
IF S 
IF S 
IF S 
Oil* 
END 
END SUBROUT 



8LIT" ERR,MX«"» 
*' DSl»LIT" M l 



DS»*2DECJ TleDIJ D!I»D1-2I DSi*FlLLl 




4LlT" S2»"l 

LOC SI 21 DSI-4DEC* T l«DI * 

sb Then dsi*set 




US|*7F ILL* 
ELSE DSl*CHR)* 

DSI«3FILL* DII«TI 

DSl«KESET; SKIP SB)) 



ELSE 



B . . _ . . . . 
DI-U DSt*LIT< 
STREAM STATEMENT* 
INE AUXMESSAGE) 



SUBROUTINE FIXUNIT; % FREE UNIT ARRAY ON AUXMEM ERROR 
BEGIN 

IF LOCATQUECSJ.tFF] LSS 1023 THEN * MORE ENTRIES IN THE QUEUE 
BEGIN 

UNIT[U3|w(*P(DUP))*t0CATQUEISJtFTFJ«0Cl3l46l2]*O[5l«0l83l 

STARTIO(U); 

END 
ELSE UNITtU]»*(*P(DUP))4(N0T 0) U 8 1 1 8 I 30H0U 3 > 46 » 2H0[5 I 40 I 8] ; 
END SUBROUTINE FIXUNIT; 
S POP OMIT 

SUBROUTINE DISKMeSSAGE! 
BEGIN 
STREAM(MSG# MKt A»«TINU[U1» MIX# B»*OSKAURS» 

Sl»lOQUEtS],[27l6J» R# KEYU "KEY1 1 «SPACE( 1 0) ) I 
BEGIN 
SII»L0C MK| SH»SI + 7I DSisCHRJ 



'; 



LOl 
Lll 
L2| 
L3| 
L4t 
LSI 
L6I 
L7l 
MX| 



L3; 
GO 
GO 

GO 
GO 
GO 



GO 
TO 
TO 

TO 
TO 
TO 
TO 



GO L5J GO L6; GO L7J 



Sl»«Sl+5l DS«»3CHR» DSI«LIT" 

cii*ci*msg; 

GO LOl GO LI; GO L2| GO 

DSt* 9LIT"N0T READY"; 

DSI* 4LIT"BUSY"| 

DSt" 8LlT"I/0 MEM "| 

DSl» 6LIT"PARITY"; 

DSl«12LlT"I/0 INV ADDR n J 

DSl« 3LIT"EU "; 

DSI»13LIT W INV DISK ADDR H IGO 

DS|»10LIT W WRITE LOCK"! 

DSln 6LIT". MIX»"; DSl«20ECI 

MSGl«Dll 0H»DI»2J DS»«FILLl 

DSI«5LIT H . DA*"! DSl*8CHR; 

DSI«7L1T H # SEGS»"J DSl«2DEC; 

DSt«4LlT"» Rs», 

l6(DSt*3RESETl 3<IF SB THEN DSl*SET EtSE DS|*RESETI SKIP SB)); 

SII*SI-5I DSi*5LIT w » IO«"J 

IF SB THEN DS»»2LJT"4#"| SKIP SBJ 

IF SB THEN DSJB2LlT"3t M l SKIP SB; 



L4; 
MX; 
MXJ 

MX; 

MX{ 

lo; 
MX; 



dh»msg; 



04264600 
04264800 
04265000 
04265200 
04265400 
04265600 
04265800 
04266000 
04266200 
04266400 
04266600 
04266600 
04267000 
J04267200 
04267400 
04267600 
04267800 
04266000 
04268200 
04266400 
04268600 
04268800 
04269000 
04269200 
04269400 
04269600 
04269800 
04270000 
04270200 
04270400 
04270600 
04270800 
04271000 
04271200 
04271400 
04271600 
04271800 
04272000 
04272200 
042724Q0 
04272600 
04272800 
04273000 
04273200 
04273400 
04273600 
04273800 
04274000 
04274200 
04274400 
04274600 
04274600 
04275000 
04275200 
04275400 
04275600 
04275800 
04276000 
04276200 
04276400 



IF SB THEN DSl«2LlT"?» w J SKIP SB; 04276600 

IF SB THEN DSi»2LlT w l»"* 04276600 

DIl'OlMJ DS J*L IT W * ,, | 04277000 

END STREAM STATEMENT* 04277200 

END SUBROUTINE DISKMESSAGEJ 04277400 

04277600 

SUBROUTINE DET A I LRECORDENTFY * 04277800 

BEGIN 04278000 

KEY2 l» GETSPACEC6f9»0) + 21 04278200 

MCKEY23 |p & RDCTABLECU3C18UJ23* 04278400 

IF MIX NEC THEN 04278600 

BEGIN 04278800 

MCKEY2J 1* C*P(l)UP)5 * MIX[20I43<53 « 04279000 

(IF FINALQUE[SJ LSS THEN ELSE 04279200 

(MCMfLOCATQUECS] INX NOT 23 INX 43,1131113 DIV ETRLNG)* 1 H9 J 39| 9 3 J 04279400 

END* 04279600 

M[KEY2*11 «* TRANSACTIONS* 04279800 

IF NOT DISC THEN 04280000 

BEGIN 04280200 

STREAM(S«»I0D,[FF]» DI*KEY2+?)> 04280408 

BEGIN 04280600 

SllwlOC S» DS«»8DECI 04280800 

END* 04281000 

END 04281200 

ELSE M[KEY2*23 I* DSKADRSJ 04281400 

MCKEY2+3J ** I0QUEIS3* 04281606 

M[KEY2*43 I* R 4 RDCTA8LE I U3 C 31 3 I 53 * 04281800 

M£KEY2*53 l« IF FINALQUECS3 LSS THEN ELSE LQCATQUE[S3 INX NOT 2* 04282000 

END DETAILRECORDENTRYJ 04282200 

04282400 

SUBROUTINE F I NI SHDET A IL» 042826U# 

BEGJN 04282800 

IF MIX NEQ THEN CHECK JOBORF ILEMESSC MI X » M[ KEY2 + 5 J » U > * 04283000 

LINKUP(4*DISC#KEY2)* 04283200 

END* 04283400 

04283600 

04284000 

DISCl»<Ul*L0CATQUE[Si-R,[3l5n,[12l6J),[46tllf 04284200 

MlX|wLOCATOUECS3iI3»53l 04284400 

IF (OLAYIO I* CCFINALOUECSJ LSS 0) AND CLOC ATQUE t S 3 , £9 1 1 3 ) ) } THEN 04284600 

BEGIN 04284800 

STREAMCS«i*0&FlNALQUErS3tCTC3&f I NAL«UE [ S 3 1 21 1 6 1 1 2 J » D » *[ DSKADRS3 ) * 04285000 

BEGIN 04285200 

S!l«LOC S* DSJeBDEC* % DISK ADDRESS IN FINALQUE FOR OLAY I/O 04285400 

ENO* 04285600 

END ELSE OSKADRS l« MU0QUECS31* 04285600 

MKI*"*"* MSGl«("l>* 04286000 

Rt*R&IOQUt£S3(3l3l53* % RESTORE HARDWARE UNIT TYPE 04286200 

IOD I* 10QUECS3* 04286400 

IF DISC THEN 04286600 

BEGIN 04286800 

IF R, [30113 THEN * DISK NOT READY 04287000 

BEGIN 04287209 

S SET OMIT ■ NOT(DFX) 04287400 

U!«I0D,[*U3 OR 16* 04287600 

T?*S* 04287800 

IF NOT (UU«IF U THEN 18 ELSE 19} THEN 04288000 

DO IOQUECT3.C3I5J l« 6 UNTIL 04288200 

(T I* LOCATQUE£T3,crF3) * $777711 04288400 

IF OLAYIO THEN % IOFINISH HAS ALREADY PLACED RESULT DESCRIPTOR 04288600 



BEGIN 04268800 

UN1TCUJ .CFF J I* LOCATQUEESJ.tFFJl % NEXT ELEMENT IN QUEUE 04289000 

RETURNIOSPACECS)J 04269200 

S l» UNlTCU3,rFF)l 04289600 

IF MIX NEQ THEN JOCOUNTCMIXJ I* *P(DUP) -11 04289800 

END; 04290000 

IF S NEC Q77777 THEN X MORE ENTRIES IN THE QUEUE 04290200 

BEGIN 04290400 

E«*UNIT[U3l 04290606 

IF (T2l»EUQ[Tl»MtI00UE[S]].t6l6JJ) LSS THEN 04290800 

BEGIN X EU IN PROCESS 04291000 

L0CATQUE[UNIT[UU,CCF 13.[FF3 »*S| 04291200 

UNlT[Un,[CF3 1= El 04291400 

END 04291600 

ELSE X EU NOT IN PROCESS 04291800 

IF T2.CFF3 GTR 1023 THEN X EUQ EMPTY 04292000 

BEGIN 04292200 

IF (EUQ[T]l*T2&ECl8U6l301).[2llJ THEN 04292400 

BEGIN 04292600 

IF EUW,[FF3*P77777 THEN EUW,CFF3»«T ELSE 04292800 

EUQlEUW,CCF3 3,[3U5 3»sT} 04293000 

EUH,[CFlt*T| 04293200 

STARTIOCUD? 04293400 

END? 04293600 

END 04293801 

ELSE 04294000 

BEGIN 56 EUQ NOT EMPTY 04294200 

LOCATQUEtT2.CCF33iCFF] »* Si 04294401 

EUQCT3,[CF3 »» El 04294600 

ENDI 04294800 

ENDI X IF MORE ENTRIES IN THE QUEUE 04295000 

$ POP OMIT 04295200 

UNITCU3l»<*PCDUP)UP7777n5l2Ql26)J 04295400 

MSGl»0l MK|*"#"| X NOT READY 04295600 

DISKMESSAGEI 04295800 

DETAILRECORDENTRYJ 04296000 

READY |» NOT TWO(U) AND READY} 04296200 

RRRMECH »» NOT TWO(U) AND RRRMECHI 04296400 

UNlTtU3,C5ll03 I* 21 04296600 

GO TO KILLLI 04298800 

ENQI X IF NOT READY 04299000 

L0CATQUEIS3.CFFJ t* NOT 0} 04299200 

Tl »» MIX} 04299400 

IF R,[26|73 NEQ 1 AND NOT OLAYIO THEN X NOT BUSY OR SPECIAL 1/0 04299600 

BEGIN 04299800 

PARITY t» (10D»C24ll3 AND CR . [26 1 7 J«16) ) I X PARITY CONDITION 04300000 

IF FINALQUECS3 GTR THEN % OBJECT JOB ERROR 04300200 

BEGIN 04300400 

IF PARITY THEN GO TO STARTI X RECOVERABLE ERROR 04300500 

DSITI PRTR0WCT13, [FF3 !• 201 % I/O ERROR 04300600 

PRTROWCTU.CPSFll* II X TERMINATE 04300800 

END X OBJECT ERROR 04301000 

ELSE 04301200 

BEGIN X MCP I/O 04301400 

IF CT2l«IQQUEtS3,ECF3-FENCE) GTR THEN X ABOVE THE FENCE 04301600 

IF (Tll»P0S$ESSCT2 DIV CHUNKZIZE3) NEQ THEN % NON-ZERO MIX04301800 

BEGIN 04302000 

IF JARCMIX. 93,11113 THEN X "SYSTEM" JOB 04302200 

IF PARITY THEN GO TO STARTI 04302600 

X DONT DS LIBMAIN/DISK ON PARITY ERROR 04302800 



GO TO OS I T I 04303000 

END* % NON-ZERO MIX 04303200 

END) % MCP I/O 04303400 

END) * NOT BUSY OR SPECIAL I/O 04303600 

04303600 

START! 04304000 

04304200 

TRANSACTION^} l« TRANSACT JONCU )M ; 04304400 

MASK t» IF (FIN la FINALQUECS3) LSS THEN FIN,[25|83 ELSE P377) 04304600 

IF (E »* R.C25I8] ANO MASK) * THEN * ERRORS ARE ACCETABLE 04304800 

BEGIN % FIX UP I0OUE 04305000 

QUIT! 04305200 

IF MSG NEQ (-1) AND DISC THEN DISKMESSAGE) 04305400 

DETAILRECORDENTRY; 04305600 

$ SET OMIT « NOT(AUXMEM)» 04305800 

IF NOT DISC THEN X AUXMeM 04306000 

BEGIN 04306200 

FIXUNIT; 04306400 

IF R, C 30« 1 J THEN % NOT READY CONDITION 04306600 

BEGIN 04306800 

IF CN0TRDYCOUNT*O) OR (E NE6 0) THEN AUXMESSAGEi 04307000 

NOTRDYCOUNT l» NOTRDYCOUNT i II 04307200 

END 04307400 

ELSE 04307600 

BEGIN 04307800 

AUXMESSAGEI 04308000 

NOTRDYCOUNT t« 0) 04308200 

END) 04308400 

IF E»0 THEN R I* RSLTl % ERROR WAS RECOVERED 04308600 

END) 04308800 

t POP OMIT 04309000 

RETURNIOSPACE(S)l 04309200 

04309400 

FIN|»FINALQUEIS3 AND NOT MEMORY) 04309600 

IF (T1|"FIN) LSS THEN % MCP I/O 04309800 

BEGIN 04310000 

IF NOT OLAYIO THEN % I/O FINISH PLACES RESULT DESC. FOR OLAY04310200 

M[L0CATQUE[S]JI*RlE[25l40IBHl0Dt3l3l51 OR IOMASK) 04310400 

END * IF MCP I/O 04310600 

ELSE 04310800 

BEGIN 04311000 

IF E NEO THEN X ERRORS 04311200 

BEGIN 04311400 

P(,TJ»PRL)| 04311600 

Tl I* TUEC25I40I83) 04311800 

END 04312000 

ELSE PC|T1»10R)I 04312200 

LOCN I* [MtLOCATQUECSmi 04312400 

I0D l» XOD v [331 15J J 04312600 

WHILE LOCN[0], [33I15J NEQ 10D DO LOCN l>> 1 INX LOCN) 04312600 

LOCNCOJ I* P(,Ti»LOD)l 04313000 

ENDI 04313200 

IOCOUNTCMIXJ t» f*P(DUP)) -II 04313400 

GO TO KILLLI 04313600 

END) 04313800 

IF E THEN % BUSY 04314000 

BEGIN 04314200 

MSGI*1I X BUSY 04314400 

RETRY I 04314600 

* SET OMIT * NQTCAUXMEM) 04314790 



IF NOT DISC THEN AUXMESSAGE ELSE 04314800 

S POP OMIT 04314610 

DISKMESSAGE; 04314820 

DETAJLRECORDENTRYJ 04315000 

$ SET OMIT m NOT(AUXMEM) 04315190 

IF NOT DISC THEN FIXUNIT; % ALLOW 10 TO AUXMEM 04315200 

S POP OMIT 04315210 

T I l»C IF DISC THEN I OQUE I S J&6[ 3 * 43 ; 53 ELSE I0QUE[S3); 04315400 

RETURNIOSPACE(S); 04315600 

04315800 

PIMIX»*MIXJ 04316000 

IOCOUNTCMIX] I* (*P(DUP)) -H 04316200 

IF NOT OLAYIO THEN X RETRIES ARE OK 04316400 

I0REQUEST(FINALQUECS]» Tl» 04316600 

(IF DISC THEN LOCATQUE t S3 *P22[ 12 * 42 I 63 ELSE 04316809 

LOCATQUECSJ))! 04317000 

P1MIX|«0; 04317200 

GO TO KILLER; 04317400 

END) X IF BUSY 04317600 

IF E.C46I1J THEN % 1/0 MEMORY PARITY 04317600 

BEGIN 04318000 

MSGl*2f 04318200 

El*P1537» 04318400 

GO TO QUIT; 04318600 

END; 04318800 

IF E,C41I1J THEN X INVALID ADDRESS 04319000 

BEGIN 04319200 

MSGlMi 04319400 

EI»P1537I 04319600 

GO TO QUIT) 04319800 

END; 04320000 

$ SET OMIT » NOT(SHAREDISK) 04320200 

IF R.C25I13 THEN X READ/WRITE LOCK 04320400 

BEGIN 04320600 

AREAI*GETSPACE(10»0»0)+2; 04 320800 

IF R, [29113 THEN 04321000 

BEGIN 04321200 

STREAM(AREA); 04321400 

DSIMO LIT - FPM FULL*"; 04321600 

END 04321800 

ELSE 04322000 

BEGIN 04322200 

STREAM(AREA); 04322400 

DSl*'15 LIT " FPM NOT READY*"; 04322600 

END! 04322800 

SP0UTERCAREA*PSEUD0MlX[MIXJt35)J 04323000 

MSG I* (-1); % DONT SPOUT DISK MESSAGE 04323200 

E»*P16J 04323400 

GO TO QUIT; 04323600 

END; 04323800 

IF L0CATQUECS3»C8in THEN X MUST UNLOCK ADDRESS 04324000 

BEGIN 04324200 

STREAMCAI«DSKADRS»Dl*[JUNK3); 04 32440P 

BEGIN SII*LOC a;DSI«8 OCT END; 04324600 

UNLOCKCJUNK); 04324800 

END; 04325000 

S POP OMIT 04325200 

IF NOT E.C43I13 THEN X NOT PARITY#CHECK DISK ADDRESS 04325400 

BEGIN 04325600 

STREAM(DAI«MASK|*DSKADRS » EU I «MASK » [ 6 I 6 3 # A»*0» 04325800 



EUAl*[MUlTlTABLEri6+2xMASK,[S<l J ]J) ) 04 326000 

BEGIN 04326200 

SIlwLOC DAI 04326400 

IF SC GTR "1" THEN GO TO BAD* 04326600 

IF SC LSS "O" THEN GO TO BAD? 04326800 

$ SET OMIT * SHAREOISK 04327000 

7(. 04327200 

$ POP OMIT 0432740* 

$ SET OMIT • NOT(SHAREDISK) 04327600 

*t 04327800 

$ POP OMIT 04328000 

IF SC LSS "0" THEN JUMP OUT TO BAD? Sll*SI+l) 04328200 

IF SC GTR H 9 M THEN JUMP OUT TO BAD)) 04328400 

t SET OMIT s SHAREDISK 04328600 

5l!»SI-5J 04328800 

$ POP OMIT 04329000 

S SET OMIT * NOTCSHAREDISK) 04329200 

SII*SI"2) 04329400 

S POP OMIT 04329600 

DI)*LOC DA) DSl«2 OCT) 04329800 

SI I wEUAl SH»SI + 14) SKIP EU SB) 04330000 

DII*LOC A) Dll*DI+7) SKIP 2 DB) 04330200 

IF SB THEN SKIP DB) 04330400 

SllwtOC DAI Sl«wSI+6) 04330600 

IF SC NEC "0" THEN GO TO BAD? SlUSl + 11 04330800 

4(if sb then ds*«set else dsisreseti skip sb)) 04331000 

SH»L0C A) Sll*Sl + 7) if SC GTR "4" THEN GO BAD) 04331200 

IF SC LSS "0 W THEN GO BAD) 04331400 

SII'EUA! SI I »S I+EU1 SKIP SB) SKIP A SB) 04331600 

IF SB THEN GO TO QKj 04331800 

BADJ TALLYlMl 04332000 

OK? DAI'TAbLY) 04332200 

END) 04332400 

IF (MASKI»P) OR E.C42UJ THEN % BAD ADDRESS OR EU NOT READY 0433260ft 

BEGIN 04332800 

MSGJP5+MASK; % 5»EU NOT READY* 6*INVALID DISK ADDRESS 04333000 

IF NOT MASK THEN MKl*"#") 04333200 

IF (MIX NEC 0) OR OLAYJO THEN 04333400 

BEGIN 04333600 

El*ei537l GO TO UUJT) 0433380t 

END) 04334000 

DISKMESSAGE) 04334200 

DETAILRECORDENTRY) 04334400 

GO TO KILLER) % LET IT HANG 04334600 

END 04334800 

ELSE 04335000 

BEGIN X MUST BE E.C44I1J, MEM, PAR, 04335200 

MSGI«2) Et*ei537l GO TO QUIT) 04335400 

END) 04335600 

END) % IF NOT PARITY 04335800 

IF I0QUEtS],C24llJ THEN % DISK PARITY ON READ 04336000 

BEGIN 04336200 

MSG»*3J X PARITY 04336400 

El*P20) 04336600 

GO TO QUIT) 04336800 

ENDI 04337000 

MSGI*7| % WRITE LOCK 04337200 

EIPP1537I 04337400 

60 TO QUIT) 04337609 

END) % IF DISK 04337800 



04338000 

$ SET OMIT * NOT(AUXMEM) 04338200 

04338400 

IF (EI»R,[26|73)*1 AND NOT OLAYIO THEN GO RETRY* % RETRYtlF BUSY 04338600 

04338800 

IE IOD« C2l 1 J AND AUXCODttOJ GTR THEN * AUX.READtMCP CODE ON AUXMEM 04339000 

BEGIN 04339200 

AREA«»SPACE(30)I 04339400 

PRTMAX I* MCP(,ESPBIT)*1],CCFJ"H * ADDRESS FROM "GO TO START" 0433960* 

MASKl*M[P( ( ESPBIT)] t [CFJiI0DC22U8Ul J&lODt2l J4in&^(18l4b|3J; 04339800 

FOR CELLl*P201 STEP 1 UNTIL PRTMAX DO 04340000 

IF P(M[CELL)»TOP) THEN P(DEL) ELSE * SKIP OPERANDS 04340200 

IF P,Ul6J NEQ 073 THEN ELSE X SKIP NON-PGM DESC 04340400 

IF MtCELL], [181303 * MASK THEN X CORRECT CELL 04340600 

BEGIN 04340806 

DISKWAITC-AREA»30»(MCP6ASE+2*CCELL 01 V 30)))I XCQDE FRM DISK 04341000 

DISKCELL1»NFLAG(M[AREA + U(CELL MOD 30)+0,5> D IV 1)3)J 04341200 

AUXC0DEC03«*C*P(DUP)) - DI SKCELL. 1 6 1 6 J -11 * DECRt AUXCODE 04341400 

DISKIOCRSLTt -I0D.CCF3* D I SKCELL, [ 8 1 1 J , 04341600 

DISKCELL, IFF3+MCPBASE)J 04341600 

SLEEP(£RSLT3*I0MASK)» 04342000 

MtCELL) I* FLAG(DISKCELL&0[7|47I1])» 04342200 

E»*0l X ERROR WAS RECOVERED 04342400 

FORGETSPACE(AREA)! 04342600 

GO TO QUIT» 04342800 

END! X PRT SEARCH 04343000 

* SEARCH THE INTRINSIC TABLE 04343200 

SLEEPUTOGLEJiFREEMASK)! 04343400 

INTFREE I* 01 04343600 

MASK is i I0DC37H8I11 J & JODC 36*4 1 13 & 7[33l45»3J> 04343800 

FOR CELL I* 1 STEP 1 UNTIL INTRNSCC03 DO 04344000 

IF INTRNSCtCELL),I3UJ THEN X INTRINSIC ON AUXMEM 04344200 

IF INTRNSCtCELL3,[6l27]BMASK THEN X THIS IS THE CORRECT CELL 04344400 

BEGIN 04344608 

IF CTABLEC9] NEQ THEN X INTRINSIC FILE ADDRESS AVAILABLE 04344800 

BEGIN 04345000 

DlSKWAIT(-AREA»30.CTABLEt9j+(CELL DIV 30))UDSK,CPY 04345200 

DISKCELLJ'MCAREA+CCCCELL MOD 30)+0,5) DIV l)3i 04345400 

T I* DISKCELL, 1 8 1 10 3 1 04345600 

DISKCELL »■ (INTRNSC£CELL3.[Cr3) & 04345800 

(DISKCEUL,[CFJ + CTA8UE(9J)t6l2H2ni 04346000 

IF CELL«2 OR (CELL GEQ 17 AND CELL LEQ 20) THEN X RE-ENT, 04346200 

DISKCELL, 14113 l»ll 04346400 

DISKlO(RSLTt -IOD.CCFJ. T» D I SKCELL . [ 6 » 27 3 ) ; 04346600 

SLEEPURSLT3.I0MASK)* 04346800 

INTRNSCtCELL3l*DISKCELLI 04 347000 

AUXC0DE[03lw*<P(DUP)) - INTRNSCICELL3 . t 38 t 63 -II 04347200 

E!*Q| X ERROR WAS RECOVERED 04347400 

MC 100 INX 03l»0&DISKCELLtCTF3J X MAKEPRESENT WONT DO IT 04347600 

FORGETSPACE(AREA)J 04347800 

INTFREEI»H 0434800* 

GO TO QU1T1 04348200 

ENDI X IF INTRINSIC FILE ADDRESS WAS AVAILABLE 04348400 

END! X IF INTRINSIC CELL FOUND 04348600 

INTFREE l« II 04348800 

FORGETSPACE(AREA)J 04349000 

END! % IF READING 0434920* 

IF OLAYIO THEN GO TO QUIT* 04349400 

IF M1X»0 THEN 04349600 

BEGIN 04349600 



STREAMtAI»CPUNTERt6]])| DS l»l 5L I T"AUX MEM ERROR,*") 04350000 

PUNT(tPUNTERI6n>J 04350200 

ENOI 04350400 

AUXERRORTOG l« <*P(DUP)) OR TWOCMIXJl 04350600 

PRTROW[MIXJ,tFFJ 1» 20; X I/O ERROR 04350800 

PR7R0WtMIX],[PSF]J» II % TERMINATE 04351000 

GO TO QUIT! 04351200 

$ POP OMIT % AUXMEM 04351400 

KILLLl 04351600 

L0CATGUECS],U1IU;«0I 04351800 

KILLER* 04352000 

IF KEY1 NEQ THEN SP0UTERCKEY1 , PSEUDOM I X t M I X ] » 35 ) I 04352200 

IF KEY2 NEQ THEN F I N I SHDETA IU »' 04352400 

KILIUR] INX NOT 1)1 04352800 

END PROCEDURE DI SKORAUXERROR J 04353000 

PROCEDURE ACTUALIOERRCR)! VALUE Rl REAL R; 04353200 

BEGIN 04353400 

REAL 04353600 

E» 04353800 

Tt 04354000 

S» 04354200 

F» 04354400 

Ut 04354600 

Tl» 04354800 

T2i 04355000 

T3» 04355200 

KEY* 04355400 

FIN * NT3t 04355600 

IOD • NT6* 04355800 

MASK* 04356000 

DISC* 04356200 

TYPEI 04356400 

04356600 

NAME LOCN * T3I 04356800 

04357000 

LABEL Ll» L?» D17* D19* D22* START* NQTREADYMESS* NTKDYf 04357200 

EOF. REALEOF. TAPERETRY. SIX* SEVEN* FIX* LEAVE* 04357400 

REWINDING* NOCODE* CLEAR* KILLL* KILLER; 04357600 

LABEL READER* PRINTER* TAPE* DRUM* DISK* SPO* PUNCH* 04357800 

PAPERPUNCH* PAPER* DATACOMl 04358000 

04356200 

SWITCH W l» READER*PRINTER*TAPE*DRUM,DISK»SPO.PUNCH*NOCODE. 04358400 

PAPERPUNCH i PAPER* DA TACOM] 04358600 

04358600 

SUBROUTINE MaKEMESSI 04359000 

BEGIN 04359200 

STREAM(S1|»F,C43»53* S2 |»F ,£ 36l 5J » Al*TlNUtU3» 04359400 

MXj*L0CATQUE[SJ,£3l5J* KEY » «KEY »sSPACEC 1 0) ) I 04359600 

BEGIN 04359800 

SIIbLOC A) SH«SI+5l 04360000 

DSI»LJT"*"I 0Sl*3 CHRI DS|«LIT" "I 04360200 

CIl'CI + SU GO TO LLl 04360400 

GO Lll GO L2l GO L3| GO L4f GO L5l GO L61 GO LLl GO LLl 04360600 

DSIM9 LIT"BLANK TAPE ON WRITE*! GO TO MXX| 04360800 

Lll DSl« 4 LIT"BUSY"I GO TO MXXl 04361000 

L2I DSlw 8 LIT M I/0 MEM "I 04361200 

L3I DSl» 6 LIT"PARITY"I GO TO MXXl 04361400 

L4I DSI«12 LIT»I/0 INV ADDR"! GO TO MXX| 04361600 

L5I DSt* 9 LIT"J/0 ERROR"! GO TO MXXl 04361800 

L6l DSl«10 LIT M WRITE LOCK**! GO TO MXXl 04362000 



LLI GO TO PS; 0^362200 

MXX| GO TO M I X I T I 04362400 

PSt DH-DI-5) DS)«LIT"#") DH«Dl+4l 04362600 

CII"CI+S2f GO TO LLO; GO TO LLU GO TO LL2J 04362800 

NR» DSl» 9 LIT W NQT READY") GO TO MIXITI 04363000 

LLOf DSl» 5 LIT"PR1NT"| GO TO CHK) 04363200 

LL1I OSt* 4 LIT"READ"» GO TO CHKl 04363400 

LL2) OSib 5 LIT»PUNCH"I 04363600 

CHKl DSls 5 L1T**CHECK»I 04363800 

MJXITJ DSJ« 6 LIT"# MjXs"! DSl«2 DEC* DSl*LI T w * w > 04364000 

DU'DI-3; DS|»FILL) 04364200 

ENDI 04364400 

END OF MAKEMESSJ 04364600 

0436460ft 

SUBROUTINE DETAILRECORDENTRY* 04365000 

BEGIN 04365200 

KEY I* GETSPACE(ABS(T2)»9»0)*2i 04365400 

M[KEY3 I* (ABSCT2) DIV 5 -1) & RDC T ABlE [ U 3 1 18 * 1 J 2 J ) 04365600 

IF CNTll*L0CATQUEtS3.t3«53) NEQ THEN 04365800 

BEGIN 04366000 

M[KEY] l» (*PCDUP)) & NTlt20»43»5J & 04366200 

(IF FINALQUECS3 LSS THEN ELSE 04366400 

(MCMtLOCATOUECS] INX NOT 23 INX 4J, 1131113 DIV ETRLNG HI ) 1 9 J 39 I 93 ) 04366600 

CHECKJ0B0RFILEMESSCNT1. 04366800 

(IF FINALttUE[S3 LSS THEN ELSE LOCATQUEESJ INX NOT 2)t 04367000 

U)l 04367200 

ENDI 04367400 

M[KEY+n I* TRANSACTJ0NCU3; 04367600 

M[KEY*23l«IF TYPE*2 THEN RDCTABLECUJ & U[3l«3)53 ELSE 01 04367800 

M[KEY*33 )• I0QUECS3I 0ft368000 

M[KEY*43 t» R & RDCT ABLE! U3 1 3 I 3 I 5 3 ) 04368200 

IF TYPf*2 THEN 04368400 

BEGIN 04368600 

MCKEY+53 |« MULTITABLECU3J 04368800 

MCKEY+63 I* LABELTABLECU3I 04369000 

M[KEY+73 I* PRNTABLECU3) 04369200 

MtKEY+83 l« 0) 04369400 

M[KEY+93 !« 161 04369600 

END) 04369800 

IF T2 GTR THEN LJNKUPC TYPEM »Ke Y) ) 04370000 

END DETAILRECORDENTRY) 04370200 

04370400 

DEFINE MAKEML0GCMAKEML0G1) » 04370600 

BEGIN 04370800 

T2I«MAKEML0G1I DETAILRECORDENTRY) 04371000 

END#I 04371200 

04371400 

04371800 

U) "LOCATQUEISlwR.t 3153 3. 1 12163) 04372000 

START! 04372200 

T»«UNITtU]*0tl3)13»23) 04372400 

TRANSACTION^] l« TRANSACT I0N[U3M I 04372600 

TYPE »« T,[l|43) 04372800 

MASKibJF (T2I-FINALQUECS3) LSS THEN T2.I25I8J ELSE *»377| 04373000 

IF CEl*T,C5t8) AND MASK) * THEN % ACCEPTBLE 04373200 

BEGIN 04373400 

F 1*1 1 % RETAIN ERROR FIELD 04373600 

GO TO FIX) 04373800 

END I 04374000 

IE E THEN % BUSY 04374200 



BFGIN 043/4400 

T3»«l & (U«30)[43i47tl]| * BUSY/ INCOMPLETE MASK 04374600 

IF U LSS 16 AND TRANSACT 1 0N[UJ LEO THEN 04374800 

BEGIN 04375000 

P(0)1 X DONT SPOUT MESSAGE 04375200 

GO TO REWINDING* 04375400 

END! 04375600 

IF U NEQ 25 THEN % NOT SPO 04375800 

BEGIN 04376000 

Ft»l! % BUSY 04376200 

MAKEMESSJ 04376400 

SP0UTER(KEY»PSEUD0MlX[L0CATQUE[S3,[3t5]]#35)J 04376600 

END; 04376800 

MAKEMLOGUF TYPE»2 THEN 10 ELSE 5)J 04377000 

LI I DO BEGIN 04377200 

SLEEPUClQCK]»NOT CLOCK)! 04377400 

UNlTtUJl*(*P(DUP))&PCT.XCH)tCTCi; 04377600 

STARTIO(U); 04377800 

SLEEPU UNI T[U3]» 0100000000000); 04 378000 

TRANSACTION^] »* TRANSACT ION t U J- 1 ; 04378200 

END UNTIL CUNITIU3.I5I83 AND T3) * 0; 04378400 

TRANSACTIONS I* TRANSACT IQNCU Jfi> 04378600 

IF (UNlT[U] t t5l6) AND MASK) m THEN GO TO CLEAR; 04378800 

GO TO START; 04379000 

END? 04379200 

04379400 

IF E,[45tl] THEN * NOT READY 04379600 

BEGIN 04379800 

IF E, £43113 THEN 04380000 

BEGIN 04380200 

IF TYP£»Q THEN GO TO READER; % READ CHECK 04380400 

IF TYPEM THEN GO TO PRINTER; * PRINT CHECK 04380600 

IF TYPE«6 THEN GO TO PUNCH; * PUNCH CHECK 04380800 

END; 04381000 

IF U N£Q 25 THEN % NOT SPO, 04381200 

BEGIN 04381400 

NOTREADYMESSl 04381608 

Fl»96l % NOT READY 04381800 

MAKEMLQGCIF TYPF*2 THEN 10 ELSE 5); 04382000 

MAKEMESS; 04382200 

P(l); % SPOUT MESSAGE 04382400 

REWINDING! 04382600 

READY J* NOT TWO(U) AND READYJ 04382800 

NTRDYl 04383000 

RRRMECHt-NOT TWO(U) AND RRRMECH; 04383200 

IF P THEN SP0UTER(KEY»PSEUD0MIX[L0CATQUEtS],C3«5n»35); 04383400 

END; 04383600 

UNITCU3, [51103 i« 2; 04383806 

IF (TllsL0CATQUErT2«*S3«[3«5J) NEQ THEN 04384000 

BEGIN 04384200 

DO BEGIN 04384400 

T2l*L0CATQUE[T23,[FF3l 04384600 

I0C0UNT[TU»**PCDUP)-1; 04384800 

END UNTIL T2 GTR 1023; 04385000 

END; 04385200 

GO TO KILLL; 04385401 

END; 04385600 

D17I 04385800 

JF E, [46113 THEN % I/O MEMORY PARITY 04386001 

BEGIN 04386200 



Fl*2> * 1/0 MEN PARITY 04386400 

L2* MAKEMESSJ 04386600 

SP0UTERCKEYfPSEUD0M!XtL0CATQUECSJ,l3l5]l»35)l 04 386800 

MAKEMUOGCIF TYPE»2 THEN 10 ELSE 5)J 04387006 

Pm537>; % ACCEPT EOF/EOT/EOP 04387200 

GO TO SIX; 04387400 

END* 04387600 

IF E, [41113 AND TYPE NEC 2 THEN % I/O INVALID ADDRESS 04387800 

BEGIN % [41113 FOR TAPE * BACKWORD DRIVE 04388000 

D22* FI*4J X I/O INVALID ADDRESS 04388209 

GO TO L2J 04388400 

END) 04388600 

04388809 

GO TO W[TYPE3; 04389000 

04389200 

D19l E l« 10231 GO TO D17J 04389400 

04389600 

SPOJ 04389800 

IF E.C43U) THEN GO TO HI * ERROR BUTTON 04390000 

GO TO D19J 04390200 

04390400 

PRINTER! 04390600 

IF E, [42113 THEN % END OF PAGE 04390800 

BEGIN 04391000 

IF I0QUECS3.[27»6}*0 THEN GO FIX; * NOT SPACING 04391200 

COMMENT IGNORE EOP IF NO SPACE OR SKIP; 04391400 

I0QUE[S3, [181153 I* 940001J % INHIBIT DATA XFERi SKIP TO CHANNEL 04391600 

GO TO CLEARI 04391800 

ENDI 04392000 

IF E|[43I1J THEN 04392200 

BEGIN 04392400 

F»»QI J! PRINT CHECK 04392609 

MAKEMESSI 04392800 

SPOUTER(KEY»PSEUDOM1X[LOCATQUECS3.[3I53 3»35); 04 39 3000 

IF EiC45ll3 THEN GO TO NOTREADYMESS l % PRINTER NOT READY 04393200 

MAKEMLOGdF TYPE*2 THEN 10 ELSE b)i 04393400 

PCOJI % CLEAR ERROR HELD 04393600 

TINUCU3.U8U23 I" P(DUP) f [18U23 + 1; 04393800 

GO TO SIXI 04394000 

ENDJ 04394200 

GO TO D19| % PARITY 04394400 

04394600 

READERI 04394800 

IF E. [43113 THEN * READ CHECK 04395000 

BEGIN 04395200 

TINU[U3, [18U23 I* PCOUP) , [181 123 + 1 1 04395400 

F 1*321 % READ CHECK 04395600 

MAKEML0GC5)? 04395800 

MAKEMESSJ 04396000 

P(l)l % SPOUT MESSAGE 04396200 

GO TO NTRDY; 04396409 

END! 04396600 

IF E#[42»13 THEN * EOF CARD READER-TREAT AS NOT READY 04396800 

BEGIN 04397000 

UNIT[U3»[5»83 I* 4J % ERROR FIELD*NOT READY 04397200 

R, [25183 1* 41 * RESLT.DESCt*NOT READY 04397400 

TRANSACTIONS I* TRANSACT I0N[U3+ 1 ; 04397600 

GO TO START! 04397800 

END! 04398000 

COMMENT MUST BE D19 - USUALLY INVALID CHARACTQR; 04398200 



INVAUD CHARACTER 
IN COLUMN 1 



STREAMCAJsO » B I * I OQUE [ S J ) ! 
BEGIN 

01 !« A) SI l« Bl 01 Ib DI+8J 
IF SC • *14 THEN A I* DD 
2C40CDI l«0I*8l SIi* S I ♦ 1 J 
IF SC * P14 THEN JUMP OUT 2 TO L); 
DI I* DI*8> SI I* SIM! )> 
Dl I" a; 
Li a i» on 
end; 

IF (Ti l* P) « THEN GO TO D19| X NOT 
IF Tl NEQ 1 THEN % NOT 

BEGIN 

STREAM(AI*TINUCUJ»Tl#KEYJ«KEYI*GETSpACEU0»O»0)+2); 
BEGIN 

OS I* LIT "#"l SI l« LOC A? SJ I* SI+5J 

DS I* 3 C HR J 

OS !» 16 LIT " INV CHR IN COL »; 

DS I* 2 DEC! DS I* LIT H *"J 
ENOI 

pcn» % spout message 

go to ntrdy; 

end; 
t.ccfj »« loauEtsJ; 
go to realeof; 



PUNCH! 
IF 



E,I43llJ THEN 

BEGIN 

F««64l % PUNCH CHECK 

MAKEMESS; 



GO 



MAKEMESS; 

SP0UTERCKEY»PSEUD0MIX[L0CATQUEtSJ,C3li>J]»35); 

% NEW PUNCH DOES NOT GO NOT-READY ON PUNCH CHECK 

IF E.I451U THEN GO TO NOTREADYMESS > % NOT READY 

MAKEML0GC5); 

TlNU[U),ti8ll2]|«PCDUP).C18H2] + li 

Fl*0| X ZERO ERROR FIELD 

go to clear; 

end; 

to d19; % parity 



PAPERPUNCHI 

IF R,C27lU THEN % EOR 
BEGIN 
P(MO)l 
GO TO SIX; 

end; 
go to d19) % parity 

PAPER! 

IF R, [27123 NEO THEN GO TO EOF; % BOT/EOT 
IF E.M4I13 THEN % PARITY 

BEGIN 

PC 020); 

go to sixj 
end; 
go to nocodei 

DAT AC OM I 

IFCT3f«UEC43|43ll])«»21 THEN GO TO Li! 



04398400 
04398600 
04398800 
04399000 
04399209 
04399400 
04399600 
04399800 
04400000 
04400200 
04400400 
04400600 
04400800 
04401000 
04401200 
04401400 
04401600 
04401800 
04402000 
04402200 
04402400 
04402600 
04402800 
04403200 
04403400 
04403600 
04403800 
04404000 
04404200 
04404400 
04404600 
04404800 
04405000 
04405200 
04405400 
04405600 
04405800 
04406000 
04406200 
04406400 
04406600 
04406800 
04407000 
04407200 
04407400 
04407600 
04407800 
04408000 
04408200 
04406400 
04408600 
04408800 
04409000 
04409200 
04409400 
04409600 
04409800 
04410000 
04410200 
04410400 



<-, ) 






NOCODE* 

F IF 5* % 
GO TO L2* 



I/O ERROR 



DRUM! % DRUM NOW HANDLED IN 
DISKt % DISK NOW HANDLED IN 
DO UNTIL FALSE* 



DISKORAUXERROR 
DISKORAUXERROK 



TAPEI 
TR 
IF 



ANSACTlONtU] tm TRANSACT ION[U 3 *1 * 
£,[44*13 THEN 
IF R,[2»13 THEN % MOD III DESCRIPTOR 

BEGIN % COULD BE MEM , PAR ,» BLANK TAPE»BOT»EOT 
IF RiClHU THEN GO TO D19* % MEMORY PARITY 
OPTlONl»OPTION OR Ml % MEANS MOD3I OS » *TRUE 
IF R, [24*13 THEN % READING 
BEGIN 

IF R, [13*13 THEN R, [2703**11 * BOT# SET EOF 
IF R,[14ll3 THEN % EOT 

IF (E AND P367)*Q THEN % PARITY 
IF R.C27I 13«0 THEN % NOT EOF 
GO TO F I XI % FINISH I/O 
END 
ELSE 

BEGIN % WRITING 

IF R.CUIll THEN % BLANK TAPE ON WSlTE 
BEGIN 

Fl*9* % BLANK TAPE ON WRME 
MAKEMESSj 

SPOUTER(KEY»PSEUDOMlXtLOCATQUEtS3,C3»53J#35)l 
MAKEML0G(10)» 
PC16); 
GO TO six; 
ENDI 
IF R,[14*13 THEN R,C2rii]lM ELSE GO FIX* % EOT.SET 
END* 
END * MOD III DESCRIPTOR 
ELSE GO TO D19* % PARITY 
IF R, [24*13 THEN 
BEGIN 

IF E, [41*13 THEN GO TO D22* % INVALID ADDRESS 
IF R,[27*13 THEN X EOT 
EOFl IF MASK, [42*13 THEN 

BEGIN 
REALEOF* FI*UCIF R.[24»13 

T,[5t63 t» 940* 
GO TO FIX* 
END 
ELSE 

BEGIN % EOF 
P(P40)I 
GO TO SIX) 
END* 
TAPERETRY* 

MAKEMLOG(-TAPEBUFFERSIZE)* 

IF (TI»TAPEPARJTYRETRY(R»U»KEY)),[5«8J»32 A ND 

L0CATQUE[S3,[3I53 NeQ THEN GO TO REALEOF* 

P(T.[5|83)J 

GO TO SIX* 

END* 



EOF BIT 



% EOF OK 
THEN 031 ELSE 0HCTF3* 



NOT ACCEPTABLE 



04410600 
04410600 
04411000 
04411200 
04411400 
04411600 
04411800 
04412000 
04412200 
04412400 
04412600 
04412800 
04413000 
04413200 
04413400 
04413600 
04413800 
04414000 
04414200 
04414400 
04414600 
04414600 
04415000 
04415200 
04415400 
04415600 
04415600 
04416000 
04416200 
04416400 
04416600 
04416800 
04417000 
04417200 
04417400 
04417600 
04417800 
04418000 
04418200 
04418400 
04418600 
04418800 
04419000 
04419200 
04419400 
04419600 
04419800 
04420000 
04420200 
04420400 
04420600 
04420800 
04421000 
04421200 
04421400 
04421600 
04421809 
04422000 
04422200 
04422400 



IF E.U1U3 THEN X WRITE RING 04422600 

IF E,U3ll3 THEN * PARITYiWRITE RING 04422800 

BEGIN 0442300* 

f I * 6 1 % WRITE LOCK 04423200 

GO TO L2I 04423400 

END 04423600 

ELSE GO TO D22! % INVALID ADDRESS 04423800 

IF E« C431 1 1 THEN GO TO TAPERETRYI % PAKITYtWRlTE RING ONLY 04424000 

P(M0)| 04424200 

S I X I 04424400 

T I* T&P(XCHH5«40»8JJ 04424600 

F I* II 04424800 

F IX » 04425000 

E l« T,[5»8JxFJ 04425200 

FIN I* SI 04425400 

IOD I* I0QUECS3I 04425600 

SEVENI 04425800 

RETURNIOSPACECS)! 04426000 

04426200 

I0C0UNT[L0CATQUE[SJ,C3|5JJl*P(DUP.L0D?-ll 04426400 

T, [FF 3 1 *Sl *LQC ATQUECS 3 ,[FF 3 1 04426600 

IF F » P3100001 THEN 04426800 

IF S NEQ mm THEN GO TO SEVEN! 04427000 

SlsFINI 0442720ft 

IF FALSE THEN 04427400 

LEAVEJ 04427600 

IOD I* IOQUEtSJl 04427800 

FIN t« FINALQUECS3 AND NOT MEMORYI 04428000 

IF IOD. £241 1 3 THEN 04426200 

BEGIN 04426400 

NT4 I* MtJOD INX ( IF IOD, [22 J 1 3 THEN 1 ELSE NOT 0}]| 04428600 

FIN1SH0FFI0CU)! 04428800 

ENDI 04429000 

IF ( Tl •• FIN) LSS THEN 04429200 

P(R4Et25l40l83&I0D[3»3l53 OR IOMASK »LOC ATQUEt S3 » «■ > 04429400 

ELSE 04429600 

BEGIN 04429800 

IF E NEQ THEN 04430000 

BEGIN 04430200 

P(tTl»PRL>! 04430400 

Tl |« TKEC25l40t83l 04430600 

END 04430800 

ELSE P(,TJ»I0R)» 04431000 

LOCN is [MtL0CATQUE[S333! 04431200 

IOD »» IOD, C 33 1 153 1 04431400 

WHILE L0CN[03,C33I153 NEQ IOD DO LOCN l» 1 )NX LOCNI 04431600 

L0CNC03 l« P(,TliLOD)l 04431800 

END! 04432000 

UNIT[U3 is Tl 04432200 

CLEAR! 04432400 

UNITCU3 l» (*P(DUP))&Ft5l20«13J! 04432600 

STARTIO(U)! 04432800 

KJLLLl 04433000 

LOCATQUECS3,Ulil3l"0! 04433200 

KJLLERJ 04433400 

KILLUR3 INX NOT 1)1 04433600 

END! 04433800 

S SET OHIT a NOT(DEBUGGING) 04544999 

REAL NSTOP»B.C»ERROR»NSYMBS»LP!X 04545000 

ARRAY WBt*]»RBXt*]t TBLt *3 » STOPS t * 3 > 04546000 



REAL TYPETGg;* 04547000 

$ POP OMIT 0ftt>47001 

REAL PROCEDURE TAPEPAR I TYRETRY( R , U» KEY ) ; * 0454800ft 

VALUE RiUtKEY»X 04549000 

REAL RHJtKEYjX 04550000 

BEGIN REAL T1»T2»T3) INTEGER I* T1U 04551000 

REAL RESULT»IO0»0I0D»SPACEMASK,SPaCEIOD»M.N*W»MODE;X 04552000 

REAL J»K)X 04553000 

REAL ERASElOD*SPACEMASK;i 04554000 

REAL Z#Y»MIX»BSIZE; 04554100 

LABEL XIOtGIVEUPl 04554200 

LABEL RP»LX) 04554300 

REAL SIZE#T4»LIMIT; 0455450SI 

REAL PTR»BUFFER#BUFFERSUE»X 04554600 

PATTERN»PATTERN1#PATTERN2»PATTERNW0RD>X DON w T CHANGE 0RDER04554700 

BOOLEAN TESTING.SPACINGIX 04554800 

LABEL XXIT»EXI t;X 04555000 

SUBROUTINE RECORDRETRY ) % 04555050 

BEGJNX 04555100 

IF PTR-KfcY = TAPEBUFFERSIZE-1 THEN* 04555150 

6EGJNX 04555200 

T4l*GETSPACE(TAPEBUFFERSIZE»9»b)+2J 04555250 

MQVE(10»KEY,T4m 04555300 

MEM0RY[KEY+83ta TAPEBUFFERS I ZE-lO) S 04555350 

MEM0RY[KEY+9]»» 1023)8 04555400 

LINKUP(3#KEY);X 04555450 

KEYl* T4) PTRl* KEY + 9U 04555506 

END)* 04555550 

MEMORY[PTR»«PTR + nt« JOD)* 04555600 

MEM0RY[PTR1«PTR + 1J|» RESULT & ROCT ABLECU H 19 1 1 j 2 3 ) * 04555650 

ENO RECORDRETRY)* 04555700 

SUBROUTINE DQIONOW)* 04556000 

BEGIN FOR Y*l STEP 1 UNTIL 18 DO 04556100 

BEGIN IF R,C24ll)THEN 04557000 

BEGIN X WAIT 1/15 SEC BETWEEN READ RETRIES 04557100 

WHILE T4>CL0CK+P(RTR) DO SLEEPC1.1)) 04557200 

T4*CL0CK+P(RTR)*4) 04557300 

END) 04557400 

IF I08UESL0TS»0 THEN SLEEPC t I QQUESLOTS] » 63) ) 04558000 

IOOUESLOTSl«IOQUESLOTS-D 04558500 

IOQUEAVAIL»*IOOUEtTi!*IOQUEAVAlLJ) 04559000 

I0QUECT13* IOD)X 04560000 

I0C0UNT[(L0CATQUECTU*L0CAT0UECT2«-{T3*UMT[U]) f [18U5JJ& 04561000 

[RESULT][CTC3&T2tCTF]),[3J5 3]**PCDUP)*l) 04562000 

UNI TtU3 * T3&TUl8l33U5)i64[bl35ll3JlS 04563000 

STARTIO(U))X 04564000 

FINALQUECTU «• NABSCIODH [25)40)83 OR IOMASK)* 04565000 

RESULT «• 0)X 04566000 

SLEEPC C UNIT tU33 » P 100000000000 )) X 04567000 

IF RESULT,[30)13 THEN X NOT READY 04567010 

BEGIN 04567020 

MOOE I* C16)) 04567030 

GO TO EXIT) 04567040 

END) 04567050 

IF RESULT, [29I1J AND RESULT, [2113 THEN 04567100 

BEGIN 04567150 

if result, ti2iu then % blank tape 04567200 

IF IOD, [24)13 THEN % READ 04567250 

TRANSACTIQNCU3*TRANSACTJQN[UJ-HIQDUI22|13 ELSE04567300 

BEGIN) % WRITE 04567310 



STREAM(Ai«TINU[UJ#Tl»T2l»SPACE(3>> J 0456 f 320 

BEGIN SI*LOC A; Sl*SI+5l 0S*3 CHRJ 04567400 

DS*21 LIT" BLANK TAPE ON WRITE*"! 04567500 

ENDI 04567550 

SP0UTIT(T2.35);X BLNK T APE-TAPEPAR I TYRTRY *R6404567600 

GO TO XX I T; * 04567700 

END! 04567750 

IF RESULT, [llllJ THEN * M£M PARITY 04567770 

BEGINJ 04567780 

STREAMCA*T1NU[UJ»T*T2*SPACE(3))1 04567790 

BEGIN SI*L0C AJ Sl*$I+5l DS-3 CHRl 04567800 

0S*13 LIT" I/O MEM PAR*"; 04567810 

ENOI 04567820 

SP0UTIT(T2» 35);*I/0 MEM PAR-TAPEPAR IT YRETRY XR6404567830 

XX I T t MODE I* 161 04567840 

IF TESTING THEN GO XIO? 04567845 

RECORDRETRYl 04567850 

GO TO EXIT; 04567855 

END; 04567860 

IF RESULT, [13«2J*0 THEN Y*18; 04567870 

END ELSE GO TO X 1 0; 04567900 

ENDlX 04568000 

RESULT, [27ll]*i; M00E*32; 04568100 

X 1 01 IF NOT SPACING THEN RECORDRETRY; 04568200 

END DOIONOW;* 04568250 

SUBROUTINE SPACEBACKj 04568300 

BEGIN 04568310 

IF TRANSACTIONtU]*l THEN 04568320 

BEGIN 04568330 

IODS«042OOOOOOOO&OIODC3t3i5J; 04568 340 

DOIONOW; 04568350 

I»*TWQ(U)| 04568360 

RRRMECH»*RRRMECH OR II I MASK OUT STATUS WHILE04568362 

CLICKJ»CL0CK*P(RTR)+600l % WE WAIT FOR REWIND, 04568364 

COMPLEXSLFEPCCPCRRR) AND P#0)J 04568366 

RRRMECH»«=RRRMECH AND NOT II 0456836b 

IF CPCRRR) AND I)»0 THEN % TIME OUT *> NOT READY04568370 

BEGIN M0DE1*"16J 04568372 

GO TO EX1TI 04568374 

ENDI 04568376 

END ELSE 04568380 

BEGIN ' 04568390 

Ms*Wl 04568400 

I0D?»SPACEI0DI 04568410 

Jl*Ol 04568420 

SPACING** TRUEI* 04568425 

DO BEGIN 04566430 

DOIONOW; 04568440 

TRANSACTION CU3 I »C*P(DUP))+1> 04568450 

JfsJ+ll 04566460 

END UNTIL ((M»*RESULT,[CFJ*SPACEI0D|[CFJ*M) LSS 04568470 

OR RESULT, C27IU) AND J GTR i; 04568480 

IF NOT TESTING THEN SPACING** FALSEI 04568485 

TRANSACT I 0N[U 3 »»(*P(DUP))-2» 04568490 

10DI»SPACE!OD&0[22U7I1J» 04568500 

DOIONOW; 04568510 

IF N«0 THEN BSIZEI*RESULT,[CF3»I0D,tCF] ELSE 04568520 

IF BSlZEi'RESULT.tCFj-IODaCF J THEN 04568530 

BEGIN 04568540 

STREAM(AI«TINU[UJ»DI»T2l*SPACEU0>)l 04568550 



BEGIN SH*LOC AJSll«SI*blDSlB3 CHKl 04568560 

DS:*13 LIT" ERASE ERROR*"; 04568570 

END; 04568580 

SP0UT(T2); 04568590 

GO GIVEUPJ 04568600 

ENDI 04568610 

ENDJ 04568620 

END* * OF SPACEBACK 04568630 

TINUCU3 . C 18* 123 * PCDUP) , [ 18 1 123*1 J * 04569000 

MIX |s LOCATQUEtUNIT[U3,[FF33,r3l53J 04569500 

OIOD * NFlAGUQQUE[UNITEUJ.U8»15m;X 04570000 

PTRls KEY+9; 04570100 

STREAMCAl«TINU[U3»REELl*PRNTABLElU3,t30Jl63i> *1 1504570300 

MF1DI«MULT!TABLECU3»FID»*IF LABELTABLE[U3«P314 *H504570305 

THEN "UNLABLD" FUSE LABELTABLE [U3 . X11504570307 

RDI*R»MIXI»MIX»T»*T2»«SPACE(10))J XI 1504570310 

BEGIN SK11504570320 

SlIsLOC A; SI I»SI*5;DSJb3CHRJ S11504570330 

DSI*7 LIT " REEL #"l DS}*4 DEC? *11504570340 

Sl»*Sl + lJD5|*LIT ,, J"JDSl*7CHRJSI « *S I + 1 > DS J *L I TV" I OS » *7CHRJ *1 1504570 345 

DSt*4 LIT";RD»"; S11504570370 

16CDSIP3RESETI3CIF SB THEN DSl*SET ELSE X11504570380 

DStsRESET; SKIP SB))J H1504570390 

DSl»5 LIT H JMIX«« M 1 DSl«2DEC; X11504570400 

D$I»LIT LEFTARROw; 111504570410 

END STREAM? 111504570420 

SP0UTITCT2.34); X11504570430 

IF R,[24»13 THEN* 04571000 

BEGIN COMMENT REAO RETRY;* 04572000 

SPACEMASK * 0I0D,E2H23xMlll EQV NOT P0123J* 04573000 

SPACEIOD * 0!00&l[6l38H0]&l[23l47lHJX 04574000 

FOR M * 1 STEP I UNTIL 3 DO* 04575000 

BEGIN SPACEIOD ♦ SPACE IOU&SPACEMASK [ 21 1 46 I 23 ; * 04576000 

FOR N ♦ 1 STEP 1 UNTIL 5 DO* 04577000 

BEGIN I0D ♦ SPACEIOD?* 04578000 

IF NM OR MM THEN DOIONOW ELSE 04579000 

IF N0TCR,[29«13AND R,[2U3 AND R.U2I13) 04579100 

THEN DOIONOInI 04579200 

IF RESULT. 126I1J THEN* 0458000* 

BEGIN MODE » OJ* 04581000 

IOD * OIODJ* 04582000 

END* 04583000 

ELSE BEGIN MODE ♦ 81* 04584000 

IOD «• 0I0D&SPACEMASKC21I43I23U 04585000 

END)* 04586000 

DOIONOWJ* 04587000 

IF NOT RESULT, {28113 THEN GO TO EXIT J* 04588000 

IF M0D3I0S THEN IF OIOD. [23:13 THEN 0458801* 

BEGIN Z*lOD*OIOD&SPACEMASKt2l!40l23 04588020 

&(OIOD.[33<153*(OIOD ,[81103*1) 045880 30 

&0I0D[lt22U3)[33l33H53? 04588040 

DOIONOWJ MODE+OJ 04586050 

IF RESULT t [28ll3 THEN 04588060 

BEGIN 1 00*01 OD* DOIONOW) 04586070 

IF NOT RESULT, [28113 THEN 04588080 

GO TO EXITI 04588090 

10D*ZRSPACEMASK[2H46l23l 04588100 

D0I0NOW! MQDE*6J 04588110 

IF RESULT, [28J13 THEN 0458812* 

BEGIN I0D*OIOD&SPACEMASK 04588130 



[21I43I2JJ 04588140 

RPI D0I0N0W; 0458815* 

IF RESULT, [28»l3 THEN 04588160 

GO TO LXI 04588170 

GO TO EXIT; 04588180 

END* 04588190 

END* 04588208 

Z*ABS<I0D,[33;15]-RESULT,C33U5J); 04588210 

IF IQD,[21l2J*0 THEN 04588220 

**Z-<KESUIT,[15I3J*0)» 04588231 

IF I0D,t8ll0J<Z THEN 04588240 

BEGIN IOU*OIOD? MODE-OJ GO TO RP ENOI04588250 

IF I0D,C22lJ] THEN 04588260 

STREAM(Z»Y*Z 01 V 64# 04588270 

S*RE6ULT,I33I15]+1» 04588280 

SK*( RESULT, C 15 I 33*1). 145 I 33. 04588290 

GM*C IF l00,C21in THEN 04588300 

ELSE "♦")» 04588311 

D*0I0D|133I15J)I 04588320 

BEGIN SI*SJ Sl*Sl+SKi 04588330 

Y(16(DS*32 CHR))I 04588340 

Z(DS*8 CHR); 04588350 

SK(OS*LIT H H ); 0458836* 

DI*DI-SK; SI*LOC GM; 04588370 

SI*SI+7> DS*CHR; 04588380 

END ELSE 04588390 

STREAM(Z»Y*Z DIV 64» 04588400 

S*RESULT, [331153-1* 04588410 

SK*CRESULT,tl5;33+7).t45»33* 04588420 

FL*(IF IOD.C21J13 THEN 04588430 

ELSE ?14)» 04588440 

FK*(8-RLSULT.U5»33),C45I3J» 04588450 

D*010D,[33J15J); 04588460 

BEGIN SJ*S; SI*SI+SK; DI»DI+7J 04588470 

YC16(32(DS*CHRi Si*SI-2; 04588480 

01*01-2))); 04588490 

Z(8(DS*CHR; SI*SI-2; DI *D I -2) )t 04588500 

SI-LOC FL> SI*SI*7) 04588510 

FK(DS*CHR» Sl*SIMI 01*01-2)1 04588520 

END; 04588531 

I0D*P140000OO5&OI0Dt22l22ll] 04588540 

&0I0DC3I 3153* 04588550 

DOIQNOtU GO TO EXJT; 04588560 

LXi END; 04588570 

ENDlX 04589000 

n * if transactions < 15 then* 04590000 

transactions else 15;* 04591000 

iod * spacei0d&spacemask[2u40»23;x 04592000 

spacingi« true; 04592100 

for w * 1 step » untjl n dos 04593000 

begin doionowj* 04594006 

if result. [27113 then n*0;» 0459500* 

END;* 04596000 

IOD *• SPACEI0D&SPACEMA5K[2US7«2J;X 04597000 

FOR N * 3 STEP 1 UNTJL W DO D010N0MJ* 04598000 

100 * 0I0D;% 04599000 

NODE * 01% 04600000 

SPACING!* FALSE! 04600100 

DOJONOW;* 04601000 

IF NOT RESULT, [28113 THEN GO TO EXITU 04602000 



ENDI* 04603000 

MODE * 16»X 04604000 

END ELSE BEGIN COMMENT WRITE RFTRYJX 04605000 

LlMiT*0lOOOOO| 04605500 

ERASEIOD * (SPACEIOD * 01 OD&Qt 81 38t 103*7(221 45l 3HCT2JX 04606000 

[33l33ll5m*112[l8Mll7)lX 04607000 

W * R,[33ll5J-0I0D.[33|l53+2>* 04608000 

WHILE TRUE DO 04609000 

BEGIN 04610000 

SPACEBACK; 04611000 

IF CNt-N+W+128) GTR LIMIT OR 04627000 

TERMSETCMIX) THEN GO GIVEUP; 04627100 

IOD * FRASEI0D*N[9!39«9]U 04628000 

SPACING** TRUE** 04628100 

FOR J * STEP 512 UNTIL N DOX 04629000 

BEGIN TRANSACTION^] * TRANSACT I ON[U J-l t % 04630000 

DOIQNOWJX 04631000 

IOD * ERASEI0D*H8»47Ji]*X 04632000 

IF RESULT, 12711) THEN 04633000 

BEGIN 04633100 

IF NOT R.C27J1J THEN L 1M I T*-J + 3000j 04633200 

R, [27113*11 04633300 

END; 04633400 

ENDJX 04634000 

SPACING«« FALSEU 04634J00 

I0D»» IOD & N[CTCJ»* 04634200 

RECQRDRFTRYJX 04634300 

IOD * OlODJX 04635000 

DOjONOWJX 04636000 

IF RESULT, [27I1J THEN R.[27»U * 1JX 04637000 

IF NOT RESULT, [28J1J THEN* 04638000 

BEGIN 04638100 

S!ZE*RESULT,[CF3-010D.[CF)> 04638200 

SPACEBACKl 04638300 

I0D*SPACEI0D*0[22I47U1; 04638650 

DOIONOWJ 04638700 

IF N0T(RESULT,128HJ OR (010D.C2H11 AND 04638800 

(RESULT, [CFJ-SPACEI0D.[CFJ*SIZE)>) THEN 04638900 

BEGIN 04639000 

M0DE*0*R[42I27»1J) 04639100 

GO TO EXIT! 04639200 

END? 04640000 

END* 04641000 

ENDIX 04642000 

GIVEUP I 04642900 

T2 l» SPACEC3); 04643000 

STREAM(A*TINU[U3#T2);X 04644000 

BEGIN SI * LOC A> SI * SI+5J DS * 3 CHRJX 04645000 

DS ♦ 11 LIT " WR PARlTY*">X 04646000 

ENDIX 04647000 

SP0UTIT(T2t35)iX WR PAR XR6404648000 

MODE * 161 X 04649000 

ENDIX 04650000 

EXITI TAPEPARITYRETRYs* UNIHU] & MODE[ 5 I 40 J 8 J I 04651000 

MEMORYCKEY+81 l» PTR-KEY-9J 04651050 

MEMORY [KEY*9 J |*ABS( MODE)* 04651100 

MEMORYtKEYl |« PCDUP»LOD) 4 C(PTR-KEY) DI V 5)[39l39|9)| 04651200 

IF CM0DE*16) OR (R,[24UJ) THEN LI NKUP( 3» KEY ) ELSE 04651300 

BEGIN 04651400 

BUFFERS OIOD INX 01 04651500 



L1J 
L2I 

DS«* CHRl 
111147;!]; 



BUFFEKSIZEI* QI0D,[8ll0]J 

IF NOT OIOO, C21 1 1 ] THIN % ALPHA WRITE - CHECK U-MARKS 

BEGIN 

STREAMCT»*0» 

TEMP|»Q» SVSH«0# 
BUFFSTARTl«BUFFER# 
BUFFENDI*BUFFER + BUFFERSUE)> 
BEGIN 

SI l«>BUFFENDl DI»*LOC TEMPI DS;« CHR; 

D1I*BUFFEND» DSiwLlT"*"! DII«DI"ll DS»*RESETl XQ-MARK 
Sl!«BUFFSTARTl 
IF SC > 9 THEN 
BEGIN 
LI? SI»«SI+U IF SC>9 THEN GO 

ENDI 
L2l SI|«SI+1J IF SCS9 THEN GO 
SVS1 l»SI I 

SI I wLOC SVSII SIipSUSI 
DI l*LOC BUFFEND1 DIt*Dl+5l 
IF 3 SC*DC THEN TAULY 1*11 
OII»BUFFENDJ SI l*UOC tempi 
Tt*TALLY; 

end; 

I tssPOLl SH J 

MEM0RY[KEY+2]|» P(OUP»LOd) & 
ENOI 
IF STOPTEST THEN LI NKUPC 3 . KEY ) ELSE 
BEGIN 

MEMORYCKEYJ l« NABSC PC DUP. LOD ) ) I 
LINKUP(3»KEY)I 

TESTING!" SPACING!" TRUE! NI«0J 
BUFFERSIZEI" BUFFERS I ZE"1 1 
OIOOI" OIOD & 1C1BI42I6]! 
PTR|« K£Y*8j 

STREAM(MOD2lOSJ»NOT(MOD3lOS+62 3» 
BEGIN 

DS|»13 LIT"01248+x*<CtGS"l 
M0D2I0SCDI I =D I -61 DSl»LIT"""l 
DSl- LIT"""; DS|» LIT"""; 
05|«3 LIT"]SC"I 
ENDI 

SLEEPUMEMORYCKEY]] »P1000000000000000)I 
MEM0RYCPTR3J" 0| MOVEC 19 1 # PTR» PTR+ 1 ) I 
FOR K|*0 STEP 1 UNTIL 15 DO 
BEGIN 

STREAM(AH»tPATTERN]. 

K»*K+(K«15)i M|»4*4x(K<14)» NI*l+CK>13)t 
SIZEDIV64l«BUFFERSIZE.[36 56J» BUFFERS I ZE» 
BUFFER)! 
BEGIN 

SIUAI S|l«SUKI 
MCDSl*N CHRl SI |bSI»N)J 
SI t#BUFFERI 

SIZEDIV64(DSI*32 WDSl DS«*32 WDS)I DS » «BUF FERS I ZE WDSI 
DH«AI D1I»DI*24I DSmWDSl 
ENDI 

IODI* OIODJ* OIOD & (CK<7) OR CK>1 3) ) [ 21 1 47 1 U I 
DOIONOWI 

MEM0RYCPTR3J" RESULT & RDCTABLE t U J 1 19 1 1 1 23 | 
SPACEBACKl 



D»»CPATTERN])| 



DH«Dl+5)l 



04651600 
04651700 
04651800 
04651900 
04652000 
04652100 
04652200 
04652300 
04652400 
04652500 
04652600 
04652700 
04652800 
04652900 
04653000 
04653100 
04653200 
04653300 
04653400 
04653500 
04653600 
04653700 
04653800 
04653900 
04654000 
04654100 
04654200 
04654300 
04654400 
04654500 
04654600 
04654700 
04654800 
04654900 
04655000 
04655100 
04655200 
04655300 
04655400 
04655500 
04655600 
04655700 
04655800 
04655900 
04656000 
04656100 
04656200 
04656300 
04656400 
04656500 
04656600 
04656700 
04656800 
04656900 
04657000 
04657100 
04657200 
04657300 
04657400 
04657500 



STREAMCSlZEDlV64i«BUFFERSIZE.C36l6]t BUFFtHSIZE* 0465 7600 

BUFFER)? 04657700 

BEGIN 04657800 

DS«s8 LIT** ») SI)*RUFFER) 04657900 

SIZEDIV64(DS)*32 WDSl DSl«32 WDS); DS I "BUFFERS I ZE WDS) 04658000 

END* 04658100 

IODI* OIOD & H24l47«n> 04658200 

DOJONOW) 04658300 

MEMORY[PTR + Ul« RESULT & RDCTABLECUJ 1 19 111 2 ] ) 04658400 

STREAM(AI«tPATTERNJ INX 3» 04658500 

CHRERR»*Q» WR[)ERRl*0» WRDCNTl'Ot 04658600 

L00Pi*0» FORSEVENl*l# LEAPFROGl*0» 04658700 

WDSLEFTl*H*CJl*IF ( S 1 ZE J bABSC BUFF ER-( RESULT INX 0))) 04658800 

LEO BOFFERSIZE THEN SIZE ELSE BUFFERS1ZE+1 ) MOD 63» 04658900 

Vt*IF J<64 THEN J ELSE 63» 04659000 

Nl«IF J<64 THEN 1 ELSE J DI V 63# 04659100 

RECYCLE'* IF J<64 THEN ELSE JF 1*0 THEN ELSE 1» 04659200 

TEMP|«0. SVDU*0» 04659300 

BtTL0CN«*PTR+3# WRDLOCN ) *PTR+5» 04659400 

BUFFER)! 04659500 

BEGIN) 04659600 

LEAPFROG!* CII TALLYl«0) % USED ONLY FOR LEAPFROG RETURN 04659700 

NCVCSIlsA; IF 8 SC#DC THEN 04659600 

BEGIN 04659900 

SII«WRDERRI SI»bSI+8; WRDERR«*Si; 04660000 

FORSEVENCSVDI l*DIJ DI»»BITLOCNl LOOPCD I ) *D I *2 ) # 04660100 

SIlsLOC WRDCNTJ SH»SI*6) DSJ*2 CHR) 04660200 

DIlsWRDLOCNl L00P(DI >*DI*8)J 04660300 

SII«SVD!I SI»*SI»8l DSI* WDS) 04660400 

TALLYl*L00P; TALLY I sTALLY* 1 ) LOOP;*TALLY) 04660500 

SII*L0C LOOP; Slt*Sl+7) 04660600 

IF SC*"7" THEN 04660700 

BEGIN TALLYl»Oj FORSEVEN : *T ALLY ; END; 04660800 

DII*SVDI); 04660900 

SI»*A! DH»DI-8I TALLY»*0) 04661000 

8C IF SC*DC THEN TALLY J *T ALLY + 1 ) ; 04661100 

TEMPIsTALLY; 04661200 

SII»CHRERRJ TEMP(SH*SI+8)! CHRERRI«SI; 04661300 

END; 04661400 

SII*WRDCNT! SIt*SI*8; MRDCNTf «SI I 04661500 

)>; 04661600 

RECYCLE(TALLY»«i; Nj*TALLY; 04661700 

TALLY?«»WDSLEFT; VITALLY; 04661600 

TALLYIsO; RECYCLE!*TALLY! 04661900 

JUMP OUT TO TADPOLE); 04662000 

GO TO FROG; 04662100 

TADPOLEI CH*LEAPFROg; 04662200 

FROG* DIisBlTLOCN; DI l»DI«5| 04662300 

S1»*L0C CHRERR; SI)«SU5) DSl*3 CHR; 04662400 

SII*LOC WRDERR; SH*SI+6; DSt*2 CHR; 04662500 

END; 04662600 

IF MEM0RYIPTR] t [27in THEN SPACEBACK; 04662700 

PTR|*PTR*12; 04662800 

END) 04662900 

MEM0RY[KEY]l« P(DUP»LOD) & OC 1 : 1 I 2 J & 39[39t39«9J; 04663000 

MEM0RY[KEY + 2Jl* P(DUP»LOD) & OPT ION 1 2 I 2 1 11 ; 04663100 

LINKUP(20»K£Y); 04663200 

END)END; 04663300 

END TaPEPARITYRETRY!* 04666000 

REAL PROCEDURE PLACEF INDFRC S# A»L) ) 04/00000 



VALUE S»AJ 04701000 

REAL SiA*LJ 04/02000 

BEGIN INTEGER II ARRAV Bt*J> 04703000 

REAL T»W»E»U»AAI 04704000 

LABEL NULL»FOUND»EXIT» 04705000 

label sanda; real ssi 04705500 

W*-ll 04706000 

B I* tM[T I* SPACE(30)]]U0[8i38HQJ; 04707O00 

SS|»S| 04707500 

IF S«0 THEN 0470BO00 

NULL! BEGIN STREAM(T)I DSI*2Q LIT " " I GO EXITI END; 04709000 

DlSKWAIT(-Tt30»JAR[PjMlXtlOJ); 04 710000 

IF CAA»BI01,CFF))"0 THEN 04711000 

SANDAI BEGIN STREAM( S I sSS# A» K I *Ml PRT t P1M I X# 8 U , [ 10 I 2 J » T ) ; 04712000 

BEGIN DS*5 LIT% S « M I 04713000 

SI*L0C SI DS*4 DEC! 04714000 

DS*5 LIT"» A *"; 04715000 

DS*4 DEC! 04/16008 

DSjsLIT "i"| SII*SI*7J DSI-CHR; 04716100 

DI*TI DI*DI+5;DS*3 FILL; 04717000 

DI*TIDI*DI+14IDS*3 MLLl 04718000 

ENOI 04719000 

GO TO EXIT! 04720000 

END! 04721000 

DISKWAITC-T»30»I*JARCP1MIX»AA D I V JAR t P1MI X» 8 ) + 10J+ 04722000 

AA MOD JAR[P1MIX»83+ S DI V 30); 04723000 

IF CJ*B[S MOD 30JX0 THEN GO TO NULL; 04725000 

AA*I*JAR[PlMlXtJ,ECFJ DI V JARt P1M I X # 6 J + 1QJ+ 04726000 

J.ECF] MOD JAR[P1MIX,8J; 04727000 

1*0; J*J,[FF3; 04728000 

DO BEGIN S»(I+J),[36Sll)f 04729000 

IF W*(W*S DIV 30) THEN 04730000 

DISKWAIT(-T»30iAA+W); 04731000 

IF (E»BtS»Wx30],t38lt0j)sA THEN GO TO FOUND; 04732000 

IF E<A THEN I *S ELSE J*S; 04733000 

END UNTIL J-I<ll 04734000 

S*II 04735000 

FOUNDI L*-BtS MOD 30J.C10I26J; 04736000 

IF L»0 THEN GO TO SANDA; 04736500 

STREAM(L*ABS£L)tT); 04737000 

BEGIN DSl»ll LIT M #NEAR LINE "I 0473800* 

si*loc l; ds*8 dec; 04739000 

DSl«LIT " "I DIlsDI-9; DS|*7 FILL; 04740008 

END; 04741000 

exitiplacefinder*t; 04742000 

end placefinderi 04743000 

real procedure secur! tycheckcm1d»f !dtuse»head) ; 04790000 

VALUE MID» FIDt USE; 04791000 

REAL MID»FID»USE»HEADI 04792009 

FORWARD; 04793000 

PROCEDURE SHEETDIDDLER(BUFF»TYPE»SID); VALUE BUFF»TYPE»SIDI 04798000 

REAL BUFF»TYPE»SIDI FORWARD; 04799000 

PROCEDURE ZlPPER(XtY); VALUE XtYJ REAL X»Y; FORWARD; 04800000 

PROCEDURE DISKL0GCMID»FID»H); VALUE MJD»FID»H; ARRAY Hl*U XI 1204800100 

real mid#fid; forward; X11204800200 

DEFINE JNOUTK • 21#; 04801100 

% SYSTEM/DISK RECORD FORMATI 04803000 

* AtOJ » ADAPTER INFO 04804000 
» AtU * USER CODE 04805000 

* A[2] ■ TIME OF LAST ACTIVITY 04806000 



REAL INDIAN! 05000000 

X FORMATS FOR PARAMETERS TO INDIAN BOY 05010000 

* LO m SEARCHI 05010100 
X AtU * FIRST NAME : A113 ■ SECURITY CODE 05010200 
X A[2] * SECOND NAME « AC23 « WORDC43 OF HEADER 05010300 

* AUJ * USER CODE t AC 3 j * END OF FILE COUNT 05010400 
X 8 AC 4 J = ADDRESS OF FIRST RECORD 05010500 
X LI « MAKE FILE 05010600 
X ACIJ » FIRST NAME » A[13 * ADDRESS OF FIRST RECORD 05010700 
X A[2J « SECOND NAME « A[23 * ADDRESS OF HEADER 05010600 
X At3] ■ FILE TYPE 05010900 
X AC4] * SIZE OF FILE 05011000 
X L3 * FILE REMOVE 05011100 
X All) * FIRST NAME 05011200 
X AC23 * SECOND NAME 05011300 
X U * FILE RFPLACE 05011100 
X AtU • FIRST NAME OF OLD FILE 05011500 
X A[23 « LAST NAME OF OLD FILE 05011600 
X AC31 « FIRST NAME OF NEW FILE 0501 1^00 
X At43 * LAST NAME OF NEW FILF 05011800 
X AC53,[38»l03sSAVE FACTOR C ZERO IF NOT SPECIFIED XSM 05011900 
X AC53,[32I63*FILE TYPE CODE C FROM CANDE ) XSM 05012000 
X A[5),[31H]""AUT0 UNLOCK" REQUEST 05012100 
X L5 * FILE CHANGE ! IGNORE CODES ! 05012200 
X AC13 * FIRST NAME OF OLD FILE *> 1 NOT THERE 05012300 
X AC2J * LAST NAME OF OLD FILE 1 *> 1 IN USE 05012400 
X AC33 * FIRST NAME OF NEW FILE 2 *> 2 THERE 05012500 
X AC43 » LAST NAME OF NEW FILE 3 *> 2 IN USE 05012600 
X L6 9 JOB STARTER 05012700 
X ACH * ADDRESS OF SKELETON ENTRY FOR SCHEDULE 05012800 
X L7 * FILE SECURER 05012900 
X All) ■ FIRST NAME OF FILE (<0 *> NOT BY CANDE) 05013000 
X AC23 * SECOND NAME OF FILE 05013100 
X AC33 * NEW CONTENTS OF HEADER[23 05013200 
X AC4J * NEW CONTENTS OF HEADER15J 05013300 
X ACS J «= KEW CONTENTS OF HEADERC6J 05013400 
X 05019000 
X 05019100 
PROCEDURE INDIANBOYJ 05020000 

BEGIN ARRAY AC * 3 » BC* 3 »C C* 3 > 05020100 

REAL RCW»+0#ItTJ 05020200 

LABEL L0#Ll»L3.L4#L5»L6fL7#F0GiF0RGET»LAST#RETURN# 05020300 

RB 1. RB2 » NX 1. NX2» BALLS »FORFOR» MAGUS J 05020400 

SWITCH WHATl«L0»LliMAGUS»L3iL4»L5»L6.L7»MAGUS»MAGUS» 05020500 

MAGUS » MAGUS » MAGUS # MAGUS 1 05020600 

WHILE INDIAN, CCF3#0 DO 05021000 

BEGIN A*I00UE&INDIANCCTC3; 05021100 

LOGLINE ♦ AC03.CFF3J 05021200 

GO TO WHATCAC03.C8J103 J* 05021300 

MAGUSl DO UNTIL FALSEI 05022000 

LOl IF CT*DIRECTORYSEARCHCAtl3»AC23t5))*0 THEN 05030000 

BEGIN IF (Atl]*SECURITYCHECK(ACllf AC2]# AC33»T))#0 THEN 05030100 

BEGIN AC23*MC T INX 4J&HFTFJJ 05030200 

At33*MCT INX 7J! 05030300 

AC4]*-M[T INX 10J* 05030400 

ENDJ 05030500 

FORGETSPACECT)! 05030600 

END ELSE Atl3*-U 05030700 

GO TO RETURNI 05030800 

Lit B I* IOeUF&(SPACE(30))CCTC3; 05040000 



M0Vt(30»B, tCF 1-1»B); 05040100 

BtSJ«-AbS(I»-AL4J)i 05040200 

P(DlRECT0RVSEARCHCA£l]#A[2Jf f)t!)EuJI 05040300 

IF I 6TR THEN 05040400 

IF (Btl03|«GFTUSER0ISK(I OR MEMORY)) * THEN 05040500 

BEGIN M[A+lll»OJ % NO USER DISK 05040606 

IF AC 33 LSS THEN A[Q].[18m J* 251 05040700 

GO TO FOG? % TELL CANDE 05040800 

END ELSE ELSE H«0> 05040900 

BC7JMMI 05041000 

B[9J*U 05041100 

Bt2J*At2J} 05041200 

B[4J*0&2t9l46»23&A[3H36t42»6 3; 05041300 

STREAM(DATE»X*tB£333); 05041400 

BEGIN SI*L0C DATE; DS* 8 OCT* 05041500 

DI*X; DS*2 LIT " + 1"; 05041600 

SIJ«X» SII«SI+5I DSI*3 CHR; I DATE OF LAST ACCESS SSDS05Q41700 

END? 05041800 

B[OJ*e»0003600036000lOl> 05041900 

BClJ»(XCL0CK+P(RTR})&B[3Jt6|30liail 05042000 

A[2Jl»EUF(AtU»A[2J»B.[CF3-l)l 05042100 

BC13»B[6]I 05042200 

AtlJ*BCl03l 05042300 

FOG» FORGETSPACECB)! 05042400 

GO TO RETURN? 05042500 

L3l IF (T«*DIRECTORYSEARCH(-A[lJ»-At23»7)) GEU 64 THEN 05050000 

REP0RTBACKCREM0VED»OtO> ELSE GO RB1I 05050100 

GO TO FORGET; 05050200 

L4» Tl*DlRECT0RYSEARCH(A[3]t-A[4j»7); 05060000 

IF T»l THEN 05060100 

RB2I BEGIN REPORTBACKC I GNORE* C T»l ) + 2t ) ; GO FORGET; END; 05060200 

BALLS! BI"IF T LSS 64 THEN ELSE I OQUE&T t CTC ) ; 05060300 

IF (T»«DIRECTORYSEARCH£Atl3,-AC23»4)) LSS 64 THEN 05060400 

BEGIN IF B*0 THEN FORGETSPACEC B) ; 05060500 

RBll REP0RTBACK(IGN0RE»T*l»-(Atl3)); 05060600 

GO TO FORGET; 05060700 

END; 05060800 

IF B#0 THEN 05060900 

BEGIN M[T INX 2]»BC2]| 05061000 

M[7 INX 3] ( [2llO]l»Bt3] ( [2llO]J XSM 05061106 

MtT INX 53*8[5J; 05061200 

M[T INX 63*Bt63; 05061300 

M[T INX 43,t9J393l5b[4j&ltlll47U J; * (SHM) 05061400 

FORGETSPACECB); 05061500 

ENDI 05061600 

IF At53>0 THEN MtT INX 4 i , t 361 6] > «A t 53 , [ 32 J 63 ; XFILE TYPE 05061700 

IF At5J. £381103 NEQ THEN MtT INX 33 , 1 2 » 103 I »A t 5 J *SM 05061800 

ELSE IF MtT INX 33,t2ll0J LSS 7 THEN MtT INX 33 . £ 2 HO J » »7; XSM05061900 

IF A£53»t31ll3 THEN % "AUTO UNLOCK" FROM CANDE 05062000 

IF NOTCMCT INX 53.C1UJ) THEN % NOT "GUARDED" 05062100 

MtT INX 53 l*MC T INX 63 l» 12; 05062200 

MtT+43»tll33l»0; 05062300 

DISKL0G(AC13>AC2)»10QUE&TCCTC3); 05062400 

ENTERUSERFILECAt33f At43#T,tCF3-l); 05062500 

FORGETSPACE(T); 05062600 

PCDlRECT0RYSEARCHC-Ain»At2J#8),DEL); 05062700 

REPORTBACKC CHANGEDiO, 0) J 05062800 

GO TO FORGET! 05062900 

L 5 1 IF (Tl»DIRECT0RYSEARCH(*At33»AC43#5))*0 THEN GO TO BALLS; 05070000 

GO TO RB2; 05070100 



L6l BMOQUE&AC13CCTC3; 05080000 

IF CTl*DIRECT0RYSEARCH(BCl43i-BC3)#3)) LSS 64 THEN 05080100 

BEGIN REP0RTBACKCN0TIN.T*1»0); 05080200 

FORFORl FORGETSPACE(B)! 05080300 

GO TO FORGET? 05080000 

END* 05080500 

OlOQUE&TtCTcJl 05080600 

IF CC4],C9»23«2 THEN 05080700 

NXli BEGIN REP0RTBACK(N0TX»0»0); 05080800 

NX2| FORGETSPACECT)! 05080900 

P(DIRECTORYSEARCH(-BC14 3»BC33»13).DEL); 05081000 

GO TO FORFOR) 05081100 

END) 05081200 

IF SECURlTYCHECK(B[HJ.BC3JfB[243.T)*0 THEN 05081300 

BEGIN REPORTBACK(SECURED#0»0); 05081400 

GO TO NX2I 05081500 

END) 05081600 

AC13,CFF3*T; 05081700 

T,CCF3*B[73*SPACE(30)> 05081600 

DISKWAITC-T,CCFJ»30»CC10J); 05081900 

OC&TCCTC3I 05082000 

FOR Il»l STEP 1 UNTIL 4 DO 05082100 

IF (NOT ABS<CU3&0CCTCJ))#N0T THEN 1*71 05082200 

IF NOT I THEN 05082309 

BEGIN FORGETSPACECAtU.tFF J)l GO TO NX1 END* 05082400 

FOR 1*15 STEP 1 UNTIL 22 DO 05082500 

IF BCI3*Q THEN BCIJ><«CCEIJ OR BCI3); 05082600 

B[23]+(CL0CK+P(RTR)) DIV 60; 05082700 

BC253*T,CFF3; 05082800 

BC263*LOGLINEt 05082900 

stream(a*0«s*p(,schedule1ds))i 0508 3000 

begin si*s; 05083100 

47(skip sb> skip db» tally*t ally+u 05083200 

if sb then begin end else jump qut)i 05083300 

ds*set; a*tally; 05083400 

ENDI 05083500 

1*PJ 05083600 

BC3J*0UC8»38;103; 05083700 

FORK ( P (, SELEC TRUN )» AC 13 » -1*196.1); 05083800 

GO TO FORGETI 05083900 
L7l IF CT|«DlRECTORYSEARCH(ABS(Atl3)»-AC23»4)) LSS 64 THEN 05090008 

IF Atl3<0 THEN GO TO FORGET ELSE GO TO RBll 05090100 

B*IOQUE4TtCTC3; 05090206 

I»B(4]I 05090300 

IF CBC23*AC33)<0 THEN I,C36l6]*9; 05090400 

BC43|«(I AND NOT MEMORY); 0509050* 

BC5J*AC43; 05090600 

BC63*AC53; 05090700 

DISKWAIT(T,[CF3»30#T,[FF3); 05090800 

IF AC13<0 THEN GO TO FORFORl 05090900 

REPORTBACK ( CHANGED. 0» 0)1 05091000 

GO TO FORFOR; 05091100 

FORGET! T*ACOJJ 05100000 

FORGETAREACAC03.[2l23*A,[CF3); 05100100 

GO TO LAST; 05100200 

RETURN; T*ACQ3l 05100300 

OUEVENTC A,[ CF3#CANDEM1X[ AC 03.C 25183 3)1 05100400 

LAST; INDIAN, CCF3*TJ 05100500 

END; 05100600 

INDIAN, CFF3*CINDIAN3; 05100700 



% FO 

% 
% 
% 

% 
% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
PROCED 



KILLC 

LND I 

RMATS FO 

L2 ■ 



[RCW] 
NDIAN 
R PAR 
LOG I 



L8 m PAPER 



L9 * SCHED 



110b 
LIU 



SCHED 
SCHED 



INX 
BOY; 
AMETE 
N OR 
AC 1 3 
AC23 
AC3 J 
All] 
TAPE 

acu 

AC23 
ULE I 

Atn 

ULE I 
ULE Q 
ACU 



NOT 2); 



RS TO 
OUT 

* USE 
« CHA 

* I 
b NUM 

STAR 
« FIR 

* USE 
/P FI 
» REC 
/? RE 
UERY 

* FIR 



INDIAN GIRL 



IF OF K 

1XTIETHS OF SECONDS TILL AUTO BYE 



R CODE 

RGE CODE 

F 0N# 1 

BER OF S 

TER 

ST NAME OF PAPER TAPE FILE 

R CODE 

LE REPOS 

ORD # OF 

QUEST -« 



I T ION 

WHERE WE WANT 
NO PARAMETERS 



TO BE(-1=> EOF) 



ST NAME » Atll 




1 
2 
3 

4 
5 
IP 



«> NOT FOUND 

«> NOT SCHEDULE 

«> SCHEDULED 

*> RUNNING 

*> DONE 

*> ABORTED 



TASK 



RECORD # LAST READ 



L12» 
L13* 



SCHED 
STATU 



AC2] » SECOND NAMEl Al23 ■ 

ULE TERMINATE •- SAME PARAMETERS & RETURN AS Lll 

S OF RUNNING JOB 

AUlsFIRST NAME OF 



AC2J*SEC0ND NAME 
AC3J*USERC0DE (A[3 



INDIA 

LEAVI 

URE INDI 

BEGIN 



NGIRL HELPS 
NG THE MORE 
ANGIRL) 

ARRAY A[*3 

REAL RCW»+0 

LABEL L2.L8 

MAGUS 

SWITCH WHAT 



SATISF 
ENERGE 



Y CAN 
TIC T 

C*]l 



JOB I PROCESS TIME 

I -1 IF NOT RUNNING 
F JOBI 10 TIME 
3,[l!l3*l IF COMPILING) 

I CONTENTS OF R+27 (COMPILER) 
DE"S NEEDS EVERY NOW AND THEN» 
ASKS TO INDIANBOY, 



WHILE 
BEGIN 



MAGUSI 
L2I 



INDI 
A»«l 
LOGLI 
GO TO 
DO UN 
B 1» 
il»Ol 
IF (T 
BEGIN 



ENOI 
SYSDI 
BtlJ* 
B[21* 
BC31* 
SYSDI 
INFORMONLYI 

STREA 



AN,[3» 
OQUE&I 
NEI-AC 
WHATt 
TIL FA 
IOOUE& 



»B[*3*C 
» I*T»Jl 
»L9«L10*L11» 
.FORGET, LAST 
lsMAGUS»MAGU 
MAGUS. L8.L 
153 NEQ DO 
NDIANC33I3U 
03.CFF3I 
AtO],C»M03J; 
LSEf 
<SPACE(3Q))[CTC3! 



L12»L13» 

* RETURN. INFORMONLYiRUNINGJ 

S . L2» MAGUS, MAGUS * MAGUS. MAGUS. 

9»LlO»Lll»Ll2»L13! 

53; 



l»LOGLINE. C40I83) LEQ 
IF (II»SCHEDLINEtT3) 
L0NGCARRIAGEtT3t»0; 



LMAX THEN 
OR T*0 THEN 



GO INFORMONLYI 



SKI0(3*"L0GLINE.B)I 

IF Af3) THEN ELSE 

CLOCKI 

AC4); 

SKIO(0»-LOGLINE.B)l 



AE13I 



M(X»»IF 

B)J 

BEGIN DS*LIT 
SI l»LOC 
DSi»3 DEC! 



AC 33 THEN « OFF " ELSE 



ON 



w "I SI*N| SI*SI+ll DS*7 
X| SII»SI+3l DSt»5 CHRI 



•» T. Nl«[Atl)3 

chr; 



05100800 
05100900 
05210000 
05210100 
05210200 
05210300 
05210400 
05210500 
05210600 
05210700 
05210809 
05210900 
05211000 
052U100 
05211200 
05211300 
05211400 
05211500 
05211600 
05211700 
05211750 
05211800 
05211900 
05212000 
05212100 
05212200 
05212300 
05212400 
05212500 
05219000 
05219100 
05220000 
05220100 
05220200 
05220300 
05220350 
05220400 
05220500 
05221000 
05221100 
05221200 
05221300 
05221400 
05230000 
05230100 
05230200 
05230300 
05230400 
05230500 
05230600 
05230700 
05230800 
05230900 
05231000 
0523U00 
.05231200 
05231300 
05231400 
05231500 
05231600 



B*D!> DI*-DI-3J 0S*2 FILL; DI*B; 05231700 

SI*NI Sl*Sj+8; 05231600 

IF SC* M 0" THEN 05231900 

BEGIN 0S*LIT "<"l 05232000 

SI»SI+lf OS*? CHRI 05232100 

DS»L!T")"I 05232200 

END) 05232300 

D5?«LIT H *"; 05232400 

END! 05232500 

SpOUTlT(B»At33,[47li])c2+INOUTK)l 05232600 

IF I THEN 05232700 

F0RK(P(,SCHEDIDLE)»(-T)»0#160#0)» 05232800 

FORGET! T*ACOJJ 05232900 

F0RGETAREA(AC03|[2J23»A.[CFJ)> 05233000 

GO TO LAST; 05233100 

L8» 05240000 

T|»"#OKi»-*l w | 05240100 

TWX0UT([T] t tCFjf8.-0.L0GLINE)l 05240200 

STATABLEtL0GtINEi[40l8Jll«NABS<*P(0UP))»0l4|4UJ> % PUCE 05240300 

GO TO FORGET! 05240400 

L9I X»G0 TO RECORD" FOR SCHED FILE. 05250000 

STATABLECTl«LOGLINE,t40»8]3 f DlALEDUPlffO» XlURN OFF FOR A 05250100 

IF Atll LSS THEN AU 3 »«M[ SEGARRAY[ T 3 INX 783? 05250200 

SYSDlSKlO(3#-T#B««(lOQUE8,(GETAREA(l) + DtCTC3))> 05250300 

BC33I*M[SEQARRAY[T3 INX 37 J&A 1 1 3 [ CTF 3 ! SYSD I SK I 0< 0. -T »B ) J 05250400 

F0RGETAREAC1»B INX NOT 0); 05250500 

F0RKCP(,SCHEDIDLE)»T»0#160t0)* 05250600 

GO TO FORGET! 05250700 

L10? XNOTIFY THAT C4E READY FOR SCHEDULE I/P 05260000 

IF CANDEINPUTREADY AND STATABLE [T I «LOGLI NE f [ 40 I 83 3 ,D I ALEDUP 05260100 

THEN F0RK(P( , SCHED I ) »-T » 0» 125» 1 ) 05260200 

ELSE SEQARRAYtT3t*NABS(*P(DUP))J 05260300 

GO TO FORGET; 05260400 

Lilt XCHECK STATUS OF SCHEDULED TASK 05270000 

L12I XTERMINATE SCHEDULE TASK 05280001 

IF (T1«DIRECT0RYSEARCH(A[1 J»At23»5))*0 THEN 05280100 

BEGIN A[13!*0; GO TO RETURN; END; 05280200 

I»*M[T + 6j; J!«M[T*4],[36J63; FORGETSPACEC T ) ; 05280300 

IF (I OR 977777) NEG NOT THEN 05280400 

BEGIN 05280500 

An3lM + <CJ«TYPEINF0>x3) + CCJ«63)*4); * 63 * ABORTED 05280510 

GO RETURN; 05280520 

END! 05280530 

T|*D1RECT0RYSEARCH(((I INX H F I LOOOO" HSYSNOt 24 » 42 « 63 ) » -"SCHEDUL". 4 ) ! 05280600 

IF T»0 THEN 05280700 

BEGIN AtUi«4l GO TO RETURN END1 05280800 

IF T NEQ 1 THEN 05280900 

BEGIN IF A[03, [81103*12 THEN ITH1S IS A TERMINATE 05281000 

IF NOT(M[T+63,[2»133 THEN XNOT ALREADY "STOPPED" X09805281100 

BEGIN h[T+63l»*P(DUP) OR M! $09805281200 

F0RK(P(,SCHEDIDLE)»I#0»160#0); 05281300 

END! 05281400 

HEADERUNLOCKCCCI INX "F 1L0000" )&5YSN0[ 24 I 42 I 6 3 3 » "SCHEDUL"* T ) I 05281500 

A[13I*2; GO TO RETURN; 05281600 

END; 05281700 

AC13IB3; A[23l>0; 05281800 

Jl»ll 05281900 

DO 05282000 

BEGIN IF SCHEDLJNECJ3 THEN ELSE GO TO RETURN; 05282100 

IF NOT SCHENDCJ3 THENXMAKE SURE NOT BEING TERMINATED 05282200 



-A 



IF CC»«[M[SEQARRAY[J3 33&80CBJ38J 103),[CF3GTR 511 THEN 05282300 

IF CC703-I.CCF] THEN 05282400 

BEGIN IF N0TCCC32J.C1I1]) THEN SLEEP( t C t 32] J » -0 ) I 05282509 

C[32]tBABS(+P(DUP))! 05282600 

8 SET OMIT « SHAREOISK 05282700 

LOCKDIRECTORY; 05282800 

$ POP OMIT 05282900 

DISKWAIT(-CT|sSPACE(30))»-30»CC36J)l 05283000 

IF CM[T+73l*CC37J-3) LSS THEN M[T+73l*0; 05283100 

DISKWAIT(T»-30»C[36J)I FORGETSPACEU ) ; 05283200 

8 SET OMIT ■ SHAREOISK 05283300 

UNLOCKDIRECTORYJ 05283400 

8 POP OMIT 05283500 

C£32]»*NABS(*PCDUP)); A£23l*CC773J 0528360* 

IF ACOJ.CBI 103*12 THEN ^TERMINATE 05283700 

BEGIN IF (T»*STATABLE[J3 f MlXNR) GTR THEN 05283800 

IF T NEQ CANDYINX THEN 05283900 

BEGIN TERMINATECH6HCTF J); 05284000 

HALTI NOPROCESSTOG»*NOPROCESSTOG-U 05284100 

END ELSE SHEETDIDDLER(0»-1>J); 05284200 

CC773l*C(78Jl *FORCE EOF ON I/P 05284300 

STREAM(T«»TJ*SPACEC5))1 05284400 

DSJ«26 UT"**TASK TERMINATED BY USER*"* 05284500 

SCHEDI0(26.1.UJUTF3>; 05284600 

FORGETSPACECT)) 05264700 

END> 05284800 

GO TO RETURN; 05284900 

END! 05285006 

END UNTIL (J»«J<H) GEO LMAX; 05285100 

GO TO RETURN; 05290000 

L13I X STATUS OF RUNNING JOB 05290100 

FOR I »« 1 STEP 1 UNTIL MIXMAX DO 05290200 

IF JARU»*3 NEC THEN 05290300 

BEGIN 05290406 

TABCNTC X ) I*TABCNTt I 3 + 1 1 05290500 

IF (TlspUTORTAKE(I»tJAR[I»0]]»l&H2l47ll3*0)) NEQ NOT THEN 05290600 

IF (AC13.C6U23 EQV T,[6U2J) ■ NOT THEN 05290700 

IF (At23,[6»423 EQV PUTORTAKE C I t [ JAR [ 1 t 1 3 i » 1 » ) , [ 6 « 42 3 >= 05290800 

NOT THEN 05290900 

IF C AC33 • C6I42] EQV PUTORTAKE ( 1 » I UV[ I # 4 3 3 # 1 * 0) , t 6 « 423 )* 05291000 

NOT THEN GO TO RUNING; 0529U00 

TABCNTC I Jl»TABCNTt I J-1I 05291200 

END; 05291300 

AU3»*-i> go to return; 0529hoo 

RUNINGI 05291500 

Atl3l«PUTORTAKECI»NARtI»333#i»0) + PUTORTAKECI»[PROCTlMEU3 3»l»0); 05291600 

IF I»P2MIX THEN A t 1 3 l*C *P< DUP ) )+CLOCK*PCRTR ) ; 05291700 

At23l*PUTORTAKEC I »[JAR[ I »4]3#1.0)+PUT0RTAKECI»CI0TIMEU 33*1.0)) 05291800 

IF A[33,tlll3 THEN At 3 3 I «PUTORTAKeC I , I PRTl I . P27 3 3 » 1 1 0) ; 05291900 

TABCNTtI3l*TABCNT[I3-ll 05292000 

GO TO RETURN; 05292100 

RETURN! T*AC03I 05300000 

QUEVENTCA, [ CF3 » CANDEM IX t A[ 3 ♦ t 25 J 6 3 3 } > 05300100 

LAST! INDIAN, [3ll53*T; 05300200 

END; 05300300 

KJLLURCW3 INX NOT 2)1 05300400 

END INDIAN GIRL; 05300500 

PROCEDURE C0MM15; % INDEPENDENT STARTER FOR CANDE 05407000 

BEGIN ARRAY A[*3#Bt*3> 05408000 

REAL RCW*"4; 05409000 



REAL !#NJ 05410000 

LABEL BOY. GIRL; 05410100 

SWITCH TYpl«B0Y»B0Y»GIRL»B0Y»BOY*B0Y»BQY» 05410200 

B0Y.GIRL»G1RL.GIRU»GIRL»GIRL»GIRU 05410300 

BMOQUE&RCWtFTUJ 05411000 

N*[RCW3.[CFJ-B.tCFJ-3; 05412000 

A«-B&GETAREACN>4)CCTC3I 05413000 

A[03*(»P(DUP))*B(lHCTF]*BC2a8i3BllOJl 05414000 

FOR 1*1 STEP 1 UNTIL N DO 05415000 

AC I J*Bt 1+2 J* 05416000 

GO TYPCBC231I 05416100 

BOYl IF INDIAN, [CF3*0 THEN 05417000 

FORK(P( .INDIANBOY). 0.0. 128.1); 05418000 

M[INDIAN,[FF))|[Cn*AI 05419000 

INDIAN, [FF)*A; 05420000 

GO TO RETURN* 05421000 

GJRLI IF C I l*INDI AN. C3* 153 ) * THEN 05421100 

BEGIN INDIAN, [3fl5]l»AJ 05421200 

F0RK(PC.INDIANGIRL)»0,0.128#1)J 05421300 

END ELSE 05421400 

BEGIN WHILE (Nl*Mt 1 3 f tCF) ) NEQ DO U*N; 05421500 

Mni.(CF3l«AI 05421600 

END! 05421700 

END> 05422000 

PROCEDURE SYSDISKI0(I0.LINE»A)J 05423000 

VALUE IO*LINE*A) 05424000 

ARRAY At*); 05425000 

REAL 10. LINE) 05426000 

BEGIN LABEL EXIT#0UT; 05427000 

OWN REAL X; 05428000 

REAL I.J.T; 05429006 

LINE*-255 AND LINEJ 05430000 

IF SYSDISKADR*0 THEN 05431000 

BEGIN AtU*0; GO TO E*IT END; 05432000 

IF LINE<0 AND 10 THEN 05433000 

BEGIN SLEEP(tT0GLE3«SYSDlSKMASK); 05434000 

LOCKTOG(SYSDISKMASK); 05435000 

XI=SPACEC30); 05436000 

END; 05437000 

if line gtr stationmax then 05438000 

begin a[oj*auj*0; go to out end! 05438100 
i*(-ct*abscline) div sysd i skrpb)xsysd i skrpb+abscli ne) )x 05439000 

sysdiskrl; 05440000 

t*sysdiskadr+t; 05441000 

if abscj*m[x-1j)*t then 05442000 

begin if *j<0 then diskwaitcx. 30. abs(j)); 05443000 

diskwaitcx. 30. t); 05444000 

$ set omit m not ( st at i st i cs } 05444099 

if j lss then countupc 23. 1) ; countup( 23. 1) > 05444100 

$ POP OMIT 05444101 

J*T; 05445000 

END! 05446000 

IF NOT 10 THEN J^NABSCJ)* 05447000 

M0VECSYSD1SKRL#X+J»P(A.IF 10 THEN P ELSE PCXCH)))> 05448000 

M[X-lJ*j; 05450000 

IF LINE. [1113 AND 10 < 2 THEN 05451000 

OUTl BEGIN IF (J*M[XMJ)<0 THEN 05452000 

DISKWAITCX. 30# -J); 05453000 

* SET OMJT • NOTCSTATISTJCS) 05453099 

IF J LSS THEN C0UNTUPC23. I } ; 05453100 



$ POP OMIT 05453101 

UNLOCKTOGCSYSDISKMASK)? 05454000 

FORGETSPACECX)! 05455000 

X*0J 05456000 

END? 05457000 

EXJTlEND! 05460000 

PROCEDURE LOGWARNCRO! VALUE RCJ REAL RC; 05461000 

BEGIN REAL TiVJ 05462000 

DEFINE I0*LOGARRAY[3n#» 05462100 

DELTA*L0GARRAY[32]#» 05462200 

N»L0GARRAY[33]## 05462300 

S«L0GARRAY[34j#» 05462400 

R»L0GARRAY[35)f » 05462500 

H*L.0GARRAYC36J#) 05462600 

IF RC#0 THEN 05463000 

BEGIN 05463500 

5TREAM(BI*RO19»M»»5xRC»T|«Tl*SPACEC10))l 05464000 

BEGIN DS-5 LIT "#L0G "! 05465000 

SIi*LOC M| DS««3 DEC? DI««DI*3! DSt *2 FILL; 05466000 

DH*T> DIt s DI+8; DSI*6 LIT"* FULL"? 05467000 

B(DS* 9 LIT "CAUTO LN) W )> 05468000 

DS*LIT"*- H I 05469000 

END* 05470000 

SPOUT(T)! 05471000 

END) 05471050 

IF RC«19 THEN LOGOUT ELSE 05471100 

IF R»0 THEN % GET A ROW UNDER NO 05471150 

IF RC LSS 20 THEN % USER DISK CONDITIONS, 05471200 

BEGIN 05471225 

STREAM(Tl*Tl*SPACE(10))J 05471250 

DSI = 30 LIT"#NO USER DISK FOB NEW LOG ROW*-"! 05471300 

SPOUTCT)! 05471350 

TI*GETUSERDISKCS&2CU46|2J)J 05471400 

IF NOT DELTA. [Ill] THEN SLEEPC [DELTA i »-0) I 05471450 

DELTAt*-DELTA) 05471500 

Rl«T-N> 05471550 

SLEEP([IO]»IOMASK)l 05471600 

M[VU=SPACE(30)J «* NOT OJ 05471650 

DISKWAIT(V»1#T); 05471700 

0ISKHAIT(»V»30»H)I 05471750 

M[V INX RC INX 10]|«TI 05471800 

M[V INX 7Jl*CM[V INX 9 ] l «C *P(DUP ) >+l ) x$x3-l 1 05471850 

DISKWAIT(V»30«H)I 05471900 

DELTAl"-DELTA> 05471950 

STREAM(T»*Tl»SPACE(10))l 05472000 

DSl*9 LIT"**L0G 0K* W ? 05472050 

SPOUTCT)! 05472100 

END* 05472150 

KILLURCJ INX NOT 1)1 05472500 

END! 05473000 

COMMENT THE FOLLOWING DEFINES GIVE THE TYPE NUMBER FOR LOGGINGI 05499000 

DEFINE 05500000 

SPIN » 2** 05501000 

BOJK s 4f» 05502000 

EOJK « 6#t 05503000 

PBEOJK * 8ft 05504000 

OPENK MOft 05505000 

CLOSEK *l?ft 05506000 

HALTK «15f» 05507000 

EOJSTATS «16#t 05508000 



FILESTATS »18#» 05509000 

* INOUTK *2i#. ( SEE 0*801100 ) 05510000 

* "22 05511000 
CHRGK »24#i 05512000 
DISKU0GGER«26#» 05513000 
DATEK »29#» 05514000 
TIMEK *31#» 05515000 

CNTRLCARD *32*» 05515100 

HROWREK * 35#t STYPE 17»HAKD«ARE FA I LtMESSAGES XR640551 7000 

OCM » 36## X OPERATOR COMMENT ( TYPE 18 ) 05517100 

PKTK *512#» * FOR LBMESS AND FILEMESS 05517200 

* SET OMIT ■ NOTCSTATISTICS) 05518999 

SYSTATS s 39#» 05519000 

$ POP OMIT 05519001 

PBCCARD * 40#» 05520000 

QXK *99#J 05599000 

PROCEDURE F0RMTIMECW»T)J VALUE W»TJ REAL W»T| 05607000 

BEGIN INTEGER StM; 05608000 

T*(T+60) DIV 60> 05609000 

S«-T MOD 601 05610000 

T*T DIV 60* 05611000 

M«-T MOD 601 05612000 

T*T DIV 60* 05613000 

STREAMCTiM>S»W*[W])J 05614000 

BEGIN SI*L0C TJ DS*2 DEC* 05615000 

2CDS*UIT "»»; DS*2 DEC)} 05616000 

D ! »-W I DS*7 FILL* 05617000 

END* 05618000 

ENDI 05619000 

PROCEDURE MAKELOG(MtSStTYPE); 05620000 

VALUE MESStTYPFI 05621000 

REAL MESS.TYPEI 05622000 

BEGIN ARRAY A*LOGARRAY [ * j I 05623000 

DEFINE I0«A[3n#» 05624000 

DELTA*AC32]#» 05625000 

N*At331#» 05626000 

S*At34J#» 05627000 

R=AC35J#» 05628000 

H*AC363#> 05629000 

REAL 11 05630000 

IF (-DELTA), tllU THEN SLEEP( [DELTA J • -0) J 05631000 

DELTA*-DELTA> 05631500 

IF (10 AND I0MASK)»0 THEN SLEEP( I I J » I OMASK ) J 05632000 

M0VE(9,MESS INX 1 , [ A [DELTAMJ ) ) i 05634000 

A[DELTAl*XCL0CK&PlMlXC2H3l5]&(L0GLINE,C33l7]i'O)[7|47in& 05636000 

LOGLfNEtd I 40(6 ]ft TYPE [1614018] I 05637000 

IF (DELTA*DELTA+10)«30 THEN 05638000 

IF R*0 THEN 05638500 

BEGIN T •• (N*N + 1) MOD S * 0) 05639000 

10*0; 05639500 

$ SET OMIT » NOTCSTATISTICS) 05639899 

C0UNTUP(24#l)i 05639900 

$ POP OMIT 05639901 

DISK 10(10. A, [CF3M»3i-T»R + NM)J 05640000 

IF T THEN 05641000 

BEGIN IF (T»*N DIV S) GE« 20 THEN Rl*Q ELSE 05641500 

IF (R|*PETUSERDISK(-S»1))#Q THEN 05642000 

BEGIN Rl*R-N; 05642500 

SLEEPUi0}#I0MASK)J 05643000 
DISKWAITU INX 30»iiR+N)J XMARK ROW XL0G05643500 



END 



DI$KWAlTC-A,tCH»30.H)J 

A[T + 101l«R + M 

A[7]J*(A[9JJw(*P(DUP))+l)xSx3-ll 

DISKWAIT(A,CCF1»30#H)» 

ENDI 

F0RK(P(,L0GWARN)#T»-1»128»1)J 
END! 

DELTa*OJ 
ELSE DELTA*20j 



DELTAS-DELTA! 



PROCEDURE 
R 
B 



NOI 
ST, 
EAL 
EGII 



ARTCANDY(ESED*PR10RITY)J 

PR10RITY#£SEDI 
N REAL MlXsPlMIX#T| 
REAL II 

LABEL N0FILE»EXIT> 
ARRAY A[*]» Bi*U 

IF CANDYINX^O THEN ESED*1 ELSE 
BEGIN 

A !■ IOQUE&GETAREACOHCTUJ 
IF BASEDISKADR«0 THEN 
BEGIN Il»"TANK " 
NOTCSHAREDISK) 

&(SYSNO + 17H30|42l6j 



J SET QMI 
$ POP OMI 



T ■> 
T 



$ SET OMI 
$ POP OMI 



T • 
T 



; GO TO NOFILEJ 
END* 

IF (TlsDIRECTORYSEARCHC I»*"MESAGE 
THEN BEGIN A£2)ln 
(MtT + lODl 
FORGETSPACE(T)> 
END ELSE GO TO NOFILEJ 
NOTCSHAREDISK) 
AC2)|w(*P(DUP))&SYSN0[2t46»2]l 



w t"CANDE w »3)) GEO 64 



NOFJLEI 



$ SET OMI 
S POP OMI 



T m 
T 



IF (T»*D 
THEN B 
AC2 
DIS 
AC4 
FOR 
END 
STR 
BEG 



END 
FOR 
SPO 
END) 

PRIORITY 
EVENTCMI 
A[OJ*(*P 
A[l J*BAS 
IF (T»*D 
NOT(SHAR 
&(S 



»3)> GE« 64 



IRECTORYSEARCHU l»"USERS "» M CANDE 

EG IN 

3l»A[2)*T[5ll8ll5]l* DSK ADRS OF HEADER (SM) 

KWAIT("T.[CF]»30»M[T INX 1Q1)J % SEGMENT ZERO 

J|«MCT INX 2]| % ACCESS DATE CSM) 

GETSPACE(T)» * (SM) 

ELSE BEGIN % (SM) 
EAM( If TH»TI*SPACEC5))I 
IN DS !* LIT W * W » 

SI I* LOC II SI J* SI + ll DS l« 7 CHRJ 

DS l» 17 LIT"F1LE NOT ON DISK*"* 
I 

GETAREA(0»A, [CFJ)J 
UT(T)I ESED I* 11 GO TO EXJTJ 



*0) 



XJ*0&[EVENTCM1X]J[CTFJJ 

(DUP))&5C18l41l73l 

EDISKADRI 

IRECTORYSEARCHCTANK 

EDISK) 

YSN0 + 17H30I42J6J 



ELSE 



•"DISK "»4)) GEO 64 THEN A[33l«T,CFF3 



05644000 

05646000 

XL0805646500 

05648000 
05648500 
05649000 
05650000 
05651000 
05652000 
05653000 
05654000 
05655000 
05656000 
05657000 
05657100 
05657200 
05658000 
05659000 
05660000 
05660050 
05660100 
05660110 
05660119 
05660120 
05660121 
05660130 
05660140 
05660150 
05660200 
05660240 
05660260 
05660280 
05660282 
0566028* 
05660285 
05660300 
05660400 
05660410 
(SM)05660420 
05660430 
05660440 
05660450 
05660500 
05660550 
05660600 
05660700 
05660800 
05660850 
05660900 
05660950 
05661000 
05662000 
05664000 
05665000 
05665010 
05665014 
05665015 
05665016 
05665020 
05665025 






A 



BEGIN 
M 
S 
B 

E 
B 
B 
B 
A 
$ SET OMIT * NOTCSH 

$ POP OMIT 

END BU 

DISKWA 

M[U4] 

DISKWA 

FORGET 

QUEVEN 

A*A&SP 

FOR II 

BEGIN 

I 

I 

B 



B l» IOQUE&CT l* SPACt(30)HCTCJ> 

OVEOO. TM» T)* B[OJ I* P00036000360Q010U 

TREAM(DATE»Tl»T+3)» 

EGIN SH«L0c DATE* DSl«6 OcTI 

di »*t* dsi*2 lit "01"! 
nd streaming; 

[43l*(OU[9t47|l3&SYSNO[4|46l2J) OR MeMORYI 

[23 l» McP> BC9J is 20! 

[83 l» TANKCHUNKSIZE! BC 103 I* basediskadrj 

[33l»"EUF(-"TANK " 

AREDISK) 

»(SYSN0*17)130I42»61 



PUT ADDRESS OF BYPASS IN 
SEGMENT WHERE CANDE CAN 
FIND IT 



E 
END* 
FORGET 
IF EVE 
BEGIN 
E 
E 

END* 
PATCCA 

FOR II 
IF STA 
IF STA 

END! 
EXIT! 

ENDI 
PROCEDURE STOPCANDY 

BEGIN REAL 
ISTREAMCT * 

DS * 40 LIT 

SPOUTCT)! 

DO UNTIL KE 
FOR T| 
IF STA 
IF STA 
CANDYI 



»"DISK %T-1)J 
ILD NEW TANK FILE* 
IT(-Ti»30»0)| % 

I*DISKBQTT0M*2I X 
IT(T»-30»0)I * 

SPACFtT)* 
T(A,[CFJ»MIX); 
ACE(SYSDISKRL)[CTC3* 
*0 STEP 1 UNTIL STATIONMAX+i DO 
SYSDISKIOdt 1#A)I 
F ACOJ.DIALEDUP THEN 
F SCHCA) THEN 

EGIN STATABLEC1 3 • D I ALEDUP } =0 J 
SEOARRAYCU.CFFllBl* 
F0RK(P(,SCHEDIDLE)«I»0»160»0) 
ND ELSE 

F Ati] NEQ MCP THEN X TELL CANDE. % %D 

EGIN T*GETAREA(0)* 

M[TJ*049[18iail7/Hlt25UOI83l 

M-CT*lJl«Atl3l M[U23l*STATABLEU3.STATtQNTYPEI 

IF AU3«0 THEN M[T3,[18t73l*l* % %0 

QUEVENT(TiMIX)! 
ND) 

SPACECA) J 
NT[0J,[CF3*0 THEN 

M[EVENTtMlX3,[FF33.tCF3 * EVENT[03* 
VENTtMlXJ t CFF3*EVENT[0j f [FF3* 
VENT[0]*0&[EVENTt03 3ICTF3l 

NDYINXICMIX3.NDSABLE «* 1* 

*1 STEP 1 UNTIL STATIONMAX 00 

TABLEtU.CANOEFLAG THEN 

TABLEtl 3,MJXNR«Q THEN STATABLE 1 13 ,MI XNR I »M I X J 



I 

MIX«P1MIX»T| 
T • SPACECIO))! 

H **CANDE ERROR — PLEASE TAKE DUMP* ETC,*"* 
HALT* C0MPLEXSLEEP(-100«NUMESS)I 
YIN(O)* NOPROCESSTOG * NOPROCESSTOG-l * 
•1 STEP 1 UNTIL STATIONMAX DO 
TABLECT3,CAN0EFLAG THEN 

TABLECT3,MIXNR»MIX THEN ST ATABLEC T J ,M J XNR I«Q| 
NX*L0GLINE*0l 



05665030 

05665040 
05665050 
05665060 
05665070 
05665080 
05665090 
05665100 
05665110 
05665120 
05665121 
05665122 
05665123 
05665125 
05665140 
05665200 
05665300 
05665400 
05665500 
05666000 
05677000 
05679000 
0568000Q 
05680900 
05680950 
05680952 
05680953 
05680955 
05680960 

S05681000 
05682000 
05683000 
05684000 

S05684500 
05685000 
05686000 
05687000 
05688000 
05689000 
05690000 
05691000 
05692000 
05693000 
05694000 
05695000 
05696000 
05697000 
05698000 
05698500 
05699000 
05700000 
05701000 
05701100 
05701200 
05/01300 
05701400 
05702000 
05703000 
05704000 
05705000 




IF EVENT[MIXJ,[CF1#0 THEN 05706000 

EVENT[0J»EVENTCM1X]I 05707000 

IF (TI«0IRE.CT0RYSEAKCHC W TANK " 05710000 

$ SET OMIT ■ NOTCSHAREDISK) 05710099 

&CSYSN0+17)[30l42l61 05710100 

$ POP OMIT 05710101 

•"DISK "»14))#0 THEN FORGETSPACE ( T ) ! 05711000 

IF CT I* DlRECTORYSEARCH("MESAGE »p "CANDE " * 13)51*0 05712000 

THEN FORGETSPACE(T)? 05713000 

IF (T I* OIRECTORYSEARCHCUSERS "» "CANOE "» 13))*0 05714Q00 

THEN FORGETSPACECT)? 05715000 

END; 05719000 

PROCEDURE SPREAOTHEWORDJ *UPDATES ADINFO & SENDS H/L MESSAGE TO 05720000 

BEGIN *UINES MARKED DIALUP 05721000 

LABEL N0DISK#SP0UTERR»N0SYSDISKJ 05721100 

REAL I»J»K»L#N»B»T#GARBAGE? 05722000 

ARRAY A[*J? 05723000 

t SET OMIT * TWXONLY 05723049 

SUBROUTINE SETNAOG; SEQARRAY [ I ] . [ 26 J 6 J I *N J "N*l ; 05723050 

t POP OMIT 05723051 

Bl*5PACEC10)? 05723100 

Nl«-i; 05723150 

IF SYS0ISKADR*Q THEN 05723200 

BEGIN STREAM(S»*SYSN0+17»B)J 05723300 

BEGIN DSI«18 UIT"*-N0 SYSTEM DISK*"? 05723310 

$ SET OMIT * NOTCSHAREDISK) 05723319 

SII-LOC S?SH*SU7IDI l*DI""7?DSl«CHR? 05723320 

* POP OMIT 05723321 

END! 05723350 

GO TO SPQUTERRI 05723380 

END? 05723400 

IF NOT PCRRR),[17|13 THEN 05723420 

BEGINI STREAMCB)! 05723450 

DS * 16 LIT"*-DTC NOT READY*"! 05723500 

GO TO SPOUTERRI 05723520 

ENDI 05723540 

IF PROGTANK-0 THEN 05723560 

IF (PR0GTANK»«GETUSERDISK(CSTATI0NMAX+1)XCLUMPSJZE OR 05723580 

MEMORY)) » THEN GO TO NODISKJ 05723600 

IF TANKADDRESS»0 THEN 05723620 

IF <TANKADDRESS|BGETUSERDISKCC5TATI0NMAX*1)XGL0MSIZE OR 05723640 

MEMORY)) « THEN GO TO NODISK; 05723660 

IF BASED1SKADR*0 THEN 05723680 
IF (BASEDISKADRI*GETUSERDISK(-TANKCHUNKSIZE OR MEM0RY))«O THEN 05723700 

BEGIN 05723729 

NOOISKi STREAM(B); 05723740 

DS»*33 LIT"*-NO USER DISK FOR DATACOM TANKS*"! 05723760 

SPOUTERRI SPOUTCB)! 05723800 

GO TO NOSYSDISK; 05723900 

END? 05723950 

S SET OMIT « NOT SEPTICTANK 05723959 
COMMENT REMOVE THIS CARD TO GET SEPTIC AT EACH INITIALIZATION 05723960 

RUNSEPTICCO)? 05723970 

$ POP OMIT 05723971 

IOREQUEST(0»INTERROGATEMASK.O&30[ 121421 63)? 05723990 

A l» [M[SPACE(SYSDISKRL)31 & SYSD I SKRL[ 8 \ 38 1 101 ? 05724009 

SYSDISKI0C1#0»A)I 05724100 

SP0W0RDI»A[3JJ 05724400 

STREAM(B)! 05725000 

BEGIN 05726000 



DS»«19 LIT n ~**P***l***Q***f>***»; 05726100 

DS?*28 LIT "RESTARTING, , t PLEASE WAIT*-**"* 05726200 

ENDI 05726300 

FOR 11*1 STEP 1 UNTIL STATIONMAX 00 05727000 

BEGIN 05728000 

SYSD!SKI0(1*T»A)J 05/29000 

IF SCHCA) THEN 05729010 

BEGIN STATABLE[Tl»n*«0&l[4l47UJ&t[16l47»n; 05729020 

llNETABLECniM[4Hlt2l47llJl 05729025 

IF AC03.DIALE0UP THEN 05729030 

IF AC23, 16118] NEQ "F1L" THEN 05729040 

BEGIN A[0],DIALEDUP»*0l SYSO ISK I 0{ . I » A ) ENDI 05729050 

END 05729060 

ELSE BEGIN 05729070 

TANKSm.Ulllial) 05731100 

INPUTANK[IH*-P10000l 05731200 

STATABLEtni*0&At0Jtl0ll0l3H3[l5l46>2HA[0JC25l2l83 05731300 

4<CANDEMIX[U + 32H4»42I6]I 057 31400 

IF I LEG LMAX THEN % LOCK IT TO GARBAGE 05731500 

LINETA8LE(n»*NABS(At4miDL[2H43»5mGARBAGEHCTC J I 05731550 

S SET OMIT * TWXONLY 05731599 

IF (Jl»STATABLEin,STATlONTYPE)#TWX THEN 05731600 

BEGIN 05731700 

SCQARRAY[ 1 3 1 «0« A C 3 C 1 2 f 34 1 14 3 1 A C 3 C 6 1 1 7 I 3 3 05731800 

&IC40I40I8J; 05731850 

IF J THEN * SCREEN DEVICE 05731900 

BEGIN SETNAOGJ 05732000 

TNA0GtNJJ«IF I»ABS(SPOWORD) THEN 05732100 

ELSE 0&AlOJtl4«20»14J? 05732150 

END ELSE 05732200 

IF J*TC500 THEN SETNAOGI 05732300 

IF I LEQ LMAX THEN 05732400 

IF LINEDISCt IJwMULTIPOINT THEN 05732450 

SEQARRAYt UtLlNELINK»«I ELSE ELSE 05732500 

IF (Jl*AC0]«t2i61)#0 THEN 05732600 

BEGIN H»Jl 05732700 

DO Jl*SEQARRAYCK|sJJ,LINELJNK UNTIL J*LJ 05732800 

SEQARRAY[K],LINELINKI*I J 05 732900 

SEQARRAYCUiLINELlNKlaLl 05733000 

END ENDI 05733100 

S POP OMIT 05733101 

A[OJ t DJALEDUP»»ll 05733200 

AC23*0; 05734100 

SYSDISKlO(0»l»A)J 05734200 

ENDI 05734900 

ENDI 05735000 

SYSDISKI0(1»STATI0NMAX+1»A)I 05736000 

IF UNITE 303 , C 161 23 * THEN 05736200 

C0MPLEXSLEEPCUNIT[30],U6!21«0)I 057 36400 

REMOTE * II 05737000 

$ SET OMIT » NOTCSAVERESULTS OR DEBUGGING) 05737099 

STORAWAYt«NOT FALSE1 05737100 

* POP OMIT 05737104 

FOR II»T+1 STEP 1 UNTIL STATIONMaX DO 05738000 

BEGIN 05740000 

* SET OMIT * TWXONLY 05740099 

IF I LEO LMAX THEN 05740100 

$ POP OMIT 05740101 

IF BLASTREAD(I#1) THEN 05742000 

TWX0UT(B#60»U3[H46«2]t 1)1 05743000 



ENDI 057*4000 

FORGETSPACECA)! 05745000 

FORGETSPACE(B)! 05746000 

NOSYSDISKII 05746500 

END SPREADTHEWQRDJ 05747000 

PROCFDURE C0MM17J 05750000 

BEGIN REAL T| 05750500 

REAL L«-7,U*-6«C*-5l I 05751000 

STREAM(L*L,[4Qt8]»C»U#T*USPACEC10))l 05751500 

BEGIN DS»*5 LtT w 5HQRT w l C(DU»DI-5) DSl*4 L I T%0NG" ) I 05752000 

DSl«14 LIT* CARRIAGE FOR "I 05752100 

SI*LOC Ul SI*S!+1J DS*7 CHRJ 05752500 

DS*4 LIT " ON "J 05753000 

SI'LQC l\ DS*2 DEO 05753500 

D5l»LIT LEFTARROWI 05754000 

END STREAM) 05754500 

LONGCARRIAGECUISCJ 05755000 

LOGLINE * L OR 5121 05756000 

SP0UTIT(T»CHRGK*1)J 05756500 

GO TO RETURN! 05757000 

ENDI 05757500 

boolean procedure blastreadc l i ne»c ) j 05758000 

value line. ci 05758500 

real ljne»ci 05/59000 

BEGIN 05759500 

REAL R#TI LABEL EX| 05760000 

DEFINE BLAM * C,[47UJ#» % CLEAR THE LINE* LEAVING IT IDLE, 05761000 

LOCK » C,[46ll3#» % THE LINE NEEDS TO BE LOCKED. 05761100 

IDLE » C,[45lU#» * WAIT FOR AN IDLE STATUS, 05761200 

CLEAR * C»[44I1J#I % DISCONNECT THE LlNEi 05761300 

IF LINE>LMAX THEN P(O.RTN)! 05761900 

Tl«SPACE(15)l 05762000 

IF BLAM THEN 05762500 

BEGIN IF NOT LOCK THEN % ALREADY LOCKED* SET ADDRESS 05763000 

LINETABLEtLINE3»*C*P(DUP))&[RHCTC]l 05763100 

$ SET OMIT « TWXONLY 05763499 

IF STATABLECLINE3,STATI0NTYPE«TWX THEN 05763500 

$ POP OMIT 05763501 

BEGIN STREAMCTI«T*1)I DSl»3 LIT"<**"I 05764000 

Mmi*0| 05764500 

DCWAIT(T»LINE»R#C»60)I % NOTE THAT C.[47ll3 IS SET, 05764600 

IF R » THEN XNO RESPONSE - DISCONNECT 05764700 

BEGIN F0RK(PC,QUITTER)»LINE&LINEtCTFJ»-2#96#l)l 05764800 

IF CANDYINX NEO THEN 05764850 

BEGIN M(R|«GETAREA<0)J,[FF3l»R46[33l41l7]| 05764860 

QUEVENT<R*CANDYINX)| 05764870 

ENDI 05764880 

LINETABLECLINEi»«ABSC*P(DUP))&DlSC0N[21 14315] 05764900 

SOICTCJI XUNLOCK LINE 05765000 

STATABLECLINEJ.[16llJ|»0l XSET DISCONNECTING 05765100 

GO TO EXI 05765200 

END! 05765300 

* SET OMIT » TWXONLY 05765499 

END ELSE 0576550* 

BEGIN M[T]|*0&lt5U7lUl 05765550 

DCWAIT(T»LINEiR#C AND P76«0)l 05765600 

IF R,tCFj#0 AND R, [26173*0 THEN 05765620 

BEGIN R 1*01 05765640 

CLICK|*«CLGCK*P<RTR) + 120| 05765660 

SLEEP([R]*»0)i 05765680 



ENDI 05765700 

IF R,[27ti3 THEN * WRITE READY 05765710 

BEGIN M[T]I»0> 05765720 

M[T + l3t*«»12741237Q0OOOOO0J X "##**" 05765730 

DCWAIT(T»LINE»R»1»180); 05765740 

END* 05765750 

$ POP OMIT 05765771 

ENDI 05765800 

M[T)|ftO&l[6l47ll]l 05765900 

DCWAIT(T#LINE'R»0>0)J 05766000 

* SET OMIT * TWXONLY 05766099 

0CWAIT(T»LINE»R»1F U I NED I SC CL I NE 3«C0NTENT I ON 05766100 

THEN ELSE -0»0)J 05766200 

IF UNEDlSCaiNEJsCQNlENTlON THEN 05766300 

BEGIN STREAM(Tl*T+l)J DSl*2 LIT "$*"l 05766400 

M(T3l«0J 05766500 

DCWAIT(T»LINE»R#*1»6Q>J 05766600 

ENDI 05766700 

t POP OMIT 05766701 

$ SET OMIT * NOT(TWXONLY) 05766799 

DCWAIT(T»LINE»R#»OfO)» 05766800 

t POP OMIT 05766801 

IF R«0 OR <R.[27t23#0 AND NOT R,[30lll) THEN GO TO EXJ 05766900 

END! 05767000 

IF CLLAR OR CR.C30I 1 ] AND SWAPEND*0) THEN 05767500 

BEGIN STREAMCT); 05768000 

DSl«29 LIT"-*#PLEASE CAUL BACK LATER*-**"* 05768500 

TWX0UT(T»29»»0»LINE)» 05769000 

END; 05769500 

BLASTREAD»*TRUEI 05769750 

EXl F0RGETSPACE(T)> 05770000 

END BLASTREADI 05770500 

DEFINE 05780000 

MAXSIZ*U!20]## T0MAXS1Z*1I28I20#» 05780010 

SPEED p I23l33#* TOSPEED* 23l45*3#» 05780020 

EUNP • t21»iJ#* TOEUNP « 21 1 47 » 1#» 05780025 

STARTWRD*[26l 12J#» TOST ARTHRD»26 J 36 U2*» 05780030 

NUMENT*C38»10J#» T0NUMENT«38 J 38 1 10# » NUMENTM*1023# * 05780040 

DSIZE*12|20J#» T0DSlZE«2l28l20#» 05780100 

DEND*C22l26J#* T0DEND»22« 22l26## 05780200 

T0SIZE*8«38U0#» NEUF*t 18 U53#* 05780300 

EUI0FFSETB4 $, X ONE WORD FOR EACH I/O CHANNEL, 05780310 

AVDIFFMINM5#» AVDI FFMAX*50# , X AVDIFFMAX GTR AVDIFFMIN GTR U, 05780400 

AVTMAX«3900## X MAX # WORDS ALLOWED FOR AVAILABLE TABLE ON DISK, 05780500 

X IS REFLECTED IN USERDI SKBOTTOM & DI SKAVA ILTABLEMAX05780505 

AVSMfN»90 #, AVSMAX*300#» % MjN AND MAX * WORDS TO READ IN P 1 TIM05780600 

X AVSMAX GTR AVSMJN GTR 85, 05780605 

X BOTH MUST BE MULTIPLES Op 30, 05780610 

FlXARRAY(FlXARRAYl»nXARRAY2»FlXARRAY3)«FlXARRAYl*[M[FiXARRAY2* 05780700 

SPACE(FIXARRAY3)]]&FIXARRAY3[T0SIZE3*» 05780800 

* SET OMJT • NOTCSHAREDISK } 05800000 
% START OF SHAREDISK DISK FILE MaiNTAJNaNce DECLATATlONS ********»******05800200 
X 05800300 
DEFINE SLINK m [Hl7j #, X u SCRATCH LjNK, SCRATCHVECTOR[ 13 , SL I NK05800400 

TOSLINK m 1I31U7 #, X IS DISK ADDRESS OF 1-Th SCRATCHSEG, 05800500 

X AND SCRATCHSEGtOJ, SLINK OF THE I-Th 05800600 

I SCRATCHSEG IS OlSK ADDRESS OF I+1»TH 05800700 

X SCRATCHSEG, 05800800 

SNUM = [1BI5J #, X ■ SCRATCH NUMBER, SCRATCHVECTOR t 13 , 05800900 

TOSNUM = 1814315 *. X SNUM IS NUMBER Op ENTRIES IN I-TH 05801000 



SRAODR * 

TOSRADDR * 

SHAOOR * 

TOSHADDR « 



[231 
23S 

C23| 
23> 



25] 
23:25 
25] 
23125 



SLENGTHs 
TOSLENGTH* 



SSIZE 
TOSSIZE 

superscratchmax 

scratchmin 

scRatchmax 

scratchdown 

scratchoff 

scratchup 



[312 
312 

[181 

18t 

[9t 

510 
19 

11 

14 
9 

5 



0] 
8(20 

10] 
3BU0 

6] 



SCRATCHTYPE » 13 
SCRATChSAVE • 1 
SERROR(SERRORl) * BEG 
% * END OF DEFINES * * 
I SEE START OF MCP FOR 
ARRAY SCRATCHVEC[*]J 



* SCRATCHS>EG» AND SCRATCHSEG[ ] , 

* NUMBER OF ENTRIES IN SCRATCHSE 
## % * SCRATCH ROW ADDRESS, SCRATCH 
#. % SRADDR IS DISK ADDRESS OF A SC 
*» % * SCRATCH HIGH ADDRESS. SCRATC 
*» % [I],SHADDR IS 1+MaX DISK ADDRE 

% the disk addresses jn the entr 

% the i-th scratchsegi i.e. scRa 

% oruj,smaddr»max(scratchseg[n 

% scratchsegtu.slength scra 

% J.SRADDR+SCRATCHSEG[N],SUENGTH 

% » SCRATCH LENGTH, SCRATCHSEGCJ 

% SLENGTH IS # SEGMENTS IN THE S 

X ROW ADDRESSED BY SCRAUHSEG[ J ) 

% * SCRATCHVLCTOR SIZE. SCRATCHV 

% , SSIZE IS THE NUMBER OF SCRATC 

% DOPE ENTRIES, 

% MIX-INDEX FIELD OF 1"ST LINK (IN 

% MAX SlZE-1 ALLOWED FOR SCRATCHVE 

% « LOWER BOUND FOR DELETION cONSO 

% b UPPEK BOUND FOR ADDITION CONSO 

% these Three defines are used in 

% ermining when to adjust the scra 

% vfcs size to reflect its actual 

% of entries, note that scratchdow 

% be greater than scratchoff. all 

i dialed into type-field of scratc 

% SAVE FACTOR Of SCRATCHVEC, 
J GO ERROR END *t 



SNUM IS 

G, 

S£G[JJ, 

RATCHRO 

HVECTOR 

SS OF 

IES IN 

TCHVECT 

, SRADDR 

TCHSEG[ 

). 

3. 

CRATCH 

.SRADDR 

ECTOR[0 

H VECTO 



-USE) 

CTOR, 

LIDAT 

LIDAT 

DET- 

TCH- 

NUM8E 

N MUS 

ARE > 

HVEC, 



IN N*SERRORl 

*. 

SCRATCHDIRECTORYREADY AND SCRATCHD I RECTORYMASK * 



ly sorts n elements of a- 
descending order 

xLN<N)*95 MICROSECONDS, 
]» WHICH IS EITHER .SHADD 



PROCEDURE SCRATCHSORT(A.N) I 
VALUE N ; 
REAL N I 
ARRAY A[»] i 

BEGIN X SCRATCHSORT BINaRI 
X AC2J#,,,# A[NJ — -IN 
X SORT TIME APPROX N 
% THE KEY IS ,[23125 
INTEGER D I 
REAL I.J.Y I 
LABEL Cl»C2fC3fXT I 
% ** ** ** ** ** ** ** ** ** * 
IF CDM)<N THEN WHILE CD*D + D)< 
C 1 1 

IF C D I * D DIV 2) LEO THEN GO XT ELSE I»*l I 
C2» 

Y*AKJ*I)+D3 I 
C 3 1 

IF Y,SHADDR>ANJ.SHADDR then 

BEGIN 

AN + DJ-AEJ] i 

IF (J*J-D> > THEN GO TO C3 i 

END I 
AN*DJ*Y J 

IF CJM + U + D $ N THEN GO TO C2 ELSE GO TO CI t 
XT t 



* ** ** ** ** ** ** ** ** 
N DO* 



— A[13» 

R OR .SRADDR 

** ** ** ** 



05801100 

05601200 

05801300 

W05801400 

05601500 

05801600 

05801700 

-05801800 

+05801900 

N05602000 

05602100 

05802200 

05602300 

,05802400 

J05602500 

R05802600 

05802700 

,05603300 

05803400 

E05803500 

C05803600 

05803700 

05803800 

R05803900 

T05604000 

005804100 

05604200 

05804300 

05605500 

05605900 

,05806000 

05606200 

05806300 

05806400 

05806500 

05806600 

05806700 

05606600 

05806900 

05807000 

05807100 

,05607200 

05807400 

05807500 

05807600 

05807700 

05807800 

05808000 

05808100 

05808200 

05806300 

05808400 

05608500 

05806600 

05808700 

05608600 

05808900 

05809000 

05609100 

05809200 



END OF SCRATCH50RT i 



$ SET OMIT « NOT(DEBUGGING) OR OMIT 
PROCEDURE SCRATCHDIRECTORYERROR(A#N) 
VALUE A»N J 
REAL A»N | 
BEGIN 

% ** •* ** ** ** ** 

STREAM(Ni*N»aI»A)> 

BEGIN 

DS*29 UT"#McP 

SI*LOC NJ DS*3 

END J 
SPOUTCA) J 

COMPUEXSLEEPC-100«NUMESS) ; 
DDT| 

DO UNTIL FALSE ? 
END OF SCRATCHOIRECTORYERROR ; 



** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ill* 



SCRATCH DIRECTORY ERROR H 
DEO DS*LIT H *" i 



BOOLEAN PROCEDURE 
VALUE I»S I 

REAL I»H»S i 
BEGIN 

% ** ** ** ** 

scRatcmcheck* 
if s,slink#(i 

ELSE IF SCRAT 
ELSE IF I>?9 
ELSE IF ISO T 
ELSE SCRATCHC 
END OF SCRATC 
$ POP OMIT 
PROCEDURE SCRATCH 
VALUE CN»A*N.SEGA 
REAL CN»A»NtCORAD 
ARRAY SCRATCHSEGt 
BEGIN 

REAL POT»MAXt 
ARRAY BOTHt*] 

* SET OMIT b NOT 

LABEL START»E 
S POP OMIT 

SUBROUTINE GE 
BEGIN 
PCP1MIX) 
P1MIX*P> 
MOVECH+1 
FORGETSP 
SCRATCHV 
END OF G 

% ** ** + * ** 

* SET OMJT ■ NOT 

GO START t 
ERROR! 

SCRATCHDIRECT 
STARTI 
S POP OMJT 

IF CN«1 THEN 



SCRATCHCHECK(I*H»S) i 



** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** 
TRUE ; 

F I#H THEN SCRATCHVECtl+lJ ELSE 0), SLINK THEN H*l 
CHVEC[I3,SNUM#I*S,SNUM THEN H*2 
THEN H*3 
HEN H*4 
HECK*FALSE J 
HCHECK l 

specialcaseccn.a»n»coraddr»segaddr»i»h»scratchseg); 

ddr>i»h> 

dr»segaddr»i»hj 

*} I 

L»8»J»£»F f 

t 

(DEBUGGING) OR OMIT 
RROR 1 

tnewscratchvec > 

I pimjx*o> l*getspace(a»scratchtype#scratchsave> t 

MtLJ,MlXFL*0 i 
»SCRATCHVEOLt*L + 2) I 
ACECSCRATCHVEC) I 

ECI*SCRATCHVEC & LtCTCJ & ACTOSIZEJ I 
ETNEWSCRATCHVEC I 

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** 

(DEBUGGING) OR QMjt 



05809300 
05809400 
05809500 
05809599 
05809600 
05809700 
05809800 
05809900 
05610000 
05810100 
05810200 
05810300 
05810408 
05810500 
05810600 
05810700 
05810900 



0RYERR0R(c0RA0DR»N+100) I 



0581 
0581 
0581 
0581 
0581 
0561 
0581 
0581 
0561 
0581 
0581 
0581 
0581 
0561 
0581 
0561 
0581 
0581 
0581 
0581 
0561 
0581 
0581 
0581 
0561 
0581 
0581 
0581 
0581 
0581 
0581 
0581 
0581 
0581 
0561 
0581 
0581 
0561 
0581 
0581 
0581 
0581 
0581 



000 
100 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
25B 
260 
270 
280 
281 
340 
355 
360 
370 
385 
400 
410 
414 
415 
416 
430 
445 
460 
475 
490 
505 
520 
535 
540 
549 
550 
565 
580 
595 
596 
805 



BEGIN 05611820 

IF (IF 1*1 THEN CL*SCHATCHVECU-13,SNUM)<SCRATCHMAX ELSE 05811835 

L*32) OR (IF I#H THEN ( G*SCRATCHVEC CI+ 1 3 . $NUM)<SCRATCHMAX 05811850 

ELSE 0*32) THEN X THEN INSTEAD OF GETTING A NEW SEG AND 05811865 

BEGIN % GIVING THE I-TH AND NEW SEG EACH 15 ENTRIES* 058H88I 

IF L>Q THEN * WE CAN SPLIT BETWEEN THE I-TH AND 0-TH 05811895 

BEGIN % SEGS THE SUM Op THE ONE NEW ENTRY AND 05811910 

L*Q i X THEIR INDIVIDUAL ENTRIES, WE CAN DO 05811925 

0*1+1 1% THIS BECAUSE THE 0-TH SEG HAS ONLY 05811940 

END X L<SCRATCHMAX ENTRIES, THIS OPERATION IS05811955 

ELSE 0*1-1 t% DONE TO HELP REDUCE THE NUMBER OF 05611970 

P0T*L+31 I X SPARSE SEGMENTS, 05811985 

F1XARRAY(B0TH»J»P0T) I 05812000 

D1SKWAIT(-J*30.MAX*SCRATCHVECC0J, SLINK) ; 05812015 

S SET OMIT * N0TCDEBUGG1NG) OR OMIT 05812016 

IF ScRATCHCHECK(Q»HtB0TH[03) THEN SERRORCH+21) I 05812030 

$ POP OMIT 05812031 

M0VE(29»[SCRATCHSEGtl 3 3 • [BOTHt L+ 1 3 3 > I 05812045 

BOTHtPOTl*POT-U»»A & N[T0SLENGTHJ ; 05812060 

SCRATCHSOKT(BOTH»POT) 1 05812075 

M0VE(H*P0T-P0T*P0T DlV 2» I BGTHCPOT* 13 3 » 05812090 

[SCRATCHSEG[133> t 05812105 

A|*MAX| N**SEGADDR i 05812120 

IF LSS I THEN 05812135 

BEGIN 05612150 

POLISH£SCRATCHSEG[03»BOTHCO3» 05812165 

[SCRATCHSEG[0J3» I s » I BQTHC 03 3 » l«) I 05812180 

P0LISHCJ»C0RADDR»,J.*»[C0RADDR3#*>> 05812195 

P0L1SHCI#Q> ,Ii l*t ,Q* l») ; 05812210 

POLlSHCSEGADDR»MAX#,SEGADDR»|w».MAX» t») | 05812225 

END J 05812240 

B0THt03,SNUMl«POT \ 05812255 

SCRATCHSEGt03,SNUM|»H \ 05812270 

DISKWA!T(J»30.A) % 05812285 

DISKWAIT£C0RADDR»30.N) ; 05812300 

SCRATCHVECII3J»(P(SCRATCHSEG[13»DUP),SRADDR 05812315 

+PCXCH), SLENGTH) & HITOSNUMJ & SEGADDR 05812330 

[T0SLINK3 i 05812345 

SCRATCHVECtQ3l*(P(BOTHU3»DUP),SRADDR+P(XCH> 05812360 

.SLENGTH) & P0TET0SNUM3 & MAX[T0SLINK3 105812375 

FORGETSPACE(J) I 05812390 

END 05812405 

S SET OMJT s NOTCDEBUGGING) OR OMIT 05812406 

ELSE IF H GTR 254 THEN SERR0R(49) 05812420 

* POP OMIT 05812421 

ELSE % ELSE GET A NEW SEGMENT AND SPLIT THE I-TH 05812435 

BEGIN X SEGMENTS 29 ENTRIES PLUS THE NEW ENTRY 058J2450 

X BETWEEN THE NEW AND I-TH SEGMENT, 05812465 

SCRATCHSEG[303*A & N[T0SLENGTh3 i 05812488 

SCRATCHS0RT(SCRATCHSEG»30) I 05812495 

IF SCRATCHVEC,SlZE<H+2 THEN X THEN WE MUST GET A05812510 

BEGIN X BIGGER SCRATCHVEC ,05812525 

AI»H*2+SCRATCHUP I 05812540 

GETNEWSCRATCHVEC J 05812555 

END I 05612630 

P0TIM + 1 ; 05812645 

FOR J|«H STEP -1 UNTIL POT 05812660 

DO SCRATCHVECN*13»*SCRATCHVECCJJ ) 05812675 

SCRATCHVECtl + lJ»nPC5CRATCHSEGU)iDUP),SRADDR 058J2690 

♦P(XCH), SLENGTH) 05812705 



& 15CT0SNUM] 05812720 

& CUGETESPDISKHTOSLINKJJ 05812735 

SCRATCHSEG[0l,SNUMt*15 ; 05812750 

DISKWA!TCC0HADDHi30»L) ; 05812765 

SCRATCHVEC[n«*CP(SCRATCHS»EG[16j»DUP) 05812 780 

,SRADDR+P(XCH),SLENGTH) 05812795 

& 15CT0SNUMJ & SEGA0DR[TOSLINK] I 05812810 

SCRATCHSEG[15}«*0 & L[T0SLINK] & 15[T0SNUMJ ; 05812825 

D|SKWAIT(C0RA0DR+15»16#SEGADDR) J 05812840 

SCRATCHVEC[0],SSUE-H + 1 i 05812855 

END i 05612670 

END 05812885 

ELSE 05812900 

BEGIN 05812915 

IF (IF 1*1 THEN CL*SCRATCHV£CU-13.SNUM)>SCRATCHMAX ELSE 05812930 

L*FALSE) OR (IF I#H THEN ( C*SCRATCHVEC t I +1) . SNUM)>SCRATCHMAX 05812945 

ELSE 0*FALSE> THEN XTHEN, INSTEAD OF FORGETTING SEGMENT, SPLIT 05812960 

BEGIN J! CONTENTS OF Q-TH AND I -TH SEGMENT BETWEEN THEM- 05812975 

IF POT»=Q>L THEN BEGIN L*QJ 0*1+1 END ELSE 0*1-1 J % SELVE05812990 

A«-SCRATCHSEGt03 I 05813005 

DISKWAJT(-C0RADDR»30,E*SCRATCHVEC[(J3,SU1NK) \ 05813020 

$ SET OMJT « NOT(DEBUGGING) OR OMjT 05813034 

IF SCRATCHCHECK(Q«H»Ht*SCRATCHSEGtOJ) THEN SERR0RU2 + H) I 05613035 

% POP OMJT 05813036 

SCRATCHSORT(SCRATCHSEG»L) ; 05813050 

FI*L-N»*L DIV 2 I 05813065 

ScRATCHVECt l3l«(P(SCRATCHSEGt(Lt*IF POT THEN N ELSE 0) 05813080 

+ n.DUP),SRADDR*P(XCH),SLENGTH) 05613095 

& FCTQSNUM] & SEGADDRtTOSLlNK] / 05813110 

SCRATCHVECIQ3J«(P(SCRATCHSEG[(P0Tl»lF POT THEN ELSE F) 05813125 

♦U»DUP)»SRADDH+P(XCH),SLENGTH) 05613140 

& N[TOSNUM] & E[TOSLINKJ J 05613155 

POLISH(SCRATCHSEGCN)»SCRATCHSEG[N-U) ; 05813178 

SCRATCHSEG[LJ«*A & FCTOSNUMJ ; 05813185 

DlSKWAlT(CORADDR*LiF+lfSEGADDR) i 05813200 

POLlSH([SCRATCHSEGIN-l]]»*»CSCRATCHSEG[NJif) ; 05813215 

SCRATCHSEGIPOU»»H & N[T0SNUM] I 05813245 

DJSKWAIT(C0RADDR*P0T.N+1»E) * 05813260 

END 05613275 

ELSE % ELSE THERE IS NO SEG ADJ TO I-TH StG WITH ENOUGH 05813290 

BEGIN % ENTRIES TO SPLIT. SO WE DELETE THE I«TH SEGMENT, 05813305 

E*SCRATCHSEGtO], SLINK I 05613320 

DISKWAITCCORADDR.POT-IF F*I*1 THEN -30 ELSE 30#0* 05813335 

SCRATCHVECtl-mSLlNK) ; 05813350 

$ SET OMJT m NOT( DEBUGGI NG) OR OMIT 05813364 

IF F AND SCRATCHSEGCSYSNO] t SLlNK#SEGADDR THEN SERR0R(4) i 05813365 

$ POP OMIT 05813366 

SCRATCHSEGtIF F THEN SYSNQ ELSE 0J,SLlNK*E I 05613380 

DISKWAIT(CORADDR»POT#0) J 05813395 

FORGETESPDISK(SEGADDR) I 05813410 

IF I#H THEN M0VE(H-I»CSCRATCHVECtI*in.[SCRATCHVEC[I]])| 05813425 

SCRATCHVECI0],SSIZEI«HI»H-1 I 0581344* 

IF H<(Ll«SCRATCHVEC f SlZE)'SCRATCHDOWN THEN XTHEN GET A NEW05813455 

BEGIN X SCRATCHVEC CLOSER IN SIZE TO ACTUAL * ENTR I ES05813470 

A»«L-ScRATCHOFF I 05813485 

GETNeWSCRATCHVEC I 05813500 

END I 05813560 

END ; 05813575 

END I 05813590 

END OF SCRATCHSPECIALCASE I 05613605 



05813620 

05613635 

PROCEDURE SCRATCHDlRECTORYENTER(A»N)J 05613700 

VALUE AtNJ 05813800 

REAL A*NI 05813900 

BEGIN 05814000 

INTEGER II 05814100 

REAL, CQRADDR»H»L»QiSEGADDRsQ I 05814200 

array scratchsegt*3 i 05814300 

label found* search! 05814400 

$ set omit m not(debugging) or omit 05814449 

label errori 05614450 

$ POP OMIT 05814451 

% ** ** 411(1 ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** 05814500 

FlXARRAY(SCRATCHSEG»C0RADDRi31)J 05814700 

SLEEP(tT0GLE3»ScRATCHDlRECT0RYMASK)| LQCKTOGC SCRATCHDI RECTORYMASK ) J 05814800 

Ql*HI«SCRATCHVEC[0] f SS!ZE I 05814850 

IF SCRATCHVECtPMltSHADDR GTR A THEN GO FOUND > 05816600 

IF SCRATCHVEC[I*H].SHADDR<A THEN GO FOUND I 05816700 

L*2 i % DO BINARY SEARCH ON I SUCH THAT 1<I<H AND SUCH THAT 05816600 

SEARCHI % ScRATCHVECtn.SHADDR GTR A GEO SCRATCHVECC I-1J .SHADDR. 05816900 

IF SCRATCHVECU»»(L + 0)/2], SHADDR GTR A THEN 05817000 

IF SCRATCHVECEI-U, SHADDR GTR A THEN Qf*I"l 05817100 

ELSE GO FOUND Q5&17200 

ELSE IF SCHATCHVEC[I«*I*1J. SHADDR LEQ A THEN LI-I+1 05817300 

ELSE GO FOUND I 05817400 

GO SEARCH I 05817500 

S SET OMIT m NQTC DEBUGGI NG) OR OMjT 05617599 

EKRORI X DETECTED MCP AND/OR HARDWARE ERROR VIA BAD CORE/DISK TABLES, 05617600 

SCRATCHDlRECT0RYERR0R(C0RADQR#N+50)l 05817 700 

S POP OMjT 05817701 

FOUND* % FOUND THE DESfRED INDEX I, 05818000 

D!SKWAlTecORADDR»30,SEGADDR*»SCRATCHVECU3 f SLINK) I 05818100 

$ SET OMjT ■ NOTCDEBUGGING) OR OMjT 05818199 

IF SCRATCHCHECK(I,H»SCRATCHSEG[Oj) THEN SlRR0R(37+H> J 05818200 

$ POP OMIT 05818201 

IF (Lj*SCHATCHVFCCI3.SNuM) GE<- 29 THEN XMaKE ROOM FOR N^W ENTRY05818300 

ScRATCHSPfCIALcaSe(1»A»N»cORaDDR»SEGADDR»I»H»ScRATCHSEG) 05818400 

ELSE % ELSE MAKE A NORMAL ENTRY INTO THE I"TH SEGMENT 05825800 

BEGIN % AND WRlTE IT BACK OUT TO DISK, 05825900 

SCRATCHVECtl J*(IF (H*SCRATCHVEC [ U ♦ SRADDR)>A*N THEN H 05826000 

ELSE A+N) & (LI*L+1)[T0SNUM] 05826100 

& SEGADDR[TOSLlNKj I 05626200 

SCRATCHSEGtL3*-A & N[TOSLENGTH] * 05826300 

SCRATCHSEGtO],SNUM»L i 05826400 

DISKWAIT(C0RADDR»30,SEGADDR) I 05826500 

END I 05626600 

UNLOCK TOG( SCRATCHDI RECTORYMASK) J 05826800 

FORGETSPACECCORADDR) I 05826900 

END SCRATCHDlRECTORYENTER I 05827000 

05827100 

05627200 

PROCEDURE SCRATCHDlRECTORYDELETFCA»N)l 05827300 

VALUE A.NI 05827400 

REAL A»N| 05827500 

BEGIN 05827600 

INTEGER II 05827700 

REAL L»H»E»F»Q»MAX#POT.CORAODR»SEGADDR I 05827806 

ARRAY SCRATCH5EGl*J \ 05827900 

LABEL SEARCH* FOUND! 05828000 



** ** ** 4>* ** ** ** ** ** ** ** 



LOCKTOG(SCRATCHDIRECTORYMASK)! 



THEN SE.RRORCH*0)l 



$ SET OMIT b NOTCDEBUGGING) OR OMIT 
LABEL ERROR; 

* POP OMIT 

X ** ** ** ** ** ** ** ** ** ** ** 

FIXARRAY(SCRATCHSEG»C0RADDR»30)/ 
SLEEP(tTOGLE3»ScRATCHDlRECT0RYMASK)| 

0»«H»»SCRATCHVECtO],SSlZE; 
$ SET OMIT ■• NOT(DEBUGGING) OR OMIT 

IF SCRATCHVECCQJiSHADDR LEQ A OR Q"0 
$ POP OMIT 

IF 5CRATCHVECUI«13,SHADDR GTR A THEN GO FOUND I 

t 1*2 I X DO BIN SEARCH ON I SO THAT 1 LSS I LEQ H AND SUCH THAT 
SEARCH! X SCRATCHVECtn.SHADDR GTR A GEO SCRATCHVEC [ I -1] » SHADDR. 
IF SCRATCHVECCH«(L + 0)/2], SHADDR GTR A THEN 

IF SCRATCHVEC[I-11, SHADDR GTR A THEN Ql»IM 
ELSE GO FOUND 
ELSE IF SCRATCHVECCII-I+IJ, SHADDR LEQ A THEN Lt»l+1 

ELSE GO FOUND J 
GO SEARCH I 

* SET OMJT » NOTCDEBUGGINQ) OR OMIT 

ERRORl X DETECTED McP AND/OR HARDWARE ERROR VIA BAD CORE/DISK TABLES, 

ScRaTCHOIRECTORYERRORCCORADDR»N) I 
$ POP OMJT 
FOUND! X FOUND THE DESIRED INDEX I, 

D!SKWA!T<"C0RADDRt30»SEGADDR*-CP0T*SCRATCHVECU J), SLINK) 

* SET OMIT * NOTCDEBUGGING) OR OMIT 

IF SCRATCHCHECK(ItH»SCRATCHSEG[0]) 

* POP OMIT 

MAX*POT, SHADDR I 
Q»»0 I 
POLISH(H) ; 

FOR L*POT*POT,SNUM STEP -1 UNTIL 
BEGIN X DELETABLE ENTRYiAND 
IF (H*-SCRATCHSEG[L3.SRADDR) 

AND (F»»H+SCRATCHSEGtL],SLENGTH) 
b NOTCDEBUGGING) OR OMiT 
E*0 THEN SERR0RC29) ELSE 



J 



THEN SERR0RC8+H) I 



1 DO X FIND E» 
ALSO RECORD U» 
LEQ A * SECOND 
GTR / 



$ SET 



THE 
THE 
MAX, 

THEN 



INDEX 
VALUE 



OF 
OF 



THE 
THE 



S POP 



S SET 



OMIT 

IF 

OMIT 



El»Ll 
• NOTCDEBUGGING) OR OMIT 
H*0 OR H*F THEN SERRORC30) 



J 



AND Q<F THEN Q*F ; 



'F.SLENGTH); 



OMIT 

IF 
$ POP OMIT 

IF F#MAX 

END I 
H I *POL 1 SH t 

Ll«CFl»SCRATCHSEGCE3),SRADDR+CFP 
$ SET OMIT * NOTCOEBUGGING) OR OMJT 

IF CE*0) OR CA+N)#L THEN SERRORC 2+E*0 ) J 
$ POP OMIT 

IF F GTR N THEN 

BEGIN X ONLY DELETE THE END-PART OF 

SCRATCH5EG[E],SLENGTHI»F-N t 

IF MAXmL THEN SCRATCHVECC I) , SHADDR » nfN 

DISKWAITCCORADDRt30#SEGADDR) * 

END 
ELSE X ELSE COMPLETELY DELETE THE ENTRY, 
IF POTwl THEN X THEN ENTRY TO DELETE IS ONLY ENTRY IN SEGMENT, 

ScRATCHSPECIALCASFC2»AtN#CORADDR»SEGADDR»J#H»SCRATCHSEG) 
ELSE X ELSE NORMAL CASEi WHERE AN ENTRY IS DELETED FROM 

BEGIN X A SEG AND SEG IS WRITTEN BACK OUT TO DISK, 



AN ENTRY 



I 



05826049 
05628050 
05828051 
05826100 
05826200 
05626300 
05628350 
05828399 
05828400 
05826401 
05828500 
05828600 
05828700 
05828800 
05828900 
05629000 
05829100 
05829200 
05829300 
05829399 
0582940* 
05829500 
05829501 
05629600 
05829900 
05829999 
05830000 
05830001 
05830100 
05830150 
05830175 
05830200 
05830300 
05830400 
05830450 
05830499 
05830500 
05830501 
05830510 
05830549 
05830550 
05830551 
05830600 
05830700 
05830750 
05830800 
05830809 
05830810 
05830811 
05830860 
05830865 
05830670 
05830875 
05830877 
05830879 
05630680 
05830900 
05831000 
05836400 
05836500 



SCRATCHSEGU]*SCRATCHSEG[POT J I 05836600 

ScRATCHSEG[Qj,SNUM*PQT-l ; 05836700 

DtSKWAlTCC0RADDR»30,SEGADDPO * 05836800 

ScRATCHVECtI3*(!F A+N»MAX THEN « ELSE MAX) & (POT- 1 H TOSNUM] 05836900 

& SEGADDRtTOSUlNK) ; 05837000 

END I 05837100 

UNU0cKT0G(5CRATCH01RECT0RYMASK)| 05837 300 

pORGETSPACECCORADDR) J 05837400 

END OF SCRATCHDIRECTORYDELETE t 05837500 

05837600 

05837700 

PROCEDURE SCRATCHCUAN(ARY»BC'LINK) J 05837800 

VALUE BC I X SCRATCHCLEAN SORTS THE SCRATCH DIRECTORY SEGMENT* AS 05837900 

REAL BCiLINK ; X STORED IN ARRAY ARY» AND THEN IT GOES THROUGH THIS 05838000 

ARRAY ARY[*J » X SORTED ARRAY CONSOLIDATING ADJACENT AREAS AND DOING 05838100 

BEGIN * FORGETUSERDISKS ON THESE (CONSOLIDATED) AREAS, 05838200 

REAL 1#K,S#TJ 05838300 

% ** ** ** #* ** ** 41* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** 05838400 

IF (LINK*ARYC03,SLINK)#0 THEN D I SK I OC T» *BC ' 30» Li NK ) } 05838500 

SCRATCHSORTCARY#K»» A RYtO],SNUM) i 05838600 

ARY[OJl«l»»K* I! ARYtOJ IS JUST A STOPPER 05838650 

00 BEGIN 05838700 

WHILE <S*ARY[KJ),SLENGTH*$,SRADDR * ARY[K"1] .SRADDR DO K*K-1) 05838800 

FORGETUSERDISK(l*ARY[U,SRADDR»S,SRADDB*S,SLENGTH-I) » 05838900 

END 05639000 

UNTJL C!*K»K-1)<1| 05839100 

IF LINK#0 THEN SLEEPC [ T 3 » IOMASK ) ; 05839200 

END OF SCRATCHCLEAN I 05839300 

$ POP OMIT 05839301 

05839390 

05839395 

REAL PROCEDURE PETUSERD ISK(N» T ) J VALUE N*T; REAL N»T i 05639400 

05839500 
X N IS THE NUMBER OF SEGMENTS REQUESTED* AND T IS THE EU* OR THE SPEED*. 05839600 
X GETUSERDJSK WJLL RETURN -1, 0, OR THE ABSOLUTE DISK SEGMENT ADDRESS 0FO5839700 
X THE RESULTANT AREA, SEE T.[2«U FOR THE "It AND N,[2ll] FOR THE 0, 05839800 

05839900 
X T>0 »> T IS A PREFERRED SPEED*! T*l # 2. it 4, , , , # OR 31, 05840000 

X T<0 *> "T IS A PREFERRED EU#I T»"l » m 2» "3#-4, , , , * OR "20, 05840100 

X T*0 «> DONT CARE ABOUT SPEED* OR EU*» USE EU WITH LEAST EU I/O, 05840200 
X T,[2IU»1 *> IF CANT GET PREFERRED SPEED* OR EU## RETURN "1, 05840300 

X T,[2I1J»0 *> IF CANT GET PREFERRED SPEED* OR EU*# TREAT AS T«0 ( ABOVE )05840400 
X N>0 »> MAKE A SCRATCHD I RECTORY ENTRY, 05640500 

X N<0 s> DONT MAKE A SCRATCHD I RECTORY ENTRY, 05640600 

% MO »> IMMEDIATELY RETURN WITH A 0, 05840700 

X N,[2I1)*0 *> IF CANT FIND ANY USeRDISK* AND T,[2ll)*0i NO-USER-DISK, 05640800 
X N,[2lt)*l «> IF CANT FIND ANY USERDJSK* AND T,[2J1J«0» RETURN 0, 05840900 

05841000 

05841100 

BEGIN 05841200 

INTEGER K**l» X K IS ALSO "GETUSERD I SK"J DONT USE K ABOVE LABEL D. 05641300 

Z»K*l#NSnZ*l»I«NS*l»8«I+i» 05841350 

S SET OMIT • NOTCSHAREDISK ) 05641380 

L»Q+l»H»L+l»J*H+l»R*J+l#DLsR+U 05641400 

REAL Ml»DL*l* M2»M1+1» ARRAY U«M2*lt*J* DEFINE UT*U * I 05641500 

$ POP OMIT 05841502 

$ SET OMIT « SHAREDISK 05841610 

R»Q+lt AVS«R+1# J*AVS+1» L«AVS» H«NT6 I 05841615 

REAL M1»NT5# M2*NT4j ARRAY UT»J*H*Jl DEFINE U»AVTABLE * > 05641620 

$ POP OMIT 05841621 



LABEL A»B»C»D»E»F >G»W J 05841650 
DEFINE GETUSERDISK«PtTUSERDISK#;X***************************************05841700 

05841800 
%t**** **************************** 05841900 

05842009 

IF N*0 THEN GO W J 05842100 

P(T,C2ll)»ABS(N)»l»0»0»0#Q»0); 05842200 

$ SET OMIT * NOTCSHAREDISK ) 05842205 

PCO»D»DUP»0) I 05842210 

$ POP OMIT 05842211 

A« 05842250 

SLEEP(CT0GLE1»USERDISKMASK)» LOCKTOGC USERD I SKMASK ) J 05842310 

S SET OMIT » NOTCSHAREDISK) 05842390 

FlXARRAY(U»RiAVS)J DI SKWA I T( -R, »AVS» USERDl SKBQTTOM ) < 05842400 

$ POP OMIT 05842401 

$ SET OMIT « SHAREDISK 05842405 

Mll*M2i«P(D) i 05842410 

S POP OMIT 05842411 

Ll»NEUP,NEUF * 05842450 

IF T LSS THEN IF UUl*IF -T GTR L THEN L+l ELSE -TJ.MAXSIZ GEO NS 05842475 

THEN GO E ELSE IF I THEN GO C > 05842500 

B( IF Um ( MAX$!Z*NS THEN 05842700 

BEGIN 05842800 

PCEUI0£CNTll»IM)*EUI0FFSETJ + PEUl0CNTn».NT2»SND»DUP> J 05842900 

IF P LSS Ml THEN BEGIN MlleNT2» HI=NT1 END } 05842930 
IF P LSS M2 THEN IF U[I],SPE£D"T THEN BEGIN M2 I sNT2; J I *NT 1 ENDJ05843000 

END I 05843100 

if <n*i + i) leQ l then go b t 05843200 

IF P(D)#M1 THEN 05843300 

BEGIN 05843400 

IF M2«M2I*P(D) THEN IF Z AND T NEQ THEN 05843500 

CI BEGIN GETUSERDISK*-1) GO G END 05843600 

ELSE J*H I 05843700 

Jl*J+lJ GO E I 05843800 

END I 05843900 

IF I THEN GO C J 05843950 

IF N,[2ll] THEN GO G I 05644000 

$ SET OMIT « NOTCSHAREDISK ) 05844050 

UNL0CK(USERDISKB0TT0M)1USERDISKSPECIALCASECI l«l*R»U*NS)J 05844070 

IF CG|«R) THEN GO WIGO Al 05844072 

t POP OMJT 05844073 

S SET OMIT » SHAREDISK 05844090 

FIXARRAY(UT»R#30); USERD I SKSPEC I ALC ASEC I *1 » R» UT» NS) ; GO TO Al 05844HO 

* POP OMIT 05844111 

0mP0777777777777777 I 05844200 

S SET OMIT * NOTCSHAREDISK ) 05844290 

El IF CK*(I*(Ml*UtJ3).STARTWRD)+T*Ml AND NUMENTM)>AVS THEN 05844300 

BEGIN 05844400 

IF (Ll"CKl«T+H»(OLl»IF I LSS 30 THEN ELSE IF CUC03 AND 05844500 

NUMENTM) LEO 30 THEN 30 ELSE 60)+CHI«I) MOD 30) MOD 30) NEO 05844530 

THEN Ll«3Q*L I 05844540 

IF CLI«K+L) GTR AVS THEN 05844570 

BEGIN USERDlSKSPECIALCASECO,R»U.L*DL[CTFJ)l U*FLAGCP) ENDI05844600 

IF PCDL#O.DUP) THEN PCUT[ DL-1 J » XCH ) > 05844650 

D!SKWAlTC-CR+DL)»Li*L-DLiZI*USERDlSKBOTT0M+H DIV 30) i 05844700 

IF P THEN UT[DL-U»*PCXCH) I 05844750 

END 1 05844600 

PCK-DI NT3l*K|wMl,MAXSlZl NT2»»0> 05844900 

S POP OMJT 05844901 

$ SET OMIT * SHAREDISK 05844915 



EI IF (AVSl*(Kl«(Tl"U[JJ AND NUMENTM ) ♦ I J *( I » *U [ J J , SI ART WHD ) MOD 30) M0D0584492Q 

30) neq o then avsis30-avsj avsi*avs+kj P(M2) ; 05844925 

FIXARRAY(UT»R»AVS)J D I SKWA 1 T( -R . AVS* 1*1 01 V 30+USERDI SKBOTTOM) I 05844930 

M2I»P) P(K-l)i NT2»«0J NT3I*K««U[JJ,MAXSIZ I 05844935 

* POP OMIT 05844936 
Fl IF (NT1*UT[IJ»DSIZE)>NTZ THEN IF NT1*K THEN NT2*NT1 ELSE Kt'O I 05845000 

IF NT1>NS THEN IF NTKM2 THEN BEGIN M2*NTW H*I END J 05645100 

IF P(DUP) GTR I!«I+1 THEN GO F I 05845200 

UT[HJ,0SIZE*NS*M2-NS t 05845300 

IF MU»M2«NT3 THEN UC *N , MAXS IZ I » I F NT2>NS THEN NT2 ELSE NS I 05845400 

GETUSERDISK*UT[H3,DEND-M2; 1 1 »P I 05845500 

S SET OMIT ■ NOTCSHAREDISK ) 05845590 

IF N>0 THEN SCRATCHDIRECT0RYENTERCK»N) ; 05845600 

S POP OMIT 05845601 
IF N*NS«0 THEN BEGIN MOVE ( I *H» t UT[H + U J # t UT[ H J J ) I U[ J J , NUMENT*T*1END I 05845700 

S SET OMIT » NOTCSHAREDISK ) 05845790 

IF Z GTR 1 THEN 05845800 

BEGIN 05845900 
IF DL NEQ AND (Ml OR N) THEN D I SKWA I T( K. DL » USERD I SKBOTTOM ) J 05846100 

DISKWAIT(DL+R.L#Z) I 05846110 

END 05846200 

ELSE DISKWAIT(R»AVS#USERDISKB0TT0M) I 05846300 

S POP OMIT 05846301 

S SET OMIT m SHAREDISK 05846350 

DlSKWAIT(R»AVSfZ); 05646355 

$ POP OMIT 05846356 

IF Q.tFFJ THEN 05846361 

BEGIN 05846362 

Mm*GETAREAC0)]|»(*PCDUP)HLQGLINECCTFm6Lie»41l7J; 05846363 

MC!*Ut«OI 05846364 

QUEVENT(I»CANDYINX)| 05846365 

ENDI 05846366 

* SET OMIT * NOTCSHAREDISK ) 05846370 
Gl FORGETSPACE(R) J UNLOcKCUSERD I SKBOTTOM ) ; UNLOCKTOGC USERDI SKMASK ) J 05846380 

$ POP OMJT 05646381 

$ SET OMIT ■ SHAREDISK 05846385 

FORGETSPACECR) * 05846390 

Gl UNLOCKTOG(USERDISKMASK)) 05646395 

$ POP OMIT 05846396 

Wt END OF GETUSERDISK J 05646500 

05846591 

05846595 

PROCEDURE FORGETUSERDISK(A»N)l VALUE A»N; REAL A»N ; 05847000 

05847010 

X A IS THE ABSOLUTE DISK SEGMENT ADDRESS OF AN AREA N SEGMENTS LONG 05847020 

% WHICH IS TO BE MADE AVAILABLE AGAIN, 05647030 

% N<0 «> MAKE A SCRATCHDIRECTORY DELETION, 05647040 

X N>0 »> DONT MaKe A SCRATCHDIRECTORY DELETION, 05847050 

% N*0 => IMMEDIATELY GO AWAY J 05847060 

05647070 

BEGIN 05847080 

S SET OMIT « NOTCSHAREDISK ) 05847090 

INTEGER DL'fTI ARRAY UC*3l DEFINE UT«U *t 05847100 

$ POP OMIT 05847101 

$ SET OMIT » SHAREDISK 05847110 

INTEGER AVSfF«AVSJ ARRAY UT[*J| DEFINE U«AVTABLE *J 05847120 

* POP OMIT 05847121 

REAL El INTEGER B»C»D» I * J»R# S»H*NT7»K*NT6. L*NT5, G«NT4» T«NT3# QsJUNKJ 058471 30 

LABEL V»WtX»Y,ZiAZ#BZ»CZtDZ ; 05847140 

SUBROUTINE SETSHIFT i 05847150 



BEGIN 05847160 

S»*PCXCH) i 05647170 

t SET OMJT * NOTCSHAREDISK ) 05647180 

UCJliSTARTHRDI«Gl"I*SI IF B>1 THEN GI*D+S+DLJ DI »»30 ; 0584719© 

£ POP OMIT 05847191 

$ SET OMIT * SHAREOISK 05847200 

U[J3,STARTWR0«=I+S? Gl*D+S I 05847210 

$ POP OMIT 058472U 

K»»G+C-1 I 05847220 

END OF SETSH1FT I 05847230 

05847240 
2********************************* 05847250 

05847260 

IF N*0 OR (J*A DI V 1000000)>NEUP.NEUF OR A<USERD I SKBOTTQM+ 05647270 

DISKAVAJLTABLEMAX THEN GO BZ J 05847271 

t SET OMIT * NOTCSHAREDISK) 05847279 

FIXARRAYCU»R»AVS)J 05647280 

$ POP OMIT 05847281 

SLEEPC[T0GLE3»USERDISKMASK)l LOCKTOGC USERD I SKMASK ) l 05647290 

$ SET OMIT » NOTCSHAREDISK ) 05847299 

DISKWAITC-R#-AVS#USERDlSKBOTTOM)l 05847 300 

S POP OMIT 05647301 

IF <D»*U[OJ,MAXSIZ) NEC AND N GTR THEN IF CTWOCJ) AND D) NEfi 05847310 

THEN BEGIN USERD I SKSPEC I ALC ASE( 3» N* U» A ) ; IF NOT P THEN GO DZ END 1 05847329 

J|»J+1 I 05647330 

VI D*CI*(E*UtJI)iSTARTWRD) MOD 30 ; 05847340 

$ SET OMIT * NOTCSHAREDISK ) 05847350 

IF CSl«Kl»CCl«E AND NUMENTM ) + L j ■ I ) GEO C F I * A V S ) THEN 05847360 

BEGIN 05647370 

PCCDLI*IF I LSS 30 THEN ELSE IF CUtOJ AND NUMENTM) LEG 30 05847380 

THEN 30 ELSE 60)+D»DUP» C » +» DUP > DUP ) I 05847390 

IF CF**P-P MOD 30+30) GEO AVS THEN 05847400 

BEGIN USERDISKSPECIALCASE(0tR»UtFIDLtCTFJ)l U*FLAGCP) ENDJQ5647410 

IF I+F>AVTMAX+D+DL THEN GO Y * 05847420 

IF PCDL#0,DUP) THEN PC UT[DL- 13 t XCH) ; 05647430 

DISKWAITC-CR+DL)»F-DL#B»=USERDISKBOTTOM+I DIV 30) I 05847440 

IF P THEN UT[DL"1]I"P(XCH)I K:*P; L»«P I 05647450 

END i 05847460 

$ POP OMIT 05647461 

S SET OMIT * SHAREDISK 05847470 

AVS|«30"CSl»CC»»E AND NUMENTM)+D) MOD 30+S J 05847480 

FlXARRAYCUT#RfAVS)» D I SKWA I TC -R t AVS» B I « I DIV 30+USERD I SKBOTTOM ) j 05847490 

K|«SJ Ll«D) S**I+C J 05847500 

I POP OMJT 05647501 

G*I"<NT2t»CRCUU-n#DUP) AND NUMENTM3+PC XCH) , 5TARTWRD) I 05847510 

S*UtJ+lJ t STARTWRD-S| H*K»K-1| IF UT[T*L J .DENDSA THEN GO X I 05847520 

Wl IF UTIT»CH+L+l)DIV 23,DEND*A THEN IF UT [ H*T»1 3 ,DEND*A THEN GO W ELSI05847530 

ELSE IF UT[T*T+U,DEND<A THEN BEGIN L*T+1J GO ft END ; 05847540 

XI IF CLI«A+ABS(N)) GEO H I *PC UT ( Q l wT 3 » DUP ) , DEND-PC XCH ) . DS I ZE THEN GO ZI05647550 

IF S*0 THEN 05847560 

BEGIN 05847570 

S SET OMIT m NOTCSHAREDISK ) 05847580 

IF G"0 THEN GO YJ PCCG+1) DIV 2) I 05847590 

IF B>1 THEN 05847600 

BEGIN IF D»0 THEN GO Yl IF PCDUP) GTR D THEN PCDtliD) ENDI05847610 

S POP OMJT 05847611 

$ SET OMIT » SHAREDISK 05847620 

IF 6*0 OR D»0 THEN GO YJ IF PCCG+DDIV 2»DUP)>D THEN PC DEL#D) 1 05647630 

* POP OMIT 05847631 

PCSSN); SETSHIFTI MOVEC C * t UT [ G-S 3 3 » CUTC G3 3 ) I Tt*Q|»T*S ; 05847640 



H*ABS(N)J GO AZ I 



I 
I 

I 



else; 



END I 
FOR H*K STEP -1 UNTIL T DO UT[ H+ 1 ] *UT t H] I 
Yl USERDISKSPEClALCASEC2tE»UTt J) I 
$ SET OM[T » NOTCSHAREDISK ) 

UTI»FLAGCP)I RI"UT,[CFJI B««0 I 

4 POP OMIT 

GO V ; 
Z« IF PCUT[Q*Q + n»DUP>,DEND-PCXCH),D$UE<L THEN GO Z \ 
IF P(UTtNTlls8"U,DEND»DUP) LSS L THEN PCDEL#L) 
Hf»CLl*P)"CIF A LSS H THEN A ELSE H) I 
IF NT1 GTR T THEN MOVECK-NU . [UT CO I i » I UT [ T*l ]] ) 
AZl UTm*UH[TODSlZEJJ OCQ*T-G + l ) + C i 

IF(S*S-Q)>T«-IF AVDIFFMAX>T*C DI V 2 THEN AVDIFFMAX ELSE T THEN 
OR S*G>T+C IF AVDIFFMAX>T*NT2 DI V 2 THEN AVDIFFMAX ELSE T) THEN 
ELSE BEGIN 

IF <NTit«F-l»K)«0 THEN GO Y ; 

IF PCCS+G) DIV 2*DUP)>NT1 THEN PCDEL«NTUI SETSHIFT I 

FOR NT1*K STEP -1 UNTIL G DO UT C NT 13*UT [NT 1-S ] I 

END I 
UN]*(NTl*UtJmctTONUMENTJ&UF E*< NT 1 -NT I , MaXSI Z )<H THEN H 

NTt)tTOMAXSIZJ J 

5 SET OMIT « NOTCSHAREDISK ) 

IF B GTR 1 THEN 
BEGIN 

IF DL NEC AND (E OR Q NEQ OR D«30) 
THEN DISKWAIT(R»DL»USERDISKBOTTOM) i 
D!SKWAITCR*DL»F-DL»B) I 
END 
ELSE DISKWAITCR»AVS#USEROISKBOTTOM) J 
S POP OMIT 

$ SET OMIT ■ SHAREDISK 
DISKWAIT(R»AVS»B) I 
t POP OMIT 
t SET OMIT * NOTCSHAREDISK ) 

IF N<0 THEN SCRATCHDIRECTORYDELETECA»-N) ; 
DZ« FORGETSPACE(R)> UNLOCKTOGCUSERDISKMASK); unlockcuseRdiskbottom 
$ POP OMIT 

S SET OMIT * SHAREDISK 
FORGETSPACECR) I 
DZt UNLOCKTOGCUSERDISKMASK)! 

t POP OMIT 
BZl END OF FORGETUSERDISK J 

PROCEDURE KRUNCHERCH3J ARRAY HC*Jl FORWARD! 

PROCEDURE SCHEDLOOK(KTR#TYPE)J VALUE KTRtTYPEI REAL KTR»TYPEI* 
BEGIN REAL Tl »T2»H1 »H2> M5# S»BUFF*Si LL*H2I 
INTEGER I*NT1» J»NT2I 

LABEL NXT#ENDlTtESETC»LOOPtLOOPDi£RRORj 
LABEL STRMI 

IF KTR NEQ THEN GO TO ESETCI «ES»XS»SV»RY 
IF SCHEDTOG THEN SLEEPC [SCHEDWRDJ # -0) J 
SCHEDWRDI*ABS(SCHEDWRD)J 
JF FRSTSCHED'SCHEDNUM THEN GO ENDITI 
TllsCFRSTSCHED INX "F I LOOOO" )&SYSNOt 24 I 42 I 6 J J 
NXTl IF CHll*DIRECT0RYSEARCHCTl#"SCHEDUL"»4)) LSS 64 THEN 
BEGIN Tll*0| GO ENDITI END* 
IF T2 NEQ THEN 
BEGIN MCH2+293 I«Tl I HEADERUNLOCM T2» "SCHEDULE H2) END! 

M[H1*28JI"T2I T2»«T1) H2»*H1J 5l«S*ll Tl l»M[H2+29J I 

IF TYPE THEN IF Ti»0 THEN GO ENDIT ELSE GO NXTl 



0b847650 

05647660 
05647670 
05647680 
05847690 
05647691 
05847700 
05847710 
05847720 
05847730 
05847740 
05847750 
IF J»*05847760 
GO Y 05847770 
05847780 
05847790 
05847800 
05847810 
05647820 
05847830 
05647840 
05847850 
05847860 
05847870 
0584788Q 
05847890 
05847900 
05847910 
05647920 
05847921 
05647930 
05847940 
05847941 
05847950 
05847960 
05847980 
05847981 
05847985 
05847990 
05848000 
05848001 
05848010 
XR5005849900 
05850000 
05850100 
05850200 
05850300 
05650310 
05850400 
05850500 
05850600 
05850700 
05650800 
05850900 
05851000 
05851100 
05851200 
05851300 
05851400 
05851500 



U 



MSi»SPACEUO)l 

II*M[H2*6] DIV 3600; 

STREAMCT2»Ul«MtH2+23 

BEGIN Sil«LOC T2I SI 
D$I«LIT M I"; SIl 
TCDS$*7LIT" AFT 
DSl*LlT"*-»; 

end; 

SPOUTCMS); IF Tl 



JI*I MOD 60; 11*1 DIV 60; 
t!»J»Tl»(I GTR 0)#MS); 
f«SI+5; DS|»6LlT" TASK#"| DSl«3CHR; 

■si*n dsi»7chr; 

er "; dsj*2D£.c; ds i*l i t" !••; dsi«2dec>; 



NEQ THEN GO TO NXT; 
T2»0 THEN FRSTSCHEDt*$CH£DNUM 



ENDITl IF 
ELSE 

begin lstschedi«t2; 

headerunl0ckct2 
end; 
changedate(o)! scheo 

IF TYPE LSS AND 5 

begin; stream(s»tii- 

BEGIN OSf*llLIT 

dsi*4 dec; 

DII"T1I OS 

end; 

SPOUT(Tl); 

end; 

IF TYPEaO THEN % 
BEGIN T1I*SPACE(5); 
IF S»0 THEN 
BEGIN STR£AM(T1 
EUSE STREAM(Tl) 
SPOUT(Ti); 

end; 
P(XiT); 
ESETCI BUFFlwKTR; 

loop; ; 

STREAMCTt«0.LLt*O»KT 
BEGIN SI tvKTRf 

Ll» IF SC*"*-" THEN 
IF SC LSS "0" 
IF SC GTR "9" 
2C40CIF SC*"*" 

L2» dsi»lit"»-"; DI 

3(IF SC LSS "0" 
IF SC GTR "9" 
TALLY»*TALLY+ 
SH"BUFF> BUFFI 
ZCDII"DI*6f DI« 
DSl«BUFF OCT; 

L3I IF SC«" " THEN 
IF SC*"»" THEN 
IF SC*"*-" THEN 

L4« BEGIN TALLYlM 
KTRI«SH 

end; 

KTR|*P; LLl«P> Til 
IF LL*0 THEN GO TO E 
IF TYPE LSS 2 THEN % 
BEGIN 

FORKCPC.SCHEDID 

GO TO loopd; 
end; 
if ll gtr lmax then 



M[H2+291J*0; 

»"schedul"»h2); 
wrdi»nabscschedwrd); 

GTR THEN 
T1I»SPACE(10}); 

" THERE ARE"; Tlf»Dl» SIlaLQC 
0SIW15UIT" TASKS ON DISK*"; 

»«3 fill; 



TS MESSAGE 



s; 



); DSl-20 LIT" NULL TASK 

; dsi*7 lit w end ts* w ; 



SCHEDULE*""; END 



RlZl«(TYPE LSS 2)»BUFF); 

GO TO L4; 
THEN BEGIN SIi»SI+U GO TO 
THEN BEGIN Sll*Sl+i; GO TO 
THEN JUMP OUT 2 TO L2J DSl* 
l*LOC ll; SIlvBUFFI 

THEN JUMP OUT; 

THEN JUMP OUT; 
II Sl!»Sl+t)l 

stally; 

•di-buff;dsi»buff chr; jump 



li end; 
li end; 
chr)); 



OUT TO L3); 



BEGIN Sp-Sj + l; GO TO L3 ENpl 

si i»si+i; 

; totally end; 



■pi 

rror; 

ES OR XS 

LE)»(NOT ) 4LL t CTC J &TYPEC 2I32H63»0, 



go to error; 



05851600 
05651700 
109805851800 
05651900 
05852000 
05852100 
05852200 
05852300 
05852400 
05852500 
05652600 
05852700 
05652800 
05852900 
05853000 
05853100 
05653200 
05853300 
05853400 
05653500 
05853600 
05853700 
05853800 
05853900 
05853950 
05854000 
05854050 
05854100 
05854200 
05854300 
05854400 
05854500 
05854600 
05854700 
05854800 
05854900 
05854925 
05654950 
05855000 
05855100 
05855200 
05855300 
05855400 
05855500 
05855600 
05855650 
05855700 
05855600 
05855900 
05856000 
05856100 
05656200 
05856300 
05856400 
05856500 
05856600 
160,0)105856700 
05856800 
05856900 
05857000 



"J GO TO STRM ENDi 



IF NOT SCHEDLINFtLL] THEN 
ERRORI BEGIN NTll*" INVALI"; NT2»«"D* 

SCHEDBUSYCUDlsTYPEJ 

NTH»IF TYPE THEN « SAVED*-" ELSE " READY*"! 

NT2l«0J 
STRMi 

STREAM(LL#NTl»NT2.MSlsMSl=SPACEC5>); 

BEGIN DSI«6LIT" LINE m l Sj»*LOC LL; DS»*3 DEC; 

2(S!I»SI4H DSIB7 CHR)> 0H«D1*17| US»*2 FILL; 
ENDJ 

SPQUT(MS)* T2»«T2+i; 
LOOPDI IF NOT Tl THEN GO TO LOOP; 

IF CTYPE*2) AND (T2 GTR 0) THEN 

IF SCHEDNUM NEQ FRSTSCHED THEN FORK ( PC , SCHED I DLE ) * 0. 0» 160» 0) 
END SCHEDLOOK; 

PROCEDURE SCHED1DLECADR)? VALUE ADRI REAL ADRJ 
BEGIN 

REAL RCWs+Ol 

ARRAY AC*3i 

REAL LLiNXTSCHED* T 1 » T2» T # T 1ME; 

INTEGER I«NT1* 

LABEL LINKIT. LUKAGN* LINKED* INI Tl # F0RGT1* TERMNATLf 

REMOVlTt EXITR; 
LABEL IN1T» STRTi RPT» RSTRT. FORGET* GOTO* EXIT* 
REAL N1»N2»SCH»FILE; 

REAL CHARGEI INTEGER AFTER; % 

DEFINE PT»At30J# 

. I0"A[31J# 

»DELTA"AC323# 

»N»AC33J# 

.S«A[34J# 

*R«A[353# 

*H»AC36)# 

»NR»A[37}# 

»MR»A[383# 

1 

DEFINE FORGETDISK = 
BEGIN 

FOR Tll«CM[T*9J+9) STEP "»1 UNTIL 10 

DO IF M[T1+T] NEQ THEN FORGETUSERD ISK C M[ T 1 + T i »M t T + 8 i ) I 

end#; 

LABEL DLOUTI 
SUBROUTINE DELINK; 
BEGIN 

IF MIT*283»0 THEN 
BEGIN IF M[T*293»0 THEN 

BEGIN FRSTSCHEDJsSCHEDNUMi CHANGEDATE( ) ; GO DUOUT END 
ELSE BEGIN FRSTSCHED I *M[ T + 29 ] ; CHANGEDATEC 0) END 
END ELSE 

IF (T2l*DIRECT0RYSEARCH(M[T+28],SCHi4)) GEO 64 THEN 
BEGIN M[T2*29J|«M[T*29J| 

HEADERUNL0CK(MCT*26J»SCH»T2); 

end; 

if mt7 + 29j«0 then begin lstsched i *m[ t + 28 j ; changedatec ) end 

ELSE 

IF (T2I«DIRECT0RYSEARCH(M[T+29J»SCH»4)) GEO 64 THEN 

BEGIN M[T2+28]l»MtT+28j; 

HEADERUNL0CK(MtT+29J,SCH»T2); 
ENDI 



05857150 
05857160 
05857170 
05857180 
05857190 
05857500 
05857550 
05857600 
05857700 
05857800 
05857900 
05658000 
05858400 

I 05858500 
05856600 
05858700 
05658800 
05858900 
05859000 
05859100 
05859200 
05859300 
05659400 
05859500 
05859600 

09805859610 
05859700 
05859800 
05859900 
05860000 
05860100 
05860200 
05860300 
05860400 
05860500 
05860600 
05860700 
05860800 
05860900 
05661000 
05861100 
05861200 
05861300 
05861400 
05861500 
05861600 
05661700 
05661600 
05861900 
05862000 
05862100 
05862200 
05862300 
05862400 
05862500 
05862600 
05862700 
05862800 
05862900 
05863000 



DLOUTl 
ENDI 

DEFINE MYSTACK * 

CtRCWJ INX NOT 



3),[CF3#I 



LLl*ADR,CCF3l SCH»«"SCH 

IF ADR, [111] THEN GO TE 

IF ADR. [2113 THEN GO LI 

IF LL»0 THEN GO TO I N I T 

% "GO TO RECORD", .. MAY BE 

SYSDISKI0(1,-LL»AI 

MlMtlJl T1»«AC23 

FORGETAREA(l»A INX 

NXTSCHED»«-(T1,CCF 

IF CTt«SEOARRAY[LL 

IF SCHENDCLL3 THEN 

Al*CM[T3Jt80[8»36l 

IF N0TCAt723.Cl«lJ 

At723»*ABSC*P<DUP) 

IF NOT(AC323.U«l3 

AC323l*ABS(*P(DUP) 

A[373»«N2,CCF3l AC 

GO TO GOTOI 
X LINK IN NEW SCHEDULE TASK 
LINKITH 

IF 

SCH 

NXT 
PCDIRECT 

IF 

BEG 

MCT 

HEA 

IF 

TJI 

IF 

IF 

lukagni if 

BEG 



EDUL"! FILE»«"F I LQOOO"&SYSNO[ 24 I 42 I 6 3 I 

RMNATEJ 

NKjTl 

J 

RESTART ALSO, 

»<I00UE*C6ETAREA(1)+1)[CTCJ>)I 

I N2 1 *AC 3 3 1 

NOT 0)1 
3)1 

],ccfj) lss 512 then go to rstrtl 
go exit; 

1031 

) THEN SLEEPC 

); 

) THEN SLEEPC 

)l 

773l»N2.[FF3l 



[A[7233i-0)l 
CA[32J3**0)I 



LINKEDII 



END 

IF 

BEG 



END 

MCA 

ENT 

Tli 

STR 

BEG 

SCH 

IF 

BEG 

ELS 

IF 

CHA 

IF 



SCHEDTOG THE 
EDWRDI«ABSCS 
SCHED*»SCHED 
ORYSEARCH(NX 
CTt«DIRECTOR 
IN TlsADR! F 
♦63*»(NOT 0) 
DERUNL0CK(M[ 

FR$TSCHED*SC 
*LSTSCHED IN 
C T IMe * «Mr ADR 

ctimei»xcloc 

CN1 I«D1RECT0 
IN IF T2 NEQ 
SCHEDWRD*» 
T2!«s0l GO 
J 

MCN1+6J GTR 
IN IF T2 NEQ 
T2tPTH N2 
IF (Tll«MC 

; 

DR + 283 t*TH 
ERUSERFILEC- 
SCHEDNUMJ 
EAM(A1»«1» A 
IN SIt*LOC A 
EDNUMIbIF T, 
Tl NEQ THE 
IN MCNJ+293I 
E FRSTSCHEDI 
T2»0 THEN LS 
NGEDATE(0)> 
T2 NEQ THE 



N SLEEPC 

CHEDWRD) 

NUM INX 

TSCHED»S 

YSEARCH( 

ORGETDIS 

&NXTSCHE 
ADR+53»M 

HEDNUM T 

X FILE! 
+6])*0 T 
K) LSS i 
RYSEARCH 

THEN 
NABSCSCH 
LINKITJ 



[SCHEDWRD3,-0)> 

I 

FILE* 

CH»6),DE 

MUDK + 53 

Kl FORGE 

DCCTCJ* 

CADR+23t 

HEN GO T 



:di 

t-M[ADR+23»4)) LSS 64 THEN 
TSPACECT)* GO EXITR ENDI 



T)l 

LINKED* 



HEN 

728000 T 
<T1»SCH» 
HEADERUN 

EDWRD3I 



TIME THEN 

THEN HEADERUN 
I*N1I 
N2+283) NEQ TH 



HEN TIME»*bl840QO; 
4)) LSS 64 THEN 
L0CK(T2»SCH»N2); 
SCHEDL00K(0,1)I 



L0CK(T2»SCH»N2)| 
EN GO LUKAGNI 



M[ADR+29Jt»T2J 
NXTSCHED#SCH»ADR,CCF3-1)I 



2«»[TJ)I 

II DS|«8 ADD END 

CCF3-0 THEN 1 EL 

N 

•NXTSCHED* HEADE 

■NXTSCHEDI 

TSCHEDI*NXTSCHED 



N 



I 

se t; 
runl0ckct1#sch,n1) end 

I 



05863100 
05863200 
05863300 
05863400 
05863500 
05863600 
05863700 
05863800 
05863900 
05864000 
05864100 
05864200 
05864300 
05864310 
05864400 
05864500 
05864510 
05864600 
05864700 
05864800 
05864900 
05865000 
05865100 
05865200 
05865300 
05865400 
0586550Q 
05865600 
05865700 
05865800 
05866000 
05866100 
05866200 
05866300 
05866400 
05866500 
05666600 
05866700 
05866800 
05666900 
05867000 
05867100 
05867200 
05867300 
05667400 
05867500 
05867600 
05867700 
05867800 
05867900 
05868000 
05868100 
05868200 
05868300 
05868406 
05868500 
05868600 
05868700 
05868800 
05868900 



BEGIN MlN2*28Jl*NXTSCHEDJ HEADERUNLOCK ( T2» SCH# N2 ) END; 05869000 

PORGETSPACE(ADR)! 05869100 

ADRl*0* 05869200 

GO TO INIT1I 05869300 

% END OF LINK IN NEW SCHEDULE TASK 05869400 

INITII IE SCHEDTOG THEN SLEEP( [ SCHEDWRD i » -0 ) ; 05869500 

SCHEDWRD »«ABS( SCHEDWRD); 05869600 

INITJM IF CNXTSCHED?«FRSTSCHED)*SCHEDNUM THEN GO EXITRJ XR69058697Q0 

LL»«QJ XR8905669750 

IF CTIMEI»XCL0CK) LSS 1728000 THEN T I ME I »5164000; 05869800 

STRTll IF LINEDISCUL!*LUU * SCHED THEN GO TO EXITRJ 05869900 

IF STATABLEtLU.DULEDUP THEN GO TO STRTI 05870000 

IF SCHEDBUSYELU THEN GO TO STRTJ 05870100 

IF SEQARRAY[LL3 NEQ THEN GO TO STRTl 05870200 

SEQARRAYELUiMl 05670300 

RPTt IF NXTSCHED»0 THEN 05870400 

BEGIN SE«ARRAY[LL3»»0; GO EXJTR END; 05870500 

TlisNXTSCHED INX FIUE; Nll*N2l=0; 05870600 

RSTRTM IF (Tl*DIRECTORYSEARCH(Tl*SCHf 4)) LSS 64 THEN 05870700 

IF NXTSCHED LSS THEN 05670600 

BEGIN AI«CM[SPACEC10)}U10[Bl38llO)l 05870900 

GO TO F0RGT1I 05871000 

END 05871100 

ELSE 05871200 

BEGIN SEQARRAY[LL3l«0; LLi*OJ 05871300 

ITRY TO RESTORE QUEUE 0587J400 

SCHEDWRDI*NABS(SCHEDWRD)> SCHEDLOOK( 0, 1 ) I 05871500 

GO TO INITI 05871600 

END* 05871700 

IF NXTSCHED GEO THEN 05871800 

BEGIN NXTSCHEDI»MCT + 29MCFJJ 05871900 

IF TIME LSS M[T*63 THEN 05872000 

BEGIN HEA0ERUNL0CK(T1»SCH»T>1 05872100 

SEOARRAYCLLJisOj GO TO EXITR 05872200 

ENDJ 05872300 

IF MCT + 6M2I1J THEN *ITS BEING TERMINATED 109805872400 

BEGIN HEADERUNL0CK(T1#SCH»T)I GO TO RPT END; 05872500 

DELINK; 05872600 

ENDI 05872700 

A I »C M t SPACE ( 80) J 3 880 1 81 36|103 I 05872800 

A[03l*0j M0VEC79tA»A INX t)J SZERO OUT ARRAY 05872900 

DISKWAITCCA INX 40)»30iM[T INX 103)1 XFILL BUFF 05873000 

A[703l»Tl,[CF3> iSCHEDULE NUMBER 05873100 

A[713««IOMASKJ 05673200 

A[743l«M[T INX 83JIR0W LENGTH OF IP FILE 05873300 

A[753I«M[T INX 103JSADDRESS OF 1ST ROW 05873400 

AC763l»T ( tFF3l UDDRESS OF HEADER 05873500 

A[773l8N2,[FFJ; 05873600 

A[76J|*M(T INX 73+2; XNUMBEN OF RECORDS 05873700 

AC373l*N2,tCF3; 05873800 

NH«MCT INX 23; XGET USERCODE 05873900 

N2l»M{T INX 53; *GET 0/P FILE NAME 05874000 

AFTERI-ABSCMCT INX 63) DIV 3600; XTIME AFTER IN MIN X09I0587401Q 

CHARGEI«M[T INX 273; XCHARGE CODE X09805874020 

FORGETSPACE(T); 05874100 

IF (T»»DIRECT0RYSEARCH(N2#-N1»2)) LSS 64 THEN 05674200 

BEGIN 05874300 

forgetl ti»direct0rysearch(t1»sch»8); 05874400 

forgetdisk; forgetspace(T); 05874500 

if nxtsched geo then 05874600 



BEGIN FORGETSPACE(A); GO TO RPTJ END* 05874700 

EORgTH SYSDISKI0(3»"LL,A)* 05874600 

A(03,DIALEDUPl*Ain*«0j 05874900 

SYSDISK!0(0.-LU»A)J FORGETSPACEt A ) J 05875000 

GO TO EXIT! 05875100 

END? 05675200 

IF NXTSCHED GEO THEN 05875300 

IF M[T+4J,[3616]bTYPEINF0 THEN 05875400 

BEGIN FORGETSPACE(T); 05875500 

FQRGETSPACE(DJRECT0RYSEAKCH(N2»N1»12))I 05875600 

GO TO FORGET 05875700 

END ELSE BEGIN 05675800 

DlSKWAITCT,[CF]»30»T,[FF))i 05675650 

MtT+4J,t36l6JI«TYPEINF0J 05875900 

D!SKHAlT(T,CCFJt30fT,tFFJ)J 05676000 

STREAM(A)I 05876100 

BEGIN DSl«21 L1T"Y0UR TASK IS RUNNING,"} 05676200 

DS»*51 LIT " "J DSlse LI T w 0000000l"l 05876300 

20(DSfs8LIT " H )J 05876400 

END* 05676500 

At323»«10J A[37]I*U 05876600 

ENDJ 05876700 

A[3llt*I0MASKI 05876800 

AC34J l»MCT INX 63J 05876900 

At353«*MfT INX 10 J I 05877000 

AC36JJ*T,[FFJI 05877100 

A[38]J«A[343xM[T INX 9],t40l8]x3J * MAX NUM OF OUPT RECS05877200 

FORGETSPACE(T)! 05877300 

IF NXTSCHED LSS THEN 05877400 

BEGIN 05877500 

GOTOll IF AC37] GEO At 38] THEN At 37 3 |«At 38 3* 11 05877600 

IF CN2t*C At 37 3> DI V 3) NEO At 333 THEN 05877700 

BEGIN A(37]t"CA[331f"N2)x3f At323l*0J 05877800 

IF C A C 31 J AND IOMASK)«0 THEN 05877900 

SUEEPC t At 31 J 3»I0MASK)J 05878000 

DISKWAIT(-A,ICF ]»30»At36J); 05878100 

IF (N2l*At( I 1«N2 01 V A t 34 3 >♦ 1 03 3*0 THEN 05878200 

GO TO FORGET! 05878300 

A[353l*N2»dxAt34J)* 05678400 

ENDJ 05878500 

IF At773 GEO A1783 THEN Al773l*At783 05678600 

ELSE 05878700 

BEGIN At723l*(I |»(At773"l) MOD 33MOJ 05878800 

IF CN2«*CAt773-l) DI V 3) NEO A1733 THEN 05878900 

BEGIN AC733t»N2| 05879000 

IF (At7U AND IOMASK)*0 THEN 05879100 

SLEEPCtAC7t33»l0MASK)| 05879200 

DISKWA1TCCA INX 40) » 30» At 763 ) J 05879300 

IF CN2l*A[(II»N2 DI V A t 743 )+50 3 )»0 THEN 05879400 

At773l»At783 05679506 

ELSE BEGIN 05879600 

At75Jl"N2-(lxAt74])| 05879700 

DISKI0(AI713t*(A INX 39)»30»N2)I 05879600 

ENDJ 05879900 

ENDJ 05680000 

ENDJ 05880100 

IF SEQARRAYCLL3.tFF3»Q THEN 05880200 

BEGIN STATABLEtLL3,DlALEDUPIM! 05860300 

At323l«NABS(*P(DUP))J At 72 J I *NABS< *P( DUP) ) I 05880400 

IF SEOARRAYILLJ GEO THEN GO TO EXITJ 05880500 



SrQARRAYtLU I* ABSC *P C DUP ) ) I 05680600 

F0RKCP(,SCHEDI0)» C-LL)# 0» Of MrSTACK)) 05680700 

GO TO NOTHINGTODOl 05880800 

END; 05680900 

END! 05881000 

CONNECTCLL)* 05881100 

SEQARRAYCLUisA.KN; 05881200 

T »* GETAREA(O); 05881300 

MtTJl«0*9[18l41 I7HLU25U0I8JI 05881400 

MtT*J]l«NUlt2U7llJ4NXTSCHED[lll«lJl 05881501 

IF (N2«*0IRECT0RYSLARCH(Tl J NX F1LE#SCH>5)) NEG THEN 05881510 

BEGIN 05881520 

M[T+2J |» M[N2 INX 53; 0588153© 

F0RGETSPACECN2); 05881540 

END 05881550 

ELSE MtT+23 |* NOT 0; 05881560 

M[T+3Jl»CHARGE> 05881570 

QUEVENT(T,tCFJ#CANDEMIXCLLJ)l 05881600 

AC32}I«NABS<*P(0UP))I A t 72 ] » *NABS( *P( OUP) ) I 05881706 

Tl*SPACE(30)| I » "AFTER MOD 60* X09805881600 

STREAM(NI#LL»CHARGE»AFTI"(AFTER 01 V 60)»Ii X09805881810 

X»*(NOT CHARGE). CllU»Y»B(AFTER NE« 0)»T); X09805881820 

BEGIN DSl«UlT n "I SH*tOC NU SlJsSl + ll DS?»7 CHRl 05881900 

DSt*5UT" ON "; TlsDH DSI«3DEC* DS « *2L I T n -S w I X09605882000 

X(DS»*LIT M C W » SH«SI+i; DSl*7CHR> DS»*LIT W ) W ); X09805882020 

Y(DSl»LlT"t M ; SUsLOC AFT; DS»*2 DECS S09805882040 

DSi*LIT"l M ; DS»*2 DEC; DS * »L I T" 3" ) ; *O98O5682O60 

DSl«LlT LEFTARROWI D I I »T S DSl*2 FILL; S098058821Q0 

END! 05882200 

L0GLlNEl*ei000+LU SPOUTITCT.INOUTK); 05682300 

IF NXTSCHED LSS THEN GO TO EXIT; 05882400 

SYSDl5KI0C3»-LUCA»«A&(GETAREACl)+l)tCTCJ)>I 05882500 

AtO] f DIALEDUPl*i; AUJf'Nll A[23l*TU AC33l«i; 05882600 

SYSDISKlO(0#-LL.A); FORGETAREAC I * A INX NOT 0)> 05882700 

GO TO STRTI 05882800 

X END INITIATE/GOTO 05882900 

TERMNATEU IF ADR.CFFJ NEQ THEN GO REMOVIT; 05883000 

X TERMINATE A RUNNING TASK 05683100 

IF SCHENDtLU] THEN GO EXIT; SCHENDC LL 3 1 *1 ; 05883200 

At«[M[SEOARRAY[Ul3 3 3&80[6|36tl03; 05883300 

IF NOT(A£723,tllU) THEN SLEEPC I AC 72 J 3 # -0 J ; 05883400 

AC723l*ABS(*P(DUP)); 05883500 

IF NOT(A[323,tlll3) THEN SLEEPC t A[ 323 3 i -0) ; 05883600 

A£323l*ABSC*P(DUP)); 05883700 

IF DELTA NEQ THEN DI 5M0C 10. A, UF J"l # 30»R + N) ; 05683800 

IF (A[713 AND I0MASK)«O THEN SLEEPC t A£ 71 3 J » I OMASK ) ; 05883900 

SYSDlSKlQC3t»LL»40 INX A); 05884000 

TH»At423; XSAVE NAME OF SCHEDULE IP 05684100 

At403,DIALEDUPl«A[4n«»A[423l*A[43 3»*SEQARRAY[LL3»sO; 05884200 

STATABLECLL3tOlALEDUPl*0; 05664 300 

SYSDISKI0(0»"LL»40 INX A); 05684400 

T»*DIRECT0RYSEARCH(T1#SCH»8);*DELETE DIR ENTRY 05884500 

N1I»M[T INX 23J N2l»M[T INX 53; 05884600 

forgetdisk; forgetspacect); 05884700 

if (10 and iomask)*0 then sleepc c i 3 * i omask ) ; 05884808 

F0RGETSPACE(DIRECT0RYSEARCH(N2»N1»12)); 05884900 

IF CT|(*DIRECT0RYSEARCH(N2»N1.4)) GEO 64 THEN 05885000 

BEGIN DISKWA!TC-A,tCF3»30*CTlleMlT INX 103)}; 05885100 

STREAMCA); 9CDSl»8 LIT " » ) ; 05885200 

DISKWAlTCA,[CFJi30#TU{ Tli*NR"i; FORGETSPACEC A ) ; 05865300 



A . t CF 3 I »=T i A[7Jl*TlJ A[bJ |sA[6Jl*0> 05885400 

TllsACUJ A[l]a*A[8j; 05885420 

S SET OMIT • NOT SHAREDISK 05685430 

AC43l«(*P(OUP)) OR 11 05885440 

$ POP OMIT 05885450 

KRUNCHER(A)! All3i«Ti; 05685460 

t SET OMIT s NOT SHAREDISK 05885470 

At4]fs(*P(DUP>) AND NOT II 05885480 

$ POP OMIT 05885490 

HFADERUN10CK(N2.N1.T); 05885500 

END ELSE FORGETSPACECA)! 05665600 

ADRI»Q; 05885700 

IF FRSTSCHED NEfi SCHEDNUM THEN GO TO INITI 05885806 

GO TO EXIT! 05885900 

% END TERMINATE A RUNNING TASK 05886000 

REMOVITll 05886100 

* TERMINATE A SCHEDULED TASK 05886200 

% OR LINK IT IN FRONT (XS) 05886300 

IF SCHEDTOG THEN SLEEP< [ ScHEDWRD 1 » -0) I 05886400 

SCHEDWRDI*ABS(SCHEDWRD)J 05886500 

Tt««ADR INX HLEI 05886609 

IF (TI«DIRECT0RYSEARCH(T1»"SCH»4)) GEO 64 THEN 05886700 

BEGIN 05886600 

IF (Nl»»ADR,n6l2])NE« 3 THEN % ES OR XS K£YIN 05686900 

BEGIN! STREAMCNlt Tl »N2 » »N2 1 »SPACE C 10) ) I 05887000 

BEGIN DSI*6LIT" TASK!"; SH»LOC Til 05887100 

SItwSI*5! DS»»3 CHRI 05887200 

N1(DS|*7HT" RESET*"; JUMP OUT TO L)l 05887300 

DSi*9UIT H REMOVED*"; 05887400 

L» ENDI 05887500 

SP0UT(N2)J 05887600 

IF Nl THEN * XS — RELINK IT 05687700 

BEGIN M[T+6J«*NABS(*P(DUP))J X09805887800 

IF Tl f fCF3*FRSTSCHED THEN 05887900 

HEADERUNL0CK(T1»SCH»T) 05888000 

ELSE 05888100 

BEGIN DELINK; M[T+28Jl«0l 05888200 

M[T*29]l*T2l*FRSTSCHEU INX FILE» 05888300 

HEADERUNL0CK(T1#SCH»T)I 05888400 

FRSTSCHEDI«TH CHANGEDATE ( 0) J 05888500 

IF <Tl»DIRECT0RYSEARCH(T2»SCH»4)) 05888600 

GEO 64 THEN BEGIN MtT*28J|»Tll 05888700 

HEADERUNL0CK(T2»SCH»T); 05888600 

ENDI 05888900 

END> 05889000 

ADRI*0J 05889100 

GO TO INIT1! 05889200 

ENDI 05889300 

END! 05889400 

DELINK; 05689500 

IF (N1I*DIRECT0RYSEARCH(M[T+5]»M[T+2J»4)) GEO 64 THEN05889600 

BEGIN IF CM[N1*7J OR M[Nl + 4 J , f 36 I 6 J )«0 THEN 05889700 

BEGIN; STREAM(Xt»ADR, [ 1 7 1 1] »N2 | »N2 I «SPACE( 10) ) ; 05689600 

BEGIN DSI»19 UIT W TASK TERMINATED BY "; 05689900 

X(DSI«8 LIT"USER "IJUMP OUT TO L)l 05890000 

DS»*8 LIT W 0PERAT0R M ; 05890100 

Ll DSl*53 LIT" "; 05890200 

ENDI 05890300 

DISKWAIT(N2»10»M[N1>10J)» 05690400 

F0RGLTSPACE(N2)I 05890508 



END 

ELSE 

BEGIN 



END) 
MtNW 
MINI* 
HEADE 
END! 

FORGETSPAC 
FORGETOISK 

IF (N1»»AD 

) STREAM(N 

BEGIN DSI* 

SI l»S 

N1CDS 

LI Z(DSl 
DSl»l 



4], [36163 !■ 63) * "ABORTED" 

53l*M[Nl+6j|*Q) 

RUNLOcK(MtT+5J#MtT+23»Nl)J 

E(DIRECTORYSEARCH(Tl»SCH»8))J 
) FORGETSPACECT); 

R,[16i2])NEQ 3 THEN % ES OR XS KEYIN 

l»?l»ZlvT«(lll]«N2|aN2l*SPACEC10))l 

6LIT",TASK#") SlI'LQC Tl) 

1+5) DS«*3CHRl DSI*5LJT" NOT "1 

t«5UT"RESET"> JUMP OUT TO L)) 

LIT"REMOVED") 

*9LIT"(IN USE)*") JUMP OUT TO L 1 > I 

4LIT"CN0T ON DISK)*") 



ENDI 
* END TERMINAT 
EXITRII SCHEDWR 
EXITH KILLCCR 
END SCHEOIDLEJ 
PROCEDURE SCHEDlOCN 
VALUE ADR#NUM#TYPEJ 
BEGIN 

REAL RCW**0> 
ARRAY AC*3) 
REAL LL»T) 
REAL LS1Z»LL» K 
BOOLEAN FOLDING 
LABEL RDSTRT» F 
DEFINE PT-AC3Q3 
• IO*At3H 
»DELTA*AC32J 
»N«AC333 
»S»AC343 
•R*AC3S) 
*H"AC363 
»NRwAC373 
*MR*AC383 
I 



Lit 

END) 

SPQUTCN?)) 

ING OF A S 
DI*NABS(SC 
CW] INX NO 

UM#TYPE«AD 
REAL ADR» 



CHEDULED 
HEDWRD)) 
T 2)) 



TASK 



R)) X*IF FORttUED 
NUM»TYPEI 



THEN ONLY 1 PARAM. 



*U1» LAS« 

wLAS+ll 

RSTRD» RO» 

# 

# 

* 

t 

t 

* 

# 

# 



K + l) % USED ONLY FOR WRITING. 
% USED ONLY FOR WRITING, 
WRJTAGN* UPDATE. UNLOCKJTf EXIT* 



IF (LLI«ADR,[FF])«0 THEN 

BEGIN LLI«ADR*CCF]) ADR)»0) GO TO FRSTRD END) 
IF SCHENDULJ THEN P(XJT)) 
AI*[M[SEUARRAY[LL]3 3&80[8t38j 10 3) 
IF ADR, tltn THEN XJNPUT 
% READ 

BEGIN AI»4Q INX A) GO TO RD) 
RDSTRTll IF NOT SCHEDLI NEC LLl »LL« 1 J THEN GO TO EXIT) 
IF STATABLECLLJ.DIALEOUP THEN 
IF SEOARRAY[LL3,[H2J*2 THEN 
BEGIN SEQARRAYILL],U»ni*LOGLINEJ»Q) 
FRSTRDU AI«[M(SEQARRAYCLL) INX 403 3&80[ 8 « 36 U 03 ) 

GO TO RD) 
END) 

GO TO ROSTRT) 
RDI IF NOTCDELTA.IHU) THEN SLEEPC I DELTA] »-0 ) ) 



05890600 
05890700 
05890800 
05890900 
05891000 
05891100 
05891200 
05891300 
05891400 
05891500 
05891600 
05891700 
05891800 
05891900 
05892008 
05892100 
05892200 
05892309 
05892400 
05692500 
05892600 
05892700 
05892800 
05892900 
05893000 
05893100 
05893200 
05893300 
05893400 
05893500 
05893525 
05893550 
05893600 
05893700 
05693800 
05893900 
05894000 
05894100 
05894200 
05894300 
05894400 
05894500 
05894600 
05894700 
05894800 
05694900 
05895000 
05895100 
05895200 
05895300 
05895400 
05895509 
05895600 
05895700 
05895800 
05895900 
05696000 
05896100 
05696200 
05896300 



DELTAl=ABS(*P(DUP)); 05696400 

IF (10 AND I0MASK)«Q THEN SL£EP( C 10 J • I OMASK } J 05896500 

IF <NRl«NR+i> GEO MR THEN *EOF 05896600 

IF (ADRlPADR.tCF J)*0 THEN USE REQUEST 05896700 

IF NR GEQ MR+2 THEN 05896800 

AtD£LTAll«e2270253737373737 *BYE,,.,, 05696900 

ELSE XSFND PLAIN LEFT ARROW FIRST IN CASE 05897000 

AtDELTAJ»*N0T *WE ARE IN SEQ MODE.,, 05897106 

ELSE BEGIN 05897200 

DELTA»»NABS(*P(DUP))» TERM I NATECP1 M I X ) J 05897300 

TFRMINALMESSAGE(«8) 05897400 

END* 05697500 

ACDELTA+9J|«(N01 0); 05897600 

IF ADR NEC THEN INORMaL STATE PROGRAM 05897605 

IF NUM GTR THEN XQUESTION MARK REQUIRED 05897610 

BEGIN Tl«P1437000000000000l 05897612 

SCHEDI0(2»QUCCTF ]»UTJINX(0&LL[CTM)))> 05697614 

END ELSE NUMl»ABS(NUM)J 05897616 
SCHEDI0C72.1 OR M»(A INX DELT A HLLCC TF J ) J *WRITE IT OUT05897700 

IF ADR*0 THEN U&E REQUEST 05897600 

BEGIN ADR«*GETAREA(2)» 05897900 
MtADR]l»0&LLtl0l40l8H9[2j44l43l XSIZE AND MESSEND 05898000 

STREAM(SSj*[AtDELTA3J»DDl*AOR&7[CTF3)i 05898106 

BEGIN S I I »SS I DH"DI + ll 05698200 

LI IF SC*LEFTARROW THEN 05898300 

BEGIN DI»*DDI 0II-0I+1) 05898400 

DS»»CHRI 05898450 

END ELSE 05898509 

BEGIN IF SC NEQ " " THEN DDI»DH 05898600 

DSl«CHRJ GO TO LI 05898700 

ENDI 05898800 

END? 05898950 

GIVEAWAYCADR)! 05899000 

ADR*»0l 05899100 

END ELSE XNOT C&E REQUEST 05899200 

BEGIN STREAM(NNl»IF (Tl*NUM GTR 9) THEN 9 ELSE NUM. 05899300 

TlelF T THEN NUM-9 ELSE 0» SSJ«(A INX DELTA). 05899400 

ADRI«ADR|CCF J ) I 05899500 

BEGIN SIIbSS; DSl«NN WDSl T(DS»«8 LIT" «) ENDI 05899600 

ENDI 05699700 

IF (DELTA»kDELTAM0)*30 ThEN*END OF DISK SEGMENT 05899800 

BEGIN IOt*DELTA»*Oj 05899900 

IF (Nl«N*l) MOD S * THEN XNEW ROW 05900000 

BEGIN DISKWAIT(-A,[CF]»30#H>J 05900100 

Rt"AtCN DIV S)+103»NJ 05900200 

ENDI 05900300 

DISKI0(I0»Cl-A.tCF3)#30«R+N) 05900400 

ENDI 05900500 

DELTA1*NABSC*P(DUP))I 05900600 

IF ADR'O THEN GO TO RDSTRTI 05900700 

PCX I T) I 05900800 

ENO? 05900900 

WRITE 05901000 

P<OtO»0)l * K, LASt FOLDING 05901020 
IF TYPE, till] THEN P(XIT); % J/2ASC 1 1 STUFF NOT ALL0WED05901040 

IF NOT (DELTA, [111]) THEN SLEEP( £ DELTA J » -0 ) I 05901060 

DELTA»wABS(*P(DUP))J 05901080 

ADR»*ADR,CCFJ| 05901100 

IF (LASt*TYPE»C2in) OR TYPE, IFF) OR NUM GTR 72-PT THEN 05901120 
BEGIN Kl«T»«ADRl * SCAN FOR * OR END OF DATA 05901140 



DO BEGIN 05901160 

STREAMCLASt T, K I H«IF NUM GTR 63 THEN 63 ELSE NUM ); 05901 180 

BEGIN SItwKJ 05901200 

KCI »*CJ+LAS; GO TO L; 05901220 

IF SC*"* n THEN 05901240 

BEGIN TfwSIl TALLYt*l; 05901260 

UUMP OUT; 05901280 

ENDI 05901300 

Lt IF SC*" w THEN BEGIN SII»5I*1J Tl«SI END ELSE 05901320 

SIt"Sl+l)J 05901340 

LASl«TALLY; K|»SH 05901360 

END; 05901380 

K|*P; TI»PJ 05901400 

END UNUL P OR (NUMl*NUM-63) LEO 0> 05901420 

NUMl»T,C30l3H(T»AOR)t30l3 3lt53l 05901440 

END! 05901460 

writagni if nr geo mr then go unlockit; x dont write if full 05901500 

if (10 and i0mask)*0 then sleepc [ i q 3 # i omask ) ; 05901550 

if (delta)*0 then 05901600 

begin; streamcai*a«[cfj); 05901700 

BEGIN DSl*8 LIT" "; S|I>AI DSt*29 WDS END; 05901800 

END; 05901900 

NR»«NR+U Tt«A INX DELTA? 05902000 

STREAM(NN»»NR» Tll*T+9)J 05902100 

BEGIN SIt'LOC NN; DSt»8 DEC; END; 05902200 

IF NR+10*MR THEN X CONSIDER THE FILE FULL 05902300 

BEGIN 05902400 

STREAMCT); DSl«22 LIT"**END OF SCHEDULE TANK"; 05902500 

IF Atm LSS At78] THEN A[ 111 I «A£ 78 J ; % FORCE EOF ON INPI05902600 

IF P1MIX GTR AND Pi MI X*CANDY JNX THEN 05902700 

IF DATCP1MIXJ.NDSABLE THEN BREAKUL3l«l ELSE 05902800 

TERMlNATE(PlMlX«67tCTFJ); 05902900 

END 05903000 

ELSE BEGIN 05903100 

IF FOLDING THEN % INDENT THE LINE 05903150 

BEGIN STREAM(T); BEGIN DU*D1 + 10; DSl*2 LIT"xx"; END; 05903200 

PTl»12; 05903250 

END; 05903300 

IF FOLDINGI«C(K|»NUM) GTR CLSlZl «72"PT ) ) THEN 05903350 

BEGIN STREAMCADRJ Q|»LSlZ-2» til » *P( DUP ) , [ 39 t 3 3 » 05903400 

II«IF NUM>LSIZ*34 THEN 24 ELSE LSIZ+58-NUM, Dl*T*9); 05903450 

BEGIN SllsADR; 05903500 

Ql(SIl*Sl+32; &I»«SI+32); SIjpSI+Q; 05903550 

DII*DI-2; TALLY|«2; 05903600 

ICIF SC" W M THEN UUMP OUT TO L; 05903650 

TALLYl»TALLY+i; SII»SI"U DIt«Dl"l)J 05903700 

D 1 1 »D 1*1 1 TALLY|»2; 05903750 

Ll DSl*2 LIT^xx"; ADRjsTALLY; 05903800 

END; 05903880 

KIbLSIZ-P(XCH); 05903900 

ENOJ 05903950 

STREAMCADRI K, I • »K GTR 64» D I «( T + PT , C 40 I 53 ) &PT[ 30 I 45l 3 J ) ; 05904000 

BEGIN SItwADR; DSt«K CHRJ 05904050 

KDSl»32 CHR; DSl*32 CHR); 05904100 

ADRl*Si; 05904150 

END; 05904200 

ADR»»P; 05904250 

IF FOLDING THEN 05904300 

BEGIN 05904350 

UPDATEI IF (DELTAI«OELTA INX 10)*30 THEN 05904400 



t SET OMJT * SHAREDISK 
* POP OMIT 



S SET OMIT * SHAREDISK 



BEGIN lO««DELTAtsOj 

DISKIQCIQ>A,[CFJ-1»30»R*N)> 
IF C(NI»N+1 ) MOD S)sO THEN 
BEGIN RtsGETUSERDISK(-S)-N» 
SLEEP(IIOJ»IOMASK); 



$ POP OMIT 



LOCKDIRECTORY; 

DISKWAlT(-A»tCFJ»-30iH)> 
At CN DIV S)+103l*R+NI 
DISKI0CI0»AitCF]»lf30»H)? 

UNLOCKDIRECTORYJ 



END 



INX TYPE) ,CCF3 * THEN 



ENDJ 
IF FOLDING THEN 
BEGIN NUM»*NUM-M 

GO WRITAGN; 
ENDI 

IF (TYPE«*(NOT 0) 
BEGIN NUMi*Ol 

go writagni 

end; 

PTJ*0> 
END ELSE 
IF TYPE.CCFJsQ THEN 

begin nr»»nr-1j 

delta,[ff]i»pioo; 

PT|»PT+K> 
END ELSE GO UPDATE? 
ENDJ 
UNtOCKITi 

DELTAl»NABSC*P(DUP))J 
P(XJT)I 
EXITU KIUKCRCWJ INX NOT 2); 
END SCHEDIO* 

PROCEDURE OKBUSINESSCBUFFJJ VALUE BUFF* 
BEGIN 

REAL RCWw+0# 

MID»RCW+i» 

FID"MID+1# 

TMID-FID+U 

TFID«TMID+1» 

A*TFI0+1# 

b*a+i; 

INTEGER N«B+1> 
ARRAY HD«N + H*3l 
BOOLEAN RDT«HD*1J 

INTEGER C»RDT*J#D"C*l»I»D*l»J"I + ltR«J*lt5«»R + l» 
LA*S+l»SAi*NT2» 
H*NT7»K*NT6»L»NT5»G«NT4»T»NT3>QiiJUNKl 

E«LA*U 

KTRwBI 

TYPE«C1 

W0RD"DJ 

HA'JJ 

HEADER»RJ 
HDR«E[*}J 



REAL BUFFJ 



REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
ARRAY 



BOOLEAN FILT0G»E*U 
REAL SEGS«FILT0G+1I 



05904450 

05904500 

% END OF THE HOW 05904550 

05904600 
05904650 
05904690 
05904700 
05904710 
05904750 
05904800 
05904650 
05904890 
05904900 
05904910 
05904950 
05905000 
05905050 
05905100 
05905150 
05905200 
05905300 
05905400 
05905500 
05905600 
05905700 
05905800 
05905900 
05906000 
05906100 
05906200 
05906300 
05906350 
05906400 
05906500 
05906600 
05906700 
X028-05950000 
X028-05950200 
X026*0595040Q 
X028-05950600 
X028-05950800 
05950900 
05950950 
05951000 
X028-05951200 
X028-05951400 
X028-05951600 
05951700 
05951800 
05951900 
X028-05952Q00 
05952200 
05952210 
05952220 
05952230 
05952240 
05952250 
05952260 
05952270 
05952300 



S SET OMIT * SHAREDISK 05952399 

ARRAY UT«HD[*JJ INTEGER AVS*SEGS+1* DEFINE UsAVTABLE#J 05952400 

INTEGER SLEEPER«AVS*D 05952500 

* POP OMIT 05952501 
S $ET OMJT • NOT(SHAREDISK) 05952505 

INTEGER BB*SEGS+1»DL»BB+1»F*DL+1#SLEEPER*F+U ARRAY U*HDC*JJ 05952510 

DEFINE UT»U#J 05952580 

S POP OMIT 05952521 

LABEL V.W»X#Y»ZtAZ»BZ»CZ#INUSE#EXlTl 05952600 

LABEL FILEID»XOFILE»CONFLICT.FOUND»M$G#FINISJ 05952680 

* SET OMIT m NOT(SHAREDISK) 05952690 

LABEL YZj . 05952700 

$ POP OMIT 05952701 

REAL SUBROUTINE DECWORDJ 05952705 

BEGIN 05952710 

STREAMCT*QlW*[WORDJ)J 05952715 

BEGIN 05952720 

SI*W| DI*-L0C T; DS*8DECJ 05952725 

END STREAMJ 05952730 

DECWORD*PJ 05952735 

END DECWORDJ 05952740 

SUBROUTINE SCAN* 05952745 

BEGIN 05952750 

STREAM(KTR»TYPE*OlT*0#W*CWORDj)> 05952755 

BEGIN 05952760 

SI*KTRJ 05952765 

LOl IF SC«" " THEN BEGIN SI*SI+1> GO LQJ END; 05952770 

IF SC« HHW THEN * STRING IDENTIFIER 05952775 

BEGIN 05952780 

S I *S I ♦ 1 1 0S*LIT"0"J 05952785 

IF SC*""" THEN 05952790 

BEGIN 05952795 

Sj>Sj*U 05952800 

IF SC»""" THEN DS*CHR ELSE DS*LIT M "J 059S2805 

DS*6LJT" "J 05952810 

END ELSF 05952815 

BEGIN 05952820 

7CIF SC#""" THEN DS-CHR ELSE DS*LIT" ")J 05952825 

Ll« IF SC»« ,,MW THEN BEGIN SI»SI+1J GO L1J ENDJ 05952830 

S I*S I + 1 1 05952835 

ENDJ 05952840 

GO TlJ 05952845 

END? 05952850 

IF SC*ALPHA THEN IF SC LSS "0" THEN 05952855 

BEGIN % IDENTIFIER 05952860 

ID! DS*LIT"0*J 05952865 

7(IF SC»ALPHA THEN DS*CHR ELSE DS-LIT" ")J 05952870 

<-2 1 IF SC'ALPHA THEN BEGIN SI»S»1J GO L2; ENDJ 05952875 

TU TALLY*1J 05952880 

GO EXTJ 05952885 

ENDJ 05952890 

IF SC-ALPHA THEN IF SC LEQ "9" THEN 05952895 

BEGIN X NUMBER 05952900 

SI»S!+1I TALLYMJ 05952905 

7CJF SC«ALPHA THEN IF SC LSS "0" THEN 05952910 

BEGIN T*TALLYJ SI«-SI»Tj JUMP OUT TO IDJ END 05952915 

ELSE IF SC LEO "9" THEN 05952920 

BEGIN SI*SI + 1J TALLY*TALLY-UJ END)J 05952925 

T*TALLYJ SI*SI*TJ DS*T OCTJ 05952930 

TALLY*2J 05952935 



GO EXTJ 

ENDJ 

IF SC*"*" THFN TALLY*3 ELSE TALLY*5; 
DS*7 LIT^O"! DS*CHR; 
EXTl TYPE-TALLY; 

KTR*SII 
END STREAM; 

P(,TYPE#STD#.KTR»S7D)J 
END SCAN! 

SUBROUTINE MLOGIT; 
BEGIN 

S*GETSPACE(15»73»0)+2> 

STREAM(B«DATE»D*S+1>; 

BEGIN 

si*loc date; DS*a oct; di*di+8; 
s i *b ; 

2C63UF SC*"*** THEN DS-CHR ELSE JUMP OUT 2 TO L,U); 

LL» ds*lit-*-"; di*-di-i; b*di; 
end stream; 
la* p inx o; 
m(s]* cla-s) div 5; 
m[s+2]*if f1ltog then -n else segs; 
LiNKUPcia.S); 

END MLOGIT; 
SUBROUTINE ENTERS ILt; 
BEGIN 

FlXARRAY(HD#Bt30)> 

MOVE(30»HD-l»HD); 

HDtO)*H3600036000lOi; 

STREAM(DATE»XCLOCK.H*HD INX 3); 

BEGIN 

Sl*LOC DATE1 DS*80CT; 

01*01-201 si*si+4; dsmchr; 
di*di-7; si*h; si*si+5; ds*3chr; 
di*h; ds*2Lit*+#"; si*si-3; dsochri 
end stream; 

H0[4Jt[42ll)l"ll % MAKE FILE NON-MOVEABLE 
HDC71*(HDt8J*N)-CHD[9]*l)l 

hocioj*a; 

ENTERUSERFILE(MID#FIDa6;42)#B-l); 
STREAM(MID»FID»NtTMID»TFlD»FILTOG» 
B* IF FILTOG THEN B ELSE BUFF); 
BEGIN 

SJ*L0C n; di*loc n; ds*8dec; 

di*loc n; ds*7fill; di*b; 

ds*ljt" "; si*loc mid; Sl*Sl4-i; ds*7chr; 

ds*ljt"/"j SI*SI+l> ds*7chR; 

DS-6LIT" SEGSs w ; DS*8CHR; DS*8LIT M CREATED 1 *; 

FILT0G(DS*6LIT W FROM "; 5 I »S I ♦ 1 j DS-7CHR; 

DS*LIT"/ W ; SI*SI*l; DS*7CHR); 

DS^-LIT"**; 
END STREAM; 
IF FILTOG THEN 
BEGIN 

mlogit; 

SP0UTCB); 
END ELSE 

forgetspacecb); 

END ENTERFILE* 

P(0#0#0»0#0»BUFF»DUP); BUFF*P, [ 15 » 15 J-l ; P(0»Q»B LSS 0); 



05952940 
05952945 
05952950 
05952955 
05952960 
05952965 
05952970 
05952975 
05952980 
05952985 
05952990 
05952995 
05953000 
05953005 
05953010 
05953015 
05953020 
05953025 
05953030 
05953035 
05953040 
05953045 
05953050 
05953055 
05953060 
05953065 
05953070 
05953075 
05953080 
05953085 
05953090 
05953095 
05953100 
05953105 
05953110 
05953115 
05953117 
05953120 
05953125 
05953130 
05953135 
05953140 
05953145 
05953150 
05953155 
05953160 
05953165 
05953170 
05953175 
05953180 
05953185 
05953190 
05953195 
05953200 
05953205 
05953210 
05953215 
05953220 
05953225 
05953350 



P(0»0»0»0»0#0#0»0»OtO»0)l 059b 3 360 

$ SET OMIT * NOTCSHAREDISK); 05953369 

P(0#0)l 05953370 

S POP OMIT 05953371 

IF BttCFJ*0 THEN* MAKE RESERVE/DISK X028-059534G0 

BEGIN MID»*"RESERVE»; FIDI»"DISK "I X028-05953600 

IF CAI»DIRECT0RYSEARCHC-MID»FID»5))*0 1 HEN XQ28-059538Q0 

BEGIN STREAM(BUFF)! X028-05954000 

DSl*30LlT" RESERVE/DISK ALREADY PRESENT-"! X028-059542Q0 

GO TO EXIT! X028-05954400 

ENOI X028-05954600 

IF CA*GETUSERDlSK(CN*-RESEKVEDlSKSUE)&U2U7tlJ))«»0 THEN 05954800 

BEGIN STREAM(BUFF)> X028-05955000 

DS|*32L1T"**N0 USER DISK FOR RESERVE/DISK*"; XQ28-05955200 

GO TO EXITI X028-05955400 

END; X028-05955600 

GO TO CZl X028«05955800 

END? X028-05956000 

IF RDT THEN 05956250 

BEGIN PCB)J A»*M[BUFF J NX 0]J N*=MCBUFF INX \}t END ELSE 05956300 

BEGIN 05956350 

SCANi 05956400 

IF TYPE«1 THEN * IDENTIFIER 05956450 

BEGIN 05956500 

TMID*W0RD» 05956550 

SCAN! IF WORD*"/" THEN GO EXIT; 05956600 

FIL.EIDI 05956650 

SCAN1 IF N0T(TYPE«1 OR TYPE»2) THEN GO EXIT; 05956700 

TFIDMF TYPE*2 THEN DECWORD ELSE WORD* 05956750 

F!LTOG*TRUEJ 05956800 

SCAN; 05956850 

END; 05956900 

IF TYPE*2 THEN * NUMBER 05956950 

BEGIN 05957000 

A*W0RD; 05957050 

SCAN; 05957100 

IF TYPE«3 THEN IF WORD*"/" THEN 05957150 

BEGIN 05957200 

WORD*A; 05957250 

A*0; 05957300 

tmid*decword; 05957350 

GO MLE1D; 05957400 

end else scan; 05957450 

if type»2 then n*word; 05957500 

ENDI 05957550 

END; 05957600 

SEGS*N*N+(N»0); 05957650 

IF A#0 THEN 05957700 

BEGIN 05957750 

STREAM(A»D»»CFID]); X028-05958600 

BEGIN SH«LOC A; DSl«8 DECI END; X028-05958800 

IF C JI«A DIV 1000000) GEO NEUP.NEUF OR A LSS D I RECT0RYT0P+4 THEN 05959000 

VI BEGIN STREAM(FID»BUFF); X028-05959200 

BEGIN DSI*22LIT H INVALID DISK ADDRESS "; XQ28-05959400 

Sl»«LOC FIDI DS»s*8CHR; DS I »L I T"* w ; X028-05959600 

011*01-91 DS|s7 FILL; X028*05959BQ0 

END; X028-05960000 

GO TO EXIT; X028-05960200 

END; X028-05960400 

IF WAlT10UFID]INXei00000000#P64»l8 + FID.t5»l.})*C42ll J THEN GO TO VI 05960600 



IF (Rl»F|D.[12l63) GEQ 2 THEN % CHLCK FOR 40 MIL ADDRESS 05960650 

IF NOT WAITI0UFID31NX ?1 40000000, *»64 # 18 + F I D, [511 J ) , [ 43 » 1 3 05960660 

THEN GO TO V ELSE IF R GEO 4 THEN GO TO VIS INV ADD 05960670 

ENDI 05960675 

IF F1LT0G THEN GO XDFILEI 05960680 

IF A*0 THEN GO EXITl 05960685 

SlEEPCtT0GlE3tUSERDlSKMASK); LOCKTOGC USERD I SKMASK ) I 05960700 

S SET OMIT * NOTCSHAREDISK) 05960705 

FIXARRAY(U#R#AVS)> D I SKWA I T( *R * *AVS» USERD I SKBOTTOM ) I 05960710 

* POP OMIT 059607J1 

J*J+li 05960800 

BZl DI*(II»(E'*U[J3) i STaRTWRD) MOO 30 j X028-05961000 

$ SET OMIT * NOTCSHAREDISK) 05961005 

IF (S*K*COE AND NUMENTM) + L*I) > (F*AVS) THEN 05961010 

BEGIN 05961020 

PC(DL * IF K30 THEN ELSE IF CUC03 AND NUMENTM) < 30 05961030 

THEN 30 ELSE 60)*D t DUP» C #+» DUP»DUP ) I 05961040 

IF (F * P • P MOD 30 + 30) > AVS THEN 05961050 

BEGIN USERDISKSPECIALCASE(0.R.U»F&DUCCTF3); U*FLAGC P ) I END I 05961060 

IF I+F>AVTMAX*D*DL THEN GO YI 05961070 

IF P(DL#0»DUP) THEN PCUTt DL-1 J » XCH) I 05961080 

DISKWAITC*(R*DL)«F-DL»BB«- USERDISKBOTTOM+I DIV 30)1 05961085 

IF P THEN UT[DL-13 * P(XCH)I K*Pj L*PI 05961090 

END» 05961095 

t POP OMIT 05961099 

$ SET OMIT * SHAREDISK 05961199 

AVSl»30-(Sl»CC»*E AND NUMENTM)+D)MOD 30 + SI X028-05961 200 

FIXARRAY(UT»R»AVS)I D I SKWA I T CR» AVSt B »■ I DIV 30+USERD I SKBOTTOM) I 05961400 

K.I»S». Ll»DI S I * I +C J S028-05961600 

t POP OMIT 05961601 

GI»I-(NT2»sCP(U[J»l]»DUP) AND NUMENTM)+P( XCH) i STARTWRD) I X028-05961800 

Sl*U[sl+13,STARTWRD-Sl HI«KI»K-J| IF UT[T I *L3 , DEND GTR A THEN GO X; 05962000 

W» IF UTtT*(H+L*l) DIV 2J.DEND > A THEN IF UT( H* T-1J ,DIND > A THEN GO W05962200 

ELSE ELSE IF UT[T*T+n,DEND i A THEN BEGIN L*T+1I GO W ENDI X028-05962400 

X» IF A GEO U»»(H«*UT[TJ,DEND)-(Q«»UTtT3,DSlZE) THEN 05962600 

IF (LAI*(A+N)) LEQ H THEN GO AZXAREA AVAILABLE 05962700 

ELSE IF LA LEO SA1 1*( UT [ T + 13 .DEND-UT [ T + 1] , DS I ll. ) THEN 05962800 

Nt*LA-AI*H ELSE Nt*SAl-A«»H ELSE IF CLA»*A+N) GTR L THEN 05962900 

N|*L*A ELSE RDTlsRDT OR PlOOOOQi 05963000 

GO INUSEI 05963100 

Yl TMJDI.ir RQT THEN "DKTFST " ELSE "BADISK "I 05963800 

* SET OMIT * NOT(DKBNODFX AND NOT DFX) 05963809 

IF FID,[5IU THEN TMI D, [ 42 I 6 3 1 *P22I X NAME CHANGE DKB 05963810 

S POP OMIT 05963811 

STREAM(TMID»FIDtN»MiD.B#BUFF)I 05964000 

BEGIN DS»«LIT %"| SIl-LOC TMJDI SII»SI*U DSI*7 CHRl 05964200 

DSULJT "/"I $Il«SI + U DSl»7 CHRl 05964400 

DSJ«13 LIT " NOT CREATED( W I 5JI*Sl*6l SKIP SB1 05964500 

IF SB THEN ELSE 05964600 

BEGIN SIlsLOC NI DSl»7 DECI NI*D1I DH*DI-7I DSl*7 FlLLl 05964600 

Dlt*Nl DSl*5 LIT " &EGS W I Sll*Sl+ll 05964900 

ENDI DSI«11 LIT w IN USE BY "I DSl*7 CHRI DSl»LIT"/"I 05965000 

SliaSl+1! DS|*7 CHRI 05965200 

DSl*2 LIT")*"I 05965400 

ENDI 05965600 

FORGETSPACE(R)! X028"05966100 

GO EXITl 05966110 

INUSEI * SEARCH THE DIRECTORY TO FIND THE NAME OF THE CONFLICT I NG05966200 

% FILE, SINCE USERDJSK REMAINS LOCKED* DISK ALLOCATION 05966210 

% CANNOT CHANGE. HENCE* THE DIRECTORY NEED NOT BE LOCKED . 05966220 



FORGETSPACECFO; 05966400 

FlXARRAY(UTtR,480)l *028"Q5966600 

FOR Jl«DlRECT0RYT0P+4 STEP 16 WHILE TRUE DO X026-059670Q0 

BEGIN OISKWAlT(-Rt480»J); XQ28-059672Q0 

FOR 11*14 STEP -1 UNTIL DO X028-05967400 

BEGIN EISUTC450+2XI J| X028-05967600 

IF(E E8V eil4)*N0T THEN 05967800 

BEGIN Ml[)f**SYSTEM "j 8 1 *F I D* GO Z| END; 059679Q0 

IF (E EUV 014) NEO NOT THEN X028-05968000 

BEGIN Bl*UTC30xI+9] AND 311 H028-05968200 

FOR Kl»l STEP 1 UNTIL B DO X028-05968400 

IF (C»aUT[30xI+9+KJ JNEO THEN X028-05968600 

IF A GEO C THEN IF A LSS 05968800 

SAH»(C*DI«UT[30xi*8J) THEN 05968900 

BEGIN MIDI«E&((LA LEO SAD AND 05969000 

(RDT,U8ll53))Cll47»13l 05969100 

IF A + N GTR SA1 THEN N*SA1*AI 05969150 

BI*UTt451+2xU; 05969200 

GO TO ll *028*05969400 

ENDI X028-05969600 

ENDI X028*05969800 

END) X028-05970000 

ENDI X028-Q597020Q 

21 05970300 

I SET OMIT b NOT SHAREDISK 05970390 

UNL.0CK(USERDISKB0TT0M)J 05970400 

S POP OMIT 05970410 

UNLOCKTOGCUSEROISKMASK); 05970500 

GO TO YJ XQ28*»05970600 

AZ« IF A NEQ L AND LA NfQ H THEN 05970800 

BEGIN IF S«0 THEN X028-0597 1000 

S SET OMIT * NOTCSHAREDISK) 05971005 

BEGIN IF G*0 THEN GO YZl 05971010 

P((G+1) DIV 2)1 05971012 

IF BB>1 THEN 05971015 

BEGIN IF D*0 THEN 05971020 

*Z» BEGIN USERDISKSPECIALCASE(2»E#UT»J)| 05971025 

UT*FLAGCP)J R*UT,[CFJiB8*-0l GO BZl 05971030 

END; 05971040 

IF P(DUP)>D THEN PC0EL»D)I 05971050 

ENDI 05971060 

S ♦ PI 05971070 

UCJJfSTARTHRD * G*I-SMF BB>1 THEN G •■ DL+D-Sl 05971080 

K * G+C-1ID * IF BB>1 THEN D + DL ELSE II 05971090 

* POP OMIT 0597109J 

S SET OMIT m SHAREDISK 05971095 

BEGIN IF G«0 OR D*0 THEN X028-05971200 

BEGIN USERDISKSPECIALCASE(2»E»UT»J)I GO TO BZ END! X028-0597 1 400 

SI*1F P((G*1> DIV 2»DUP) > D THEN P(OEL»D) ELSE PS X028«0597l 600 

U[JJ,5TARTHRDI«I*Sl GI-D-SI Kl«G*CMI X026-05971 800 

$ POP OMIT 05971801 

M0VE(C#[UT[D) J»[UT[G]])I TMT-SJ X028»05972000 

ENDI X028-05972200 

FOR Gl«K STEP -1 UNTIL T DO U T[G+t J |«UT t G3 I X028-05972400 

UTCT3l»A&CA-L)[T0DSlZE]| X028-05972600 

UT[T + Ul»H4(H-LA)tT0DSIZEll 05972800 

CI*C+H X028-05973000 

* * K*H 05973100 

END ELSE X028-05973200 

IF A*L AND LA*H THEN 05973400 



BEGIN C»»C-1J MOVE(K-T»rUT[T*l)JitUTtTJJ)l Kl"K-l END X028-05973600 

ELSE UTCTJlsfCIF A*L THEN H ELSE A )&( Q-N ) t TODSI ZE 3 1 S028-O5973800 

UtJI.NUMENTl«Ci X028-05974000 

IF 0«U[J),MAXSIZ THEN X028-05974200 

BEGIN Ot»UTtHI«K»C + n.DSUE) 05974400 

FOR HI*H STEP 1 UNTIL K 00 05974600 
IF PCUTCHltDSIZE'DUP) GTH Q THEN «l*P ELSE P(DEL)J S028-05974800 

UCJ3.MAXSIZl*0j SK028-05975000 

END! X028-05975200 

MlOlsIF RDT THEN "DKTEST m ELSE "BADISK "} 05975400 

* SET OMIT w NQTCDKBNODFX AND NOT DFX) 05975404 

IF FID.C5I1J THEN MlD,[42l6]ls022* % NAME CHANGE DKti 05975405 

$ POP OMIT 05975406 

t SET OMIT 5 NOTCSHARFDISK) 05975410 

SCRATCHDlRECTORYENTERCA»N)l 05975440 

IF BB>1 THEN 05975450 

BEGIN 05975460 

IF DL#0 AND UCJ]#E THEN D I SKWAI T ( R» DL» USERD I SKBOTTOM ) ; 05975500 

DISKWAITCR+DL#F-DL#BB>» 05975550 

END ELSE DlSKWAlT(R»AVS,USERDISKBOTTOM); 05975560 

UNLOCK (USERO I SKBOTTOM) I 05975570 

S POP OMIT 05975571 

S SET OMIT * SHAREDISK 05975595 

DISKWAIT(R*AVS»B)J X028-05975600 

$ POP OMIT 05975601 

UNLOCKTOG(USERDISKMASK)! 05975610 

FORGETSPACECR)J 05975620 

CZl ENTERFILEI 05975630 

GO EXIT; 05975640 

XDFILE* 05975700 

IF (HEADERl*DlRECTORYSEARCH(TMlD»NFLAGC-TFID OR M)t4)) LSS 64 THEN 05975750 

BEGIN 05975800 

TYPE»»HEADERJ 05975850 

GO MSGI 05975900 

ENOJ 05975950 

HA*HEA0ER.tFFJ; 05976000 

HDR*[M[HEADER*HEADER INX 033 & 30[8»36llOJJ 05976050 

M1D*-"BA0ISK "j 05976100 

S*HDRt8]; % SEGMENTS PER ROW 05976150 

IF A#0 THEN 05976200 

BEGIN 05976250 

FOR !+HDR(91 STEP -1 UNTIL 1 DO 05976300 

IF CLA*HDRII+9J)*0 THEN 05976350 

IF A GEO LA AND A LSS LA+S THEN * FOUND ROW 05976400 

IF A+N LEO LA+S THEN GO FOUND ELSE GO CONFLICT; 05976450 

TYPE*4I 05976500 

IF FALSE THEN 05976550 

BEGIN 05976600 

CONFLICTI TYPE*3) 05976650 

SEGS*A+N-LA-SJ 05976700 

ENDJ 05976750 

HEADERUNL0cK(TMID#TFIDtHEADER4HA[CTFJ)l 05976800 

GO MSGJ 05976850 

FOUNDI 05976900 

H0R[I+9J*0j 05976950 

DISKWAIT(HEADER»30»HA)I 05977000 

IF CI*A-LA) GTR THEN FQRGETUSERD I SKCLA* I ) J 05977050 

IF CI*LA+S-CLA*A+N)) GTR THEN FQRGETUSERDI SK C LA » I ) ; 05977100 

* SET OMIT » NOT(DKBNODFX AND NOT DFX) 05977124 

IF FlD,[SfU THEN MI D, t 42 « 6 ] I *S»22J % NAME CHANGE DKB 05977125 



S POP OMIT 05977126 

ENTERF1LEI 05977150 

GO F IN I SI 05977200 

END! 05977250 

N»Sl SEGS*Oi 05977300 

FOR I*H0R[9J STEP "1 UNTIL 1 DO 05977350 

IF CA*HDR[ I+9])#0 THEN 05977400 

BEGIN 05977450 

HDR[I+9]*Q! 05977500 

DlSKWAIT(HEADER»30tHA)l 0597 7550 

WORD*A! FID*DECW0RDI 05977600 

$ SET OMIT « NOTCDKBNODFX AND NOT DFX) 05977624 

MID,[42l63l*IF FID,t5UJ THEN 022 fcLSE 060! X NAME CHANGt DKB 05977625 

$ POP OMIT 05977626 

ENTERFILE! 05977650 

SEGS*SEGS+N> 05977700 

END? 05977750 

FINIS! 05977800 

FORGETSPACE(HEADER); 05977850 

P(DJRECT0RY$EARCH(-TMID»TFID»6),DEL)» 0597 7900 

TYPE*5> 05977950 

MSGI 05978000 

STREAMCTMID»TFID>SEGS»A»TYPE»BUFF)J 05978050 

BEGIN 05978100 

SI*UOC SEGSI DJ*LOC SEGS; DS«-8DEC! US«-8DEd 05978150 

DI*LOc SEGS; DS*8FILL; DJoLOC A? DS*8 FILL; DI«-BUFFJ 05978200 

DS*LIT","I SI*LOC TMID; SI*SI+1I DS*7CHR* 05978250 

DS*LIT"/"! SI*SI+1I DS*7CHR* 05978300 

DS*11 LIT" NOT XD-ED( M ) 05978350 

CI*CI*TYPE! 05978400 

GO TO; GO Tl| GO T2l GO T3I GO T4l GO T5I 05978450 

T0« DS*11 LIT"NQT ON DISK"; GO EXT; 05978500 

T3I DS*8 CHRI DS*6 LIT" SEGS "I 05978550 

Tit DS*6 LlT"IN USE"! GO EXT! 05978600 

T2t DS*11 LIT"SYSTEM FILL"! GO EXT? 05978650 

T4« $I*SI*8J DS*8 CHRJ 05978700 

DS*12 LIT" NOT IN FILE"! GO EXT! 05978750 

T5» D!*DI--ni 05978600 

DS*6 LIT" SEGS*"! DS»8 CHR! DS*7 LIT" XD'ED*"! 05976850 

TYPE*DII Dl'BUFFI DS*LIT" "I DI*TYPEI GO EXT! 05978900 

EXT! DS*2 LIT")*"! 05978950 

END STREAM! 05979000 

A*tl N*SEGSl % FOR LOGGING 05979050 

GO EXIT! 05979100 

EXITI 05979310 

IF A#0 THEN 05979320 

BEGIN 05979330 

B*BUFF! 05979340 

MLOGITI 05979350 

END! 05979360 

IF ROT THEN M[SLEFPER INX OJ l»l ELSE SPOUT(BUFF)! 05979400 

END! X028-05979600 

SAVE PROCEDURE DISK I0(L0C I<>D»CORE»SI ZE»D JSK) I * 06000000 

VALUE C0RE.SIZE»DISK!X 06001000 

REAL LOCIODIX 06002000 

INTEGER CQRE»SIZE#DISKJX 06003000 

BEGIN REAL I0D» OLAYJO. FIM 06004000 

OLAYIO l» SIZE.C3IUI SIZE,[3iU «* 01 06004010 

IF DISK,[lllJ THEN % DRUM OR AUXMEM 06005000 

BEGIN 06007000 



$ SET OMIT » NOTUUXMEM) 06007099 

NT1 I" 01 06007100 

IOD »» CORE,ICFJ & DISK[CTFJ & C0REC2I1 II J & 06007200 

(SIZE INX 1)[8I38U0] & 06007300 

((SIZE t« DISK.[32ll])4l)C4|46l2) 06007400 

$ P0P 0M I T 06007401 

S SET OMIT m AUXMEM 06007402 

BYBY( H INVALID AUXMEM I/0*"»19)} 06007450 

S POP OMIT 06007499 

END 06007500 

L^.m 06011000 

BEGIN 06011100 

100 J» ABSCCORF) & S 1 ZE [8 » 38 1 10 J & 06011200 

(CCNT1I*SIZE) INX 29) DIV 30 + ?1000)CCTF3 & 06011300 

C0REC24I1I1J & 3[5I46I23I 06012000 

S SET OMIT * NOT(SHAREDISK) 06012499 

DISK v [lil3i«SlZEi[lll)l 06012500 

S POP OMIT 06012501 

STREAMCDISK»D»*CORE,CCFJj; 06013000 

BEGIN SI * tOC DISKJ DS •• 8 DEC END;* 06014000 

SIZE * 21% 06015000 

END;* 06016000 

FINI»IF OUAYIO THIN I OD&DI SK[ CTC HD I SKC 8 « 21 « 12 J ELSE JOD* 06016100 

% ACTUAL DISK ADDRESS IN FlNALUUE FOR OLAY I/O-S 06016200 

l0RE0UEST(NABS(FIN}&«i377t25J40l8]»l0D»tL0CI0DJ&X 06017000 

NTU10IZI1H 06017500 

( SIZE + 16) r 12 1421 6U0LAY I 0[ 9 147111)1 06018000 

LOCIOD * 01% 06019000 

END DISK10IX 06020000 

PROCEDURE FORGETESPDISKCS)? VALUE S; REAL S; FORWARD) 06020500 

REAL PROCEDURE GETESPDI SK J % 06021000 

BEGIN REAL T-NTH 06022000 

IF ESPCOUNT«0 THEN 06022100 

BEGIN 06022200 

STREAM(D»««TJ*SPACE(2))i 06022300 

DSl»12 LJT"N0 ESPDISK-"; 06022400 

SPOUTCTJJ 06022500 

SLEEPUESPCOUNTJ.NOT 0); 06022600 

END* 06022700 

STREAM(T*0»A*ESPTABIX*0)J 06023000 

BEGIN SI*AI 06024000 

Lll IF Sen""" THEN BEGIN SI»SI*1I GO TO Ll END; 06025000 

A*SI» DI*A; 06026000 

l2» if sb then 06027000 

begin tally*tally+i; skip sb; skip db; go to l2 end; 06028000 

totally; ds*set; 06029000 

FND» 06030000 

GETESPDISK»a(CP(DUP),[CFJ-ESPTAB)x8 06031000 

♦P(XCH),[30»31)x6*P*ESPDlSKB0TT0Mj 06032000 

ESPCOUNTl*ESPCOUNT-l; 06033000 

END) 06035000 

PROCEDURE FORGETESPDISK(SEGMENT); VALUE SEGMENT; RFAL SEGMENT;* 06036000 

BEGIN REAL S.T; 06037000 

IF SEGMENT LSS ESPDI SKBOTTOM OR 06037100 

SEGMENT GTR ESPDJSKTOP THEN 06037200 

BEGIN S * FLAGC- M ESPDISK"); T ♦ FLAGC -"ERROR .*") ; 06037300 

S •• WAITIQUSEGMENT3 INX 2»0#25); 06037400 

SLEEP(0»0); 06037500 

W 06037600 

T»»(Sl*(Tl*SEGMENT*ESPDlSKBOTTOM) DIV 6)x6"Tl 06037700 



s*s 

STR 

ESP 

ENDlX 

$ SET OMIT « NOT 

PROCEDURE niSKBU 

BEGIN RE 

1ST 

BEG 



END 
T * 
DDT 
WH! 



END1* 
$ POP OMIT 
$ SET OMIT • NOT 
REAL LASTEU; COM 

I 
S POP OMIT 
S SET OMIT * NOT 
COMMENT CLEANOUT 
1, REMOVE 
2. 
3, 



• 130U5H5I30I45I3J + ESPTABI 

EAM(TiS)! BEGIN SKIP T DB; DS*RESET ENDl 
COUNT*ESPCOUNT+ll 

(DEBUGGING) 
G)X 

AL Til 

REAMCT*P(,DB ADR )»D8 ARRAY )> 

IN DS I* 20 LIT "DISKBUG... TRY *"* DI «* 01*4; 
SI I* LOC T; SI I* SI+6I SKIP 3 SB? 
3(DS I* 3 RESET; 

3(IF SB THEN DSt»SET ELSE DSl*RESET; SKIP SB))? 
STREAMING* 

WAIT I0(DB ARRAY ,[ 33 U5J .0377,25) ?X 
t% 
LE DBADR + DO* 

BEGIN DISKWAIT(-(CDBARRAY INX 1 )IOBAUR[ 1 1 1 f 1 1 ) t 

30» ABS(DBADR)); 
DDT?X 
END?X 



(DFX OR SHAREDISC 

MENT USED FOR ALLOCATING 

F POSSIBLE* 



DISK FROM DIFFERENT EUS. 



4. 



UNLOCK 
RETURN 
OF THE 
REMOVE 
IS BEI 
CLOSES 

Remove 

SYSTEM 

WAKES 

FOR A F 

CLEANOUT i 

IS ENTERED 

there are 
end comment; 
procedure cleanou 
value sys; RE 

BEGIN 

real i»j»k»f» 
real t.ti.fou 

ARRAY NBl*3»F 

real kludge»h 

LABEL AGAlNtF 

IF SYS#SYSNO 

BEGIN STREAM( 

BEGIN OS 

SI I 

DSI 

end; 

SPOUT(N) 
ENDI 
Tl«P4060&SYS[ 



(SHARE 
PEKFOR 
S ALL 
S ALL 
S ALL 

SYSTE 
S ALL 
NG CLE 

ALL F 
S ALL 

BEING 
UP ALL 
ILE Th 
S CALL 

AND W 
OTHER 



DISK) 
MS THE 
CONTEN 
ADDRES 
OF THE 
M THAT 
FILES 

ared. 

JLES t 
ENTRIE 
CLEAR 
PROCE 
AT MAS 
ED WHE 
HEN A 
SYSTEM 



FOLLOWING TASKSi 
T ION BITS THAT WERE SET BY "SYS*, 
SES THAT WERE LOCKEO BY "SYS", 

DISKSPACE THAT IS IN THE SCRATCHD I RECTO 

IS BEING CLEARED. 
THAT WERE BEING LOADED BY THE SYSTEM THA 



HAT THE OFFENDING 

S IN THE HOLDLIST 

ED, 

SSES IN OTHER SYSTEMS THAT 

IN USE (BY ANY SYSTEM), 
N THE KEYBOARD MESSAGE "CLSYN" 
SYSTEM IS HALT/LOADED AND 
S RUNNING. 



SYSTEM HAD OPENED, 
THAT WERE MADE BY THE 



WERE WAITING 



T(SYS)I 
AL SYS! 



N»B? 
RMAS 
HI*] 
OLDE 
OUND 
THEN 
SlffS 
?»17 
«LOC 
»lb 

; 



K# NINEMASK; 
• BPC * 3 1 

RtNEXTSLOT»BYPASS; 
fZOTIT»CLOSEITiOUIT»FM»NMl 

YS+17. Dt«Nl«SPACE(5))l 
LIT" CLEARING SYSTEM "; 
SI S I »»SI *7» ds»»chr; 

LIT" " PLEASE WAIT. 



X CL - LET THE OPTR 
X KNOW THAT WE ARE 
X WORKING ON IT, 



"? 



3014612]) % CLEAR ALL CONTENTION BITS 



06038000 

06038100 
06038200 
06045000 
06045999 
06046000 
06047000 
06046000 
06048100 
06048200 
06048300 
06048400 
06048500 
06049000 
06050000 
06051000 
06052000 
06052100 
06054000 
06055000 
06056000 
06056001 
06056099 
DFX06056100 
0FX06056200 
06056201 
06057000 
06057020 
06057040 
06057060 
06057080 
06057100 
06057126 
06057140 
06057160 
06057180 
06057200 
06057220 
06057240 
06057260 
06057280 
06057300 
06057320 
06057340 
06057360 
06057380 
06057400 
06057420 
06057440 
06057450 
06057460 
06057462 
06057464 
06057466 
06057468 
06057470 
06057472 
06057474 
06057476 
06057480 



RY 



P(WAITI0([T] 1NX ei0000000O t 0»l6)»DEl-)J 06057500 

T ( [37llJl«U % UNLOCK ALL ADDRESSES 06057520 

P(WAITI0(CTJ INX P100000000»0»18)»DEU; 06057540 

NBI*tMCNl«SPACEC480)]]g480[8l38!l0J; 06057560 

FHI»[M[FI«N + 33J J&3H8I38U03; 06057580 

DISKWAITCF »-30»B*DIRECT0RYT0P+l)l 06057600 

IF CI»*FHCSYSJ, SLINK) NEO THEN 06057620 

BEGIN XCLEAN OUT SCRATCH DIRECTORY 06057640 

DISKWAITC-F»30»I) » 06057660 

FH[l]»»Jt*0 ; 06057680 

DO IF Jt*NOT J THEN SCRATCHCLEAN(FH»N- 1 > I ) 06057700 

ELSE 5CRATCHCLEAN(NB»F-1»I ) 06057720 

UNTIL 1*0 ; 06057740 

DISKWAITCF»30*B)I FHCSYS}*0; 06057750 

END I 06057760 

Dl5KWAlT<F»-30tB)J 06057770 

K»»SYS-W * LOD IS 1 WORD PAST LITC UNLESS IT IS06057780 

FOURMASK|wP(,FM#K#+,LOD); % LAST SYL* IN WHICH CASE C IS CQUNTED0605779Q 

NINEMASK|sP(,NM»K»+,LOD)J X UP WHILE THE SUM POPS FROM B TO At 06057800 

FOR II*DIRECT0RYT0P+4 STEP 16 WHILE TRUE DO 06057620 

BEGIN 06057840 

DISKWAIT(-N»480» I )l 06057860 

FOR Jl*478 STEP *2 UNTIL 450 DO 06057881 

IF CNBCJJ EQV P114)bN0T THEN GO QUIT ELSE 06057900 

IF CNBtJJ EQV M4) NEQ NOT THEN 06057920 

BEGIN 06057940 

Fl«15x(J-450)+4l % NBIFI POINTS TO HEADERUJ 06057960 

IF NBCF] V C1 1 1 1 AND NBtF ] ,t 4 ! 2J*SYS AND NBC F ) , 1 12 I 4 }«0 THEN06057988 

BEGIN % FILE MUST BE REMOVED FROM DIRECTORY 06058000 

BPl*[M(BI"SPACEC60)m60l6i38llOJJ 06058060 

DISKNA!T(-B»" , 60fTll»TI«SCRAMBLE(NBCJ3»NBtJ+ll))l 0605808i 

AGAIN! FOR K|*0 STEP 3 UNTIL 57 DO 06058100 

IF CBPtKJ EQV NBCJJ)»NOT THEN 06058120 

IF CBP[K*1) EQV NBCJ + 1])bN0T THEN GO TO FOUND J 06058140 

IF (Tl»BPt2I.CFF])*0 THEN 06058160 

BEGIN DISKWAIT(-B>6Q*T); 06058180 

GO AGAIN; 06056200 

END? 06058220 

STREAMCSI*[NBCJJJ# D I *T J *SPACE( 10) ) ; 06056225 

BEGIN Sll«S! SIipSI+U DSl*LlT" "; DS|«7 CHR! 06058230 

DS!»L1TV"; SII*SI+il DS»*7 CHR; 06058235 

DSl»34 LIT" NOT IN BYPASS* SHOULD COOL/ST ART*" I 06058240 

END! 06058245 

SP0UT(T)» X TELL OPERATOR WHATS WRONG AND 06058250 

GO ZOTITI X THEN REMOVE FILE AS PLANNED, 06058255 

FMlll % 400437000000000* P 400200760000000* 06058260 

P 400100017400000* 9 400040000370000; 06058265 

NMij» P2107600000000000* P10401 74000000000* 06058270 

P 420003700000000* P 210000076000000; 06058275 

FOUNDI BPtK3!»P14» 06058280 

DISKWAlT(B»60tT); 06058300 

ZOTIT! DISKWAlT(-(tHOLDER]*lCF ) ) » -3. D I RECTORYSEG ) ; 06058320 

P(NB[449l); 06058340 

DISKWAIT(-(T!«CNB[450J J,tCF])»"30.I+15); 06058 360 
NB[JJ*P14; NB[J+U*NEXTSLOT; NEXTSL0T*CU-450)/2+J; 06058380 

DISKWAIT(T*-30» 1+15); 06058400 

DISKWAITUH0LDERl,tCFJ*-3»DlRECT0RYSEG); 06058420 

UNLOCK(Tl); 06058440 

P([NBt449J]»STD); 06058460 

FORGETSPACEtB); 06056480 



IF NBtF].[2ll] THEN % FILE WAS BEING LOADED FROM T 
FOR Kj*F+6+NB[F+53,l43|53 STEP -1 UNTIL H-6 DO 

IF NBtK]#0 THEN FORGLTUSERD I SK(NBIK 3 »NB t F + 4 3 ) 
END ELSE 

IF NBtF3,t4l23»SYS AND NB[F3. [44113 THEN 
BEGIN % START LIBMAJN FOR ZEROING 

STREAMCAI»NBCJ1»Bl«NBN*l)iT!*Tl»GETSPACEUQ»64,0> + 4 
BEGIN DSI*10LIT M CC REMOVE "I SH»LOC Al Sll«Sl+ll 
DSJsfCHRl DS»»LIT n /"l SH*LOc Bl SIt»SI+lJ 
DSI«7CHR; DSt«6LlT"IENDt*"l 
ENDI 
CCARD(U3l[2l42»63U[6l4ni3)l 
END ELSE 

BEGIN % CLOSE ALL OPEN FILES 
IF NBCFJ. I-2I I J THEN 

IF NBCF3,[4|2J*SYS THEN GO CLOSEITI 
IF (NBIF3 AND FOURMASK)#Q THEN GO CLOSEITl 
IF (NBtF+53 AND MNEMASK)*0 THEN 
BEGIN 

CLOSE IT I DISKWAIT(-(T«»SPACEC30)),-30»KI*CJ-450)/2*I )l 

IF (M[T+4J l*(*P(DUP)) AND NOT FOURMASK) , [ 4 » 23 

■ SYS THEN MtT + 4j.t2UJ|»0» 
MtT+93l«(*P(DUP)) AND NOT NJNEMASKI 
DISKWAIT(T*»30»K)I 
FORGETSPACt(T)! 
END> 

IF SYS«SYSNO THEN 
BEGIN 

PBCOUNT»PBCOUNU(C(NBtJ3 E8V "PBD ")«NOT 
OR CNB(J) EQV "PUD ")«NOT 0) 
AND NBCJ+13.CCF3M)? 

end; 

ENDI 
ENDI 
ENDI 
QUITI 

DISKWAIT(-(IH0LDER3.CCF3)#-3»DIRECT0RYSEG)I 

IF UPHOLDER, (FF3)#0 THEN* REMOVE ALL ENTRIES FOR THIS SYSTEM 
BEGIN * AND WAKE UP ALL OTHERS 
DISKWAITC-Nf I» HOLDER, UF3) I 
FOR Jl*0 STEP 1 UNTIL J-l DO 
IF NB[J3.C2«23«SYS THEN 

BEGIN X REMOVE ENTRY FOR SYSTEM BEING CLEARED 
M0VE(I-J-1»CNB[JMJJ»[NBW)J)I 
II«I"1I 
J*J-1I 
END ELSE 

IF NBCJ3,[2I23#SYSN0 THEN NB t J 3 « *P( DUP»LOD» SSN ) ELSE 
IF NBC J J GEO FENCE THEN BR I NGBACK ( NB [ J3 , 1 10 I 83 ) ELSE 

MtNB[J3,[FF3)l«ll 
IF 1*0 THEN DlSKWAlT(N»I»H0LDER,tCF3)l 
HOLDER, CFFJUII 
ENDI 

* SET OMJT * NOT STATISTICS OR OMjT 

BYPASSB0TT0M|BBYPASS,rCF3l 

* POP OMIT 

DlSKWAIT(tHOLDER3.UF3#-3»DIRECTORYSEG)l 

IF SYSwSYSNO THEN 

BEGIN 

IF PBCQUNT*0 AND NOT AUTOPRJNT THEN 



APE06058500 
06058520 

I 06056540 
06058560 
06058562 
06058564 

)l 06058566 
06056560 
06058570 
06058572 
06058574 
06058576 
060585*0 
06058584 
06056600 
06056620 
06058630 
06058640 
06058650 
06058660 
06058670 
06058680 
06058690 
06058700 
06058705 
06058710 
06058720 
06058740 
06056760 
06058770 
06058780 
06058840 
06056860 
06058880 
06058920 
06059000 
06059020 
06059040 
06059060 
06059080 
06059100 
06059120 
06059140 
06059160 
06059160 
06059190 
06059200 
06059220 
06059230 
06059240 
06059260 
06059260 
06059300 
06059305 
06059310 
06059315 
06059320 
06059340 
06059360 
06059400 



PROCEDURE CLEANOUT 



BEGIN 

5TREAMCPBCO 
BEGIN DSIpI 
DS 1*4 
01 »»DI 

£nd; 

SPOUT(N)) 
END ELSE FORGETS 
STREAM(N»*N1«SPA 
SP0UT(N)l 
END ELSE 
BEGIN 

DISKWAlTC-Ni-30» 
NBC I l*13 + 5xSVSJ J 
DISKWAIT(N»-30»0 
STREAM(SlsSYS+17 
BEGIN DSI»18 LIT 

SllsLOC S; 
ENOI 

SPOUT(N)| 
END! 
END) * OF 
$ POP OMIT 

SAVE PROCEDURE DISKWAITC 
VALUE CORE»SIZE» 
REAL CORE»SIZE>D 
BEGIN REAL T) 

DISKiOCT. ( 
SLEEPCtTl.I 

end; 
procedure disksquashcbuff 

VALUE BUFFI REAL BUFFI 
BEGIN 

REAL B' E# F» Rt HI* L0» 
CNT» USE* TOG* 100) 
REAL T» SUM*Tl 
REAL Ai» A2» A3* A4» A5l 
REAL XI, X2» X3» X4* X5| 
REAL L0CIOO«X4» HICNT*X4» 
BOOLEAN CONFLICT* PASSTWO 

FILEOK, SQALLJ 
INTEGER C» D* I* S» EUi A 
AVSIZE* DISKAV* S 
ARRAY UT[*J. MV[*J# DIR[* 
REAL PRTADDRt PRTVALUEI 

* SET OMIT ■ NOT SHAREDI 
ARRAY U[*J) 
REAL Rll 

$ POP OMIT 
LABEL SCAN»SPOUTERR*CKtOK 
ENDMVE»AGA1N*0K»NEX 
DEFINE 
$ SET OMIT « 

U 
$ POP OMIT 

LINK * C 121 to 
ASIZE • C3U9] 
LOCKED * C2|U# 
FACTOR » iOOOOl 
MINSIZE » 10*i 



UNT,0»*N)| 

1 LIT" THERE ARE") Dl*DII Sl»*LOC PBCOUNT) 
DECI DS»*18 LIT" PB FILES ON DISK*"; 
DSl*3 FILL 



PACECN); 

CF(5))I DSI*191IT W CLEAN0UT COMPLETED*") 



0)1 

*NB[I + Ul«0l 

)l 

»N)I 

«#SYSTEM CLEARED*") 

sn*si*7i dsischr; 



di»»di-iu; 



CORE»SIZE.DISK)l 

disk; 

ISKI 

ABS(CORE)-l)&COREUll»n# SIZE* DISK); 
OMASK); 



)l 



SHAREDISK 
■ AVTABL 



% ARRAY VARIABLES 
* SCRATCH VARIABLES 

LSTCNT*X5; 
, EUNOTSQUASHED* 

V* 
QSIZLJ 

3* rust*}; 

SK 



INUSE»NOTOK»OKBOUNDS.MVEMORE»MVE» 
T*SQIT»ST0PSO»ST0PIT»SDXIT*OUT»FIXMV| 



E*» 

]#» 
** 
* 
» 



06059420 
06059440 
06059460 
06059480 
06059500 
06059520 
06059540 
06059560 
06059562 
06059564 
06059580 
06059600 
06059620 
06059640 
06059660 
06059680 
06059700 
06059720 
06059740 
06059760 
06059800 
06059820 
06060001 
06061500 
06062000 
06063000 
06064000 
06065000 
06066000 
06067000 
06068000 
06066100 
06068200 
06068300 
06068400 
06068500 
06066600 
06068700 
06068800 
06066900 
06069000 
06069100 
06069200 
06069300 
06069400 
06069500 
06069600 
06069700 
06069800 
06069900 
06070000 
06070100 
06070200 
06070300 
06070400 
06070500 
06070600 
06070700 
06070800 
06070900 



MAXMVSUE « 900#, 06071000 

KEYINMASK - C 181 15 J#I 06071100 

COMMENT 06071200 

FACTORJ THE MAXIMUM SEPARATION* IN SEGMENTS. ALLOWED 06071300 

BETWEEN TWO AVAILABLE AREAS WHICH ARE TO BE 06071400 

SQUASHED, IN GENERAL* FACTOR SHOULD NOT BE MADE 06071500 

LARGER THAN THE CAPACITY OF A 20 ML SUBMOD.J.E,* 06071600 

10,000 SEGMENTS, 06QM700 

MINSIZEJ THE MINIMUM SIZE* IN SEGMENTS. ALLOWED FOR AN 06071800 

AVAILABLE AREA TO BE CONSIDERED AS A CANDITATE 06071900 

FOR SQUASHING, MiNSlZE MAY BE MADE AS SMALL AS 06072000 

ONE* BUT AS SQUASH TIME VARIES JNVERSLY WITH 06072100 

MINSIZE. SMALLER VALUES WILL INCREASE SQUASH- 06072200 

ING TIME PROPORTIONALLY, MJNSIZE LJMITA- 06072300 

TIONS MAY BE OVERRIDEN BY THE LOOKAHEAD 06072400 

FACILITY, 06072500 

MAXMVS1ZEI LIMITS THE NUMBER OF INDIVIDUAL AREAS IN AN 06072600 

IN-USE AREA TO BE AT MOST MaXMVSJZE/3 AREAS 060^2700 

FOR SQUASHING TO OCCUR, 06072800 

NOTEJ 06072900 

1) MAXMVSJZE MUST BE LESS THAN 1021* 06073000 

2) MAXMVSIZE MUST BE A MULTIPLE OF 3, J 06073100 
DEFINE CELL * M[HRTADDR]#» 06073200 

STOP * MtPRTADDR]** 06073300 

STOPCK * IF MCPRTADDRJ THEN GO STOPSQ#* 06073400 

MOVEABLE ■ NOT D I RE X3 + 4 I , C42 ? 1J#, 06073500 

TEMPDSK * MVtI*23,[lHJ#| 06073600 

SUBROUTINE SQUASHMESS; 06073700 

BEGIN 06073800 

IF (X1»»P(XCH))>1 THEN X3l«IF SQSIZt^O THEN SQSIZE 06073900 

ELSE EUStEU-U.DSIZEl 06074000 

STREAM(AJsEU"l»BJeXlfC»'sX3,Cl l*0,C2»*Q»CXt«0* 06074100 

NOSQl«EUNOTSQUASHED» X2UX2|«SPACE(iO))i 06074200 

BEGIN 06074300 

Cl»«Ci; GO TO LOJ 06074400 

SIlsLOC AJ DSl*4 LIT" EU "I DS*»2 DEC; 06074500 

At»DI> DH"DI"2| DS»«F1LLJ DI«*AJ CI»»CX; 06074600 

LOi C2l*CU GO TO L21 DS>"4 LIT"NULL"; CI»*CX{ 06074700 

Lit DS»«7 LIT" SQUASH"! CH*CX» 06074800 

L2| CI|«CI+BJ 06074900 

GO TO LLOi GO TO LLOJ GO TO LL2* GO TO LL2J 06075000 

LLOl CX | *C I J CII«C1J 06075100 

BCNOSQ(DSl*LIT" "I CX|«CII CIl*C2))> 06075200 

CX|«CH GO TO L1J 06075300 

B(N0SQ(JUMP OUT 2 TO LL1)I DSl*2 LIT"ED"1 06075400 

JUMP OUT TO LL1)I 06075500 

DSl»3 LIT"JNG"| 06075600 

LL1I GO TO EXTI 06075700 

LL2« DSl«LIT" "J CXjsCIl CU»C2I 06075800 

CX|»CII GO TO HI 06075900 

SIf»Bl 2(SH«SI-8)I BI«SII 06076000 

B(CX|*CII Cll«Cl)J 06076100 

DSf»2 LIT" ("J 5H«L0C CI 06076200 

0Sl«6 DECI C»«D!J DH«Dl-6J DSI85 FILL! DII*C* 06076300 

0Sl»19 LIT" SEGMENTS AVAILABLE"! 06076400 

BCJUMP OUT TO LL3)l DSJ«4 LIT" ON "J 06076500 

CXl«CII CI»*C1I 06076600 

LL3I DS|*LIT")"J 06076700 

EXT» D$|»LIT W * W I 06076800 

EN °* 06076900 



SP0UTCX2)! 06077000 

END PRINTING MESSAGES? 06077100 

SUBROUTINE SCANMESSAGE? 06077200 

BEGIN 06077300 

Xll*(X5|»NEUP,[FF]>-lf X2!»BUFF,[30»18J? 06077400 

FIXARRAY(tUS»A5tX5); 06077500 

M0VE(X5»A5-lf A5)» 06077600 

X5l«-H X WILL BE GEO ZERO AFTER FIRST PASS THRU SCAN 06077700 

SCAN! 06077800 

STREAMCAI*0fSlZl*0»EUll*-lfFU2l»-l»ERRT0G««0«N0l«0» 06077900 

B»"X5<Q»EUI»P?564000000000000#CXIsO#Cl!wO» 06078000 

C2l*QtKTRl*X2)J 06078100 

BEGIN 06078200 

Ctl'CIl GO TO 121 06078300 

if sc<o then 06078400 

AOl BEGIN TALLY>*1? NO»*TALLY? Cl!«CX END? 06078500 

IF $C«12 THEN GO TO AO; 06078600 

OII»LOC S I Zl 06078700 

LI I IF SC GEO THEN IF SC<12 THEN 06078800 

BEGIN 06078900 

TALLYI«TaLLY*1? 06079000 

SII»SIM| 06079100 

GO TO LI? 06079200 

END? 06079300 

N0l*TALLY? 06079400 

SI | "SI-NO J 06079500 

DSl*N0 OCT? 06079600 

TALLY|«0? NOlsTALLY? 06079700 

CII*CX? 06079800 

U2« C2?=CI? GO TO STR? 06079900 

TALLY!*!? DIlsLOC EU? 06080000 

IF 2 SC«DC THEN % AN EU SPECIFIED 06080100 

BEGIN 06080200 

CX!»CI? GO TO L.3? 06080300 

IF SC GEO THEN IF SC<12 THEN 06080400 

BEGIN 06080500 

Sl!*Sl+l? DIl^LOC EUl? 06080600 

IF SC GEO THEN IF SC<12 THEN 06080700 

TALLY|«2 ELSE GO TO Al? 06080800 

SII*SI-l? N0»«TALLY? 06080900 

DS?*NO OCT? TALLY|»0? 06081000 

END ELSE GO TO Al? 06081100 

END? 06081200 

N0J«TALLY? CUM? 06081300 

C 1 1 »A J 06081400 

L3l IF SC»" " THEN BEGIN SI|«Sl*l? GO TO L3 END? CUpCX? 06081500 

STR? SJ|*KTRJ CII»CI+B! GO TO L5? GO TO L*» 0608160§ 

U4l IF SC*"*" THEN GO TO EXT? 06081700 

CX|»C I J CII»C1I X SIZE CHECK 06081800 

NO<JUMP OUT TO L5)? 06081900 

CX|*CI? GO TO L3? 06082000 

IF SC*"*" THEN 06082100 

All GO TO ERR* 06082200 

GO EXT? 06082300 

L5! AlsCI? CII*C2? % EU CHECK 06082400 

NO(JUMP OUT TO ERR)? 06082500 

IF SC»"-" THEN 06082600 

BEGIN 06082700 

$II*SI+1? CXI«CI? GO TO 13? 06082800 

CX!*CI? CII»Cl? % SIZE CHECK 06082900 



L6| 



L7| 



N0(JUMP OUT TO L6); GO TO 
TALLYJ«EU1; EU2l»TALLY; 
A»« CIJ CI»«C2J * EU CHECK 
NQ(JUMP OUT TO ERR); 



L7; 



end; 

A»«TALLY{ 
IF SC*"*" 
IF SC*"*" 



X ZERO OUT A 
THEN GO TO EXT} 
THEN 



THEN GO SPOUTERR; 
X4 DO EUSCIJlMI 



SO SPOUTERR ELSE 
THEN S0ALL»*1 



* NOT FINISHED YET 



BEGIN SII*S!+1J AlcSIl GO EXT END* 
ERRl TAULYI!»1I ERRTOGIwTALLY; 
EXTI 
END! 

IF P THEN X ERROR IN INPUT MESSAGE 
BEGIN 
SPOUTERRl 

SP0UT(BUFF,U5ll5JM)l 

F0RGETSPACE(A5)I 

P(XIT)I 

end; 

jf (x3t»p) geo then x an eu range specified, 

BEGIN 

IF (X4|«P)>Xi OR X3>Xl 
FOR I«»X3 STEP 1 UNTIL 
PCDEDl GO CKj 

end; 

X5i«P(XCH)l X SIZE OF SQUASH 

IF (X4»»P) GEO THEN IF X4>XJ THEN 

EUStX4]«*HX5[TODSlZE] ELSE IF X5*0 

ELSE SQSIZEI«X5I 
CKI IF (X2I*P)#0 THEN GO SCAN; 
END SCANNING INPUT MESSAGE; 
SUBROUTINE FIXANDWRITEHEADER; 
BEGIN 

M[A4*9+X2.[2Bl5]JI«c; 

DISKWAIT(A4,30»X2 t [CFJ)> 
END WRITING NEW HEADER; 
SUBROUTINE BOUNdaRYCK; 
BEGIN 

LSTCNTI*0; MtA2*l3l«-i; 
MVEMOREl 

X3l*HICNTl*0; stopck; 

FOR Il»CNT STEP -3 UNTIL DO 

IF P(MVU)iDUP),DEND>X3 AND P(XCH)>0 THEN 

BEGIN X3I»MVCI1#DENDI HICNTl*I END! 

IF X3«0 THEN X RE-ORDERING OF MV ARRAY COMPLETE 

BEGIN 

MVC LSTCNT + 2 J, LINK I «*t 777 » 

go okbounds; 
end; 
if m[a2-1]<0 then mta2-u««hlcnt else mvclstcnu2 j ,l i nk | «h knt ; 

MVtLSTCNTl«HICNTJl«NABS(*P(DUP))l 
MVtHICNT+lJ,t2l26]|»Hi; 

hii*hi-<x3i«mv[hicnt),dsize); 

IF X3 LEO UTtAV + U.ASjZE THEN 

oki begin 

mvchicnt+23 1*01 
go mvemore; 

END ELSE 

BEGIN X LOOKING FOR TEMPORARY 
FOR I»wS-2 STFP »l UNTIL 



STORAGE 
D DO 



06083000 

060B3100 

06083200 

06083300 

06083400 

06083500 

06083600 

06083700 

06083600 

06083900 

06064000 

06084100 

06064200 

06064300 

06084400 

06064^00 

06084600 

06084700 

06064600 

06084900 

06085000 

06085100 

06085200 

06085300 

06085400 

06085500 

06085600 

06085700 

06085600 

06085900 

06086000 

06066100 

06086200 

06086300 

06066400 

06086500 

06086600 

06086700 

06086600 

06066900 

06067000 

06087100 

06087200 

06087300 

06087400 

06067500 

06087600 

06087700 

06087800 

06087900 

06068000 

06088100 

06088200 

06088300 

06088400 

06088509 

06088600 

06088700 

06086800 

06088900 



IF X3 LEQ 
IF NOT UT 
BEGIN 

MV[H 
GO M 
END? 
ENO» 

IF PASSTWO THE 
BEGIN 

0!SKWAIT( 
STREAMCAJ 
BEGIN 

DSl* 

SI I* 

DSl« 

END* 

SP0UTCX2) 

SLEEPUPR 
IF CELL*2 

END ELSE CONFL 
TOG|"OJ 
OKBOUNQSl 

END BOUNDARY AND CO 
BOOLEAN SUBROUTINE 
BEGIN 

UT[AV*1J,[1IIJ 

FOR Xtt*DIRECT 

BEGIN STOPCKI 

DISKWAIT( 

FOR U«14 

BEGIN STO 

IF ( 

GO T 

IF ( 

BEGI 



UTCIJ.ASIZE THEN 
UJ, LOCKED THEN 



* OK FOR TEMP STORAGE 



ICNT*2lmUT[I J.DENDMI8I38I10]! 
VEMOREI 



N % NON-PROTECTED FILE TRANSFER 

•A4.30.MVCHICNT+23, EcF3)J 
•CMtA4*MVCHlCNT*2],[FF3 3)»X8l»X2i«SPACE(6))l 

27 LIT" #FILE INTEGRITY CONFLICT! "| SH«A) 
SI + 1J DSl«7 CHRI DSI»LIT"/"I SIf*SI+lf 
7 CHRI DS»*LIT"* W > 

I CELL,KEYINMASK»»7> 

TADDR INX M)»*77777)l STOPCK; 

THEN BEGIN CELL « *OU t C TF 3 ; GO TO OK END* 
ICT|«TRUEI 



NFLICT CHECKING? 
INUSEOKJ 

j*NOT PASSTWO* TOG«*U CNTi*OJ 
ORYTOP+4 STEP 16 WHILE TRUE DO 



»A1*480»X 

STEP -1 
PCKJ 

CEf"DIRC4 

NOTOKI 

E EQV #14 

N FILEOKI 

BJ»DIRC( 

FOR X2t« 

IF (CI*D 

P(C»D 

FILEO 

NOT S 

DIRt 

(P(DI 

DIRt 

MOVEA 



IF 
IF 
IF 

IF 



IF 
BEGIN 



FjXMVl 



n* 

UNTIL DO 

50*P<1»DUP»*)J) EQV ?U4) = N0T THEN 

)# NOT THEN 

•FALSE* % INITIATE STATUS CHECKING 

X3l»30xl)+9] v t43l5]f 

1 STEP 1 UNTIL B DO 

IRTX3 + 9 + X2 J)»*0 THEN 

UPXHI AND PCXCH)>LO THEN 

K THEN GO FIXMV ELSE % CHECK STATUS 

YSTENFUECE»DlRt450*P(I»DUPfO*U> AND 

X3+4], [12141*0 THEN % NOT SYSTEM FILE 

RCX3 + 4]iDUP),Ct »33 OR P( XCH) , U 6 I 203 OR 

X3+9J,Cll2b3)*0 THEN % FILE NOT IN USE 

BLE THEN % NOT PERMANENT 

F!LEOKi*TRUE; X ELIMINATE STATUS CHECKING 
USEI*USE-CMV[CNT}l*C&DIRCX3*83tTODSjZE3) 

♦DSIZEI 
MVCCNT+13l*CXl+I)&X2[CTF3; * HEADER INFO 

if passtwo then % save loc of fids 

mvccnt + 2ji«(xu15)icix2)cctf]j 

if use-0 then % found all users of in-use area 

BEGIN 

boundaryck; 
go okjnuse* 

ENDJ 

IF USE<0 THEN GO TO NOTOKj % DIRECTORY ERROR 

IF CCNT»«CNT+3) MOD 150 ■ THEN 

BEGIN 



06089000 
06089100 
06089200 
06069300 
06069400 
06089500 
06069600 
06089700 
06089600 
06089900 
06090000 
06090100 
06090200 
06090300 
06090406 
06090500 
06090600 
06090700 
06090800 
06090900 
06091000 
06091100 
06091200 
06091300 
06091400 
06091500 
06091600 
06091700 
06091800 
06091900 
06092000 
06092100 
06092200 
06092300 
06092400 
06092500 
06092600 
06092700 
06092600 
06092909 
06093000 
06093100 
06093200 
06093300 
06093400 
06093500 
06093600 
06093700 
06093800 
06093900 
06094000 
06094100 
06094200 
06094300 
06094400 
06094500 
06094600 
06094700 
06094800 
06094900 



IF CNT*MAXMVSIZE THEN GO TO NOTOK) 

F1XARRAYCMV.X4.CCNR150))) 
M0VECCNT.A2.X4)) 

F0«GETSPACE(A2)) 
A2»»X4) 
END) 
END ELSE GO TO NEXT ELSE GO TO NEXT) 
ENDI 
NEXTl ENDI 

ENDI 
NOTOKl 

TOGl»0) 
OKINUSEl 

INUSEOKlsTOGI 
END SEARCHING IN USE AREAS) 
SUBROUTINE MOVEANDFIX) 
BEGIN 

I!*M[A2-13) STOPCKi 

WHILE I<?1777 DO 

BEGIN 

DlSKWAlT(-Aa»30,(X2l«MVtI+lJ),[CFJ)) I READ IN HEADER 
MVEI Xlt»"30) FI«PCMV[I3»DUP>,DEND+(Bt»PCXCH) f ASIZE)) 

IF P(MVU*2],DEND«0#DUP) THEN C I «MVCI *1 3 , C2l 263 ELSE 
MVCI J,DEND»*(CI*HVn*2 3.DEND)-Bl 
WHILE (Xil«Xl + 30XB DO 
BEGIN 

IF STOP THEN % STOP SQUASH BUT BE CAREFUL 

BEGIN 

IF TEMPDSK THEN UT CMVC I +2) , [2 ) 103 3 I *C*P( DUP ) )-B) 
UTC AV + 13.DEN0 1 *MVU + U. [2 » 263) 
CI«MVII3,DENDI FIXANDWRITEHEADER) 
GO STOPSOI 

END) 

EI*IF P((B*X1)»DUP)<30 THEN P ELSE P(DELf30)) 

DISKlO(T»l-A3tEx30#Fl«F"E)) 

I0D?*I0D&CEx30)C8»3eit03&EC27l42t63l 

L0CI0D««0l SLEEP(tT3#I0MASK)l 

STREAMCA«*C«»C-E»B)«A3"1)) 

BEGIN SIlslOC A) OS t« 8 DEC END) 

10REQUESTCNABS<I0DHP357[25»40«83»I0D» 
CL0Ci0DJ&18U2|42»6J)) 

SLEEPCtL0CI0D3»I0MASK)| 

IF L0Cl0Dtt28)13 THEN % WRITE LOCKOUT OCCURED 

BEGIN 

UTtIF P THEN AV + 1 ELSE MV 1 1 +23 . 1 21 10 3 3 .LOCKED 1*1 ) 
UT[AV*l3,DENDl»MVf 1+13. [212631 GO ENDMVEl 

END) 
END) 

FIXANDWRITEHEADER) 

IF NOT P THEN % TEMPORARY DISK STORAGE WAS USED, 
BEGIN 

MVCI+23,DENDI»0) 
TEMPDSK»«li 
GO TO MVE) 
END) 

1I*MVU+2J,LINK) 
END) 
* WILL NOW RECONFIGURE THE AVAILABLE TABLE 

UTlAV]»*HI4(UT[AVJ.ASlZE+UT[AV+13,ASlZEH8t28!203) 

MOVE<S-AV.P(CUTtAV+233»OUP)#NOT INX P(XCH))) 



06095000 

06095100 

06095200 

06095300 

06095400 

06095500 

0609560* 

06095700 

06095600 

06095900 

06096000 

06096100 

06096200 

06096300 

06096400 

06096500 

06096600 

06096700 

06096800 

06096900 

06097000 

06097100 

06097200 

06097300 

06097400 

06097508 

06097600 

06097700 

06097801 

06097900 

06098000 

06098100 

06098200 

06096300 

06098400 

06098500 

06098600 

06098700 

06098800 

06098900 

06099000 

06099100 

06099200 

06099300 

06099400 

06099500 

06099600 

06099700 

06099800 

06099900 

06100000 

06100100 

06100200 

06100300 

06100400 

06100500 

06100600 

06100700 

06100800 

06100900 



CI*CSI«S*1)-1! FOR II*C STEP -i UNTIL D DO 06101000 

IF PCUT[U f ASlZE»DUP)>USfc THEN USE»«P ELSE P(0ED* 06101100 

U[EU3l«P(DUPiL0D»DUP)iUSECU28i20HCPCXCH).NUMENT-l)[T0NUMENTJJ 06101200 

EUNOTSQUASHED»i»FALSEI 06101300 

IF NOT SQALL THEN 06101400 

BEGIN 06101500 

IF PCSQSIZEiDUP)*0 AND P(XCH) LEQ USE THEN CELLlM 06101600 

ELSE IF P<EUS[EU-UiDSUr»DUP>*0 AND PCXCH) LEG USE 06101700 

THEN ELSE GO TO ENDMVEI 06101800 

PCDEDI GO STOPSQJ 06101900 

ENDI 06102000 

ENDMVE« 06102100 

END FIXING AND MOVING* 06102200 

t SET OMIT « NOT SHAREDISK 06102220 

SUBROUTINE BU ILDUSERD I SK J 06102230 

BEGIN 06102240 

FIXARRAY(U#R1#30)I 06102250 

DISKWAIT(-R1»-30»USERDISKBOTTOM)J % NOTE READ LOCK 06102260 

END! 06102270 

J POP OMIT 06102280 

PRTVALUE«*M[PRTADDRI«PC,DISKSQUASH)JJ 06102300 

SCANMESSAGEJ 06103300 

S SET OMIT * SHAREDISK 06103400 

LOCKDIRECTORYI 06103500 

$ POP OMIT 06103600 

SLEEP(CT0GLEJ#USERDISKMASK)J LOCKTOG(USERDISKMASK); 06103700 

HALTl % STOP NORMAL STATE PROCESSING WHILE SQUASHING 06103800 

A4l«SPACE(30)J 06103900 

* SET OMIT s NOT SHAREDISK 06104000 

IF SYSMAX»1 THEN BUI LDUSERDISK ELSE 06104100 

BEGIN % HALT OTHER SYSTEMS FOR SQUASH 06104200 

X2l»$PACEC4)J 06104300 

DISKWAIT(»A4»-30»DIRECT0RYT0P-7)I 06104400 

IF P(M[A4+28J,DUP)>P20 AND PCXCHXP25 THEN 06104500 

BEGIN * SQUASH INITIATED BY ANOTHER SYSTEM 06104600 

UNL0CKCDIRECT0RYT0P-7); 06104700 

STREAMCAl«M[A4+28JiX2)J 06104800 

BEGIN 06104900 

DSl»28 LIT* SQUASH INITIATED BY SYSTEM "» 06105000 

SI»«L0C A* Sl!«Sl*rj DSI«CHRI DSl*LIT"*"* 06105100 

END; 06105200 

SP0UHX2); CELLMOJ 06105300 

DISKWAIT(-A4t-30»USERDISKB0TT0M)1 % WAIT MERE FOR END 0F06105400 

UNLOCKCUSERDISKBOTTOMJJ % SQUASH. 06105450 

GO TO SDXITI 06105500 

END ELSE % THIS SYSTEM WILL INITIATE SQUASH 06105600 

BEGIN 06105700 

BUILDUSERDISKI 06105800 

M[A4+28Ji«SYSN0+in 06105900 

DISKWAJK A4»-30»DIRECT0RYT0P-7)» 06106000 

STREAM(X2)| 06106100 

DS|*26 LJT"# SQ OTHER SYSTEMS PLEASE*"* 06106200 

SP0UT(X2)| CELLl«0&3CCTF]l 06106300 

SLEEP((PRTADDR INX H)*977711)\ 06106400 

DISKWAIT(-A4i-30»DIRECT0RYT0P-7)J 06106500 

M[A4 + 28]^0| 06106600 

DISKWAIT( A4»-30»D1RECT0RYT0P-7)I 06106700 

IF STOP THEN GO TO SDXJT* 06106800 

END* 06106900 

END* 06107000 



FlXARRAY(MVtA2»l50); 



$ POP OMIT 

FIXARRAY(DIRiAl»480)J 
A3|*SPACE(900)J 

J0Df«?lA00001000000008(A3-l)CCTCJ) 

IF NOT SOALL THEN FOR EUlM STEP 1 UNTIL NEUP.CFFJ DO 

IF (CELLl*(P(SQSIZE»DUP)««0 AND PCXCH) LEQ UCEUJ.C t I20J > ) 

THEN BEGIN P(2); SQUASHMESSl GO STOPIT END; 

FOR EUI*1 STEP 1 UNTIL NEUP.CFFJ DO % 

IF NOT CEI»UCEUJ),EUNP THEN X NOT A DUMMY EU 

IF EUStEU-U OR SttALL OR SQSJZE#0 THEN * SQUASH THIS EU 

BEGIN 

EUNOTS«UASHEDl*TRUEJ 

IF NOT SOALL THEN % CHECK IF SQUASH IS NECESSARY 

IF <P(EU5IEU-1J,DSIZE»0UPJ LEQ E.U»2QJ AND P(XCH)#0) 

THEN BEGIN P(3)| SQUASHMESS; GO STOPIT END; 

CELLt«0&UCTFJ; 

pco); squashmess; 

D«*(II*EtSTARTWRD) MOD 30; 

AVSIZEI*30-(S|s(E AND NUMENTM)+p) MOD 30 + SJ 
FIXARRAY(UT#R,AVSIZE); 
OISKAV I *»I DIV 30 + USERDISKB0TT0M; 
% SET OMIT * NOT SHAREDISK 

IF DISKAV*USERDISKBOTTOM THEN 
BEGIN 

IF AVSlZt>30 THEN D I SKWAI T (-R-3Q* AVSl ZE-30. D I SK AV + 1 ) ; 
M0VE(30»R1*R); 
END ELSE 
$ POP OMIT 

DISKWAITC-R>AVS!ZE#DISKAV); 
AGAINI SUM»*USEI»0; 

FOR II*S-3 STfP -1 UNTIL D DO 

BEGIN STOPCK; 

IF (UT(I+l]<0)sPASSTWO THEN % NOT CHECKED THIS PASS 
IF (<Xil«UTU],ASlZE)*(X2!»UTn + n,ASlZE>) GEO SUM 
THEN IF (X3l«(((XA«»UTtI+13,DEND)-l)-UT[I*l].ASIZE)* 
X5««(UTm,DEND-l>> LEQ FACTOR THEN IF MINSIZE LEQ X2 
THEN IF MINSIZE LE«> XI THEN 
BEGIN 

SQ I r i use»»x3; av < « i ; 

SUM»«X1*X2; % SUM OF CURRENT AVAILABLE AREAS 

hh*xa; loiwxs; 
end else if 1*0 then % look ahead to next area 
if ((minsize leq ut[ i -1 j . as i ze ) and (((x5-x1)- 
utci-u.dend-1) leq factor)) then go sqit; 
end; 

IF USE#0 THEN % FOUND A POSSIBLE SQUASH SITUATION 
BEGIN 

IF INUSEOK THEN MOVEANDFJX; 

GO AGAIN; 
END ELSE * TIME TO WRAP IT UP FOR THIS 
IF CONFLICT THEN IF NOT PASSTWO THEN % 
BEGIN 

passtwo««true; 

GO AGAIN; 
END ELSE 
BEGIN % CLEAN-UP PASS AFTER CONFLICTS RESOLVED, 

PASSTWO»«CONFLICT|*0; 

GO AGAIN; 

end; 

stopsqi for il*d step 1 until s do ut [ 13 1 *abs(p (dupt lod hoc 2 i 2 » 1 j ) ; 



EU UNLESS,.,, 

«* CONFLICTS EXIST 



06107100 

06107200 

06107300 

06107400 

06107900 

06106000 

06108100 

06106200 

06108300 

06108400 

06108500 

06108600 

06108700 

06106800 

06108900 

06109000 

06109100 

06109200 

06109300 

06109400 

06109500 

06109600 

06109700 

06109800 

06109900 

06110000 

06110100 

06110200 

06110300 

06U0400 

06110500 

06110600 

06110700 

06110800 

06110900 

06111000 

06111100 

06111200 

06111300 

06111400 

06111500 

06111600 

06111700 

06111800 

06111900 

06112000 

06112100 

06112200 

06112300 

06112400 

06112500 

06112600 

06112700 

06112600 

06112900 

06113000 

06113100 

06113200 

06113300 

06113400 



IF NOT EUNOTSQUASHED THEN 06113b00 

i SET OMIT • NOT SHAREDISK 06H3600 

IF D1SKAV»USERDISKBOTTOM THEN 06113700 

BEGIN 06113800 

MOVECCIF S>30 THEN 30 ELSE 5)"D» CUTCD3 ] »K1*D)I 06113900 

IF AVSI2E>30 THEN DISKWAITC K+30» AVS I ZE"30i 1 SKAV* 1 ) ! 06114000 

END ELSE 06114100 

* POP OMIT 06114200 

DISKWAITC R#AVSJZE»DISKAV)1 06114300 

FORGETSPACE(R)! 06114400 

P(1)J SQUASHMESSI 06114500 

STOP IT I IF STOP THEN GO OUT! % STOPCK GOT US HERE 06114600 

END EU LOOPI 06114700 

OUTJ 06114600 

S SET OMIT * NOT SHAREDISK 06114900 

DISKWAITC R1»-30#USERD1SKB0TT0M); % NOTE WRITE UNLOCK 06115000 

F0RGETSPACECR13J 06115100 

* POP OMIT 06115200 

F0RGETSPACECA1)! FORGETSPACEC A2 ) ! 06115300 

F0RGETSPACECA3)! FORGETSPACEC A5 ) ! 06115400 

SDXITI 06115500 

F0RGETSPACECA4)! 06115609 

CELL«*PRTVALUE1 06115700 

STREAMCA«*8UFF.[15ll5)«l)J DSt*13 LIT" END SQUASH,*"! 06115800 

SPOUTCBUFF ,[151153-1)1 06115900 

t SET OMJT « SHAREDISK 06115990 

UNLOCKOIRECTORYJ 06116000 

$ POP OMIT 06116010 

UNLOCKTOGCUSERDISKMASK); 06116100 

NOPROCESSTOGtaNOPROCESSTQGMJ 06116200 

KILLCCBUFF3 INX NOT 1)) 06116300 

END SQUASHING) 06116400 

06179000 

SAVE PROCEDURE INITIALIZE! FORWARD! 06179400 

REAL ACTDAT£*INITJALIZFI 06179500 

SAVE REAL PROCEDURE COREND! FORWARD! 06179600 

REAL WEEKDAY*COREND! 06179700 

PROCEDURE USERDISKSPECIALCASECQ#R»UT»J) t 06350000 

VALUE Q»J! REAL R»UI INTEGER QJ ARRAY UTt*3 ! 06350300 

BEGIN 06350600 

REAL BUFF*Q#N*J»Z*UT»E*R »WEWONTGO»R! 06351000 

S SET OMIT s NOTCSHAREDISK ) 06351050 

INTEGER NT«U ! 06351053 

REAL NEU»AVS! DEFINE U*UT *, UAsUT #, NEU1«NEU+J #» NEU2*NEU+NEU# i 06351055 

$ POP OMIT 06351056 

t SET OMIT m SHAREDISK 06351100 

REAL NEUfNTl ARRAY UAt*3 ) 06351104 

DEFINE U»AVTABLE #» AVS*B #• NEU1*J-1 #» NEU2»NT»1 #1 06351105 

$ POP OMIT 06351106 

INTEGER NTl»NT3iNT4#B ! 06351250 

LABEL Lt»L2»L3#UP»PU»BD»WHYtMl#TlO ! 06351500 

LABEL UNLOADER! 06351600 

SWITCH SW*Ll»L2»L3 I 06351800 

IF Q#0 THEN GO SWCQ-1J ! 06352000 

$ SET OMIT ■ NOTCSHAREDISK ) 06352490 

IF (BI»J,[CFJ)>1023 THEN GO BD! Q!*SpACECB>» MOVEC J. [ FF3 » R» Q) ! 06352500 

FORGETSPACECR)! PC C CR I *Q >&B[TOS I ZE3 ) OR M.RTN) t 06352600 

$ POP OMIT 06352601 

11! BUFF!»RI Zl»0! UNLOCKTOGCUSERDISKMASK)! 06353500 

WEWONTGO «« -1! 06353600 



IF N LFQ HESERVFDISKSUE THEN % CALL OUT THE RESERVES 06353603 

IF (Zl«DlRECTORYSEARCH( w RESERVE w i M DISK ».6))*0 THEN P^b^lO 

BEGIN FORGETSPACE(Z)! 0635361b 

WEWONTGO I* -0; 06353620 

IF N GTR THEN 06353625 

$ SET OMIT » PACKETS 06353629 

IF NOT (LIRMSG AND (LOGL I NE , [ 33 J 7 ]>0 OR CANDYMESS)) THEN 06353630 

S POP OMJT 06353631 

BEGIN STREAM(Z»»Z»*SPACE(3))I 06353640 

DSl*23 L!T"**RESERVE DISK REMOVED*"! 06353650 

SPOUTER(Z#0»(NOT LIBMSG) AND 1)1 06353660 

END ; 06353670 

GO TO UNLOADERI 06353680 

END OF RESERVE CALL UP) . 06353690 

IF NOT N.C2I11 THEN 06353700 

BEGIN IF P1MIX*0 THEN 06354000 

WHYl STREAM(Jt«JARROW[PlMlX),PlMlX»N»BUFF)» 06355000 

BEGIN DS*14 LIT "*N0 USER DISK I "I 06356000 

SI*Jl SI*Sl*iJ DS*7 CHRJ 06357000 

D5*LIT "/"I Sl*Sl+ll DS*7 CHR; 06358000 

SI-LOC P1M1X; DS*LIT "»"l DS*2 DEC; 06359000 

JlsDI I DII«DI-2» DSlsFILL; DIl'JJ DSI*LIT"-"I 06359500 

SII«LOC NJ DSl»8 DEC! DSl«7 LIT" SEGS t *»> 06360000 

OII-DI-151 DSi«7 FILL* 0*360500 

END ELSE 06361000 

STKEAM(N»BUFF)> 06361500 

BEGIN DSIB20 LM"#NO USER DISMMCP - "I 06362000 

SI 1«L0C N! DSl»8 DEC; 06362500 

DSl*6 LIT" SEGS*-") 06363000 

DH«DIM4l DS»«7 FILL; 06363500 

END , 06364000 

SPOUT(BUFF)! 06364500 

END ELSE FORGETSPACECBUFF); 06365000 

UNLOADERI 06368000 

IF AUTOUNLD THEN 06369000 

BEGIN PCP1MIX)! AUTOUNLD J *P1M I X I *0 i 06369500 

STREAM(ACTDATE»Zl*Zl*SPACEC10)+2); 06370000 

BEGIN DSl*24 LIT M CC UNLOAD EXPIRED TO EXP"! 06370500 

S1*L0C ACTDATE; SI*Sl+2l DS*4 CHR; 06371000 

DSl»9 LIT" ■/■IF.NOt"! 06371500 

EN q, 06372000 

CCARD(Z&3lt3i43l5J); 06372500 

P1MIXJ»P; 06373000 

IF N GtQ THEN 06373500 

BEGIN STREAMCZ«*Zl«SPACEClO))l 06374000 

DS|*1B L!T"19 AUTOUNLD RESET*"! 06375000 

SPOUTCZ)! 06376000 

END END AUTOMATIC UNLOADING; 06377000 

IF WEWONTGO THEN 06377100 

IF NOT N,C2lt J THEN * WAIT FOR DISK BUT 06377200 

BEGIN IF WEWONTGO, till] THEN % FIRST IF CANDE 0OESNTO63773Q0 

IF LOGLINF GTR OR PlMJXsQ THEN * KNOWi TELL HER 06377400 

BEGIN MtZ»*GETAREA(0)J»«(*P(DUP))&LOGLINEtCTFH 06377500 

15C18I41 1731 06377600 

MtZ+13 I* 0; 06377700 

MCZ+2) IP N) 06377800 

OUEVENTCZiCANDYlNX); 06377900 

WEWONTGO I* 01000011 06378000 

END1 06378100 

IF P1MIX*0 THEN 06378200 



BEGIN CLIcK*-CL0cK + P(RTR) + 1600}SliWAIT 30 SECS, 06378210 

SLEEPC0.0)) 06378220 

END ELSE 06378230 

BEGIN PRTR0WtPlMlXj,(7llJl»ll 06378300 

IF OUTWAITCFALSE) THEN 06378400 

BEGIN BUFF5«SPACt(l0); 06378500 

GO TO WHY) 06378600 

ENDJ 06378700 

PRTR0WCP1MIK]. [7113 »» 0) 06378800 

END* 06378900 

WEWONTGOtTCFJ l» 0/ 06379000 

END WAITING FOR DISK TO SHOW UP) 06379100 

P(XIT)) 06379200 

L2l U[JJI»EI E»«NEUJs(NT»»NEUP,NEUF)+2*CNT+l)DIV 2) P(NT)J J|*l) 06380100 

I SET OMIT ■ SHAREDISK 06380120 

NTl»*NT+NT+NT) FORGETSPACECUT ) 1 F I XAKRAY ( UA» NT2» NT 1 ) I El«0) 06380140 

S POP OMIT 06380141 

UPl IF (NT4I«E MOD 30) LSS (NT3 » *(NT1 I "U [ J ] ,ST ART WRD ) MOD 30) 06380150 

THEN NT4t*NT3 ) 06380200 

IF <NT2l«»<0l»Ut JJ AND NUMENTM ) + NT4 ) GTR 1023 06380250 

OR (CQ+E+l) DI V 30+1-F 01 V 30) GTR 34 THEN 06380300 

BDI BYBYCODISK IS TOO CHECKERED .*, PLEASE COMPACT IT*"»43) J 06380350 

DlSKWAlT(-(CUAINEUl]l*(UAtNEU2*J]l«SPACECNT2))+NT4)-NT3)tQ+NT3» 06380400 

USERDISKB0TT0M+NT1 DI V 30) ) 06380450 

» SET OMIT w NOTCSHAREDISK ) 06380490 

IF J«l THEN M0VL(NEU#[U[0J]»BI*UA[NEU2+11> ) 06380500 

$ POP OMIT 06380501 

$ SET OMIT • SHAREDISK 06380520 

IF J»l THEN BI«UA.[CF3+NT+NT-1 ) 06380525 

t POP OMIT 06380526 

M[B*JJt*U[JJ&E[TOSTARTWRDJ J 06380550 

IF (NTH*Q DI V 4) LSS AVDIFFMIN THEN NT 1 I *AVD IFFM IN ) 06380600 

IF (EI«E*-Q + NT1) GTR AVTMAX THEN GO TO BDI 06380650 

IF P(DUP) GEO J»«J+1 THEN GO UP) E»*E"NTl) Jl*l I 06380700 

PU» NT2l»(NT3)«P(M[B+J3»DUP)|STARTWRD)+NT5:*P(XCH) AND NUMENTM I 06380750 

IF P(DUP)#J THEN IF (NT2-DDIV 30*C NT4*M[B + J + n , ST ARTWRD )D I V 30 THEN06380800 

M0VE(NT1*NT2 MOD 30, UAI NEU1J + NT5-NT1 * NT 1*UA t NEU1 + U-NT4 MOD 30)) 06380850 

DlSKWAlT(UAtNEUn-NTl*NT3 MOD 30t NTl*NT5»USERD J 5KBQTT0M+NT3 D IV 30))06380900 

* SET OMIT * NOTCSHAREDISK) 06380924 

IF J NEQ 1 THEN XSMAREDISK ONLY 06380925 

S POP OMIT 06380926 

F0RGETSPACECUAINEU2+J])) 06380950 

IF P(DUP) GEO J»«J+1 THEN GO PU J 06381000 

$ SET OMIT m SHAREDISK 06381020 

MOVE(NT»tUAtNT+NTJ]»CAVTABLECUJ) ) 06381070 

$ POP OMIT 06381071 

$ SET OMJT * NOTCSHAREDISK ) 06381075 

FORGETSPACECB) f 06381080 

$ POP OMJT 06381081 

FORGETSPACECUA) J 06381085 

S SET OMIT • NOTCSHAREDISK ) 06381095 

Ql»SPACECAVSl*CAVS|«IF E LSS AVSMIN THEN AVSMIN ELSt IF E GTR AVSMAX06381 100 

THEN AVSMAX ELSE E)+30"C1F CE««AVS MOD 30)*0 THEN E 06381150 

ELSE 30)) ) 06381155 

DISKWAITC-Q»AVS»USERDISKB0TT0M) J 063B1200 

S POP OMJT 06381201 

PCDEL»Q&AVSCTOSIZEJ OR M,RTN) ) 06381250 

L3I PCU[NEUP t NEUF*2*CQl*J DIV P C M 1 > ) DIV 2J»IF Q THEN P,t8l20J ELSE 06381300 

P,£28l203) I 06381310 

IF UCO+U, SPEED * 2 THEN 06381320 



BEGIN % 40-MlLL MASK CONSTRUCT I ON t 06381330 

Ql*P I 06361335 

STREAM(SI*0J8)J 06381340 

BEGIN 06381345 

Slt*LOC G; SKIP 28SBI DII*LQC S; SKIP 8DB i 06381350 

5C4CIF SB THEN DS»*SET EUSE SKIP DBJSKJP SB); SKIP 4 DB); 06381355 

Sll»LOC fit SKIP 28 SBJ DH»LOC S; Ol»»DI+2> 06381360 

5C4CIF SB THEN DS**SET EUSE SKIP DB/SKlP SB); SKIP 4 OB); 06381365 

END STREAM I 0638138P 

END ; 06381390 

STREAM(MSK**0tVl*4?-(sh«<(Qt«J MOD PCMl ) ) +ABSCR )- 1 ) DI V P(T10))» 06381395 

Wjal+J-Q DIV P(TIO)); 06381408 

BEGIN DIt»LQC MSK; SKIP V DB; DS«*W SET; END; 06381405 

P(UND»LNG»0#LNG#«tRTN); 06381410 

Mllll 036411001 * DECIMAL 1000000, 06381450 

T10JM 023420; X DECIMAL 10000, 06381500 

END OF USERDISKSPECIALCASE ; 06381550 

PROCEDURE GETMOREOLAYDISKCMIXm 06400000 

VALUE MJX;X 06401000 

INTEGER MIX!* 06402000 

BEGIN INTEGER t»+l*X 06403000 

J«+2,X 06404000 

T»+3;X 06405000 

ARRAY A«+4[*]|X 06406000 

REAL RCW*+0;X 06407000 

LABEL EXIHX 06408000 

DEFINE DALOCMAXSZ m 06408100 

$ SET OMIT ■ NOT(AUXMEM) 06408199 

111*; XDALOC SUE MUST * 7 INITIALLY. 06408200 

S POP OMIT 06408201 

* SET OMIT » AUXMEM 06408299 

127#; XDALOC SIZE MUST s 7 INITIALLY, 06408300 

$ POP OMIT 06408301 

P(0» 0# 0* 0); 06409000 

06410000 

IF CT*DALOCCMIX#0),[CFm)»DALQCMAXSZ THEN BEGIN 06411000 

TERMINATECMIX & 37CCTFJ); 06411010 

GO TO EXIT; END; 06411030 

IF T*DAL0CR0W[MIX3, £81103 THEN* 06412000 

BEGIN IFCJ*T+P(DUP)»1)«97 THEN J*DAL0CMAXSZ I 06413000 

WHILE (I «» GETSPACEfJ* 0. 3)+2)»2 DO 06414000 

SLEEPUCLOCK]* NOT CLOCK); 06415000 

MOVE(T# DALOCROWtMIX]i I); 06416000 

FORGETSPACE(DALOCROW[MIXJ); 06417000 

DALQCROWCMIXJ f* C*P(DUP)) & HCTC3 & J[8|36U0]> 06417500 

END AIT TYPE ACTION;* 06419000 

IF (I * GETUSERDISK(500 OR MEMORY))»0 THEN GO TO EXIT;* 06420000 

DAL0C[M1X»0] * C*P(DUP))&(T+1)[CTCJ;X 06421000 

DAL0C[MlXtT) «- III 06422000 

DAL0CCMIX#T+1] ♦ 01* 06423000 

EXITf OLAYMASK * TWO(MIX) OR 0LAYMASK;X 06424000 

IOCOUNTtMIX) * •P(DUP)-1II 06425000 

KILL(CMIXJ INX NOT 1); 06426000 

END GET MORE OVERLAY DISK FOR A GIVEN JOB;* 06427000 

REAL PROCEDURE SECUR I TYCHECK(MID#F I Di USeR I D» HEADER ) ; 06460000 

VALUE MJDfFIDiUSERID; 06460100 

REAL MID»FlDtUSER!DfHEADER; 06460200 

X MID MULTJ FILE ID OF FILE TO BE CHECKED 06460300 

X FID FILE ID OF FILE TO BE CHECKED 06460400 

X USERID USER IDENTIFICATION 06460500 



HEADER 

>512 
>0f <512 



CORE ADDRESS OF HEADER IN 33 1 15 « JUST CHECK IT, 
VALUF FOR DIRECTORYSEARCH, FIND THE FILE AND PASS 
BACK THE HEADER IN ADDITION TO SECURITY INFO, 



RESULT FROM SECUR I TYCHECK 



= 
«2 
• 3 
*7 



NO LEGITIMATE USER FOUND 
TERTIARY USER ( INPUT ONLY) 
SECONDARY USER (INPUT/OUTPUT) 
PRIMARY USER C INPUT/OUTPUT/LIB 



MAINT.) 



% 

% 
% 
% 

% 
% 
% 
% 
% 
% 
BEGIN 

REAL T2»DKSGROW#CODES.ROWS#R0W#DKADR»ROWSZ»C» USER. TYPE* SHJ 
REAL l*DKSGROW» F PBSIZE*CODES ) 
ARRAY FHC*]»FPB»R0WC*3) 
LABEL FOUND) 

LABEL EXYT»NOTFOUND» LOOK* WHY* FORGET ) 
REAL SUBROUTINE DIRSRHI 

BEGIN 
LOOKl IF (T2»*DIRECT0RYSEARCH(MID»FID»HEADER)) LSS 64 THEN 
WHY? BEGIN 

IF T2«0 THEN FILEMESSUF LOfiL I NE . t 33 I 7 3«0 THEN "#NO FIL° 
ELSE - w NO FILE w »»ON I SK»t MI U#F I Df 0. 0. 0) 
ELSE IF T2*l THEN BEGIN P(DED) TYPEI»-U GO EXYTJ END 
ELSE IF T2«2 THEN F I LEMeSS( "#SYSF I L w » "ERROR ". 

MID»FID»0»0#0)> 
REPLYCP1MIX] l«-(SHI«VWY*V0K[36U2l6l*VILt 3014216 J )| 
IF P(0#RDS)>FENCE THEN SWAPC WA I TSWAP* 1) ELSE 

C0MPLEXSLEEP(REPLY£PIMIXJ>0 OR TERMSETCP1MI X ) ) ) 
IF TERMSETCP1MIX) THEN GO TO INITIATE? 
IF NOT WHYSLEEPCSH) THEN GO TO WHY) 
IF (SH«"T2I«REPLY[P1MIX],[FF J) GTR 32 
BEGIN STREAMCT2l)J 
BEGIN SH*T2) 
LLl SIl"SI+lf IF SC*"L" THEN 

SII*SI+iJ T2J«SI? 
END! 
T2|*P> 

FPBSl2EI»<FPBI"PRT[PlMlX»3J),t8llO]| 
FOR 11*0 STEP ETRLNG UNTIL FPBSJZE DO 
IF CFPBU3 EQV MID)"N0T THEN 

IF (FPBCI+13 EQV ABS(FID))«N0T THEN GO FOUND) 
NAMEID(C»T2)I M ID I «C i NAME I DC C » T2> i 
NAMEID(C#T2)I F ID I »C&F IDC 1 1 1 1 1 1 1 
IF I LSS 1020 THEN 
BEGIN FPBCm«MlD! 

FPBC 1 + 1 J I*C I 
END) 

F0RGETSPACE(SH-1)I 
END) 

REPLYtPlMlXJi*0? 
GO TO LOOK) 
ENO) 

DJRSRH |» T2) 
END DJRSRH) 

FHUlOQUE&UF HEADER GTR 512 THEN HEADER ELSE DJRSRHHCTC3) 
JFCFH(23 EQV 0)«NOT OR (ABSCUSERID) EQV ABSCFHC 23 ) )»NOT 

OR (USERID EQV MCP)»NOT THEN TYPE*7 ELSEX 
IF (FH[53 EQV ?14)»N0T THEN* 

IF (FHI61 EQV 014)»NOT THEN TYPE*2 ELSE TYPE*3I* 
IF TYPE # THEN GO TO EXYT) 



THEN 



GO TO LL) 



% IL 



FOUNDI 



06460600 

06460700 

06460600 

06460900 

06461100 

06461200 

06461300 

06461400 

06461500 

06461600 

06462000 

06462100 

06462105 

06462110 

06462120 

06462200 

06463000 

06463100 

06463200 

06463210 

06463220 

06463225 

06463230 

06463240 

06463250 

06463280 

06463300 

06463320 

06463340 

06463360 

06463380 

06463400 

06463420 

06463440 

06463460 

06463480 

06463500 

06463520 

06463540 

06463560 

06463580 

06463600 

06463620 

06463640 

06463660 

06463680 

06463700 

06463720 

06463740 

06463760 

06463780 

06463800 

06463610 

06463620 

06463900 

06463910 

06463920 

06463930 

06463940 

06463950 



% 0646395b 

IF FHC5J .CI 111 THEN 06463960 

BEGIN IF CSH!»DIRECT0RYSEARCHCABSCFH[5))*FH[6]tl9>)a0 06463970 

THEN BEGIN TYPE««0» GO TO EXYT END* 06463980 

M[SH*4],UHni»lJ 06463982 

STREAM(DATE»Jl=5)J BEGIN SII»LOc DATEJ DSl*80CT; END* 06463984 

M[SH+3],[12ll8Jl«JUNKj 06463986 

0ISKWAIT(SH,tcF]»*30»SH,lFFJ)l 06463988 

$ SET OMIT • SHAHEOISK 06463990 

UNLOCKDIRECTQRYI 06463992 

$ POP OMIT 06463994 

DKSGR0Wl*M[5H INX 8J; 06463996 

C0OESlBGETSPACE(30.O#O) + 2lR0WS;«(MtSH INX 9JAND 3DMI 06464000 

FOR RQW|*0 STEP 1 UNTIL ROWS DO 06464100 

BEGIN IF (DKADRl*M[SH INX 10+R0W])«0 THEN 06464200 

NOTFOUNDI BEGIN TYPE t« 0) 06464300 

FORGETI F0RGETSPA£E(C0DES)J FQRGETSPACECSH)! GO TO EXYTl 06464400 

END* 06464500 

RQWSZ I* DKADR + DKSGROWJ 06464600 

WHILE DKADR < ROWSZ DO 06464700 

BEGIN DISKWAlT(-C0DESi30»DKADR)J 06464800 

FOR C t«0 STEP 1 UNTIL 29 DO 06465000 

BEGIN IF((USERl*NFLAG(M[CODES INX C]))£GV 0114)* 06465100 

NOT THEN GO TO NOTFOUNDI 06465200 

IF (USER EQV P14)# NOT THEN 06465210 

IF USER, [3133*0 THEN 06465220 

BEGIN 06465230 

IF (USERID EGV ABS( USER) )«NOT THEN 06465300 

BEGIN TYPE I* 06465400 

IF USER < THEN 2 ELSE 31 06465500 

GO TO FORGETI 06465600 

END? 06465700 

END ELSE 06465800 

BEGIN 06465805 

IF P1MJX # THEN 06465810 

BEGIN 06465812 

IF L0GLINt,C33l7I NEO THEN 06465814 

USERIs" "&USERC6I12»36I&USER[3J3»3JI06465816 

IFCABS(JAR[PlMIXt03)EQV 06465820 

USER,t6J42J)B NOT THEN 06465830 

IF((IF JARIP1MIX,0J<0 THEN "DISK "ELSE JARCP1M I X, U )E«V 06465840 

MUODES INX c + 1 J,C6|42J)8 NOT 06465850 

THEN 06465860 

BEGIN 06465870 

TYPE l« USER.13I3JJ 06465880 

06465890 

GO TO FORGETI 06465900 

ENDI CI"C*1I 06465910 

END) % P1MIX NEQ 06465912 

ENDI 06465920 

ENDI % 30 USERS 06466000 

DKADR I" DKADR ♦ II 06466100 

ENDI * ROW 06466200 

ENDI * ROWS 06466300 

GO TO NOTFOUNDI 06466310 

ENDI % NO SECURITY BLOCK FILE 06466400 

TYPE 1*01 06466500 

EXYTl 06466600 

IF HEADER LSS 512 THEN HEADERl*FHI 06466620 

SECURITYCHECK l»TYPEI 06466700 



END SECURITYCHECKl 06466600 

BOOLEAN PROCEDURE QUTWAITCBJI BOOLEAN Bl 06467000 

BEGIN REPLYCPlMlX3»-V0KHVWYt36|«2i6Hlt2l47liJ| 06468000 

IF PCO»RDS)>FENCE THEN 06469000 

SWAP(WAI7SHAP»1) ELSE 06470000 

COMPLEXSLFEPCCB OR REPLY [ P 1M I X J >0 OR TERMbE T ( P 1M I X ) ) ) > 06471000 

06472000 

IF TERMSET(PIMIX) THEN 06473000 

IF CJAR[P1MIX,0] EQV "L I BMA I N" ) *NOT OR 06473100 

<JAR[P1M1X»J1 EQV "DISK M )*NOT o THEN GO 10 INIT1ATEI 06473200 

IF REPLYCPIMIXJbVWY THEN QUTWAJT*N0T WHYSLEEPC VQK&VW Y [ 36 I 42 I 6 3 ) I 06474000 

reply[p1mix]*0) 06475000 

end outwaitj 06476000 

real procedure 0utran980 ( adr » num. type » lcc » b ) i x10906500000 

value adr»num,type#lccj x10906501000 

heal adr»num,type»lcc»bi xio906502ooo 

begin real c»t»w#las; 06503000 

real spares*adr»doneatype»lsiz*lccj 06503100 

label againi 06503200 

B*SPACE(30)+1I 06504000 

LASl»TYPE,[2»UJ 06504500 

IF TYPE. [1113 THEN 06505000 

BEGIN T*BI CM END ELSE T*C C*B )+?677777l 06506000 

STREAMCW*OlC*0)l 06508000 

BEGIN W»CII GO TO XI 06509000 

W(IF SC*"0" THEN BEGIN US*LIT"<"I GO TO L ENDI 06510000 

IF SC*"1" THEN BEGIN DS*L1T">"I GO TO L ENDI 06511000 

IF SC»"-" THEN BEGIN DS*LIT"< ,, I GO TO L ENDI 06512000 

IF SC»"«" THEN BEGIN DS*LlT"i"l GO TO L ENDI 06513000 

IF SC«"*" THEN BEGIN DS*LIT»#"| GO TO L ENDI 06514000 

0S*LIT MARKI 06515000 

LI SI*SI + H JUMP OUT TO Y)l 06516000 

IF SC« sH >" THEN GO TO El 06517000 

IF SC«"<" THEN GO TO El 06518000 

IF SC*">" THEN GO TO El 06519000 

IF SO*"*" THEN GO TO El 06520000 

IF SC»"*" THEN GO TO El 06520500 

IF SC*"^ THEN 06521000 

El BEGIN DS*LIT MARK| SI*Sl+ll CI*C ENDI 06522000 

DS*CHRI 06523000 

Yl CI*CI 06523100 

XIENDI 06524000 

W*PI 06525000 

DO BEGINI 06525100 

IF TYPE. tllU THEN 06526000 

STREAM(Ql«0»C»ADR»T«LASiGI*C#WtNI»IF NUM GTR 63 THEN 06527000 

63 ELSE NUM)I 06528000 

BEGIN SI*ADRI DI*Tl 06529000 

N(IF SC*ALPHA THEN If SC<"0" THEN 06530000 

BEGIN DS*CHRI GO TO L ENDI 0653J000 

IF SC»"*" THEN 06532000 

BEGIN G(TALLY*0| JUMP OUT TO Ll)l TALLY*ll 06533000 

Lll G*TALLYI Sl*SIMl 06534000 

if sc«"*" then ds*lit marki O6535000 

SI*SI+2I GO TO LI 06536000 

ENDI 06537000 

CII»CI+lASl GO TO L2I 06537500 

IF 5C""*" THEN 06538000 

BEGIN TALLY*1| Q*TALLYl OS*CHRl 06539000 

DI*D1"1I JUMP OUT ENDI 06539100 



L2| NlsCIJ C I I «W I 06540000 

Li 1)1 06541000 

ADR*SH T*D1* TALLY*G; OTALLY; 06542000 

END ELSE 06543000 

STREAMCQI«0*OADR»T«LASiGI*0i W»Ni*IF NUM GTR 63 THEN 06544000 

63 ELSE NUM); 06545000 

BEGIN S1*ADR> Dl'CJ 06546000 

N(IF SC»" "THEN DS'CHR ELSE 06547000 

BEGIN T*D|J 06540000 

IF SC*ALPHA THEN DS*CHR ELSE 06549000 

BEGIN 06550000 

CII«C!+LAS> GO TO L2J 06550500 

IF SC*"*" THEN 06551000 

BEGIN Dt*DlMJ T»OII 06552000 

TALLY*1J G*TALLY* 06553000 

JUMP OUT; 06554000 

END; 06555000 

L2t N««CI; CU»W; 06556000 

END END); 06557000 

A0R*Si; ODi; 06558000 

END* 06559000 

T*P; ADR*P; C*P; 06560000 

END UNTIL (NUM*NUM-63)SQ OR P; 06561000 

NUM*P(T-B+l#DUP),C30»3]&PCXCH)[30t33U5W; 06562000 

IF TYPE, till J THEN 06563000 

BEGIN STREAMCT); 06563200 

DS|*LIT LEFTARROW; 06563400 

END ELSE 06563600 

BEGIN IF LCC THEN ICC I »1*( NUM+8) . [40» 4 ] ; 06564000 

IF TYPE.tCFJ GTR 14 THEN T YPE , t CF 1 1 *14; 06564250 

STREAM(TI KCJ*LCC» CR I *T YPE t [ FF 3-1 . LM*TYPF)I 06564500 

BEGIN DI»»T; DI«*Dl+l; S1090656500Q 

ORCOS^-LIT"*"); 06566000 

LF(DS*LIT M # W ); 06568000 

XCCDSl*LjT w <»); % LIT IS A LSS CHR, S109065681Q0 

DS*LIT t, * M i 06569000 

T*DM 06570000 

FNDJ 06571000 

Tl*P; 06571500 

NUMl«(Cl«NUM)*TYPE,ICFJ-TYPE f l32ll3+UCC*2l 06572000 

IF LCC*0 AND C GTR 72 THEN % FOLD THE LINE 06572500 

BEGIN SPARESlsIF NUM>184 THEN 186-C ELSE 107; 06573000 

D0NEI»LSIZI«70; 06573500 

AGAJNI IF (W»«IF C-LSIZ GTR 38 THEN 24 ELSE LSIZ+6Q"C) 06574000 

GEO SPARES THEN WI«SPARES; 06574500 

STREAMCN|»(NUM+7),t39|6]-(D0NE+7),t39l6]I 06575000 

Nli*(8-D0NE,[45I3J).[45»33» W# T); 06575500 

BEGIN Sll»T; SII»SI-8; DII«DI+8; 06S76000 

N(DSI*»WDS; SIikSI-16; DI»»DI-16)J 06576500 

dsi«wds; sii«si-ni; oh»di-ni; 06577000 

wc if sc»" " then 06577500 

BEGIN DSt'CHR) Dll"0I-171 06578000 

JUMP OUT TO L; 06578500 

END; 06579000 

TALLYl»TALLY+l; DSI»CHR; 06579500 

SltaSI*2l DH"0l"2)l 06580009 

SII«SI*17; DIHDIM5I DS»*W CHR; 06580500 

TALLYlsO; 0!l«OI"ll 06581000 

Li Ni*TALLYI DS|*16 LlT"x*S* xx»; 06581500 

END; 06582000 



_ 



NUM»«NUM+16I 06562500 

IF (C«=(LASl*P)+C»LSIZ) GTR 60 THEN 06583000 

BEGIN D0NEI»D0NE + 74»US; 06583500 

SPARESt*SPARES-LAS! 06584000 

Tl»T+2! 06584500 

LSI2l*58> 06585000 

GO AGAIN! 06585500 

END END END! 06586000 

0UTRAN980*NUM| 06587000 

END* 06588000 

$ SET OMIT * TWXONLY 06588990 

REAL PROCEDURE OUTRANB I DSC ADR» NUM » T YPE» Bf T ) 1 0659000P 

VALUE ADR»NUM»TYPE! 06590100 

REAL ADR»NUM»TYPE»B>T1 06590200 

BEGIN REAL D» X. Y»Zt Nl » N» QJ 06590300 

LABEL Z I Tl 06590400 

Bl»SPACEC30)+ll 06590500 

IF TYPE, CIIU THEN 06590600 

BEGIN! 06590700 

STREAM(YI*Q»=Oi ADR I »N » *ADR> D ? *B I )! 06590800 

BEGIN SII-ADRI Dll*DJ 06590900 

IF SC*ALPHA THEN IF SC LSS THEN GO TO 81 06591300 

Af IF SC*"# M THEN 0659J400 

BEGIN D5!*CHRJ 06591500 

IF SO*"*" THEN 06591600 

B! BEGIN TALLYl*i; Yj«TALLY! GO 10 YJT END* 06591700 

DSlBCHR* GO TO A! 06591800 

END! 06591900 

YITl D»»DI! ADR l«SI I 06592400 

END STREAM! 06592500 

Dl»P! ADRl«P« Xl*Yt*Pl 06592600 

NUM|»NUM - ADR.t30l3H(ADR-N)[30«33;i5]; 06592706 

END ELSE 06593100 

BEGIN STREAM(DI*QI«B»X!*CNUM#X)1US!«CN0T TYPE) • C2U ] • ADR) J 0659320i 

BEGIN Dl««D! 06593300 

X(Sll»ADR! 06593320 

IF SOLEFTARROW THEN 06593340 

BEGIN CllsCI+LAS? GO TO LI 06593360 

TALLY«*0I X!*TALLY; 06593380 

END ELSE 06593400 

L» DSl*LIT"#")! 06593420 

0»*DI! 06593440 

END! 06593500 

XIpYI»P| DI*PJ 06593600 

ENDI 06593700 

DO 06593800 

BEGIN NI«IF (Nli«NUM GTR 63) THEN 63 ELSE NUM; 06593900 

IF TYPE. [Ill] THEN 06594000 

BEGIN! 06594100 

STREAM(DISC»»8»ADR»D»Z.XtY|i»0lLASl*(N0T TYPE),[2«1J»N.N1# 06594 200 

A I »P 16601 40206557501 »8 I "02072350304000000 1 06594250 

CI»0iClt»0fC2U0»C3!»0)! 06594 300 

BEGIN SIlwADR! DH«D! 06594400 

C1»»CI! GO TO NEXT! 06594500 

Y(SII»SI+1! 06594600 

IF SO°*" THEN SI*SIM ELSE 06594700 

BEGIN TALLYt*01 Y»*TALLY! 06594800 

TALLYt*l! JUMP OUT TO RETURN! 06594900 

END)! 06595000 

XCTALLYl»0i JUMP OUT TO LI)! 06595100 



TALLY 1*11 06595200 

11* DS|»CHR1 06595300 

RETURN* Xl*TALLY* CH*C3* 06595400 

06595500 

NEXTl C2»*CI* GO TO START* 06595600 

IF SC*"-" THEN 06595700 

BEGIN DSt*3 LIT"1 " ; DSi*CHR* 06595600 

IF SC*"*" THEN DS}*3 LIT "3 "* GO BACK END) 06595850 

IF SC*"*" THEN 06595900 

BEGIN SI l»SI-ll 06596008 

IF SC*""" THEN BEGIN SH«SI+2l GO BACK END* 06596100 

5I«*SI+1* DSi*3 LIT W 1 M J DS**CHR* 06596200 

GO BACK* 06596300 

END* 06596400 

C»»0IJ DH»LOC A* 06596500 

7UF SC*DC THEN 06596600 

BEGIN DIlsC* SI l«5l -1 « 06596700 

DSl*CHR* JUMP OUT TO BACK 06596800 

END ELSE SI»*SI*l)J 06596900 

6CIF SC*DC THEN 06597000 

BEGIN DIt'C* SI * * S I - 1 ; DSlsCHR* 06597100 

IF SC*" » THEN 06597200 

BEGIN $||»SIM> 06597300 

IF SC NEQ " " THEN DSI*LIT" "J 06597400 

SI ; «S I -1 1 06597500 

END ELSE DS«*2 LIT" w J 06597600 

JUMP OUT TO BACK* 06597700 

END ELSE SII«SI-l)f 06597800 

SI»*SI+1* DIt*C* 06597900 

BACKl CH*C3J 06598000 

06598100 

START! N(IF SC*"*" THEN 06596200 

BEGIN C3**CI* CH*Cl* GO TO L END* 06598300 

IF SC*"*" THEN 06598400 

BEGIN CI t*CI+LAS* JUMP OUT TO LA* 06598420 

XCDSisLIT MARK; S I I « S I + 1 I JUMP OUT TO D* 06598440 

GO TO CM* 06598460 

END* 06598480 

X(DS**CHR* JUMP OUT TO L)» 06598500 

IF SC»ALPHA THEN IF SC LSS "0" THEN 06598600 

BEGIN YCJUMP OUT TO AOK)* 06598701 

DS*LIT"#"> TALLY-1* Y+TALLY? 06598800 

AOK) 0SI«CHRJ GO TO L* 06598900 

END* 06599000 

CMl YCDSl*LIT"#"» TALLY»*Q* Y»*TALLY)* 06599100 

IF SC*"$" THEN BEGIN TaLLY|*4» JUMP OUT TO LAN END*0659920» 

IF SC*"*" THEN BEGIN TALLY|*1* JUMP OUT TO LAR END*06599300 

C3l*CI* CI»*C2* 06599400 

Ll *>* 06599500 

NKJUMP OUT TO YIT)» 06599600 

LAI SU*SJM* 06599700 

XC IF SC*"#" THEN DS«-HT"i»" ELSE 06599601 

BEGIN DIl'DIM! TALLY»«OJ Xl.TALLY END* 06599850 

JUMP OUT TO LD* 06599900 

YCDS*LIT"#")* 06600000 

LL» TALLYJ»0> 06600100 

LARl DSl*LIT LEFTARROW* DISC**TALLY* 06600200 

YI T I DI*DI» ADRI*SIJ 2 I* 01* 06600300 

END* 06600400 

QtxP* X»ePj 06600500 



END 06600600 

ELSE 06600700 

BEGINI 06600750 

STREAM(DISClw8f ADR»0»Z»YlLASi«TVPE.t2lll»N»Nl#X» 06600800 

CRl*TYPEtCFFJ-l»LFl»TYP£,lCFJ-(P<DUP)*0). 06600850 

RLF»*(TYPE*0)#Q) j 06600900 

BEGIN SlfsADR; 0II«0; TALLYlsO; 06601000 

NC IF SC ■ LEFTARROW THEN 06601100 

BEGIN 06601200 

LASCZ t*DI I DISCl'TALLY* JUMP OUT 2 TO L3)J 06601300 

DSI»LIT MARKJ SIlsSI+H 066014QQ 

GO SETZJ 06601450 

END ELSE 06601500 

BEGIN IF SC» M *" THEN OS J «L I T w *" J 06601600 

IF SC*" " THEN DS|*CHR ELSE 06601650 

BEGIN DSl*CHR* 06601700 

SETZl Zl«DI* 06601750 

END* 06601800 

END); 06601850 

N1UUMP OUT TO YIT>> 06601900 

L3I DISC(SH»LOC Z; SJJ«Sl+5* DII*LOC Z* 06602000 

IF 3 SC«OC THEN 06602020 

BEGIN 01 l*QI X(YI«TALLY)J 06602040 

JUMP OUT TO L2 06602060 

END ELSE JUMP OUT); 06602080 

01 1*Z; XCDS!«LIT H * M )J 06602100 

L2l CR(0S«*4 LIT"! -")* 06602200 

LF(DSl»4 LIT W 1 *")* 06602300 

RLFCDSt«3 LIT"3 ")* 06602350 

DS»*LIT LEFTARROWI 06602400 

Z 1*01 * 06602500 

YJT« Oi*DI I ADRI-SIJ 06602600 

END* 06602700 

Y««P* 06602730 

END* 06602760 

Zl«P* DJ«PJ ADR»*PJ 06602800 

END 06602900 

UNTIL PUTJ»SND) NEO 8 OR ( NUM | =NUM«63 ) LEQ 01 06603000 

0UTRANB!DSl*Z,t3Ol3U(Z-B)C3OI33»153l 06603100 

T|*T4Y[2I47»134(IF TYPE.UUJ THEN (X OR Q) ELSE NOT ( TYPE , tFF 306603200 

■ OR TYPE.tCF] * 0))[l«47in; 06603300 

ZIT| END OUTRAN BIDS* 06603400 

REAL PROCEDURE OUTRANK ( ADR» NUM, TYPE* B» C ) * 06610000 

VALUE ADR» NUM» TYPE* 06610100 

REAL A0R» NuMt TYPE» B» C* 06610200 

BEGIN REAL D» X» Y» Z» N1» N, Qj 06610300 

B I* SPACE(30)+1* 06610400 

IF TYPCtClll) THEN 06610500 

BEGINI 06610600 

STREAM(YjeQ»ADRl*Ni«ADR»Dl*B» ); 06610700 

BEGIN SII'ADR* DI("D* 06610800 

Al IF SC * "*" THEN 06611200 

BEGIN D$!*CHR* 06611300 

IF SC NEQ "#" THEN 06611400 

BEGIN TALLY 1*1 1 Y|*TALLY* GO TO YJT END* 06611500 

DS»»CHR» GO TO A* 06611600 

END* 06611700 

YIT» 0«*DI» A0RI*SI I 06611800 

END STREAM* 06611900 

Dl*P* ADR|«P* X|»Y|»P* 06612000 



NUMjwNUM - ADfM30l3H(ADR*N>[30l33llb)l 06612100 

END ELSE XBCL SCAN 06612200 

BEG1NI 06612300 

STREAM(Dl»Ql*8tXl*(NUM#0)lUSl«(N0T TYPE ) . C 2 ! 1 J » ADR) ! 06612400 

BEGIN Dli«DJ 06612500 

X(SI»«ADR» 06612520 

IF SOLEFTARROW THEN 06612540 

BEGIN ClmCl+LASJ GO TO LJ 06612560 

TALLYisOl Xl*TALLY; 06612580 

END ELSE 06612600 

Ul D5l«LIT"#"); 06612620 

Dl*Dl! 06612640 

END STREAM) 06612700 

X»»Y«*P* DI*P* 06612600 

END) 06612900 

DO 06613000 

BEGIN Nt»IFCNU*NUM GTR 63) THEN 63 ELSE NUM! 06613100 

IF TYPE. £im THEN *MQRE SICASCII 06613200 

BEGIN! 06613300 

STREAM(DjSCl«8f ADR»D» Z. X I LAS 1 *< NOT TYPE),C2U J i N * Nl . C 1 I *0 » C3 I *0) I 0661 3400 

BEGIN SII*ADRJ DH*Di 06613500 

Clt«Cll GO TO STARTJ 06613600 

X(TALLYt*0| JUMP OUT TO Ll); 06613700 

TALLY 1*1 ; 06613800 

Lll DS»*CHR; Xl*TALLYJ 06613900 

CIt«C3l 06614000 

START! NC IF SC » "f THEN 06614100 

BEGIN C3!*Cl! CII«C1I GO TO L ENDI 06614200 

IF SC ■ LEFTARROW THEN 06614300 

BEGIN CH«CULAS; JUMP OUT TO LA! 06614320 

X(DSI*LIT MARK); GO TO LO! 06614340 

ENDi 06614360 

X<0SI»CHR! JUMP OUT TO L); 06614400 

IF SC * ALPHA THEN 06614500 

BEGIN IF SC«"5" THEN GO TO LO; 06614600 

IF SC* M 7'* THEN GO TO LO; 06614700 

END ELSE 06614800 

BEGIN IF SC«"& M THEN GO TO LO; 06614900 

IF SC*"<* THEN GO TO LO; 06615000 

IF SC»"*" THEN GO TO LO; 06615100 

IF SC»""" THEN GO TO LO; 06615200 

IF SC«"£" THEN GO TO LO; 06615300 

IF SC*"# H THEN BEGIN TALLYlei; JUMP OUT TO LAR END; 06615400 

IF SC* n t" THEN BEGIN TALLY«*4; JUMP OUT TO LAR END; 06615500 

END; 06615600 

DSmCHR! GO TO LJ 06615700 

LOl S1|»SI+1! 06615750 

Ll ;); 06615800 

N1CJUMP OUT TO YIT); 06615900 

LAI SH»SI-i; 06616000 

XC IF SC NE8 "* M THEN DS|«LIT "f»" 06616100 

ELSE BEGIN DH-Dl-1! TALLYl»0! Xl«TALLY END); 06616200 

TALLY|i»0! 06616300 

LAR» DSI'LIT LEFTARROW; DISC!*TALLY; 06616400 

V I T I DI»DI» ADR»*Si; Zf«Di; 06616500 

END SICASCII STREAM! 06616600 

X!»P! 06616700 

END 06616800 

ELSE *SCAN SOME MORE BCL 06616900 

BEGIN; 06616950 



STREAM(DlSCI»6»ADR»D»Z»YlLASl»TYPEtt2lM»NfNl»XtCRl"TYPE,[FF]-l»06617000 

LFI*TYPE»Q)J 06617100 

BEGIN SH«ADR; DH»DI TALLYl«0* 06617200 

ncif sc » leftarrow then 06617300 

BEGIN 06617400 

LAS(ZI«DU DISC«*TALLY» JUMP OUT 2 TO L3)J 066*7500 

SH»SI + 1I DSssLlT MARK* 06617550 

GO TO SETZ; 06617600 

END ELSE 06617650 

BEGIN IF SC*"*" THEN DS|»L,1T W >« W ; 06617700 

IF SC" " THEN DS»«CHR ELSE 06617750 

BEGIN OSlsCHR) 06617800 

SETZI Z»*DI» 06617850 

ENDI 06617900 

ENO)l 06617950 

NKJUMP OUT TO YIT)» 06618000 

L3t DISCCSII»L0C Z> $It»Sl+S| DI»*LOC Z> 06618100 

IF 3 SC»DC THEN 06618120 

BEGIN DUfOI X(Yl*TALLY)J 06618140 

JUMP OUT TO L2 06618160 

END ELSE JUMP OUT)! 06618180 

DH»Z| XCDSI*L1T "#")> 06618200 

L2l CR(DSl«LIT "-">J 06618300 

LF(DSI*LIT "*")> 06618400 

DSJ« LIT LEFTARROW) 06618500 

Zl-DJI 06618600 

YITJ Dl*DIJ ADRI«SH 06618700 

END BCL STREAMI 06618800 

Yl»Pl 06618830 

ENDI 06618860 

Z|*P> Dl*P> ADR«*PJ 06618900 

END 06619000 

UNTIL P([C3»SND) NEQ 8 OR ( NUM ieNUM-63) LEO OJ 06619100 

0UTRANTCl»Z,C30l3]4(Z»B)[30«33ll5]» 06619200 

Cl*C&Yt2|47»lH(IF TYPEitlUJ THEN X ELSE 06619300 

N0T(TYPE,CFFJ B OR TYPE.tCFJ NE« 0))tli47H3l 06619400 

END OUTRANTO 06619500 

$ POP OMIT 06619501 

%* + ******************************* *XJS06845900 

define klump«p174#|x pi 73 is reserveo for the disk address 07000000 

comment lastcdnum* fjrstdeck. and lastdeck are stored in the 07000010 
first three words of the disk segment located at directorytop 07000015 

♦3. in a non shared disk system they are written out each 07000020 

time one of them is changed so that they will be preserved 07000025 

if a halt/load occurs, in a shared disk systemt they are 07000030 
Read into the prt with a read-lock command each time they are 07000035 
used, this provides control deck interlocking between systems 07000040 

IN ADDITION TO PASSING The INFORMATION BETWEEN SYSTEMS, 07000045 

END COMMENTI 07000050 

INTEGER LASTCDNUM»Pj74l 07000100 

REAL FIRSTDECK«?175J 07000200 

REAL LASTDECK«*176I 07000300 

DEFINE LOCKCONTROLDECKSuBEGlN SLEEPC t TOGLE J » CDMASK ) I LOCKTOG( CDMASK ) I 07001000 

S SET OMIT * NOT(SHAREDISK) 07001099 

DlSKWAlTC-KLUMP,-3#DlRECT0RYT0P+3); 07001100 

$ POP OMJT 07001101 

END#t 07001200 

UNL0CKC0NTR0LDECKS«BEG1N 07001300 

...» SET OMIT • NOTCSHAREDISK) 07001399 

DISKWAIT(KLUMPf-3»DIRECTORYTOP+3)l 07001400 



S POP OMIT 07001401 

UNUOCKTOG(CDMASK) END*! 07001500 

REAL PROCEDURE NEXTCDNUMCUPDATE ) J VALUE UPDATE! BOOLEAN UPDATE! 07001600 

BEGIN 07001620 

LOCKCONTROLDECKSJ 07001640 

LASTCDNUM |« CLASTCDNUM MOD 9999) + l! 07001660 

STREAM(CDNUMI«0» LNUM I «LASTCDNUM ) I 07001680 

BEGIN 07001700 

SII«L0C LNUMI DH»LOC CDNUMJ DS|*8 DEC! 07001720 

END! 07001740 

NEXTCDNUM l« P! 07001760 

IF UPDATE THEN 07001780 

BEGIN 07001800 

DISKWAIT(KLUMP,-3#DIRECT0RYT0P+3)J 07001820 

UNLOCKTOGCCDMASK)! 07001840 

END! 07001860 

END! 07001880 

PROCEDURE STARTADECKCN3J VALUE Nj REAL N! FORWARD! 07002000 

PROCEDURE ENTERCONTROLDECK(H)l VALUE HI ARRAY HC*Jl FORWARD! 07002100 

REAL RUNUMBER!* 07003000 

PROCEDURE C0M23!X 07004000 

BEGIN* 07005000 

REAL INBUFF** ADDRESS OF THE INPUT BUFFER. 07006000 

OUTBUFF.X " " " OUTPUT BUFFER. 07006010 

FIRSTCARD.X " M " CARD IMAGE OF THE FIRST CARD 07006020 

0UTBUFF0LD»X " w w LAST OUTPUT BUFFER. 07006030 

RESERVEiX " "30 WDS OF CORE USED TO BUILD THE 07006040 

T,T1»T2,X TEMPORARY VARIABLES. 07006050 

R.L.N.X " H USED TO COUNT CARD IMAG 07006060 

Q.X USUALLY INDICATES COL 1 HAS A QUESTION MARK 07006070 

IU*t UNIT NUMBER OF THE INPUT UNIT, 07006080 

0U»X " " " " OUTPUT UNJT, 07006090 

FIRST.X TRUE IF THE FIRST CARD OF A DECK, 07006100 

SiX USED AS A TEMPROARY VARIABLE IN SUBROUTINE 07006140 

X AND TO HAND THE UNJT NUMBER TO SUBROUTINE S 07006150 

D!X USED AS A MASK TO SLEEP UNTIL DISK OPERATlO 07006160 

X ARE COMPLETED, 07006161 

S SET OMIT * NOTCPACKETS) 07006169 

REAL VERYFIRST. XTRUE IF THE FIRST CARD OF THE FIRST DECK 07006172 

XIN SINCE LOAD CONTROL WAS EXECUTED, 07006174 

FIRSTORSEC* XTRUE IF THE FIRST OR SEC. CARD OF NEW DECK 07006176 

PTYPE.X CONTAINS THE RESULT OF REAL SUBROUTINE 07006180 

X PACKETCARD.SAVING SOME NEEDLESS EXTRA 07006190 

X CALLS ON IT TO CHECK THE TYPE OF A CARD. 07006200 

X THE VALUE OF PTYPE IS AS FOLLOWS! 07006210 

X « NOT A PACKET CONTROL CARD 07006220 

X 1 * "PACKEND"CARD» (USED BY THE 07006230 

% OPERATORS TO END A GROUP 07006240 

X OF PACKETS BEING LOADED TO 07006250 

X DISK) 07006260 

X 3 * "PACKET" CARD»(FIRST CARD 07006270 

X OF A PACKET) 07006280 

X 5 » "END PACKETS" CARD» (USED BY 07006290 

X THE OPERATORS TO BOTH END 07006300 

X A GROUP OF PACKETS AND 07006310 

X SIMULTANEOUSLY DISCONTINUE 07006320 

X LOAD CONTROL). 07006330 

PLUGGEDIX TRUE IF THE LAST "PACKET" CARDU.E.i 07006340 

X PTYPE*3)» WAS BOTH THE START OF A NEW 07006350 

X PACKET AND WAS USED TO "PLUG" THE END 07006360 



* OF THE LAST PACKET WITH AN ARTIFICIAL 07006370 

* "-QUESTION MARK- PACKET," CARD; 07007000 
$ POP OMIT 07007001 

BOOLEAN CDONLY; 07007100 

INTEGER A»ll* 07008000 

t SET OMIT * NOTCPACKETS) 07008199 

REAL C0NTINUE»DISKCHA1N»ADECM LABEL DK; 07008200 

LABEL INPUTLJ 07008300 

$ POP OMIT 07008301 

LABEL AGAIN»INL»ERRORiSUPER»BQMB»SKlPlT»EXIT; 07009000 

ARRAY FPBC*3»HC*m 07010000 

SUBROUTINE STOP!* 07011000 

BEGIN IF S * 18 THEN* 07012000 

BEGIN READY * NOT(Q * TWOCS)) AND READYI* 07013000 

RRRMECH ♦ NOT AND RRRMECH OR Q AND SAVEWORDI* 07014000 

LABELTABLE[S1 * P114J* 07015000 

RDCTABLECS3 ♦ MULT I TABL£[ S J * 0% 07016000 

END** 07017000 

FPBCT*1J* *P(DUP)+CLOCK+P(RTR)U 07018000 

FPBCT J v C24H23 * T INUtS 3 , 1 18> 12 J ; * 07019000 

T!NUCSJ,[ieil2]l«0! 07020000 

ENDI* 07021000 

t SET OMIT ■ PACKETS 07021999 

SUBROUTINE FORGET IT J* 07022000 

S POP OMIT 07022001 

S SET OMIT * NOTCPACKETS) 07022099 

SUBROUTINE FORGETONEI 07022100 

* POP OMJT 07022101 

BEGIN Tl * H[9]+9l* 07023000 

FOR T2 ♦ 10 STEP 1 UNTIL Tl DO* 07024000 

F0RGETUSERDISKCHtT2J»-H[8J)l 07025000 

ENDI* 07026000 

t SET OMIT ■ NOTCPACKETS) 07026099 

SUBROUTINE FORGETlTl 07026100 

BEGIN FORGETQNEJ 07026200 

WHILE DISKCHAIN NE8 DO 07026300 

BEGIN DISKWAITC-CH I NX ) » 30t D I SKCHA I N ) I 07026400 

DlSKCHAINl«HC6).tFFJJ 07026500 

FORGETONE! 07026600 

ENDI 07026700 

END FORGETlTl 07026800 

t POP OMJT 07026801 

SUBROUTINE BOMBTIMEl* 07027000 

BEGIN WHILE PRTROWC P1M I X J , [PSF J >1 DO 07028000 

STOPMI 07028100 

IF TERMSETCP1MIX) THEN GO BOMBl 07028800 

ENOI 07028900 

t SET OMIT m NOTCPACKETS) 07028999 

REAL SUBROUTINE PACKETCARDI* THIS USED TO BE "ENDCARD" 0702900* 

BEGIN IF THEN* 07030000 

BEGINIX 07031000 

STREAMCX|«"PACKETS"lYt« M CONTlNU"» 2l«"END. "»INBUFF)I 07032000 

BEGIN SI * INBUFFI* 07033000 

LI SI * SU1I IF SC * " " THEN GO TO LI* 07034000 

DI*LOC XI DI*DI+1IX POINT TO "PACKETS" 07035000 

IF 4SC«DC THEN* A "PACKET" OR "PACKEND" CARD 07036000 

IF 2SCDC THEN TALLY*3* A "PACKET" CARD 07036100 

ELSE TALLY*1* A "PACKEND" CARD 07036150 

ELSE BEGIN DI*Dt-4|* POINT TO "PACKETS" 07036200 

IF 7 SC*DC THEN TALLYj»5 *"END PACKET" 07036210 



ELSE BEGIN SI»*SI*1U DII«LOC Y| 



ENDI 



endi* 



DIUDIUHF 7SC«DC THEN TALLYI»6 
ELSE BEGIN DI«*LQC ZIDH«D1 + 1I 
SII«SWI 

IF 3SC*DC THEN TALLYl*7j 
END* 

* TALLY!* 



END 
PTYPEI*Pl 
IF PTYPE«6 THEN BEGIN 

ELSE CONTINUE««FALS 
IF PTYPE*7 THEN PTYPEI 
PACKETCARDI*PTYPEJ 

ENDI* 
t POP OMJT 

S SET OMIT » PACKETS 
BOOLEAN SUBROUTINE 
BEGIN IF Q THEN 

BEGIN MCINBUF 
STREAMC 
BEGIN S 
LI SI** 
DII*L0C 
IF 3 SC 
XlsTALL 
END) 
END ELSE PCO) 
ENDCARDI«*PJ 
ENDI 
4 POP OMIT 

REAL SUBROUTINE ADR 

BEGIN IF (T2 * 

BEGI 



end;* 
else pconx 

PTYPE»*3) CONTlNUElsTRUE END 

EJ 
»ADECK» 



ADR *■ 
END)* 
SUBROUTINE INPU 
BEGIN* 

IF IU 

SET OMIT * NOTCP 

BEGIN 

INPUT 



END) 
R M 

TJX 

< 1 
ACKE 

LI 

0600 
IF T 
IF T 



$ 

$ 



POP 
SET 



OMIT 
OMIT 



PACKETS 

BEGI 



ENDCARDI 

F+9]m0t« l "[lM3t5)J 

X|» W END"IINBUFF)J 

I«*INBUFFJ 

SI+ll IF SC*" " THEN GO TO LI 

X» DI 1*01+5* 
*DC THEN TALLYJMI 
Yl 



; 



i* 

HC(Tl * R DI V 200)+10J) * THEN* 
N H[9] * T 1 + 1 1 * 

HtTt+10] * T2 * GETUSERDISK(200)|X 
X 
OD 200+T2X 



6 THEN* 
TS) 

T * WAITIO (01205*0000000 ♦ 1NBUFF# 
0040» IU)I 

*04O THEN GO TO INPUTLJ 
*0 THEN 
BEGIN 

PCDEDJ 
GO TO ERROR 
ENDI 



N IF FIRST THEN* 

T ♦ WAITIOCPHOOOOOOO ♦ INBUFF** 
»40tIU);X 
T * WAITIOCP120540000000 ♦ JNBUFF** 
P2000000»IU)I* 



S POP OMIT 



07036220 
07036230 
07036240 
07036250 
07036260 
07036270 
07036400 
07037000 
07038000 
07039000 
07039100 
07039200 
07039300 
07039410 
07040000 
07041000 
07041001 
07041099 
07041100 
07041UO 
07041120 
07041130 
07041140 
07041150 
07041160 
07041170 
07041180 
07041190 
07041200 
07041210 
07041220 
07041221 
07042000 
07043000 
07044000 
07045000 
07046000 
07047000 
07048000 
07049000 
07050000 
07051000 
07051099 
07051100 
07051110 
07051120 
07051130 
07051140 
07051150 
07051160 
07051170 
07051180 

07051181 
07051999 
07052000 
07053000 
07054000 
07055000 
07056000 
07056001 



Q ♦ MC INBUF'F-1 J»9j* 07057000 

ENDX 07058000 

ELSE BEGIN MHI IE ( Q*WA I T I 0(040000000+ I NBUFF»F I RSTx4+ 07059000 

04000000. IU)>, [45113 00 07059100 

IF FIRST AND CDONLY THEN GO EXIT ELSE 07059110 

BEGIN SLEEPUTOGLEJ»STATU$MASK); 07059200 

RRRMECH*RRRMECH AND NOT Q*TWO(lU)J 07059300 

READY*READY AND NOT Qj 07059400 

DO BEGIN CLICK«-CL0CK + PCRTR) + 64J 07059500 

SLEEP(tREADY3»Q)* 07059600 

BOMBTIMEI 07059700 

END UNTIL (READY AND Q)#0J 07059800 

END! 07060000 

IF Q * * THEN 07061000 

UNITCIU], [51133*01 07066000 

T ♦ 01* 07067000 

END** 07068000 

ENDJX 07069000 

X SET UP INPUT VARIABLES* 07071000 

* SET OMIT » NOTCPACKETS) 07071899 

0U*PSEUD0MIX[P1MIX3) 07071900 

PSEUD0MIXCP1M1X]*0I 07071910 

t POP OMIT 07071911 

IF CD0NLY|b(PRT[P1MIX»P251>22) THEN 07072000 

BEGIN IUJ»PRT[P1MJX#0253J 07072100 

PRT[P1MIX,P25J«*0I * DISK 07072200 

END ELSE 07072300 

BEGIN IF (IU|3F1NDINPUT(*C0NTR0L"»"DECK w » 0# Ot 0» 0» 0# 0# 07072400 

0*0)) LSS THEN GO INITIATE* X BEEN DS-ED 07072500 

IF IU GEO 32 THEN PC XI T > ; * EOJ IF PSEUDODCK07072600 

END* 07072700 

S SET OMIT ■ NOTCPACKETS) 07072899 

PSEUD0MIX[P1MIX3*0U; 07072900 

S POP OMIT 07072901 

STARTIMINGCO»IU)J 07073000 

FPBI»PRT[P1MIX»33* 07073500 

IF N0T(JARtPlMlX»9J,t2U J) THEN I DONT SUPPRESS MESSAGE 07074090 

FILEMESSAGEC" IN "&T I NU [ IU J [ 6 J 30 * 18 J #0* 07074100 

w CONTROL ,, »"DECK " » 0. 0» 0# OPNMESS OR OPENK)* 07074200 

RDCTABLE[IU3.[8»6] * P1MJXIX 07075000 

IF IU LSS 16 THEN 07076000 

BEGIN FPB[33,[23in»»l* * SET INPUT FLAG FOR LOG 07076010 

TI*WAITIO(P540Q00005»0» IU); 07077000 

END 07077010 

ELSE IF !U*23 AND READERA NEQ THEN 07078000 

BEGIN F0RGETSPACECREADERA-2X* 07079000 

READERA * OJX 07080000 

END* 07081000 

ELSE IF IU*24 AND READERB NEQ THEN 07082000 

BEGIN F0RGETSPACE(READERB-2)>* 07083000 

READERB * OJX 07084000 

END** 07085000 

INBUFF * GETSPACE(11»0#1) ♦ 2* 07086000 

FIRSTCARD * GETSPACEC 10t 0. 1 )+2J X 07087000 

X SET UP OUTPUT VARIABLESX 07088000 

IF PRT[P1MIX»P253 THENX 07089000 

BEGIN OU ♦ LABELASCRATCHCT *X 07090000 

TAPELABELC"CONTROL"»"DECK "» 1. 1 » 100) ) |X 07091000 

FORGETSPACECT)** 07093000 

FPB[33t[23llH»0* X SET OUTPUT FLAG FOR LOG 07093010 



END* 07094000 

ELSE BEGIN OUTBUFFOLD * OUTBUFF * GET SPACEC60 ,0, 1 ) + 2 I * 07095000 

RESERVE * GETSPACE(30»0»i)+2IX 07096000 

H ♦ [M[GETSPACEC30.0»l)*2]H30[8»38U0m 07097000 

OU * 18! X 07096000 

ENDJX 07103000 

STARTIMING(5»0U)J 07104000 

FPBI"PRTIPlMIXt3J| * STARTIM1NG MAY HAVE MOVED IT. 07104500 

S SET OMIT m NOTCPACKETS) 07105499 

VERYFIRSTMJ* 07105500 

S POP OMIT 07105501 

* BEGIN ONE DECK* 07106000 
AGAIN* OUTBUFF * OUTBUFFOLD? * 07107000 

L * N » Oil 07108000 

S SET OMJT « NOTCPACKETS) 07108099 

FIRST*FIRSTORSEC*D*ll ADECK-O; 07108100 

S POP OMIT 07108101 

$ SET OMIT * PACKETS 07108999 

FIRST * * II 07109000 

$ POP OMIT 07109001 

IF OU * 18 THEN* 07110000 

BEGIN Ht 9) * Oj* 07111000 

M0VEC20t[H[9]J»[H[l0JJ); 07112000 

H[8]*200i 07112100 

END!* 07113000 

* BEGIN ONE CARD* 07114000 
INL« 07115000 

S SET OMIT m NOTCPACKETS) 07115099 

IF PTYPE N£Q 3 OR VERYFIRST THEN 07115100 

* POP OMIT 07115101 

INPUT! 07115200 

$ SET OMIT « NOTCPACKETS) 07115499 

IF FIRSTORSEC THEN* 07115500 

S POP OMIT 07115501 

IF FIRST THEN* 07116000 

BEGIN 07117000 

S SET OMIT m NOTCPACKETS) 07117099 

PLUGGED»«sVERYFIRSTJ 07117100 

S POP OMIT 07117101 

S SET OMIT « PACKETS 07117199 

FIRSTl*FALSEJ 07117200 

* POP OMJT 07117201 

MOVE C 10 t INBUFF»FIRSTCARD)I* 07118000 

$ SET OMIT * NOTCPACKETS) 07118099 

IF PACKETCARD USS 3 AND PKTONLY 07118100 

THEN BEGIN VERYF lHST*2l * 07118200 

GO TO ERROR* 07118300 

END ELSE * 1NV PKT CARD 07118400 

IF PTYPE*5 THEN 07118500 

IF 0U<16 THEN F IRST I «VERYF I RST l»0 ELSE 07118510 

GO TO EXIT ELSE 07118520 

IF PTYPE'3 OR CONTINUE THEN 07118550 

BEGIN 07118600 

ADECKi-lJ GO DKI 07118690 

ENDJ 07118700 

END ELSE* THIS MUST BE THE SECOND CARD IN 07119000 

* POP OMJT 07119001 

* SET OMIT * PACKETS 07119009 

END! 07U9010 

$ POP OMJT 07119011 



$ SET OMIT = NOTCPACKETS) 

OKI IF Q THEN F I RST ORSEC » *0 ELSEXBAD SEC, /FIRST 

BEGIN VERYFIRST*4; X CARD 

GO TO error;* 

ENDJ* 1NV DECK SET-UP 
% POP OMIT 

IF T NEQ THEN 
$ SET OMIT b NOTCPACKETS) 

IF PTYPE NEQ 3 OR VERYFIRST THEN 
t POP OMIT 

GO TO ERROR! 

bombtime;* 

if ou < 16 then* 

BEGIN 
$ SET OMIT m NOTCPACKETS) 

PLUGGED ♦ VERYFIRST OR CPACKETCARD#3 ) 

OR first; 

IF PLUGGED THEN 

* POP OMIT 

T*WAlTl0UNBUFF»*5Q00[i8i33ll5J 
&C10-Q)£8»38U0J»0»QU)I 
t SET OMIT « PACKETS 

IF NOT ENDCARD THEN GO TO INL; 
t POP OMIT 
$ SET OMIT « NOTCPACKETS) 

IF VERYFIRST THEN VERYF IRST*PT YPE*0 I 
IF FIRST THEN URST*-PTYPE*0; 
IF PTYPE*0 THEN GO TO INL* 
I POP OMIT 

MtlNBUFF-U * P1737000O0OOOOOO0; 
T * WAITIO£lNBUFF-l»0»OU)» 
SUPERM 

* SET OMIT * NOTCPACKETS) 

IF PTYPE»5 THEN GO TO EXIT* 
IF PTYPEM THEN VERYF I RST J -TRUE i 
GO TO AGAIN) 
$ POP OMIT 

* SET OMIT b PACKETS 

STREAMCX|«*"CONTROL*» INBUFF )J 
BEGIN SIMINBUFFI 
El IF SC NEQ H E" THEN 

BEGIN SI * SI + D GO TO E END; 
SI ♦ SI+3;« 
L» IF SC « " " THEN* 

BEGIN SI * Sl*i; GO TO L END; 
DI * LOC X; DI * DI + HX 
IF 7 SC ■ DC THEN X * TALLY;* 
ENDJX 
IF P # THEN GO TO AGAIN ELSE GO TO EXIT;* 

* POP OMIT 

end;* 
if » then sleepudj»not 0); 

$ SET OMIT p NOTCPACKETS) 
IF PACKETCARD NEQ AND NOTCADECK AND PTYPE*1) THEN 
BEGIN IF NOTCPLUGGED OR FIRST) THEN* 
BEGIN STREAMCD'OUTBUFF); BEGIN DS*27 LIT 

"CC END.,, IN CASE YOU FORGOT"; DS«-45LI T" " END; 
IF NOT PKTONLY THEN IF PTYPE»3 AND NOT CONTINUE AND NOT ADECK 
BEGIN STREAMCFIRSTCARD»T*T*SPACEU3)); 

BEGIN DS*24LIT"#N0 PACKEND CARD» PKT - "J S I *F I RSTC ARD; 



07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 

07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 

* 07 
07 
07 

X 07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 

THEN07 
07 
07 



119099 
119100 
119200 
119300 
U9400 
119401 
120000 
120009 
120010 
120011 
120020 
121000 
122000 
122010 
122999 
123500 
124000 
124500 
124501 
125000 
125500 
125599 
125600 
125601 
125999 
126000 
126500 
127000 
127001 
127500 
128000 
129000 
129099 
129100 
129200 
129300 
129301 
129999 
130009 
130100 
130200 
131000 
132000 
133000 
134000 
135000 
136000 
137000 
138000 
138001 
139000 
139500 
139509 
139510 
139511 
139512 
139513 
139520 
139530 
139540 



0S*9 WDSJ DS*LIT"*"J 

ENDJ 

SPOUT(T); 
END! 

END ELSE MOVEC10*lNBUFF#OUTBUFF);* 
END ELSE* 
$ POP OMIT 

MOVEdQiINBUFFi OUTBUFF) I* 
S SET OMIT • NOTCPACKETS) 

IF VEHYFIRST THEN PLUGGED*OjX 
$ POP OMIT 

IF Q THEN* 

BEGIN IF L DIV 6 # N DIV 6 THEN* 
BEGIN R * L DIV 3J* 
A * ADRIX 

DISKWAIT(-RESERVE#30.A)J 
M[I*L MOD 3xlO+9*RESERVE3 ♦ N;X 
DISKhAlTCRESERVE>30tA); 
END* 
ELSE Mtl «-(L-NJxl0 + 9 + 0UTBUFFJ * N$* 
L «■ M[0UTBUFF*9J * NJ* 
ENDU 
IF N b 12000 THEN* 

BEGIN T 1* SPACEU4)? 

STREAM(FIRSTCARD»T)» 

BEGIN DS * 32 LIT* 
$ SET OMIT * NOTCPACKETS) 

"IMORE THAN 12000 CARDS IN PKT - "J 
S POP OMIT 
S SET OMIT * PACKETS 

"IMORE THAN 12000 CARDS IN 
t POP OMJT 

si*firstcard;ds*9wdsjds*lit *-"; 
end;* 
go to skjpit; 
end;x 

IF (N * N+l) MOD 6*0 THEN* 
BEGIN R * N DIV 3-2JX 
A * ADRIS 

OUTBUFF * OUTBUFFOLDJ* 
DISKl0(D#0UTBUFF-l»60tA); 

END ELSE OUTBUFF * 0UTBUFF+1OJ* 
S SET OMIT • NOTCPACKETS) 

IF FIRST THEN F IRSUPT YPE*0> % 

IF VERYFIRST THEN VERYF I RST l«PTYPE « »0l 
$ POP OMIT 
$ SET OMIT ■ NOTCPACKETS) 

IF PTYPE*0 THEN GO INLJ 
$ POP OMIT 
S SET OMIT * PACKETS 

IF NOT ENDCARD THEN GO TO INLI* 
t POP OMIT 

IF D * THEN SLEEPCtDl»NOT 0); 

OUTBUFF * OUTBUFFOLDJ* 

R ♦ N DIV 6x21* 

A * ADRJ* 

IF N MOD 6 * THEN 

BEGIN 



07 
07 
07 
07 
07 
7 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
07 



139b50 
139560 
13956b 
139570 
139575 
139590 
139591 
140000 
140099 
140100 
140101 
141000 
142000 
143000 
144000 
145000 
147000 
146000 
150000 
151000 
152000 
153000 
154000 
155000 
156000 
157000 
157099 
157109 
157101 
157999 
158000 
158001 
159000 
160000 
161000 
162000 
163000 
164000 
165000 
166000 
167000 
166000 
169000 
169099 
169100 
169110 
169201 
169499 
169500 
169501 
169999 
170000 
170001 
171000 
172000 
173000 
174000 
175000 
175100 
175200 



S SET OMIT 



IF 



S POP OMIT 

$ SET OMIT 

$ POP OMIT 

ERROR! 
$ SET OMIT 



$ POP OMIT 
$ SET OMIT 



S POP OMIT 



DISKWAIT(0UTBUFF»60.A)J 

END/* 

IF R+2 < 200 THEN 

BEGIN HIS] * R + 2; 

FORGETUSEROISK(A+2.R-19»)I 
ENDI 

H[7J*NMJ 

HC4J*H[6]*0J 

HC5JI* »0j 
» NOT(PACKETS) 

HC6J*0*DISKCHAIN[CTFH(IF IU<23 THEN 2 ELSE IU»23) 
[2142(6]} 
CONTINUE THEN 

BEGIN 

HC2]1»NEXTCDNUM(1)> 

DISKCHAIN|«GETESPDISK) 

DISKWAITCH INX 0. 30»D I SKCHA I N ) I 

STREAM(A««HC2J»B»«FIRSTCARD»INBUFF); 

BEGIN SI l«BI DS»»8 CHRJ 

DSIM5 LIT" CONTINUES PKT#"J 

su*loc a; sii«si*«i ds»«4 chk; ds i =l i t m i •* i 

END* 

END ELSE 

BEGIN DISKCHAINI*0; 

ENTERCONTROLDECK(H)? 
m NOTCPACKETS) 
END* 

GO TO SUPER! 
T |» SPACEC12H 
s NOTCPACKETS) 

STREAM(FIRSTCARD»X«-VERYFlRST#T)»i 

BEGIN SI*LOC X* Sl*Sl+7; IF SC*"2" THEN 
DS*16 LIT "#INV PKT CARD - "X 
ELSE IF SC*"4" THEN* 

0S*16 LIT "#INV DECK. PKT - "X 
ELSE DS*i6 LIT "#READ ERRtPKT - n l% 

» PACKETS 

STREAM(FIRSTCARD»T)U 

BFGIN OS * 16 LIT "#READ ERROR FOR "IX 



SI ♦ FIRSTCARDJ DS «■ 9 WDSJ DS * LIT "♦"IX 
ENOIX 
SKIPITl SPOUTCT}! 

DO BEGIN INPUTU 

BOMBTIMEJX 
$ SET OMIT » PACKETS 

END UNTIL ENDCARDJX 
$ POP OMIT 
* SET OMIT 



$ POP OMIT 



■ NOTCPACKETS) 

END UNTIL PACKETCARD NEQ 01 

IF OU < 16 THENX 

BEGIN DO BEGIN T ♦ WA I T I (0340000005* P60»0U ) t X 
BOMBTIMEJX 
END UNTIL T,[42|IJJX 
T * WAITl0CP14000000S»P60t0U)jX 
END* 



07 

07: 

07! 

07 

07 

07 

07: 

07 

07 

07 

07 

07 

07 

07: 

07 

07 

07 

07: 

07: 

07 

07 

07 

07 

07 

07: 

07 
07 

07: 
07: 

07 



176000 
178000 
178100 
178200 
178300 
178400 
179000 
179050 
179100 
179199 
179200 
179202 
179205 
179210 
179220 
179230 
179250 
179260 
179270 
179280 
179290 
179300 
179310 
179320 
179321 
180000 
180009 
180010 
180011 
181000 
07214000 
07214099 
07214100 
07214110 
07214120 
07214130 
07214140 
07214150 
07214151 
07214999 
07215000 
07216000 
07216001 
07217000 
07218000 
07219000 
07220000 
07221000 
07221999 
07222008 
07222001 
07222099 
07222109 
07222101 
07223000 
07224000 
07225000 
07226000 
07227000 
07228000 



ELSE FORGETITJ* 07229000 

GO TO SUPERJX 07230000 

BOMBM FQRGETITU 07231000 

EXIT! SLEEP(CT0GLE3»STATUSMASK); 07232000 

IF 1U GEO 23 THEN UNlTCODEt IU-23 J l«CO) I 07232500 

S * IU; T * 31 STOPIX 07233000 

S *- OU; T ♦ 61 STOP;* 07234000 

FORGETSPACE(INBUFF)IX 07235000 

FORGETSPACE(FIRSTCARD)!* 07236000 

IF OU > 16 THEN* 07237000 

BEGIN FORGETSPACECH);* 07233000 

F0RGETSPACE(0UTBUFF0LD);X 07 239000 

FORGETSPACE(RESEHVE)JX 07240000 

ENDI* 07241000 

END C0M23J* 07242000 

PROCEDURE STARTLOADN(KTR)) VALUE KTRl REAL KTRU 07243000 

BEGIN REAL I »HDR# SEGO. F#C » T) ARRAY SHEATt*]? 07244000 

LABEL TRYAGAIN»LDCNTRL#DISKJ 07244100 

STREAM(K*OlKTR)JX 07245000 

BEGIN SI * KTRiX 07246000 

LI IF SC « " " THEN* 07247000 

BEGIN SI * 5l*il GO TO L END;* 07248000 

DI * LOC K; DI * DI*6I DS * 2 CHR;X 07249000 

END;* 07250000 

C * P;* 07251000 

T * KTR,U5U5]-UX 07252000 

IF CC NEQ "MT" AND C NEQ "DK") OR 07253000 

(C * *DK" AND CDONLY ) THEN 07253100 

SPOUTCT) 07254000 

ELSE BEGIN C * C « "MT";* 07255000 

TRYAGAINJ 07255100 

IF CHDR«»DIRECT0RYSEARCH(PCLDCNTRL)»P(DISK)#3)) # THEN 07256000 

BEGIN 07256200 

SHEAT I* tMtFI««GETSPACE(3l»64»0) + 233 & 30C8I 38t 103 1 07256400 

STREAM(SI»F-1» D*»F)» X ZERO OUT THE SHEAT ENTRY 07256600 

BEGIN 07256800 

SIl«Sl DS|*30 WDSJ 07257000 

END* 07257200 

SEGO |» GETSPACEC30#64»0)+2) 07257400 

DlSKWAlTC-SEGOt 30» MCHDR INX 103)1 07257600 

F.CFF3 \* HDRI * CORE ADDRESS OF HEADER IN [FFJ OF PARAM, 07257800 

SHEATI7] is SEGOI X CORE ADRS.OF SEGMENT ZERO IN SHEAT [ 7 ] 07258000 

SHEATtOj »« SHEATC14] I* P(LDCNTRL); 07258200 

SHEAT[U l« PCDISK)! 07258400 

SHEATI23 l>Ot 5[6|36li01l 07258600 

* C4I13 IN SHEETC23 MEANS SUPRESS BOJ/EOJ MESSAGES 07258800 

SHEAT[16J I" SHEATC173 l» Q377777777777 I X TIME LIMITS 07259000 

SHEATI19] |« CJ * COMMON VALUE 07259200 

SHEAT[20] I* 4) X CORE ESTIMATE 07259406 

SHEAT[211 l» 150; * STACK SUE 07259600 

07259800 

STREAM(AI«0 I S l« PC.SCHEDULEIDS))> 07260000 

BEGIN 07260200 

SI l*S| 07260400 

47CSKJP SBI SKIP DBI T ALLY ! *T ALLY+1 I 07260600 

IF SB THEN ELSE JUMP OUT); 07260800 

0SI*SETI AI«TALLY; 07261000 

END STREAM STATEMENT! 07261200 

07261400 

I l« P; 07261600 



SHEATC3J, [81103 J* II * SCHEDULE NUMBER 07261800 

SHEAT[233 (■ CCLOgK + PCRTR)) IV 60; 07262000 

SHEAT[24J l« MCPI 07262100 

SHEATC253 I* HDR.CFF3) % DISK ADDRESS OF HUE HEADER 07262200 

SHEATC263 !■ -311 % LOGLINE 07262400 

STREAMCC* T); 07262600 

BEGIN 07262800 

DS«*27UT W CC R UN LDCNTRL/D I SK ; COMMON*"! 07263000 

5II*LQC CI DSI»8DECJ 07263200 

0Sl«6LlT"JEND.*"l 07263400 

END STREAM STATEMENT! 07263600 

SHEATI6J i* GETESPDISKl 07263800 

DISKWAITCT. 10. SHEATC6J); 07264000 

FQRGETSPACECT)! 07264200 

FORK(P(,SELECTRUN)» F» Oi 160» 0); 07264400 

END ELSE J! IF IN DIRECTORY 07265000 

BEGIN 07265100 

ENTERSYSFILEC2)> 07265200 

GO TRYAGAINI 07265300 

LDCNTRLlll "LDCNTRL"! 07265400 

DISKm M DISK "l 07265500 

END! 07265600 

END1* 07266000 

ENDIX 07267000 

PROCEDURE TABLEOFCONTENTSCB#COUNT);X 07268000 

VALUE BtCOUNTl REAL BfCQUNTl* 07268100 

BEGIN REAL I » T »N» Af TUST A? 07269000 

S SET OMIT » NOTCPACKETS) 07269099 

REAL FlRSTtSTART»FINALiPKTCTl* 07269100 

$ POP OMIT 07269101 

LABEL L»EXIT»G»X 07270000 

$ SET OMJT ■ NOTCSHAREDISK) 07270099 

REAL SYS; 07270100 

IF CSYS»*UNITIN(TINUtB)-37)>3 OR SYS LSS THEN 07270200 

BEGIN 07270300 

STREAM(A«s"ALL w »B)» 07270400 

BEGIN SII*8I 07270500 

63(IF SC*" " THEN JUMP OUT; S I » «S I + 1 ) J 07270600 

DI l*UOC AIDI l»DI*5| IF 3 SC*DC THEN 07270700 

TALLY|»5)A1*TALLYJ 07270800 

END; 07270900 

IF NOT (SYS»«P) THEN SYSl«SYSNOl 07271000 

END; 07271100 

* POP OMJT 07271101 

Al«B, £151153*1; 07271900 

TUSTA»»MtA"13; 07272000 

LOCKCONTROLOECKS; 07272500 

AI«FIRSTDECK| 07273000 

t SET OMIT • NOTCPACKETS) 07273099 

FIRST»1»I 07273100 

S POP OMIT 07273101 

LI I » wSPACEC 13)1 07274000 

Gl IF A m THEN GO TO EXITIX 07275000 

DISKWAIT(-I»12»A)I 07276000 

AI«M[I+63,tCF 31 07278000 

$ SET OMIT ■ NOTCSHAREDISK) 07279000 

IF SYS LSS 5 THEN 07279100 

IF SYS*M[J+43»[4I2] THEN GO TO Gl 07279200 

Tl*Mn+43,£4l23-H; 07280000 

* POP OMIT 07280001 



N * M[ I+2JU 
$ SET OMIT w NOTCPACKETS) 

IF NOT COUNT THEN* 
BEGIN* 
t POP OMIT 

DI SKWAI T C-I -3»9#Mt 1+10]) J 
STREAM(N»T#I )> 

BEGIN SI * LOC Nl SI * SI+1J* 
$ SET OMIT ■ NOTCPACKETS) 

DS«*8 LIT " PACKET ";DS»*5 CHHi 
$ POP OMIT 
$ SET OMIT * PACKETS 

OS * 6 LIT M DECK w ; QS «• 5 CMRJX 
S POP OMIT 
S SET OMIT • NOT(SHAREDISK) 

DS»*6 L I T H (SYS n JSI »»SI+9»DS«»CHR1 
DI I"DI-1*SKJP DB;DSI*SET;DS|«LIT") m ; 
$ POP OMIT 
$ SET OMIT s SHAREOISK 

DSi*8 LIT" "; 
$ POP OMIT 
$ SET OMIT «s NOTCPACKETS) 

DSJ«»3 LIT " 9*1 
$ POP OMIT 
$ SET OMIT * PACKETS 

DS * 5 LIT " 1 S; "J* 

01 * 01+40; DI ♦ D1+32J DS * u I T "♦")* 

* POP OMIT 

* SET OMIT » NOTCPACKETS) 

DH*DI+40{DI l»D I + 19105 I ■LIT"*" I 
$ POP OMIT 

end;* 
spoutcd;* 
s set omit m notcpackets) 

END ELSE* 

begin* operator wants a count 
if first thln begin* store first deck i, 

first*0; start*nj* 
end;* 
pktct*pktct*1i final*nj* 
forgetspaceci);* 
end;* 
s pop omit 

GO TO L;X 
EX IT I IF N»0 THEN 

BEGIN STREAMCI); 
$ SET OMIT « NOTCPACKETS) 

DSI«20 LIT " NO PACKETS ON DISK*"; 
S POP OMIT 
t SET OMIT * PACKETS 

DS«*16 LIT " NO DECKS ON DISK»"> 
$ POP OMIT 

SPOUTU);* 
$ SET OMIT » PACKETS 

END ELSE FORGETSPACECI); 
t POP OMIT 
S SET OMIT * NOTCPACKETS) 

END ELSE* CHECK FOR COUNT REQUEST, 
IF COUNT THEN* 

begin;streamcc*pktct#s*start»* 



07281000 

07281099 

07281100 

07281200 

07281201 

07282000 

07284000 

07285000 

07285099 

07285100 

07285111 

07285999 

07286006 

07286001 

07286100 

07286200 

07286306 

07286301 

07286400 

07286500 

07286501 

07286509 

07286510 

07286511 

07286999 

07287000 

07288000 

07288001 

07288099 

07288100 

07288101 

07289000 

07290000 

07290099 

07290100 

07290200 

07290300 

07290400 

07290500 

07290600 

07290650 

07290700 

07290701 

07291000 

07292000 

07293000 

07293099 

07293100 

07293101 

07293199 

07293200 

07293201 

07294000 

07294899 

07294900 

07294901 

07294999 

07295000 

07295010 

07295020 



F*FINAL»T1*0»T2*0» I )IX 07295030 

BEGIN DS*LIT " "J T2-D1JX 07295040 

5I*L0C CI DI*L0C TllX 07295050 

DS*2 DECI SI*LOC Til DI«-T2l 07295060 

DS*2 CHRJ T2*DH DI*DI-2IX 07295070 

DS*FILL| DI-T2JX 07295080 

DS*7 LIT " PACKIT*U 07295090 

SI*LQC CI SI*Sl*7J * 07295100 

IF SC'"r THEN* ONLY 1 DECK 07295110 

BEGIN DS*2LIT "• M IX 07295120 

SI*LOC Fl Sl*SI+ilX 07295130 

DS*5 CHRIX 07295140 

END ELSE* MORE THAN 1 07295150 

BEGIN DSO.LIT "S# "IX . 07295160 

SWLQC SI SI«-SH-llX 07295170 

DS*5 CHRIX 07295180 

DS*6 LIT " THRU "IX 07295190 

51*51+41 DS*4 CHRIX 07295200 

ENDI2 07295210 

DS*LIT "«. W |X 0729522* 

ENDJX 07295230 

SPOUTCDIX 07295235 

END ELSE FORGETSPACE(I)lX 07295240 

* POP OMIT 07295241 

UNLOCKCONTROLDECKSJ 07296000 

ENDlX 07297000 

PROCEDURE REMOVEDECKCN,U)J VALUE N.UI REAL N»Ul 07298000 

BEGIN REAL I * T . A# LI t J» I »L2» V I X 07299000 

$ SET OMIT » NOTCPACKETS) 07299499 

REAL L3I 07299500 

label fail»continuej 07299600 

t POP OMIT 07299601 

LABEL L»EXIT>REMOVEJX 07300000 

LOCKCONTROLDECKSI 07301000 

IF (I * DIRECTORYSEARCHCDECK "tNt5)J ■ THENX 07303000 

t SET OMIT * NOTCPACKETS) 07303499 

FAILI 07303500 

* POP OMIT 07303501 

BEGIN I l» SPACE(5)I 07304000 

STREAM(NiI)lX 07305000 

ft SET OMIT * NOTCPACKETS) 07305099 

BEGIN 051*5 LIT " PKT "I 07305100 

S POP OMIT 07305101 

* SET OMIT * PACKETS 07305999 

BEGIN DS • 6 LIT " DECK "|X 07306000 

* POP OMIT 07306001 

SI * LOC Nl SI * SI*H DS * 5 CHRIX 07307000 

DS * 13 LIT " NOT ON DISK*»|X 07308000 

ENDIX 07309000 

GO TO EXITIX 07310000 

ENDIX 07311000 

S SET OMIT m N0TCSHARED1SK) 07311199 

IF CTl»MtI+43),[2in THEN 07311201 

IF T.[Al2J#SYSN0 THEN 07311210 

BEGIN 07311220 

STREAMCN»A*T f [4}2) + lf I«-I JNX 0)1 07311230 

BEGIN DSi*6 LIT" DECK "lSU*LOC N|SII«SI+1I 07311240 

DSI«5 CHRIDSt«18 LIT" IN USE BY SYSTEM "I 07311250 

SII«SI+9}DS|*CMRIDII«DI»1ISKJP OBJDSmSETf 07311260 

DS1»LIT W * W I 07311270 



END! 07311280 

GO TO EXIT; 07311300 

END* 07311310 

S POP OMIT 07311311 

S SET OMIT ■ NOTCPACKETS) 07311499 

L3l*M[I+61.[FF)J 07311500 

t POP OMIT 07311501 

L2|*M[J*6J,[CFJJ 07312000 

IF CAH»FIRSTDECK)»(L1I«I.[FF J) THEN 07313000 

BEGIN 07314000 

S SET OMIT • PACKETS 07314099 

IF (FIRSTDECK»*L2)aO THEN LASTDECKi*0! 07314100 

$ POP OMIT 07314101 

$ SET OMIT * NOTCPACKETS) 07314109 

FIRSTDECK|»IF L3 NEO THEN L3 ELSE L2! 07314110 

IF L2*0 THEN LASTDECK*1F L3 NEQ THEN L3 ELSE 01 07314120 

$ POP OMIT 07314121 

DISKWAIT(KLUMP»3»DIREC10RYT0P+3)? 07 314200 

* SET OMJT « NOT(PACKETS) 07314289 

IF L3 NEQ THEN GO TO CONTINUE ELSE 07314290 

* POP OMIT 07314291 

GO TO REMOVE* 07314300 

END? 07314400 

J •■ I, [331153!! 07315000 

Ll 07316000 

DISKWAIT(-J»30»A)I 07317000 

IF CVl*M[J+6J,[CF3)s0 THEN 07318000 

I SET OMJT * NOTCPACKETS) 07318009 

IF A»L1 THEN GO REMOVE ELSE BEGIN FORQETSPACEU)! GO FAIL 07318010 

END! 07318012 

$ POP OMIT 07318013 

$ SET OMIT « PACKETS 07318019 

GO TO REMOVE! 07318020 

$ POP OMIT 07318021 

IF V t LI THENX 07319000 

BEGIN A ♦ V! GO TO L END!* 07320000 

S SET OMIT w PACKETS 07320999 

M[J+6J,[CFJlsL2i 07321000 

* POP OMIT 07321001 
$ SET OMIT * NOTCPACKETS) 07321099 

MCJ+6], [CFJMF L3*0 THEN L3 ELSE L2! 07321100 

« POP OMIT 07321101 

DISKWAITCJ»30»A)! 07322000 

IF L2 * THEN! 07324000 

BEGIN 07325000 

t SET OMIT * PACKETS 07325999 

LASTDECM»A! 07326000 

S POP OMIT 07326001 

S SET OMIT = NOTCPACKETS) 07326099 

LASTDECKlsIF L3 NE« THEN L3 ELSE A! 07326100 

* POP OMIT 07326101 

DISKWAITCKLUMP»3#DIRECT0RYT0P+3)! 07 327000 

$ SET OMIT » PACKETS 07327999 

END! 07328000 

$ POP OMIT 07328001 

t SET OMIT * NOTCPACKETS) 07329999 

END ELSE IF L3»0 THEN ELSE 07330000 

CONTINUEI 07330050 

BEGIN J*I INX 0! 07330100 

DISKWAITC-J#30*L3)J 07330200 



MtJ+63,[CF]*L2J 

DISKWAir(Jt30*L3)J 

ENOI 



$ POP 



OMJT 

REMO\ 



>VEl 

FORGETSPACECDl 
ll*D I RECTOR YSEARCHC H DECK "»Ni8).CCF3l 
T * M[I+9]|X 
FOR V * 1 STEP 1 UNTIL 7 DOX 

IF MCI+V+93#0 THEN F ORGETUSERD I SK ( M[ I + V + 9J » Mtl *8 J ) I 
STREAMCNt I ) I % 
$ SET OMJT * NOTCPACKETS) 

BEGIN DS|»5 LIT w PKT "I 



t POP 
t SET 



OMIT 
OMIT w 



PACKETS 

BEGIN OS 



t POP OMIT 



EXIT I 

PROCE 



END! 

DURE DE 

BEGI 



LI 



SI ♦ LOC Nl 
DS ♦ 9 LIT 
END?* 
SPOUTERCI»U»LlBMSG)J 
UNLOCKCONTROLDECKSJ 
X 

CKREMOVERCB)! VALUE BJ 
N REAL K,N, FIX 
INTEGER U| LABEL ONiE 
REAL D» 

LABEL L»TRYITiGIVEUPJ 
K * B, t 151 153-1;* 
STREAM(X*l2iB«A*-0)|X 
BEGIN SI * BIX 
U« IF SC » " " 
IF SO***" T 



* 6 LIT H DECK "IX 

SI * SI + 11 DS •• 5 CHRIX 
" REMOVED*";* 



REAL BJ* 
RRJ 



XI 

< » 



GIVEUPI 



IF SC » 
BLl IF SC«" 
DI i*LOC 
4(IF SC 
IF SC 
SI t*SI*ll 
ENJ AI'TALLYJ S 
Nl IF SC ■ " " 
DS * CHRI B 
El ENDIX 
P(,B»*»»N»*)|X 
F*N,[36t6J| N, t 36163* 
IF F*"*" OR F*"i" OR 
BEGIN IF F»"»" T 
BEGIN IF D 
LOCK 
IF ( 



THEN BEGIN SI*S1*1J GO TO U 
HEN BEGIN DULOC X) Dl*DI+6? 
SI*SI-ll B»S1I GO T 

THEN SII»Sl+l! 
THEN BEGIN SIf-S!+llGO TO BLl 
DI«»DI+1I DSl*5 LIT "#0000"! 
0" THEN JUMP OUT TO EN? 
9" THEN JUMP OUT TO £N| 

TAlLYl*TALLY + Ul 
I|«SI"A) DllwDI-A? UStwA CHRl 

THEN BEGIN SI*SI>Hl GO TO N 

* SI IX 



F» W » M THEN 
HEN 

»o then d i* spacec30)i 

CONTROLDECKSl 

Nl»F IRSTDECK)«0 THEN 



end;x 

DS*CHR? 

E END 

X033 

end; 

X033 
X033 
X033 
X033 
X033 
ENDIX 



TRYITI 
* SET 



OMIT - NOTCSHAREDISK) 



BEGIN Fl*"»"l 

UNLOCKCONTROLDECKSI 
GO ONI 

END! 
DISKWAITCD»30»N)I 

IF M[D*4Ji[4|2J#SYSN0 THEN 

IF CNI-MCD + 6 J ,CCF3 )*»0 THEN GO TRYIT ELSE 



07330300 
07330400 
07330500 
07330501 
07331000 
07332000 
07333000 
07343000 
07344000 
07345000 
07346000 
07346099 
07346100 
07346101 
07346999 
07347000 

07347001 
07348000 
07349000 
07350000 
07351000 
07352000 
07353000 
07354000 
07355000 
07355100 
07355200 
07356000 
07357000 
07358000 
07359000 
07360000 
07360100 
107360200 
•07361000 
07361500 
•07362000 
-07363000 
-07364000 
07365000 
07365500 
07366000 
07367000 
07368000 
07369000 
07370000 
07371000 
07371100 
07371200 
07371300 
07371400 
07371450 
07371500 
07371600 
07371700 
07371750 
07371800 
07371809 
07371810 
07371820 



GO GlVEUPJ 07371830 

$ POP OMIT 07371851 

N»«M[D+2J) 07371900 

unlockcontroldecks; 07371950 

END; 07372000 

FOR U*0 STEP 1 UNTIL 3 DO 07372090 

IF ClDROWtUl*0 THEN 07372100 

IFCCIDTABLEtU»23 EQV N)«NOT THEN 07372200 

IF LABELTABLEIU + 32U0 07372300 

$ SET OMIT m NOT(PACKETS) 07372309 

AND LABELTABLE£U + 32J» i P2i4 AND 07372310 

PACKETACrtUJsO 07372320 

$ POP OMIT 07372321 

THEN 07372330 

BEGIN X030-07372400 

ENDOFDECKCUj; 07372500 

GO ON) 07372600 

END ELSE GO TO ERR1 07372700 

REMOVEDECK(N.O)! 07372800 

0N» IF F#"*" THEN GO TO Li 07372900 

FORGETSPACE(K)|X 07373000 

END ELSE 07374000 

ERRl SPOUT(K)l 07374100 

IF 0*0 THEN FORGETSPACE(O); 07374200 

ENDJX 07375000 

BOOLEAN PROCEDURE REAOEMFROMDI SK(H» IB) ) X 07376000 

VALUE H#IBI ARRAY H[*J#IB£*J)X 07377000 

BEGIN* 07378000 

X H[OJ » ADDRESS OF BU+1 CB)X 07379000 

* H[U « ADDRESS OF B2+1X 07380000 

* HC2J s DECK NAMEX 07361000 
X H[3J * RECORDCOUNT (N)X 07382000 
X HC4] « NEXT CONTROL CARD (L)X 07383000 
X HIS] b RECORDS USED IN THIS BLOCK x 10 (R)X 07384000 
X H[7] • HC30J ARE FILE HEADER* 07385000 

REAL AtBJX 07386000 

DEFINE N»H[33#»L*H[4j#fR=Ht5]#IX 07387000 

INTEGER I«A)X 07368000 

B * HtOJlX 07389000 

IF R * THENX 07390000 

IF (MIB-2) AND IOMASK) * THENX 07391000 

SLEEPC[M[B»2J]ilQMASKm 07 392000 

STREAM(B*B*R#IB)IX 07393000 

BEGIN SI * BJ DS * 10 WDS END)* 07394000 

MC IB INX NOT 03 * 10) 07394500 

IF (READEMFROMDISK «• N«L) THENX 07395000 

L * IBC9JJX 07396000 

IF (A * N * *P(DUP)+1) > HC7] THENX 07397000 

BEGIN READEMFR0MDISK|»1) 07396000 

STREAM(1B)J 07398100 

t SET OMIT * NOT(PACKETS) 07398109 

BEGIN 07398110 

* POP OMIT 07396111 

DS»»7 LIT "CC END,"; 07398200 

S SET OMIT p NOT(PACKETS) 07398209 

DS*LIT M "J 8CDS*8LIT M " ) ; END) 07398210 

S POP OMIT 07398211 

END 07398300 

ELSE BEGIN IF (R ♦ *PCDUPmO> * 30 THENX 07399000 

BEGIN IB * CMCB-2IJH 07400000 



R * 0) 07400400 

A * A IV 3+1; 07400500 

I *HC A OIV H[8J*10J+A MOD HC8)> 07401000 

DISKI0ClB»l<»B»30»im 07402000 

HL03 * HCim 07403000 

HtU * Bi% 07404000 

END) END) END)* 07405000 

BOOLEAN PROCEDURE PR INTORPUNCHWA I T C Q#PNCH ) ) VALUE 8,PNCH)REAL Q.PNCH) 07405100 

FORWARD! 07405110 

PROCEDURE ENDOFDECK(R)? VALUE R) REAL R) 07406000 

BEGIN ARRAY Ht*l!X 07407000 

REAL B»i;X 07406000 

BOOLEAN TOO 07408100 

S SET OMIT * NOTCPACKETS) 07408199 

REAL OISKADtPBREOTJ 07408200 

$ POP OMIT 07408201 

LABEL EXIT! 07408500 

TOG*R,UU J» R*ABS(R)) 07408600 

IF CHJ«CIDR0WtRJ>*0 THEN GO TO EXIT; 07409000 

LABELTABLE[R*32J «- P114) 07409100 

MULTITABLEtR+323 * RDCTABLE [ R+32 J * 0; 07409200 

UN1TC0DECR+9JI«"0; 07409300 

IF NOT TOG THEN REMQVEDECKC Ht 2 i . R + 32 ) ELSE 07410000 

PCDIRECTQRYSEARCHC-"DECK ", HI 2 ) » 1 4 ) * DEL) ) 07410010 

FOR I ♦ STEP 1 UNTIL 1 DO* 07411000 

BEGIN B * HUllX 07412000 

IF CM18-2J AND 10MASK) m THEN 07413000 

SLEEPUMIB-2JJ»10MASK)JX 07414000 

END;! 07415000 

IF CIDR0W[R3*0 THEN GO TO EXIT; % FIXES TIMING PROB, 07415100 

IF H, [18115] * THEN 07416000 

F0RGETSPACECH,tl8ll5]-2); 07417000 

$ SET OMIT « NOT(PACKETS) 07417099 

IF PACKETPBDtRJ GEQ 11 THEN 07417100 

BEGIN 07417200 

PBCOUNT I* PBCOUNWl; 07417300 

I t« 001 & CIDTABLE[R»6H6»6!24J) 07417400 

IT (PBREC I* DIRECTORYSEARCHCPBD - » I » 5 ) >#0 THEN 07417500 

BEGIN 07417600 

IF PACKF.TPAGECR]>1 THEN 07417700 

BEGIN 07417800 

PBREC i« PBREC, tCFJ; 07417900 

DISKAD »« M[PBREC+10]*2; 07418100 

DISKWA1T(-PBREC»30.DISKAD); 07418200 

IF CMtPBREC + 123 EQV (-"ABORTED") >«NOT THEN 07418300 

STREAM(BI»PBREC*11>; 07418500 

BEGIN 07418600 

DSt«8LIT w lx0x0Q00"; DS I *8L I T"OPACKET n l 07418700 

END) 07418800 

DISKWAIT(PBRECOO»DISKAD); 07418900 

END) 07419000 

P(DIRECTORYSEARCH(- H PBD % I # 14 ) $ DEL) ; 07419100 

IF AUTOPRINT THEN 07419200 

P(PR INTORPUNCHWA I TC I»0),DED) 07419300 

FORGETSPACE(PBREO) 07419400 

END) 07419500 

END) 07419600 

PSEUD0CR3 )« 07419700 

* POP OMIT 07419701 

CIDR0W[R3 t« 0) 07419800 



IFCRUNUMBER«"RUNUMBER + 1)>0 THEN 07420000 

STARTADECKC1F TOG THEN -HC2 J ELSE 0)J 07420010 

FORGETSPACECH)? 07420050 

EXIT! 07420100 

ENDI* 07421000 

PROCEDURE STARTAOECK(N)> VALUE N| HEAL HI 07422000 

BEGIN LABEL EX I T*L#POSSIBLE 'NEXT 1% 07423000 

REAL I »R. T » A»S1 07424000 

ARRAY Hl*J?X 07425000 

REAL SDEDl 07425100 

LABEL AGAIN, STARTI 07425500 

IF N,[l»n THEN BEGIN SDED*ABSCN ) I N*0 END; 07425700 

LOCKCONTROLDECKS* 07426000 

IF RUNUMBER LEO AND N»0 THEN GO TO EXIT; 07426100 

AGAINI 07427500 

FOR R •■ STEP 1 UNTIL 3 DO* 07428000 

IF CIDROWCR] * THEN GO TO POSSIBLE** 07429000 

STREAMCS*S*SPACE(4))| 07429100 

DS|»27 LIT" ALL PSEUDO-READERS IN USE*"? 07429200 

SPOUTCS); 07429300 

GO TO EXITJ* 07430000 

POSSIBLES* 07431000 

IF CA»*FIRSTDECK)*0 THEN GO TO EXIT? 07432000 

H * CIDROWCR] * CM[S*-GETSPACE(94»64»l) + 2] J&9ftt8l38»l0j; 07433000 

HC2J * 0* 07434000 

Li DISKWAITCS»30#A)I 07435000 

IF N#0 THEN 07436000 

BEGIN 07436100 

IF HC2)«[12I24J'N THEN GO TO NEXT! 07436200 

IF H(4],[2U3 THEN 07436300 

BEGIN 07436400 

STREAMCA1*[H[2J]# 07436500 

$ SET OMIT 9 NOTCSHAREDISK) 07436509 

N*H[4J,[4l2J+17# 07436510 

S POP OMIT 07436511 

S)i 07436520 

I SET OMIT * PACKETS 07436599 

BEGIN Sll*AJSl**Sl+HDSt*6 LIT" DECK "1 07436600 

$ POP OMIT 07436601 

* SET OMIT ■ NOTCPACKETS) 07436609 

BEGIN SH»AJSH«SI + 1JDS1*5 LIT" PKT "J 07436610 

J POP OMIT 07436611 

DS»*5 CHRI0SI*7LIT" IN USE"; 07436700 

$ SET OMJT * NOTCSHAREDISK) 07436799 

051*11 LIT" BY SYSTEM "ISII^LOC HI 07436800 

SI*SI+7I DS*CHRJ 07436900 

$ POP OMIT 07436901 

DS»»LIT"»"; 07437000 

END? 07437100 

SPOUTCS)! 07437200 

CIDR0WCR3l«0? 07437300 

GO TO EXITl 07437400 

END? 07437500 

END ELSE 07437600 

IF HC4J f C2llJ OR CSDED#0 AND HC2]*SDED) 07437600 

t SET OMIT • NOTCSHAREDISK) 07437899 

OR HC4J,C4»2)#SYSN0 AND NOT RNALL 07437900 

OR CBATCHTOG AND HC4J,[7»13) 07437910 

t POP OMIT 0743791} 

THEN GO TO NEXTl 07438000 



HC«3l«(»PtDUP))*2(-2l46l2J*SYSN0[fll46l2]l 074 38100 

DISKWAIT(S»30»A)I 07438200 

HCOJ * S*321* 07441000 

HC 1 3 * S+64JX 07442000 

07443000 

T * [HC3033I DISKlO<T»l»HC03»30tH[103)J* 07444000 

IF H[73 LSS 3 THEN H[ 62 J I * I OMASK ELSE 07445000 

BEGIN Tl«CH[62))l IF HC8J«1 THEN 07445100 

DlSKIOCTt l-HCl3»30iH[ll3) ELSE 07445200 

DISK IOC T»l-Ht 13 »30»H[ 103 + 1)! 07445300 

END? 07445400 

TlsGETSPACEU3»64i5) + 4> 07446000 

M[T INX 10] 1* HC5J* 07446100 

$ SET OMIT » NOTCPACKETS) 07446149 

T,[24l63*Ht63,[2l63! 07446150 

$ POP OMIT 07446151 

HC33 «* HC43 t* HC53 «« H[63 |* 0; 07446200 

07447000 

LABELTABLt[R+32Jl*-P14; *LET IT BE MOVED 07448000 

l?*READEMFR0MDlSK(H*tM[Tmi0[8|3eilom 07448500 

FREECARD(URC3I43»5J)I 07449000 

IF CRUNUMBER*RUNUMBER-1) LEO OR N*0 THEN GO TO EXIT; 07450000 

GO TO AGAIN! 07450200 

NEXTIIF CAf ■HC63 • tCF J )#0 THEN GO TO L! 07451000 

IF N#0 THEN 07452000 

BEGIN 07452100 

STREAM(N»S)J 07452200 

S SET OMIT « PACKETS 07452299 

BEGIN SH«LQC N!SJ»«Sl+4>DSl*7 LIT" OECK #•'! 07452300 

$ POP OMIT 07452301 

S SET OMIT n NOT(PACKETS) 07452309 

BEGIN SI*LOC NI SI*Sl+4> DS*6 L I T " PKT #"| 07452310 

S POP OMIT 07452311 

DSl*4 CHRJDSl«13 LIT" NOT ON DISK*"; 07452400 

END! 07452500 

SPQUT(S)! 07452600 

END ELSE FORGETSPACECS); 07452700 

CIDROWIR] * Qi% 07453000 

EXIT! UNLOCKCONTROLDECKS; 07455000 

END!* 07456000 

PROCEDURE RUNTHEDECK(B);VALUE Bl REAL B!* 07457000 

BEGIN REAL I«JJX 07458000 

STREAM(S«*0IB»AI=[IJ); 07461000 

BEGIN SI * B! 07461100 

Ll IF SC * " » THEN 07461200 

BEGIN SI ♦ SI*1J GO TO L END! 07461300 

IF SC*"#" THEN 07461310 

BEGIN L1IS1 l»SI+i; IF SC*" » THEN GO TO Ll! 07461320 

0S«w4 LlT"OOOQ"!DS!*« CHR!TALLY««1!G0 TO EX! 07461330 

END! 07461340 

DI * A! DI * DI+7; OS ♦ CHR! 0M61400 

EX | St*TALLY! 07461450 

END! 07461500 

J|*P! 07461560 

Bt»B. [151153-11 07461570 

IF J THEN 07461600 

BEGIN 07461700 

FORGETSPACECB)! 07461800 

STARTADECK(I)! 07461900 

END ELSE 07462000 



BEGIN 07462100 

IF" I GTR 4 THEN I 1 *NABS( RUNUMBER ) ELSE 07462200 

BEGIN 07462250 

KUNUMBF.Rl«n 07462300 

FOR JipO STEP 1 UNTIL 3 DO 07462400 

RUNUMBERl*RUNUMBER-(CIDROW[J]^0); 07462500 

ENDJ 07462600 

5TREAMCXli*l-I,llilJ»X2l»RUNUMBER,[lllJ#ll»ABSCI)tB)l07463000 

BEGIN CIlwC!+Xlf GO Hi DSlMOLIT" WILL USE w IG0 L2i 07464000 

L 1 » CI»*CI+X2> GO L2J DS I *L I T"- w ; L2» 07464100 

Sll«LOC i;DS»*2 DEC* 07465000 

DS <■ 13 LIT w PSEUDO-RDRS*"; 07466000 

END1S 07467000 

SPOUTCBH 0/468100 

IF RUNUMBER GTR THEN START ADECK ( ) J 07469000 

ENDI 07472500 

ENOJS 07473000 

PROCEDURE EXTERNAIENDCB)! VALUE B; REAL Bl 07473100 

BEGIN REAL Ul LABEL EXJT; 07474000 

U * UNJTINCTlNUtBH 07475000 

B * B.C15U53-1* 07476000 

IF US35 AND US32 THEN 07477000 

IF LABELTABLECU3 > THEN 07478000 

$ SET OMIT * NOTCPACKETS) 07478099 

IF LABFLTABLEtUJ NEQ 0214 AND PACKET ACT t U"32 3=0 THEN 07478100 

$ POP OMIT 07478101 

IF CIDROhCU'32] * THEN 07478500 

BEGIN *030-07479000 

END0FDECK(U-32)J 07479100 

FORGETSPACECB)J 07480000 

GO TO EXIT* 07481000 

END* 07482000 

SPOUT(B); 07483000 

EXITJENDJ 07484000 

PROCEDURE CHANGEPR10RITY(BUFF»MIX)| VALUE BUFF«MIX; REAL BUFF.MIXt 07485000 

BEGIN INTEGER PRIORITY; REAL B; 07486000 

ARRAY LINKR « NTH*]* 07486100 

$ SET OMIT * NOTCPACKETS) 07486499 

DEFINE UNITNO • PSEUDOM I X[MI X }t t 07486500 

S POP OMIT 07466501 

BUFF •• ((B*BUFF),(15ll51'l)lM[P(DUP)-iJl'9|9|9J| 07487000 

STREAM(PRIORITYiB)J 07488000 

BEGIN SI*BJ 07489000 

Nt IF SC'"*" THEN GO TO X; 07490000 

if sc^o" then begin si*si + h go to nl end; b*si; 07491000 

kl if su"©" then if scs"9" then 07492000 

begin tally*tally + i; s i * s i + 1 1 go to k end; 07493000 

si*b; di*loc priority; b*tally; ds*b oct; go to z; 07494000 

xi di»loc priority; skip db; dsmi set; 07495000 

Zt 07496000 

END STREAM; 07497000 

IF CPRI0RITY*P) i THEN 07498000 

IF CMEMCMIX#0JMCF3iFENCE THEN 07500000 

IF JARCMIX#*]#0 THEN 07501000 

IF PUTORTAKECMIX»tPRYOR[MIXJJ,ltO) > THEN 07502000 

BEGIN NTl*PUT0RTAKE(MIX»[PRYOR£MlXn»0»PRIORITY); 07503000 

B ♦ PUT0RTAKE(MIX#[JAR[MIX»23J»1»0); 07503100 

B,[CFJ * IF PRI0RITY>32767 THEN 32767 ELSE PRIORITY; 07503200 

NTl * PUTQRTAKECMlX,tJARCMIX»2JJ»0»B>; 07503500 

STREAM(J*PUTORTAKE(MIX,tvlARtMIX»0]J»l»0}» 07504000 



I*PUTORTAKE(MIX»t JAR[MjXf J] J»1«0)» 07504)00 

MIXfPHIOKITYtBUFF); 07504*00 

BEGIN DSMO L I T " PRIORITY*"; 07505000 

SI*LOC PRIORITY; BUFF*DI; DS*6 DEC; 0I*-DI*6J 07506000 

DS*5 FILL; DI*BUFFI DI*D 1+61 QS*U I T w I w ; 07507000 

SJ*L0C Jl 2(SI*SI+1' 0S*7CHRI DS«-UIT M / M ); 01*01-1 f 07508000 

DS*LIT"""I Sl*LOC MIX; DS*2DECJ DS*LlT w *"; 07509000 

DI«-0I-3J DS*riLU 07509500 

END END; 07510000 

SP0UTER(BUFF»UMTN0#D) 07511000 

IF STASUSCMIX3 w RUNNING THEN 07511100 

IF MIXsp2MlX THEN PRY0REP2MIX} ♦ PRIORITY ELSE 07511200 

BEGIN LINKR * BED1 J 07511300 

DO IF NOT (B * LINKRm*MlX) THEN LINKR * LJNKREU 07511400 

UNTIL, B; 07511500 

LINKREO) * C*PCDUP)) & (PRI0RJTY*64)ICTF]I 07511600 

END; 07511700 

END CHANGEPRIORJTY; 07512000 

PROCEDURE ENTERCONTROLDFCK(H); VALUE HI ARRAY H[*lJ 07541000 

BEGIN REAL R*S#T»T1 #T2I 07542000 

INTEGER i; 07543000 

S SET OMIT * NOTCPACKETS) 07543099 

LABEL MORE; 07543100 

$ POP OMIT 0/543101 

* 07544000 

T*"DECK w &Ht43tll47ll3; % FOR SCRATCHDIR DELETE 07545000 

St»NEXTCDNUM(0); 07547000 

DlSKWA!T(KLUMP»3»DIRECT0RYT0P+3); * CHANGE LASTCDNUM ON DISK07547100 

S SET OMIT » NOT(PACKETS) 07547499 

MORE* 07547500 

$ POP OMIT 07547501 

HCO]*»e00120003600030i; 07548000 

S SET OMIT * NOTCPACKETS) 07548099 

T2*HE6)*tFF3l HE6 ] . E FF J*T1 ; 07548100 

$ POP OMIT 07548101 

STREAM(DATE»B*[H[3]]>; 07549000 

BEGIN SI*L0C DATE;DS*8 OCT ; D I *DI "8 ; DS*2 L I T"+7" ; END; 07549100 

H[4] I* Oi 07550000 

t SET OMIT » NOT SHAREDISK 07550003 

SYSN0[4|46l2H 07550005 

$ POP OMJT 07550007 

15t 12144 143 I 07550010 

HCn*(XCL0CK + P(RTR))&H[3][6l30ll6]; 07550100 

H(23 l*St>»l«t*12[6U2l6]&S( 121 2*1 24UP37E36I 4216)1 07557000 

TH"EUF(T»StH,CCFJ"l)l 07559000 

$ SET OMIT * NOTCPACKETS) 07559099 

IF T2 NEQ THEN 07559100 

BEGIN DISKWAITC-CH INX 0)* 30i T2); 07559110 

F0RGETESPDISKCT2); 07559120 

S*HC23; GO TO MOREJ 07559180 

END; 07559190 

* POP OMIT 07559191 

HI23*LASTCDNUM; 07559500 

IF FIRSTDECKsO THEN F I RSTDECK I sTl ELSE 07560000 

BEGIN 07561000 

$ set omit ■ sharedisk 07561990 

lockdjrectory; 07562000 

t POP OMIT 07562010 

DISKHAITC-CH»SPACEC30))#"30»LASTDECK); 07564000 

MEI+6J,[CF]|"T1J 07565000 
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DlSKWAlT(I#»30fL.ASTDECK); 
FORGETSPACECpl 

s set omit * smaredisk 

UNLOCKOIRECTORYI 
S POP OMIT 
ENDI 
UASTOECKj*Tl? 

DISKWA!T(KLUMPt-3»DIRECT0RYT0P+3){ 
UNLOCKTOG(CDMASK); 

IF RUNUMBER GTR THEN ST ARTADEC*( ) I 
END ENTERCONTROLDECM 
BOOLEAN PROCEDURE MTX IN( I . U*BUFF ) I X 
REAL U»6UFFl INTEGER II* 
BEGIN LABEL EXlTtXjX 

U * UNITINCTINU.BUFFH 
BUFF ♦ BUFF, 1 151 153-1 J 
IF U > 15 THENX 

BEGIN»STREAM(BUr F )> OS 

GO TO EXITlX 
END ELSE I ♦ TWOCU); 
STREAMCA*TINUCUJlBUFF)>* 

BEGIN SI*LOC Al Sl*Sl*5l DS*LJT" "I DS*3 CHRIX 

DS * LIT " "I A ♦ DUX 
ENDI* 
PCCBUFF]«*)I* 

IF LABELTABLEtUJ w 0114 OR LABELT ABLE [U 3 * 0214 THENX 
BEGIN 

STREAM(SAV»*((I AND SAVEWORD) NEQ 0). BUFF)I 
BEGIN 

DSIMOLIT-NOT READY* H ; 
SAVCOI l-OI-l J DSI*8LIT"(SAVED)* ,, )J 
END! 
GO TO EXIT! 
ENOiX 
IF LABELTABLECUJ < THENX 

BEGINISTREAMCBUFF )J OS * 7 LIT " I N USE* M IX 
ENDX 
ELSE GO TO XIX 
EXITIMTXIN ♦ TRUEIX 
XIENDIX 
PROCEDURE TAPEPURGE(BUFF)! VALUE BUFFI REAL BUFFI* 
BEGIN LABEL EXjTiX 
REAL JtUlX 
REAL R«TI 
BOOLEAN TESTI 
REAL WHAT » BUFFlX 

IF MTXIN(I»U»WHAT) THEN GO TO EXITlX 
STREAM(BI«BUFF»T*ITJ)1 
BEGIN SI1*BI SI jaSI+61 
IF SC«"»" THEN 

BEGIN SII»SI+1I 

5C IF SC*"*" THEN JUMP OUT} 

TALLYI»TALLY*1ISJI«SJ+1)I 
BisTALLYl SII»SI-BI DS{*B OCT* 
ENDI 
ENDI 

LABELTABLEtUJ * -PHI 

IF (R»NAITIO(9500000000«»177*U))#0 THEN 
IF R#P120 THEN XERROR OTHER THAN WRITE LOCK 
BEGINISTREAM(U*TINU[U3»BUFF)| 



07566000 
07567000 
07567990 
07568000 
07568010 
07569000 
07570000 
07571000 
07572000 
07573000 
07575000 
08000000 
08001000 
08002000 
08003000 
08004000 
06005000 
08006000 
08007000 
08008000 
08009000 
08010000 
08011000 
08012000 
06013000 
08014000 
08015000 
08015100 
08015200 
06015300 
08015400 
08015500 
08016000 
08017000 
06018000 
08019000 
08020000 
06021000 
08022000 
08023000 
08024000 
08025000 
06026000 
08027000 
08027100 
06026000 
08029000 
06029015 
08029020 
08029025 
08029030 
06029035 
06029040 
08029045 
08029050 
08029055 
08029100 
08030000 
08030100 
08030200 



BEGIN DS*14 LIT "#CANNOT PURGE "J 06030300 

SI*L0C Ul S1*SI+5I DSOCHRJ 06030310 

DS»LIT"«-"I 08030320 

ENOI 08030330 

LABELTABLEtUJ*e2l4* 08030400 

GO TO EXJTJ 08030500 

END ELSE *N0 WRITE RING 08030600 

BEGIN? STREAM(BUm> OS * 11 LIT "WRITE LOCK*-"}* 08031000 

LABELTABLECUJ * 01141 08031100 

GO TO EXIT?* 08032000 

ENDIX 08033000 

IF T*0 THEN 06033980 

BEGIN Tl«PRNTABLEtUJ,[30U8J| TESTt* TRUE END? 08033990 

STREAMfA«»T»BUFF)J 08034000 

BEGIN DI * DI ♦ 31 DS * 8 LIT " LABEL "I 08035000 

8(DS*2 LIT "OX w )J 08035100 

24(DS*2 LIT H 0")l DS*2 LIT "i*"! 08036000 

DI * DI -21 ; SI * LOC A; DS * 5 DEC?* 08037000 

END!* 08038000 

RRRMECH * I OR RRRMECHI* 08039000 

08040000 

MULTITABLFtUJ «• 01* 06041000 

PC WAIT IOC 94200000000* 0*U)» DEL )U 08042000 

R * WAITIOCBUFF INX fc»12050000000 1 » P2000000»U) OR* 08043000 

WAITIOCBUFF INX 10. P20000Q0* U ) i * 08044000 

IF M003IOS THEN *AI080445Q0 

DO UNTIL PCWAITIOCBUFF INX P3400000 1 2»?50#U) )»?10 XAI08044600 

ELSE XAI08044700 

PCWAITIOCP4200000000»0»U)#DEL)IX 08045000 

SLEEPUTOGLEJ»STATUSMASK)j 08046000 

RRRMECH * RRRMECH AND NOT II* 06047000 

READY * READY AND NOT II* 08048000 

IF R * THEN BEGIN* 08049000 

LABELTABLFtUJ * P114J* 08050000 

IF TEST THEN BEGIN STREAMC BUFF ) J DS I *6L I T"PG-ED*" I END 06051000 

ELSE BEGIN STRFAM(AI«T»Bl*PRNTABLE[U3,l30ll8)»BUFF>> 08051010 

BEGIN D5l«10LlT H PG-E0CPRNs«| 08051020 

SIJbLOC Al QSl»5 DEC? 06051030 

DSI»5LIT"*WAS "I 08051040 

SII*L0C Bl DS«*5 DECJDS»«2LlT")*"l 08051050 

ENDI 08051060 

FND> 06051070 

EXITlSPOUTCBUFF )l 0805200© 

END ELSE BEGIN* 06053000 

LABELTABLEtU] «- P214J* 08054000 

FORGETSPACECBUFFm 08055000 

END** 08056000 

ENDI* 06057000 

PROCEDURE MJXPRINTCBUFF); VALUE BUFFI REAL BUFFI* 08058000 

BEGIN REAL C • I * T I 08059000 

FOR I » 1 STEP 1 UNTIL M1XMAX DO* 08060000 

IF JARU»*J * THEN* 08061000 

BEGIN 06062000 

TABCNTCIJl»TABCimn*lJ 08062025 

IF T THEN BUFFUBUFF&SPACEC5HCTCJ? 08062050 

IF CCJ'PUT0RTAKECl»[PRY0R[I]].Ul[2t47in»0)) # 08063000 

NOT THEN STREAMCC* 08063050 

Jl"PUT0RTAKE(I»CJARtI«O3JiliO)f 0806 3100 

K|«PUT0RTAKECI»CJARU»U]#1»0)» 0606 3200 

Ul»PUTORTAKECl»[USERCODE[ JJJf i»0)» 08063300 



X|*3"DATt I), 

I i BUFF)* 

BEGIN SI*L0C C 

DI*DI-6» 

Dl*BUFF; 

sh*loc 

DS*7 C 
DS * LIT 
DS*2DECI 
Dl*DI"3l 
END 

ELSE STREAMCI, 

BEGIN DSi*4 LI 

SI«*LQC I 

DSl«9 LIT 

Dll*DIMl 

ENOI 

TABCNTC I 3 «»TABCNTC I 

SPOUT(BUFF)IX 

t ♦ nx 



NDSABLE* 

I DS*6 DEC! 

DS*5 FILLI 

01*01+61 DS*LI 
j; X(S1»«SI+1I 
HR> DS*LIT"/ W )> 
"■"I SI * LOC I 

ds*lit"* w ; 
ds*fill; 

buff); 

T"MJX "; 

; ds»»2 dec; 
" is hung*"; 

; DS»«2 FILL; 

j-i; 



IF T THEN 
BEGIN STRE 

else strea 
spqutcbuff 

end;x 
proceoure rewinoandlock 

begin real buff 

INTEGER It 

LABEL EXIT 

IF MTXIN(I 

RRRMECH * 

LABELTABLF 

MULTITABLE 

PC WAITIOCP 

SLEEPdTOG 

RRRMECH ♦ 

READY ♦ RE 

LABELTABLE 

STREAM(BUF 

EXJTISPOUTCBUFF 

ENDtX 

PROCEDURE GIMEDATE(B»DT) 

PROCEDURE PRINTDIRECTORY 

VALU 
BEGIN ARRAY HDRt*]»N 

REAL CODE* RCW»*0; 
DEFINE LFT*LEFTARROW 
REAL A»B*C»T»CR»N; 
REAL INFOTYPE'INFO, 
LABEL GETADATE»INFO 
INTEGER I»J; 
LABEL G£THDR»IN 
ARRAY D*NBI*l; 

real userid#pg; 
name addr; 

INTEGER JltJ2»J3»Kl 
REAL PBOTOGiLABELREC 
SUBROUTINE FINDWHAT 
BEGIN 



END IX 



AM(B»*8UFF»«SPACEM)); D 
MCBUFF 31 D5l«9 LIT"NUIL 

); 

(WHAT)I VALUE WHAT; REAL 

■WHATtUJX 

X 

IX 

»U»BUFF) THEN GO TO EXIT 

RRRMECH OR IIX 

tUJ «• -014IX 

[UJ * 0|X 

4200000000»0»U)»DEL)lX 

LEJ»STATUSMASK)1 

RRRMECH AND NOT IJZ 

ADY AND NOT \l% 

tUJ * P214U 

F)l DS •• 5 LIT »RW/L*";» 

)! 

I VALUE B»DTI REAl B#DT| 

(BUFF)I 

E BUFFI REAL BUFFI 

Bt*3l 

#|XX 

INFOTEMPJ 
UTI 

.OUT»AROUND#XOUTI 



iK2| 

; 

info; 



Sl*7 LIT-END MX 
MIX*-"; 



what;x 



IX 



forward; 



08063400 

08064000 

08065000 

08065100 

T W I H ; 08065200 

08066000 

DI*DI-i;08067000 

;X 08068000 

08069000 

08069500 

08070000 

08070100 

08070200 

08070300 

08070400 

08070500 

08070600 

08070900 

08071000 

08072000 

06073000 

08074000 

•"I END 08075000 

08076000 

08077000 

08078000 

08079000 

06080000 

08081000 

06082000 

08083000 

08084000 

08085000 

08086000 

08087000 

08068000 

08089000 

08090000 

08091000 

08092000 

08093000 

08094000 

XRH 08094500 

XDSX08095000 

XDSX08095100 

X10408096000 

XDSX08096100 

X10A06096200 

08097000 

XRH 08097100 

XRH 08097200 

08098000 

06098100 

X10408098200 

08098300 

08098400 

06098500 

08098558 

XRH 08099000 

XRH 08099100 



IF INFOTYPE*"DAU " THEN XRH 08099200 

BEGIN XRH 05099210 

1NF0TEMP|«H0R[3J,C30H83&1[1I43I53I XRH 08099220 

GO GETADATEI XRH 06099230 

END ELSE XRH 080992*0 

IF INKOTYPE* M LAST " THEN XRH 08099300 

BEGIN XRH 06099310 

INFOTEMP»*HDR[33.[12»183&2[H43l53* XRH 08099320 

GO GETADATEI XRH 08099330 

END ELSE XRH 08099340 

IF INFQTYPE» M RECS " THEN XRH 08099400 

BEGIN XRH 08099410 

IF (A EQV "PBD ") » NOT OR 08099412 

(A EQV "PUD ") * NOT THEN 08099414 

INFO !■ CHDR[73x5)&3[ll43»53 ELSE 06099416 

INF0l«(HDRt7]*J)*3Cll«3l5JI XRH 08099420 

GO TO INFOUTl XRH 08099431 

END ELSE XRH 08099440 

IF INF0TYPE*"SIZE " THEN XRH 0609950* 

BEGIN PG!*HDR[93 AND ?37| XRH 08099510 

INF0l*0l WHILE CINF0I*1NF0+1) LEO Pti DO IF XRH 08099520 

HDRCINF0+9]#0 THEN I NFOTEMP » * INFOTEMP+1 | XRH 06099530 

]NF0l*CINF0TEMPxHDR[6J)&4tl»43l53> I NFOTEMPI *0l XRH 08099540 

GO TO INFOUTJ XRH 08099550 

END» XRH 0809956* 

GO TO INF0U1 I XRH 08099570 

GETADATEI XRH 08099700 

STREAM(A>«lNF0TEMP t C30»18j»I l*tlNF03)l XRH 0809971* 

BEGIN SI |«LOC AJDS«*8 DEC ENDI XRH 08099720 

GIMEDATEUINF03.[CF3#-INFQ)J XRH 08099736 

INF0,tl«5JJ«INFOTEMP f [U53; XRH 08099740 

INFOUT I XRH 08099750 

PCDEDl XRH 08099760 

GO TO I N | XRH 08099770 

ENDI XRH 08099800 

CODE I" BUFF, [91631 XDSXQ8099900 

BUFF*(C*BUFF),tl5H53-i; 08100000 

NB!*CM[SPA.CEC60)JH60[fll38UO]l 08101300 

NAMEIDCAtOI 08102000 

NAMEID(B»C)I IF B«"/ " THEN NAMEIDCB»C)J 08102100 

NAMEIDUNFQTYPE.OI XRH 08102200 

Cl»OI 08103000 

IF ((A EQV B)«NOT 0) AND CCA EQV "* ")»NOT 0) THEN GO XOUTJ 08103100 

IF CA EQV "** ")*NOT THEN A* M * "I 08103200 

IF CB EQV "** »)* NOT THEN B*"* "I 08103300 

Jl l«J3l »0* Kli"K2»»M0DULUS-ll X104O81034Q0 

IF C0DE*3 THEN 08103450 

BEGIN 08103460 

IF A,[6l63 NEQ LFT THEN Jl I «Kl I ■( A , 1 6 J 18 ] *A , [24 I 24 J ) MOD MODULUSl 08103500 

IF 6,[6I63 NEQ LFT THEN J3 I «K2 l»C B, [6 1 183 *B , [ 24 I 24 J ) MOD MODULUS) 08103600 

ENDI 08103650 

IF CCINFOTYPE EQV "* ")# NOT AND CODE-0) THEN C0DE»»5I XRH 08103700 

IF C0DE*0 THEN HDRl»lOQUE&SPACEC 30) [CTC 3 1 08103900 

FOR Jl I«J1 STEP 1 UNTIL Kl DO X10408104000 

FOR J2|«J3 STEP 1 UNTIL K2 00 X10408104100 

BEGIN Jl*SCRAMBLECJl.J2)l X10408104200 

DO BEGIN X10406104300 

BEGIN DISKWAITC"NB.[CF3*60#J)I X10408105000 

FOR 11*0 STEP 3 UNTIL 57 DO X1Q4081070Q0 

IF (Tl"NB[I3) NEQ *14 THEN X10408109000 



GETHDRl 



IF CQDE*3 THt 

IF CT EQV A)* 

IFCNBU + 13EQV 

IF CODE*0 AND USE 

BEGIN Tt*HDR t 

DISKWAIT 

IF CODE* 

IF COD£*0 TH 

*0 THEN GO T 

IE CODE* 

begin; 

STR 
BEG 
IE 



N COMMENT UD) GO GETHDR ELSE 
NOT OR (A EQV "«■ ")» NOT 
B)*NOT OR(B EQV" + ")"NOT 

RID»0 THEN GO TO IN ELSE 

rCFHNBU+2J[CTFj; 

C-T , [CF)#30.T,[FF3)) 

5 THEN FJNDWHATINFO) 

EN IF 








THEN 

THEN 



EN IF SECURlTYCHECKCNBtUtNBtl + tJ.USERlD 
IN ELSE GO TO AROUND) 
- THEN COMMENT £X; 



ENDI 
IF (t 



FALSE THEN GO A 
IF CO 
IF HD 
IF CO 



S SET OMIT * PACKETS 

t POP OMIT 

$ SET OMIT * NOT(PACKET 

$ POP OMIT 



EAM(A«-CALCULATEPURGEC-HDR[3],C2»10J)iB«-[ 
IN SI*L0C A>DS*8 OCT END) 
PG>HDRt3J,tl2U8J 
THEN GO IN ELSE GO AROUND) 

NBtUEQV "DECK ")*NOr 0) AND 

C C CNBC 1*1 SAND 077000000007777 ) tQV 

P12000000003714)*NOT 0) OR 

ROUND) % 

DE*4 THEN COMMENT SB) 

R[53*12 THEN GO AROUND) N*HDR[63) 

DE*2 THEN COMMENT UD»CR#SB) 

!F(NOT(CRl»HDR£lF CODE** THEN 5 ELSE 23. [6| 

« NOT THEN IF CQDE*2 THEN GO AROUND) 

IF CODE-2 THEN IF (PBDT0G*CP(NBU3 » DUP ) EQV 

"PBD ")»N0T OR (P(XCH) EQV "PUD ") 

= NOT 0) THEN 

IF NBCI+lJ.t30«l6J NEQ "001" THEN GO AROUND 



S) 
IF 

BEG 



NBCI + 1), [42163 NEQ "1" THEN GO AROUND ELSE 



INI 



END 

IF CODE* 

IF( 

BEGIN C* 
STR 



BEG 



IN 

IF 

DIS 

INF 

ELSE 

3 THE 

CR EQ 

THE 

SPACE 

EAMCF 

Y 

1 

IN SI 

SH 

YCDS 

X(DS 

DS 

YCDS 

PBDT 

2(SI 

DI »* 

2CSI 

DIt* 

INFC 



LABELRE 
KWAITC- 
, C 1 I 5 3 
IF NOT 
N COMME 
V A)#NO 
N 

(12)) 
«*[DU3 
««CODE* 
NFO.t 1 1 
l*FI DS 
*SJ*1) 
1*6 LIT 
1*4 LJT 
1*7 CHR 
I*L1T"/ 
OGCDSl* 

i*si+i» 
Di-n d 

l»SI*D 
1 - 1 > I 

ci i*ci + 

GO INF3 
INF 1 1 



C*0 THEN LABELREC*SPACE(30)) 
LABELREC»30»HDRI10J+2)J 
*Q) GO INI 

CR*NOT THEN GO AROUND) 
NT UD) 

T ANDCA EQV "• ")#NQT 
GO TO AROUND) 

]»CR»N.Xj»(C0DE*2 AND C0DE<5 

4i INF i*C0DE*5»INF0»INFN0l« 

53#PBDTOG»LR*LABELREC INX 12 

>»L1T" ") S I l*sSI ♦! * DS»*7 CH 

DSI*LIT W / W ) DS*7 CHR) 

" SECURED"))) 

" BY ") SI l*LOC CR) SI*SI*1) 

)) 

") SI Ib&I + IJ DSl*7 CHR)) 

H LIT" IS") SI»*LR) 

DSl*7 CHR) DS|*LIT M /")) 
Sl*4 LJT " OF ") 

0Sl*7 CHR) DSI«LIT"/")J 

iNFNOfGO ERR)GO INFDGO INF2 
)G0 ]NF4| 



08 
08 
08 

08 

110408 

08 

*RH 08 

»T )08 
08 
08 
08 

PGJ))08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

42J))08 
08 
06 
08 
08 
06 
ELSE08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
06 
08 
08 
08 
08 
08 
08 
08 
06 
08 
08 
08 
08 
08 
06 
06 
06 
06 
08 



)» 

IRH 
• C)l 

Rl 



) 



XRH 
XRH 



110000 
111000 
112000 
113000 
114000 
115000 
115060 
115100 
115200 
116000 
116700 
116600 
116900 
117000 
117100 
117105 
117110 
117120 
117U0 
117140 
117200 
117300 
117400 
117500 
117600 
117610 
117620 
117630 
117631 
117632 
117633 
117634 
117635 
117636 
117640 
117650 
117660 
117670 
117680 
117700 
U7800 
117900 
118000 
119000 
119100 
119200 
120000 
121000 
122000 
123000 
124000 
125000 
125010 
125020 
125030 
125040 
125050 
125100 
125U0 
125120 



DSl*lOMT" CREATED* "I XRH 08125130 

DATE* SH*L0C INF02 XRH 08125140 

SH»Sl+2IDSl*2 CHRI2CDSI«L1TV"I XRH 08125150 

DS|*2 CHR)lGO INFENDJ XRH 08125160 

INF2! XRH 08125200 

DSi«ilLlT" ACCESSED! "IGO DATE* XRH 08125210 

INF3» XRH 08125300 

DStMOUT" RECORDS! M } XRH 08125310 

DECMl XRH 08125320 

Sjl*L0C INFQIDS|«6 DEClXlsDll XRH 08125330 

Dl«*DI-6JDSl*5 FILLJDI!*X| XRH 08125340 

go infend; xrh O8125350 

INF4I XRH 08125400 

DSlMlLlT" SEGMENTS! "IGO DECMJ XRH 08125410 

ERR! INFENDDI XRH 08125420 

DSI*LIT W *"J 08126000 

ENDI 08127000 

SPQUT(C)! 08128000 

AROUNOI ENDI END* ENDI 08129000 

END UNTIU (J!«NB[2J,[FF])*0) X10408129100 

ENDI X10408129200 

OUT! IF C0DE#0 THEN FORGET SPACE(HDR ) I 08130000 

XOUTl FORGETSPACECNB)! 06130100 

IF LABELREC*0 THEN FORGETSPACEC LABELREC ) I 08130200 

IF C * THEN 08131000 

BEGIN M[BUFFj!sFLAGCNAB$C H NUU M ))l 08132000 

SPOUT(BUFF)! 08133000 

END ELSE FORGETSPACE(BUFF)! 08134000 

END PRINTDIRECTORYI 06135000 

PROCEDURE PBI0(A»P)I VALUE Al REAL A»Pl FORWARD! XP 08170100 

PROCEDURE C0NTINU1TYBITIX 08171000 

BEGIN REAL T. I0D» L I NK »U) X 06172000 

ARRAY At*]J 08172500 

REAL RCW«+0!X 08173000 

ARRAY R*-4[*)l DEFINE FIB»A#J XP 08173100 

CHECKSTACKSPACEIX XWF 08173200 

U *(LINK * NFLAG(M[C IQD * NFLAG( M[ T*PRT [P 1M I X » 93 J ) INXX 08174000 

P(0tLNG»XCH>) I NX NOT ' 0] ) ) , [ 1216 J I X 06175000 

IF U * 32 THEN 08175100 

BEGIN A * MIT]! 08175200 

IF READEMFR0MDISKCCIDROWCU-32J.A) THEN 08U5300 

MtT] * A*UZ7|47UU0C2l«7llJ ELSE 08175400 

MIT] * R* GO TO RETURNI 08175500 

ENDI 08175600 

MUOD INX NOT 13*FLAG(LINK)I FIB*M[T<"3]J XP 08176000 

MIFIBI14JINX 17J ♦ tMEFI B£5J,£FF J J HIODt 31 3130 U0[20l20ll II 08177000 

IFIBC53*P(DUP»LOD»0»t»CFX*ADD)l XP 08177100 

IF FIBtl4J,[FFJ<FIBtl4],tCFJ THEN XX BUFFER FULL XP 08177200 

PBI0CT.FIBC143) XP 08178000 

ELSf XP 08179000 

BEGIN] STREAM(A*FIBtl4],CCF]» B*F IBt 14 J , [F F ] ) I XP 08179600 

BEGIN SI*AI DSM8 WDS ENOI XP 08179700 

F1BU4J,CFFJ*FIB[14J,(FFJ-18| XP 08179800 

ENDI XP 08179900 

GO RETURN XP 08180000 

END CONTINUITYBITI XP 08181000 

BOOLEAN PROCEDURE PRINTORPUNCHWAIT(Q.PNCH) I VALUE 0»PNCH*REAL Q»PNCHI 08255000 

X 08255050 

X THIS PROCEDURE IS RESPONSIBLE FOR STARTING PRNPBT/DISK, IT CHECKS 08255055 

X FOR I/O UNITS AS REQUIRED AND. IF AVAILABLE* GRABS THEM, THE 08255060 



% PARAMETERS ARE» 08255065 
% Q S-16 LOGICAL UNIT NUMBER FOR OUTPUT, TAPES* AND DISK ARE 08255070 
% SEARCHED TO FIND A FILE TO PRINT, THIS IS USED ONLY 08255075 

% WHEN AUTOPRINT IS SET OR FOR RUE. 08255080 

% >-16» <0 LOGICAL UNIT NUMBER OF A BACK-UP TAPE. CHECK FOR AN 08255085 

% AVAILABLE OUTPUT UNJT. 08255090 

* >0 FID OF A DISK FILE, CHECK FOR OUTPUT UNIT, 08255095 
*. PNCH»[47llJ ON FOR PUNCH BACK-UP, 08255100 

* C39I8] NUMBER OF COPIES FROM PB MESSAGE, 06255105 
% C31$8] IF TAPE* NUMBER OF FILE TO PRINT (FROM PB), 08255110 
X IF DISK, «0 IF ENTIRE PACKET SHOULD BE PRINTED). «i IF08255115 
% NOT, 08255120 
% 130UJ ON IF *0 WAS USED IN PB MSG. 08255122 

* [211] ON IF CALLED FROM PRINTBACKUP, I,E» A PB MESSAGE, 08255130 
% [111] ON IF CALLED FROM PRNPBT/DISK, 08255135 
X 08255140 

BEGJN INTEGER U, V, I * J, J t » J2, S J 08255200 

REAL A»HDR»SEGO«SiFeJJ 08255400 

REAL PBTtPUD'PBDJ 08255500 

ARRAY D[*J»SHEAT«DC*J* 08255600 

LABEL TRYAGAIN,PRNPBT»DISK; 08255700 

LABEL PBTAPEtFOUND»FlRElTUP,QUiTi 08255800 

DEFINE MFID « (IF V«22 THEN PUD ELSE PBD)#J 08255900 

S SET OMIT • SHAREDISK 08256190 

DEFINE SIXTY » 60#; 08256200 

$ SET OMIT * NOT SHAREDISK 08256210 

INTEGER SIXTYJ 08256220 

S POP OMIT OMIT 08256230 

PBT I* "PBT "I PUD I* M PUU M J PBD ;* "PBD H ; 06256500 

IF 0>(-15) THEN SIX PB GIVEN* LOOK FOR LP, 08257000 

BEGIN IF PNCH THEN IF LABELTABLE [ V-22 ]#0 THEN V*0 ELSE ELSE 08257500 

IF LABELTABLE[V*203#0 THEN 08257600 

IF LABELTABLEtV»2l3/0 THEN V*0; 08258000 

IF V#0 THEN % WE HAVE AN OUTPUT UNIT 08258200 

IF Q>0 THEN % BACK-UP DISK 08258400 

BEGIN Ul«l8l 06258600 

IF AUTOPRINT THEN % CHECK IF A PRNPBT WAS STARTED, 08258800 

% IF SO, START THIS ONLY FOR PB, 08258990 

IF (A»«DIRECT0RYSEARCH(MFID»Q»19))»0 08259225 

THEN IF PNCH, 12113 THEN ELSE GO UU1T 08259250 

ELSE BEGIN IF M[A+4J t [6lU 08259275 

THEN 08259300 

$ SET OMIT • NOT SHAREDISK 06259325 

UNLOCK(A.IFFJ) 08259350 

t POP OMIT 08259375 

ELSE BEGIN 08259400 

M[A+4J,[6I1J|«1I 08259425 

DlSKNAITCA,[CF"]r*30f A,[FF])I 08259450 

ENDJ 08259500 

FORGETSPACE(A)) 08259525 

t SET OMIT n SHAREDISK 08259550 

UNLOCKDIRECTORYJ 08259575 

S POP OMIT 08259600 

END> 08259625 

END 06259800 

ELSE GO TO PBTAPEJ 08260000 

END ELSE 08260250 

BEGIN V?*ABS(Q)I X LP (OR PUNCH) GIVEN, LOOK FOR FILE, 08260500 

BEGIN IF V*22 THEN X CHECK FOR TAPE 0826J000 

BEGIN AI*"PUTMCP » t 08261250 



PNCHJKPNCH OR U 08261500 

END ELSE 08261750 

Al»"PBTMCP n l 06262000 

FOR Ql«0 STEP 1 UNTIL 15 00 06262250 

IF CMULTITABLE[QJ EQV A)»NOT THEN 08262500 

IF (LABELTABLEtQJ EGV 0122212342546447) *NOT THEN 08262750 

IF RDCTABLECQ].[14«10J*i THEN 08263000 

BEGIN RRRMECH»sTWO(«) OR RRffMECHJ 08263250 

PBTAPEI LABELTABLECUI»ABS(Q) J »w 08263500 

PBT*TINUmt6l30U8Ht»21tH*3l5Jl 0826 3750 

MULTMABLE[V] »■ PBT| 08264000 

LABELTABLECV] I* 08264500 

PBT&TINU[UH6l30il8J4«>21[H43l5]| 08265000 

GO FIREITUPJ 08265500 

END? 06266000 

END SEARCHING FOR TAPE! 08266500 

IF PBCOUNT#0 THEN % TRY FOR DISK 08267000 

BEGIN D«*[M[SPACE(90)J]&90t8i38»10]> 08267500 

t SET OMIT * SHAKEDISK 08267990 

LOCKDIRECTORYJ 08268000 

I POP OMIT 08268010 

AI*MFIDJ 08266500 

Jl!»{A,C6ll8J + A,t24l24J) MOD MQDULUSJ 08268600 

FOR J2l*Q STEP 1 UNTIL CMODULUS-1) DO 08268700 

BEGIN 08268750 

t SET OMIT * NOT SHAREDISK 08268790 

SlXTYl*-60j 08268800 

Si* 06268650 

t POP OMIT 08268860 

J|«SCRAMBLE(J1»J2)> 08268900 

DO BEGIN DISKWAIK-CD INX 30 } . S I XTY» U) t 08268950 

FOR l?*30 STEP 3 UNTIL 87 00 06269000 

IF (0U1 EQV A) * NOT THEN 08269100 

IF DU + l3.tCF3*l THEN 08269200 

BEGIN OISKWAIT(-OitCF3#"30»DtI*23itCn)l 08269300 

IF 0C4 J • [ 1 I 33 * OR D[43,C6tlJ 06269400 

S SET OMIT * NOTCPACKETS) 08269509 

OR LABELTABLEIIF V»20 THEN 21 ELSE 08269510 

IF V*2t THEN 20 ELSE 223, [61243 06269520 

*DCI + U. £6(243 06269530 

I POP OMIT 08269531 

OR CDt4J,C16t203 OR DC 93 . E 1 I 28 J >#0 08269600 

THEN 08269650 

$ SET OMIT ■ NOT SHAREDISK 08269690 

UNL0CK(0tI+23,ICF3) 08269700 

S POP OMIT 08269710 

ELSE 08269750 

BEGIN DC4].[6tl)|Pl! 06269800 

PBCOUNTtspBCOUNT-i; 08269900 

DISKWAIl (D,tCF3*-30iDt I +2 3 i C CF 3 ) » 08270000 

$ SET OMIT » NOT SHAREDISK 08270040 

UNLOCK(S)! 08270050 

S POP OMJT 08270060 

UIM8J 08270100 

QI*DU + UJ 08270200 

GO FOUNDJ 08270300 

END END! 08270350 

$ SET OMIT * NOT SHAREDISK 08270390 

SIXTY?*60J 06270400 

S POP OMIT 08270410 



END UNTIL (JI«D[32J,IFFJ)»0I 06270450 

$ SET OMIT « NOT SHAREDISK 08270490 

UNLOCK(S)l 08270500 

$ POP OMIT 08270510 

EN01 08270550 

FOUNDI F0RGET5PACEC0); 08270600 

t SET OMIT « SHAREDISK 08270640 

UNUOCKDIRECTORYj 08270650 

$ POP OMIT 08270660 

END SEARCHING FOR DISK) 08270700 

ENDI 08270725 

% IF WE HAVE BOTH AN INPUT FILE AND AN OUTPUT UNIT* 08270740 

% FIRE UP PRNPBT/DISK. 08270745 

IF U#0 AND V#0 THEN 08270750 

BEGIN 08270800 

BEGIN LABELTABLEtV3l*0S?2l[l!43:5J> 06271000 

MULTITABLE[V3»*PBD; 08271250 

ENDJ 08271500 

FIREITUPS 08271750 

A»*VlUt38t43l5J&PNCH[21l30U7j; 08272000 

IF PNCH.tlllJ THEN P(A) ELSE 08273250 

BEGIN 08273500 

TRYAGAlNt 08273600 

IF CHDRI*DIRFCT0RYSEARCH(P(PRNPBT),P(DISK)#3)) * THEN 08273750 

BEGIN 08274000 

IF P1MIX NEQ THEN 06274010 

BEGIN 08274020 

F<*GET5PACE(30#64»0)+2; 08274030 

M0VEC30* HDR INX 0. F)l 08274040 

FORGETSPACE(HDR)? 08274050 

HDR.[CF]I=F» 08274060 

END; 08274070 

SHEAT l« [M[FI*GETSPACE(31t64iO)*2]] * 30I8I38U03J 08274250 

M0VE(30»F-i»F)» 08274500 

SEGO l* GETSPACE(30»64»0)+2; 08275500 

DISKWAIT(-SEG0» 30t M[HDR INX 103)1 08275750 

F.tFF] J» HDR? % CORE ADDRESS OF HEADER 08276000 

SHEAT[7] «■ SEGO; % CORE ADDRESS OF SEGMENT ZERO 08276050 

SHEATfO] !» SHEATtHJ l» P(PRNPBT)I 08276100 

SHEATH] l» P(DISK)! 08276150 

SHEATC23 »» & 5t8|38U0J & % PR I0RJ TY*0# RUN CODE 08276200 

CPNCHf C2I 1 J«0)(4t4?tlij * SET NOT W PB" 08276205 

SHEATU6J »* SHEATC17] l* ^3777777777771 % TIM£ L I M I TS0827621 

SHEATC193 J" Al * COMMON VALUE 06276220 

SHEATI203 »« 4J % GORE ESTIMATE 08276230 

SHEAU21J l« 150! % STACK SIZE 08276240 

08276250 

STREAMCAI*0 I S »* P( , SCHEDULE I DS) ) I 08276260 

BEGIN 08276270 

SI»«SJ 08276280 

47CSKIP SB) SKIP DBl TALLY I »TALLY + 1 1 08276290 

IF Sb THEN ELSE JUMP OUT)| 08276300 

DSI-SETJ AI«TALLY| 08276310 

END STREAM STATEMENT; 08276320 

08276330 

I «» P; 06276340 

SHEATC33. 181103 f» II % SCHEDULE NUMBER 08276350 

SHEAT[233 l» (CLOCK + P(RTR)) DIV 60» 08276360 

SMEAU243 «• MCP} 08276365 

SHEATC253 I* HDR.CFF3; % DISK ADDRESS OF FILE HEADER 08276370 



SHEATI26] 

STREAMC A» 
BEGIN 



l« "31I 




% LOGLINE 
ETSPACE(lO»64.0)+2)) 

PRNPBT/DISKKOMMONs") 
C) 



TESPDISK)| 



DIRECTORY 



PRNPBTI I I 
OI5KUI 



END 



BtU| IN 

ENTERSYSFILEC3)) 

GO TRYAGAINI 

"PRNPBT ") 

"DISK »; 

END? 
ENDI 

PRINTQRPUNCHWAlTl»Pl 
ELSE 



QU1TI IF V#0 THEN LA8ELTABLE [ V }«-Ol 

ENO printwaiti* 

PROCEDURE PRINTBACKUPCBUFF )) VALUE 



BUFF) REAL BUFF I 



% 
% 
% 

% 
% 
% 
% 
% 



THIS PROCEDURE HANDLES THE PB MESSAGE* MAKING THE NECES 
AND THEN CALLING PR JNTORPUNCMWA I T , THE SYNTAX OF THE ME 
<PB MSG> f|« PB<INPUT FILE><PB SPECS> 

<INPUT FILE> >l* <TAPE UNIT> / <DISK FILE NUMBER> 
<PB SPECS> l|* <Pb element> / <PB ELEMENTxPB SPECS> 
<PB ELEMENT> ««s P / *<NUMBER OF C0PJES> / #<STARTING 



SARY CHECKS 
SSAGE IS? 



/ <EMPTY> 
FILE 



BEGIN 



REAL U#I» 
LABEL OK. 
STREAMCPC 
BEGIN SI* 
LI IF SC 
IF SC 
BEGIN 



LLI 



CNTI 



ENDI 
IF S 
IF S 
IF S 
BEGI 



END) 
IF S 
BEGI 



COPY 
BAD* 
PY|« 

b; d 

at" «• 

< M 0" 

Bt* 

4CJF 

SII* 
DS*B 

C« w 

C« w # 

N DI 

SII 

3(1 
I 
T 

SII 

Go 

C«"P 
N TA 

5(1 
J 

GO 



.MS.B*BUFF) 

spit; 

\r NUMB»=1# Nisi. CPYls-Ol Bl«BUFF)l 
I*LOC N> 

THEN BEGIN 

THEN BEGIN 
SI) 

SC^O" THEN 
B) BI»TALLY) 

CHKI 



SI*SI+1J GO TO L 
DS*5 LIT"+0000"I 



END) 
DS*3 



CHR END 



JUMP OUT) 
DI l«DI+5l 



TALLY*TALLY*1) SI*SI+1)I 
DII*DI-BI 



» THEN BEGIN SllvSI + 1) GO TO LL ENDI 

" THEN BEGIN DH-LOC CPY) GO TO CNT ENDI 

" THEN 

l*LOC NUMB) 

bSI+11 BlsSl) TALLYl*Ol 

F SC < "0" THEN JUMP OUT) 

F SC > "9" THEN JUMP OUT) 

ALLYI»TALLY+1I SH«SIM)J 

»B? 3««TALLYI DSl*B OCT) 

TO LLI 

H THEN 

LLY|»0) PCPYl»TALLY| S|I»SIM) 

F SCALPHA THEN IF SC<"0" THEN SH*SI*1 ELSE 

UMP OUT ELSE JUMP OUT)) 

TO LL) 



08276380 
08276390 
08276400 
08276410 
08276420 
08276430 
08276440 
08276450 
08276460 
08276470 
08276480 
08276490 
08276500 
08276510 
08276520 
08276530 
08276540 
08276550 
08277000 
08277500 
08278000 
08279000 
08280000 
08281000 

%P 08282000 
08282100 
08282110 
08282120 
08282140 
08282150 
08282160 
NUMBER>08282170 
08282180 
08283000 
08264000 
08285000 

IP 08286000 

XP 08287000 

ELSEXP 08268000 

08289000 

08289500 

08290000 

XP 08290500 
08291000 
08291025 
08291050 
08291075 
08291100 
06291125 
08291150 
08291175 
06291200 
06291225 
08291250 
08291275 
08291300 
08291325 
06291350 
08291375 
06291400 



END? 08291425 

END) 06291450 

C0PYJ»(C0PYl*P)4(N0T COPY * NOT 0)131)47)1]) 08291460 

* 08291470 
% BACK UP TAPE. CHECK THE LABEL THEN CALL PR I NTORPUNCHWA J T . 08291475 

* 08291480 
IF CUlsP) < THEN 08291500 
BEGIN C0PYl"C0PYiCP(XCH)*lH32l40l6]l 08291750 

IF NOT MTXIN(ItUfB) THEN 08292000 

IF <I!»MULTlTABLEtUJ#"PBTMCP " ) AND 08292500 

MULTITABLE[UJ#"PUTMCP w THEN 08293000 

BEGIN STREAM(BUFF); DS?«19 LIT" NOT A BACKUP TAPE*"* 08293500 

GO TO SPITJ 08294000 

END 06294500 

ELSE 08295000 

IF PRINTORPUNCHWAITC-U. I &COPY [ 30 ) 31 t 17 } OR M) THEN 08295206 

GO TO OK ELSE BEGIN MS)»-1J GO TO BAD END 08295600 

ELSE GO 10 SPIT) 08295800 

END) 08296000 

* 08296160 
X BACK UP DISK, SET FIRST REEL NUMBER, IF COPIES OR REEL NUMBER 06296176 
X GIVENt DIAL IN "P" BIT. ELSE LEAVE IT OFF TO PRINT ENTIRE 08296180 
X THING. CHFCK FOR THE FILE* THEN CALL PR I NTORPUNCHWA I T , 08296190 
% 08296200 

STREAHC I l"P: Ul*tU3)» 08296225 

BEGIN S1»*L0C II DH"DI+5* 08296250 

DSI»3 DEC) 08296275 

END) 06296300 

Il'P'tJ 08296325 

IF (COPY OR I) t [CM«0 THEN P(DEL) ELSE 08296350 

C0PY|*C0PY&P(XCH)[39I47»U) 08296375 

BUFF>*BUFF,U5»15J-1) 0829640P 

IF (I«*DIRECTORYSEARCHC"PBD "»U#5))sO THEN 08296600 

IF (IlsDIRECTORYSEARCHCPUD ",U.5))»0 THEN GO TO BAD 08296800 

ELSE MSI«1) 08297000 

PCMC I*4J }| 08297200 

FORGETSPACECI)) 08297300 

IF P.[2»U THEN BEGIN MS)*2) GO TO BAD END) 08297400 

IF PBCOUNT LSS 1 THEN PBCOUNTlM) 08297600 

IF PRINTORPUNCHWAIT(U» MS&COPY t 30 I 31 I I 7 J OR M) THEN 08298000 

OKI FORGETSPACE(BUFF) 08298200 

ELSE 08298400 

BEGIN MStsl) 08298600 

BAD) STREAMCMS* XI»MS<0» UlslF P(DUP) THEN TINU[UJ ELSE U» 08298800 

BUFF)»BUFF,CCF])) 08299000 

BEGIN DSl«8 LIT" NULL PB") 08299200 

SIlwLOC U) CII«CI+X) GO TO DK) 08299400 

SlJsSI+5) DS)*3 CHR) GO TO LL) 08299600 

DK? SllsSI+1) DS)*4 CHR) 08299800 

BUFF'»"DII 01 l«D I "*l DS)*3 FILL) DH«BUFF) 08300000 

LLt DSI«2 LIT"'C") 08300200 

CII*CI*MS) GO TO LO) GO TO LI) 08300400 

DSl* 6 LIT H IN USE") GO TO L) 08300600 

Li) DSIM4 LIT"NO OUTPUT UNIT") GO TO D 08300600 

LO) DS)cii LIT W N0T ON DISK") 08301200 

L I OS)* 2 LIT*)*") 08301400 

END) 08301600 

SPIT? SPOUT(BUFF)) 08301800 

END) 08302000 

END OF PB KEYBOARD MESSAGE HANDLER) 08302500 



PROCEDURE TIMEOUT (B)> VALUE Bl REAL Bl* 08305000 

BEGIN INTEGER M»H#CI* 08306000 

C *XCL0CK/3600U 08307000 

M * C MOD 60|X 08308000 

H * C 01 V 60|X 08309000 

STREAMCH»M»B)lX 08310000 

BEGIN DS ♦ 9 LIT " TIME IS "IX 06311000 

SI * LOC HI DS * 2 DEC* DS ♦ 2 UECI* 08312000 

DS •• LIT » + »% 08313000 

ENDIX 08314000 

IF SWAPEND#0 THEN CHANGEDATE C 0) I 08315000 

SPOUTITCB.TIMEK)* 08315100 

ENDlX 08316000 

PROCEDURE GIMEDATE(BtDT)J VALUE B»DT1 REAL B#DT; 08317000 

XX PARAMETFR USE IS! 08317100 

XX B«OUTPUT AREA FOR MESSAGF OR DATE 08317200 

XXDT*0 RECONVERT ACTDATE » WEEKDAY THEN SPOUT TIME MSG 08317300 

XX DT>0 SPOUT TIME MSG ONLY 08317400 

XX DT<0 CONVERT MMDDYY USING DT ( ACTDATE * WEEKOAY NOT CHANGED) 08317500 

BEGIN REAL M# p* Y » Nc V • NMGI 08318000 

REAL SUBROUTINE DAY! 08318100 

BEGIN|STREAMCM|X*0»Y*0»Z*0)1 08318200 

BEGIN DI*L0C Xj DS*24 L I T"000*0X1 , I Y2G2V3D3T4A4 5>" i 08318300 

SI*LOC Xj SI*SI+M; SI+SI+M; 08318400 

DI*L0C Ml DI*D I +6 J DS*2 CHRI 08318500 

ENDI 08318600 

DAY«-PI 08318700 

END DAY; 08318800 

LABEL DAYS? 08318900 

LABEL ONMX 08319000 

IF NOT (NCV*(DT>0)) THEN X NOT PRINT ONLY 08319700 

BEGIN 08319900 

STREAM(OATEi*IF (NMGl»DT, [ 1 1 1 J > THEN DT ELSE DATE»R I »C Y ] ) ; 08320000 

BEGIN SI * LOC DATE» SI ♦ SI+3JX 08321000 

DS*2 OCT? DI*DI-16J DS*3 OCT; 08322000 

END;X 08323000 

IF Y MOD 4 * AND Y * THENX 08324000 

BEGIN IF D * 60 THENX 08325000 

BEGIN M*2; GO ON ENDJ 08326000 

IF D > 60 THEN D *D-il* 08327000 

ENDU 08328000 

FOR M*l STEP 1 UNTIL 11 DO 08329000 

IF DAY*D THEN GO ON; 08330000 

ONI M*M"i; 08331000 

D*D"DAYJ 08332000 

IF M<2 THEN P(Y»l»M+lt) ELSE PCY.M-1); 08332100 

P(26»xt2»-#10t IDV#D»^#XCH»P(DUP)tt36li0]«+»+»7»RDV»5»ISN)J08332200 

*t P(,DAYS»*.LOD); 08332300 

M*M*1J 08332400 

END ELSE P(WEEKDAY); 06332500 

STRE AM C M* [ M ]. NMG»NCV»MDY*[ ACT DATE] »B»DW«-[ WEEKDAY]); 08333000 

BEGIN NMGCJUMP OUT TO NOMSG); 08334000 

SJ*L0C Ml SI*SI-16| 08334100 

NCVCSI*SI+2I JUMP OUT TO NOCNV); 08334300 

DS*WDS; SI*SI"6; 08334500 

NOCNVl 0I*B; DS*9 LIT" DATE IS " ; DS + 6 CHR; 08334700 

DS»5 LIT"DAYi n l B*DII NCVCUUMP OUT TO NULCV); 08334900 

NOMSGI SI*M; NMG(DI*BI UUMP OUT TO NULMS); 08335000 

DI*MDY; 08335200 

NULMSt DS-4 DECI DS*2 DEC! DS*2 DEC; 08335400 



NMGCJUMP OUT TO OXlT); DI'BI 08335600 

NULCVl SltMDYJ S1*SI*2J 08335800 

DS*2 CHRI 2CDS*LIT "/"I DS*2 CHR)I 08336000 

OS * LIT "*") SI *BJX 08337000 

3(DI «■ Bl OS •■ FILL) SI * Sl + 31 B *SI)|X 08338000 

OXITl END) 08339000 

08339100 

IF NOT NMG THEN SPOUT I T CB» DATEK ) I 08340000 

PCXJT)) 08340100 

DAYSIU " MON"»" TUES"»"WEDNES w i w THURS M »" FRI">" SATUR". 08340200 

w SUN W I 08340300 

ENDIX 08341000 

PROCEDURE DISKL0GCMID»FID»H)I VALUE M I 0, F I D» HI REAU M I 0, F I DJ ARRAY Ht*]l 0834U00 

BEGIN 0834U20 

INTEGER HRS#MIN#SEC#SIX| * 00 NOT CHANGE ORDER 08341140 

REAL SEG»TtDTJ 08341160 

DTl»H[9],[43l5]*9l 08341180 

FOR T)»10 STEP 1 UNTIL DT DO 08341200 

IF HCT3#0 THEN SEG*SEG+H[ 83 I 08341220 

SlX*(T*Htn,C25j233) MOD 601 08341280 

SEO(T DIV 60) MOD 601 08341300 

MJN*(T DIV 3600) MOD 60) 08341320 

HRS*T DIV 2160001 08341340 

T«*SPACEC10)I 08341360 

STREAM(A«-Htn,[6U8]tD*[DTJ)) 08341388 

BEGIN SULOC Al DS*8 DEC END) 08341400 

GIMEDATE([DTJ,tCF3»-DT)) 08341420 

STREAM(DT»TlME*[HRS]#FN«-[MlD3»USER-tH[2]3»SEG*CSEGJ»T)l 08 341440 

BEGIN DS»LIT " "I Sl*FNI S1*SI+1I 08341460 

DS*7 CHRI DS*LjT V") Sl*SJ*ll DS*7 CHR; DS*LIT "/"I 08341480 

SI*USERJ SI*S1+1I DS*7 CHRI DS*LIT ^"J SJ*SEG) 08341500 

DS*8 DEO SEG*DI) Di*DI-8) DS*7 FILL; DI*SEGI 08341520 

DS*15 LIT " SEGS--CREATED "I Sl*LOC DT I 08341530 

Sl*SI+2l DS*2 CHR) 2(DS*LIT "/"I DS*2 CHR)I 08341540 

DS*4 LIT** AT "| SI*TIME) DS*2 DEC* DS*L I T" I "I 08341560 

DS*2 DEC* DS*L|T«|"| DS*2 DEO DS*LIT"I"I DS*2 DEC* DS*LIT"*"I 08341580 

END! 08341600 

IF MJD,C6I12] GTR 9 AND * NOT 01SLLL. MAYBE 1SLLL - *11208341610 

CHID. C6 163 GTR 9 OR MID»C6l63 »0) THENX NAME OR QNAME, XH208341612 

SPOUTIT(T»DISKLOGGER+DKLOG) ELSE FORGETSPACEt T ) I X11208341620 

MUJt*XCLQCK + P(RTR)j M 1208341622 

STREAM(Dl»(DATE3fH»*(Htn3iTl*0)l 111208341624 

BEGIN Sll«D) DI«»LOC Tl DS«*8 OCT) SI l*LOC T) X11208341626 

Sn*Sl+5l . OII"HI DI«»OI+ll DS|»3 CHR) XI 1208341628 

END STREAM) X11208341630 

END) 08341640 

DEFINE DATE0UT(DAT£0UT1)«GIMEDATE(DATE0UT1.0)#I XCHANGE DATE & SPOUT IT 08342000 

PROCEDURE SETDATECBUFFH VALUE BUFF) REAL BUFF)X 08343000 

BEGIN REAL DY»MN,YRI INTEGER DsDYl REAL B.TpMNJ 08344000 

REAL SUBROUTINE CI 08344J00 

BEGINISTREAM(C*0»B*[BJ)I 0834 4200 

BEGINS 08345000 

SI «- B) SI ♦ SI+5I SI *• SOX 08346000 

Ll IF SC < "0" THEN* 08347000 

BEGIN IF SC e "•" THEN GO TO XIX 08348000 

SI * SI+ll GO TO LIX 08349000 

ENDIX 08350000 

Kl IF SC I "0" THENX 06351000 

BEGIN TALLY * TALLY+lJX 08352000 

SI * SI+ll GO TO K ENDIX 08353000 



DI * BJ B •• SII SI ♦ LOC BJ DS «■ WUS;X 08354000 

SI «• Bl B «■ TALLY! DI ♦ LOC CJX 06355000 

SI * SI-BJ OS •• B 0CT;X 08356000 

X»END»X 06357000 

C*Pl 08358000 

END CJ 08358100 

B «• BUFFJX 08359000 

MN*C1 DY*CI YR*CI 08360000 

BUFF * BUFF,C15H5J-1|I 08361000 

IF MN > AND MN < 12 AND* 08362000 

DY > AND DY < 31 ANDX 08363000 

YR > THENX 08364000 

BEGINJSTREAM(M*MN-1»X*0#Y*0»Z*0)J 08365000 
BEGIN DI*LOC Xj DS*24 LIT"000«-0*1 , 1 Y2G2V3D3T4A4 5>"; 08365100 

SI*LOC X; SI*SI+Ml SI*SI+MJ 08365200 

DI*LOC M> DI*DI+6J DS*2 CHRJ 08365300 

ENDI 08365400 

DY*P+DY; 06366000 

IF YR MOD 4 b AND MN > 2 ANDCYR MOD 100 # ORX 08367000 

YR MOD 400 * 0) THEN* 08368000 

DY * DYfllX 08369000 

D * YR MOD 100 x 1000+DYJX 08370000 

STREAM(D# A*CDATE3m 08371000 

BEGIN SI •■ LOC D; DS ♦ 8 DEC ENDJX 08372000 

CHANGEDATECBUFF)U 08373000 

END ELSE SPOUT(BUFF); 06374000 

ENOlX 08375000 

PROCEDURE CMANGEDATE(BUFF)* VALUE BUFF I REAL BUFFIX 08376000 

BEGIN REAL B»C»DIX 08377000 

SLEEP(tTOGLE]»HOLDMASK)> 08378000 

LOCKTOG(HOLOMASK)! 08379000 

B ««* SPACEC30)> 08380000 

DISKWAlT("Bi-30#DIRECT0RYT0P - SYSNO)* 08381000 

D»* MtB+lllI 08381100 

MtB3*0PTl0NJ 08382000 

MtB+13 ♦ DATEJX 08383000 

MtB+18Jl«XCL0CK; 08383100 

M[B+203,tl8l30]|sLOGARRAYt33]; 08383200 

MtB+21)l»SCHEDWRD* 08383210 

DISKWA1T(B»"30»DIRECTORYTOP - SYSNO)* 08384000 

IF BUFF#0 THEN 08384100 

BEGIN* 08384200 

DATEOUT (BUFF)IX 08385000 

Cl»GETSPACE(5»9»5)+2; 08385100 

MCC !!■ M[C+23l» 01% 0838520§ 

MtC*33l* DlX 08385300 

STREAM(DATE#A«*C+1)J BEGIN SJI-LOC DATE) DSl»8 OCT) ENDU 08385400 

LINKUP(17,C)IX 08385500 

ENDJX 08385600 

FORGETSPACE(B)>* 08387000 

UNLOCKTOG(HOLDMASK)} 08388000 

ENDIX 08389000 

PROCEDURE SETlME<BUFF)> VALUE BUFFI REAL BUFFIX 08390000 

BEGIN REAL B*BUFF»TI* 08391000 

REAL IiRlX 08392000 

LABEL EXIT»X 08393000 

REAL CL0CK«XCL0CK|X 08394000 

INTEGER CLCKwCLOCKMX 08395000 

T * "UX 08396000 

STREAM(B»T*m);X 08397000 



BEGIN SI ♦ BJX 06396000 

LI IF SC » " " THEN* 08399000 

BEGIN SI - Sl+li GO TO L ENDIX 06400000 

IF SC < "0" THEN GO TO XIX 08401000 

ki if sc i "Q" then* 08402ooo 

BEGIN SI * SI + U TALLY * TALLY + HX 08403000 

GO TO K lHDi% 08404000 

B * TALLYI SI *■ SI-BJ DS * B OCT JX 08405000 

XlX 08406000 

END1X 08407000 

BUFF * BUFFitl5ll5J*llI 08408000 

IF T H AND T D I V 100 < 24 AND T MOD 100 < 60 THEN* 08409000 

BEGIN R»*GETSPACEC5#9tb)+2; 08410000 

M[R+2J»« XCLOCKJ* 08410100 

CLCKib (T DIV 100 x 60 ♦ T MOD 100)x3600|X 08410200 

CLOCK ♦ (CLOCK OR »77>+lJX 06411000 

TIMEOUT CBUFF)>X 08412000 

M[R]|» M[R+3]I" 0;X 08412100 

STPEAMCDATE»AI*R+1)*X 08412200 

BEGIN SJIsLOC DATEI DS«=8 OCT; LND>* 08412300 

LINKUPC17»R)|X 06412400 

GO TO EXITlX 08413000 

ENDJX 08414000 

SPQUTCBUFf- )j 08415000 

IMTSX 08416000 

ENDIX 08417000 

REAL PROCEDURE FORMESSC BUFF « Hi ) J VALUE BUFF»Hl» REAL BUFF#H1* 08418000 

BEGIN REAL B»H»U» 08418500 

INTEGER II 08418700 

LABEL AGAIN»EXIT»AWAY; 08419000 

IF H1*0 THEN 08419100 

BEGIN STREAMCU1«0»BI*BUFFI)J 08419150 

BEGIN SII«BI 08419200 

L« IF SC»" " THEN 0841925* 

BEGIN SII"SI*l! GO TO L ENOI 08419300 

B I "SI f 08419320 

IF SC GEO "0" THEN 08419350 

IF SC LEQ "9" THEN TALLYl=l> 08419400 

Ul«TALLY> 08419450 

END! 06419500 

BUFFI«PJ 08419520 

IF P THEN 08419550 

BEGIN SCHEDL00K(BUFF»2); 08419600 

GO AWAYJ 08419650 

END! 08419700 

ENDJ 08419750 

AGAINt UI*F0RMESS|»UNITIN(T1NU»BUFF)J 06420000 

IF U<31 THEN BEGIN SLEEP( t TOGLE J » STATUSMASK } I 08421000 

IF LABELTABLFtUJ < THENX 08422000 

BEGIN STREAM<AI*TINU[U}.BI*BI»SPACEC5))I 06424000 

BEGIN SI * LOC A> S I * S I ♦ 5 1 US * 3 CHRJX 08425000 

DSJ«24LIT" IN USECTO BE READIED)*"! 08426000 

ENDIX 06427000 

SAVEWORD I* SAVEWORU AND NOT TWO(U)» 08427100 

SP0UT(B)l 08428000 

IF HI THEN GO AWAY ELSE GO TO EXIT! 08429000 

END! 08429500 

LABELTABLE[U3l»P114&Hl[ll47tUl 08430000 

MULTITABLECUJ * 01* 06431000 

I •• TWO(U)|X 08432000 



IF H 
BEGI 



EXIT! 



SAV 

END 

IF NOT H 

BEGIN IF 

BEG 



end; 

READ 
RRRM 

EWORD 

1 THEN 

U GTR 

IN STR 

BEGI 



1 THEN BlsNOT ELSE 
N B?*NOT i; H ? = I »*0; 
IF U»23 THEN H » »P( .RE ADERA ) I 
IF U»24 THEN H«*P(,READERB)> 
IF H NEO THEN 
BEGIN UNITC0DECU-23J»»"0; 
IF (*H),tCFJ NEQ THEN 
BEGIN 

FORGETSPACEC*H-2)l 
MtHU«0> 
END1 
ENDJ 

Y * READY AND B OR U% 
ECH «■ RRRMECH AND B OR I IS 
* SAVEWORD AND B OR IIS 



31 THEN 
EAM(BUFF»B»*Bl«SPACE(5>>I 
N DS«*10 LIT"INV KBD RY"> 

SI l»BUFF) D5l«3 CHRI 

DSlsllT"*-"* 



end; 

SPOUTCB)! 



END 
STR 
BEG 



til 
121 



I 

EAMCOK 

IN SII 

3CIF 

IF 

IF 

SI 

IF S 

BEGI 

IF S 

BUFF 

IF S 

0K;» 



«*OtBUFFl )| 
•BUFFI 

SC«" " THEN 

SC«"» 



JUMP 
JUMP 
JUMP 



THEN 
SO*"*" THEN 

i*si + n; 

C*« » THEN 

N SIlsSI+i; GO TO 

C*"»" THEN GO TO 

isS] ; 

C#"* w THEN TALLYlMI 
TALLY; 



out; 
out; 

OUT TO 



L3; 



LI 

L2; 



end; 



131 

end; 

BUFFUPI 

IF P THEN GO AGAIN! 
AWAY! FORMESSl»»i; 

END! 
END1 
PROCEDURE SUSTATUS(A*DDD»B)I 



PROCEDURE OUTPUT 

BEGIN REAL BU 

REAL G»Q 

BOOLEAN 
REAL BLU 
LABEL EX 
SUBROUT1 
BEG 



LABE 
«B»U 
IS 

R 
SCRT 
RBfM 

it;x 

NE D 
INI 
BEG 



VALUE AiDDDiBl 

forward; 
l(b)i value b; real bis 
»t»a;s 



REAL A»BJ ARRAY DDDC * J I 



EAL 
OGl 
IX| 



TFMPI 



OITIS 

STREAM(A*TINUtU]lB)l» 
IN SI * LOC Al SI * SI+bI 
DS * 3 CHRI DS * LIT " 
♦ PI T * LABELTABLE[UJ|S 

F U LSS 16 THEN TEMP J »PRNTABLE [U 3 , I 30 1 183 1 
F T«0 THEN 



DS 
"J 



LIT" 
* 01 



w ;s 

end;s 



08433000 
08434000 
SR7608434100 
SR7608434200 
SR7608434300 
SR7608434310 
08434400 
SR760843450Q 
SR7608434600 
SR7608434700 
SR7608434600 
SR7608434900 
08434910 
08435000 
08436000 
08437000 
08437050 
08437100 
08437150 
08437200 
08437250 
08437300 
08437350 
08437400 
08437450 
08437500 
06437550 
08437600 
08437650 
08437700 
08437750 
06437600 
08437859 
08437900 
08437950 
08436000 
08438050 
08438100 
08438150 
06438200 
08438250 
08438300 
06438350 
08438500 
08438900 
08438910 
06439000 
08440000 
06441000 
08441050 
06441100 
06441200 
08442000 
06443000 
08444000 
08445000 
06446000 
06447000 
08447100 
08448000 



STRf;AM(BI*TEMP,VIs(U ISS 16)»A)? 06448050 

BEGIN SII*L0C VJSIIpSI+7) 08448100 

IF SC NEQ "0" THEN BEGIN SI»«LOC B?DS?s5DEC END? 08448U0 

DSl*9LlT" SCRATCH*" END 08448150 

ELSE IF T m ?U4 OR T « 0214 THEN* 08449000 

BEGIN 08450000 

STREAM(SAVJ«((TWO(U) AND SAVEWORD) NEQ 0)iA)? 08450100 

BEGIN 08450200 

DSl»10LIT"N0T READY*"; 08450300 

SAV(DH*DIMl DSl*8LIT"(SAVED)*")l 08450400 

END 08450500 

END 08450600 

ELSE IF ABSCT)*0314 THEN 08451000 

STREAM(B?*TEMP,Vl*lU LSS 16)»A); 08451100 

BEGIN SI««L0C V? SII"SI*7J 08451200 

IF SC NEQ "0" THEN BEGIN SIibUOC BI0S»=5dEC END? 08451210 

DSJbII LIT " UNLABELED*"? 08452000 

END 08452100 

ELSE BEGIN;* 08453000 

STREAM(Kl=T<Ol TEMP, Vl*U<16i A)? 08454000 

BEGIN V(SI»*L0C TEMPI DSl»5 DECI DS?»LlT« ")| 08454500 

Clt'CI+KI GO TO LABI 08455000 

DSl»6 LIT"IN USE"! GO TO LI 08455500 

LABS DSt»7 LIT W LABELED"? 08456000 

LI DSipLIT" "? M«D1I 08457000 

END? 06458000 

A * PlX 08459000 

IF (MIX * RDCTABLE[UJ,[8!6J) # THEN 08460000 

IF JARR0W[MIXJ # THEN 08461000 

BEGIN TABCNT[MIXJ»*TABCNT[M1X]+1J 08461250 

BLURB »*PUTORTAKE(MlXi[JAR[MIXtO] J»10#0)| 08461500 

TABCNT[MlXJ|?«TABCNTtMlXJ-l? 08461750 

STREAM(Jt«BLURB| MIX# A)l 08462000 

BEGIN DS * 3 LIT "BY "I SI * 41% 06463000 

SI * SI+1? DS * 7 CHRIX 08464000 

DS * LIT "/"I SI * S I +11 X 08465000 

DS ♦ 7 CHR? DS * LIT "■"** 08466000 

SI * LOC MIX? DS * 2 DEC? 06467000 

DS * LIT "l"l J * DJIX 08468000 

DI-DI-3? DS*FILL? 08468500 

ENDJX 08469000 

A * ?i% 08470000 

FORGETSPACECBLURB)? 08470100 

END ELSE ELSE 08471000 

IF T<0 AND CU«23 OR U*24) THEN 08471010 

BEGIN 08471020 

STREAM(S»»0 t A)l 08471030 

BEGIN 08471040 

DS«»22LIT"BY AUTO LOAD CONTROL? "I 08471050 

Sl«DH 08471060 

END? 08471070 

Al»Pl 08471080 

END ELSE 08471090 

IF U GEQ 20 AND U LEQ 22 THEN 08471100 

IF LABELTABL'E[UJ.[ll5J*m THEN 08471105 

BEGIN STREAM(SI»OlA)l 08471110 

BEGIN 08471120 

DSI»13 LIT W BY SCHEDULED "I 08471130 

DS|»13 LIT "PRNPBT/DISK? "I 08471140 

Sl»DII 08471150 



END* 08471160 

A l «P; 06471170 

END! 08471180 

STREAM CS*0|K*MULTITABLECU J iT. 08472000 

R*RDCTABLECU],[l4ll03#0>R0CTABLE[U]it24H7Jf 08473000 

C*RDC TABLE tUl, [41 »7;i»A)l 08473500 

BEGIN SI * LOC K; 08474000 

2CSI * SI + ll DS * 7 CHR; OS * LIT " ")l* 08475000 

DS * 3 DEC? OS * LIT " "|X 08476000 

DS * 5 DEO DS * Lit " W |X 08477000 

DS * 2 DEO 08478000 

DS * LIT"*"; 08478300 

S*DII 08478500 

END* 08478600 

AtPl 08478700 

IF U>32 THEN IF CIDROWtU -J2l#0 THEN 08476800 

STREAM(DK*ClDTABLEtU •32»2J»A)I 08478900 

BEGIN 08479000 

DI *DI -1 1 08479100 

S SET OMIT * NOTCPACKETS) 08479109 

DS»«5 LIT "»PKT "I 08479110 

I POP OMIT 08479111 

t SET OMIT * PACKETS 08479199 

DS*-6 LIT "»DECK "J 08479200 

t POP OMIT 08479201 

SI*LOC DKi Sl«-SI + li 08479300 

DS*7 CHRl 08479400 

END! 08479500 

ENDI 08479600 

SPOUTCB)! 08480000 

B * OX 06481000 

ENDIX 08482000 

08482050 

IF (U * UNITIN(TINU.BU)) < 35 THEN 08483000 

BEGIN B * B,U5«15J-1JX 08484000 

IF CU OR 1)»19 THEN SUSTATUS( B» 0. U ) ELSE 08484500 

DOlTlX 08485000 

GO TO EXITIX 06486000 

ENDI* 08487000 

$ SET OMIT » SHARED1SK 08487099 

SCRTOG * U«36l 06487100 

$ POP OMIT 08487101 

S SET OMIT s NOTCSHAREDISK) 08487199 

SCRT0GI*(U«40)JI 06487200 

% POP OMIT 08487201 

STREAM(A*0IB)JX 08488000 

BEGIN SI * Bl% 08489000 

LI IF SC * " " THEN* 08490000 

BEGIN SI * SI + ll GO TO L ENDlX 08491000 

DI ♦ LOC Al DI * DI+61 DS * 2 CHRlX 08492000 

ENDIX 06493000 

8 * PI B * B.C15U5J-1IX 08494000 

FOR U * STEP 1 UNTIL 35 DO 08495000 

IF TINUCUJtCSOl 12J * Q THENX 08496000 

IF (G * LABELTABLECU3)#0 AND G#0114 AND G/0214 08497000 

AND NOT SCRTOG OR G*0 AND SCRTOG THEN 08497100 

BEGIN IF B*0 THEN B »* SPACE(lO)! 08498000 

DOJTIX 08499000 

ENDIX 08500000 

IF B * THENX 08501000 



begin;streamcq#b)>* 08502000 

begin ds * 6 lit " null "jx 06503000 

si ♦ loc qj si * si+6| os * 2 chrjx 08504000 

ds + 7 lit " table*"jx 08505000 

ENDlX 06506000 

SPQUTCBJ? 08507000 

ENDJX 08508000 

EX IT I ENDJX 08509000 

PROCEDURE TIMEUSED(B«X)I VALUE B»X» REAL B#X;X 06525000 

BEGIN INTEGER H»MtS»Q»Tl 08526000 

$ SET OMIT * NOTCPACKETS) 08526499 

DEFINE UNITNO * PSEUDOM I X [ X J f > 08526500 

$ POP OMIT 08526501 

T * PUTORTAKE(X»tJARtX»3J]»ltO) 08527000 

♦ PUT0RTAKE(X»[PR0CTIMECX)3#1»0)| 08527100 

IF X«P2MIX THEN T ♦ T+CLOCK+PCRTR ) J * XWF 08528000 

FORMTlMECfMJiT)! 08529000 

T*( (CLOCK +P(RTR))/60)-PUT0RTAKE(X, 08533100 

[UVtX»9J)tJtO) l tllJ7]l 08533150 

F0RMTlME([QJ»Tx60)J 08533200 

STREAM(vl*PUT0RTAKE(X,tJAK[X,03 3»l»0)» 08534000 

K*PUTORTAKE(Xt[JAR[X»UJ»l»OJtX»H*[HJ#B)l 08534100 

BEGIN DS * 10 LIT " TIME FOR "IX 08535000 

SI*LOC JJ 2CSI*Sl+i; DS*7 CHRI DS*LIT "/")) 08536000 

DI*DIMJ DS*LIT "■"> DS*2 DEC* 08537000 

08538000 

X*0II D I -DI-2I DS*FILLJ DI*X| 08538500 

DS * 3 LIT " IS*IX 08539000 

SI -HI SI-SI+8; DS*6 CHRI 08540000 

08540100 

DS * 3 LIT " IN M J 08540200 

SI-S1+8I DS*8 CHRI 08540300 

DS*LIT"*"I 08541000 

ENDIX 08542000 

*WF 06543000 

SPOUTER(B»UNITNOt 1); 08544000 

ENDlX 08545000 

REAL PROCEDURE ANVIL(IL#Z)I VALUE ILtZl REAL IL*Z;X 08546000 

BEGIN REAL B*Z»U»+llX 08547000 

REAL ZZl 08547050 

LABEL EXIT; 06547100 

ZZIbZI 06547200 

NAMEID(U#ZZ)I 08547300 

NAMEID(U»ZZ)I 06547400 

IT U*"/ " THEN 08547500 

BEGIN Ul»Z,[15tl5]l GO EXjT END ELSE 08547600 

IF CU * UNITIN(TINU#B)) < 35 THEN 06548000 

BEGINX 08549000 

IF LABELTABLEtU] ■ ?1H OR LABELTABLE [ U J * 0214 THENX 08550000 

BEGIN 08551000 

STREAM(AI«TINUtU]#SAVI«((TWO(U) AND SAVEWORD) * )$ 08551100 

Xl«Z,C15ll53-l)J 08551200 

BEGIN 08551300 

SI l«LOC AJ SII"SI*5l DSI«3CHR| 08552000 

DSIM1LIT" NOT READY*"? 06553000 

SAVCDI l-DI-1 J DS«*6LIT"(SAVED)*")I 08554000 

ENDI 08554100 

U*36l 08555000 

END ELSE 08556000 

IF LABELTABLEtUJ < THENX 08557000 



BEGINISTREAM(A«-TINU[UJ»X»Z,[15I15]-1)»* 08558000 

BEGIN SI * LOC A; SI ♦ SI+5IX 085590Q0 

DS * 3 CHRl DS * 8 LIT " IN USE*"IX 08560000 

ENDJX 06561000 

U*36j 08562000 

ENDIX 08563000 

IF U < 35 THEN 08564000 

LABELTABLECUJ * -(IF IL THEN *P(DUP) ELSE P314)|X 06565000 

EX I T I ENDI END) 08566000 

PROCEDURE SAVfTHEUNITCBH VALUE BJ REAL BIX 08575000 

BEGIN REAL A*B»T»U»U 08576000 

label again, exit; O8576ioo 

08576150 

STREAM(Ul«0iBOI 08576200 

BEGIN SI»*B> 08576250 

L» IF SC*" " THEN BEGIN S J f «■ S I + 1 * GO TO L ENDI 08576300 

Bl«Sl) 08576320 

IF SC GEO "0" THEN 08576350 

IF SC LEO "9" THEN TALLYIM* 08576400 

Ul*TALLYI 08576450 

ENDI 08576500 

Bl»Pl 08576520 

IF P THEN BEGIN SCHEDLOOKC B» 3 ) I GO TO EXIT END) 08576550 

AGAINl T»*SPACEU0)I 0857^000 

IF CU!*UNITIN(TINU#A)) GTR 31 THEN 08578000 

STREAM(A»T)I 08578100 

BEGIN DSIfIO LIT"INV KBD SV"l 08578200 

SIJ«AI DS»*3 CHRI 08578300 

DS|«LIT"*"I 08578400 

END ELSE 08578500 

BEGIN I «■ TWO(U)|X 08579000 

SLEEP(CTOGLE]#STATUSMASK)l 08580000 

IF LABELTABLECUJ I THEN* 08581000 

BEGIN LABELTABLECUJ * P114JX 06582000 

MULT I TABLE C Ui»*RDC TABLE CU 3*01 08582100 

RRRMECH * RRRMECH OR I J % 08583000 

READY * READY OR IlX 08584000 

SAVEWORD I s SAVEWORD OR II 0858410ft 

I * " "I* 08585000 

ENDI 08586000 

ELSE BEGIN SAVEWORD * SAVEWORD OR IlX 08587000 

I * " TO BE"IX 08588000 

ENDJX 08589000 

STREAM(A*TINU[UJ»1,T JIX 08590000 

BEGIN DS * LIT " "IX 08591000 

SI «■ LOC A) SI * SI+51 DS * 3 CHRIX 06592000 

SI * SI+21 DS * 6 CHRIX 08593000 

DS * 7 LIT " SAVED* H lX 08594000 

FNDlX 08595000 

ENDIX 08596000 

SPOUT(T)l 08597000 

STREAM(OK|«0#AI)l 08597056 

BEGIN SII«AI 08597100 

3CIF SC*" " THEN JUMP OUT! 08597150 

IF SC*"f" THEN JUMP OUTI 08597200 

IF SC«"*" THEN JUMP OUT TO L3I 08597250 

SIl»SI+l)l 08597300 

Lll IF SC*" " THEN 08597350 

L2l BEGIN SI«*Sl+tl GO TO LI ENDI 08597400 

IF SC*"»" THEN GO TO L2I 08597450 



A»«SD 08597500 

IF SC*"*" THEN TALLY|*1J 0859755© 

L3l 0K:»TALLY| 08597600 

END? 08597658 

AI*P| 08597700 

IF P THEN GO AGAINJ 06597750 

EXIT i 08597900 

ENDI* 08598000 

BOOLEAN PROCEDURE WHYSLEEPC MASK ) I VALUE MASK* REAL MASK* 08599000 

BEGIN 08600000 

REAL A* B; 06601000 

IF REPLY[P1M1X3«VWY THEN 08602000 

BEGIN 08603000 

Bf*SPACE(KEYMSGSZ)> 08604000 

DISKWAITCB»KEYMSGSZ#MESSAGETABLE[2 3.[22»26J)I 08604100 

STREAM(B*MASKiTl»0»0l*0»DlsQ»At«Al*SPACE(4))J 08605000 

BEGIN 06606000 

SIlsLOC MASK; 08607000 

8(IF SC* w O" THEN GO TO NEXTl 08608000 

IF SC»VWY THEN 08609000 

BEGIN 08610000 

DII*AI DSl*3LIT H DS"l AI*Dll GO TO NEXTl 06611000 

ENDI 08612000 

T • »S 1 1 DII*LOC 0; DI««D1+7| DSl»CHRI 08613000 

SII*L0C 01 DIiaLOC 01 0H»DI+6| DS»*2DECI 08614000 

SI!*BI 08615000 

R| SIUSI+6J D 1 1*01-21 08616000 

IF SC«"*" THEN % END OF FIRST PART OF TABLE 08617000 

BEGIN 06617500 

SII«T; GO TO NEXTl 08618000 

ENDI 08618500 

IF 2SC NEO DC THEN GO TO Rl 08619000 

SII*SI*6| DI»«AI DSl«LIT" "I DSl*2CHR| At*DIJ SH-TI 08619500 

NEXTl SII*SI+1)I 08620000 

DI «»AI DSt*LlT"*"l 08620500 

END STREAM STATEMENTl 08621000 

SPOUTCA)! 08621500 

FORGETSPACECB)! 06621600 

END % IF "WY" 08622000 

ELSE WHYSLEEPI^TRUEI 08622500 

END PROCEDURE WHYSLEEPl 08623000 

PROCEDURE CHANGEOPTlON(BUFFtRS)!X 08624000 

VALUE BUFF»RSIREAL BUFF»RSIX 08625000 

BEGIN REAL B»T»OP»BUS»MASK»OPTERI 08626000 

SLEEPUTOGLEJ»HOLDMASK)> 08627000 

LOCKTOG(HOLDMASK)! 08628000 

BUS I" BUFF.U5U5J-1I B l« SPACE(30)| 08629000 

DISKWAIT(-B»30.DIRECT0RYT0P-SYSN0)I 08630000 

OPTER • SPACECOPTIONSZ)! 06631000 

DISKWAlTCOPTERtOPTlONSZiMESSAGETABLElOJ, I22I26J)! 08631100 

STRE AM ( BUFF #T*0» OPTER »R«-[ OP] )IX 08632000 

BEGINS 06633000 

SI * BUFFI 63CIF SC«" " THEN SI •■ S I -*- 1 ELSE JUMP OUTX 08634000 

TO L)l Ll IF SC GEO "0" THEN GO L4I 08635000 

63C IF SC" w THEN SI*SIM)i 16CIF SC« M " THEN SI*SI + 1)|X 08636000 

DI*LOC 11% 08637000 

8(IF SC«" " THEN JUMP OUT TO Ll ELSE* 08638000 

IF SC*"*" THEN JUMP OUT TO Ll ELSE* 08639000 

IF SC*"0" THEN JUMP OUT TO Ll ELSE* 06640000 

DSM CHR)lLltX 08641000 



tally*o;buff 

63(DI*LQC Tl 
BEGIN I 



IF 



END ELS 
5C*"*" TH 
BEGIN* 
SI 

IF 



*si jsi*opterjx 
if 8 sc*dc Then 

F SC* M * H T HENI 

BEGIN TALLY*4BUUMP OUT TO L3 ENDS* 

ELSE TALLY*TALLY+1* 
E JUMP OUT TO L2);TAUUY*48JG0 TO L3JL2I* 
FNX 

*BUFF;63(IF SC<"0" THEN SI*SI+l ELSE JUMP OUT 
TO L4)IL4lDl*L0C T|S1*SI*1U 
SC<"0" THEN BEGIN S I * S I - 1 1 DS*1 OCT END ELSE 
BEGIN SI*SI-1IDS*2 OCT ENDIX 
LLY«-4mcTALLY*TALLY + 63m 



TA 
ENDIX 
L3lT*TALLY)Sl*L0C T I D I *RI DS»WDS i % 



ENDJX 



% 



IF C0P*35) A 

BEGIN REMOTE 

SPREADT 

RS * NO 

ENDI 

IF 0P<47 THE 

BEGINJS 

0* 

BE 



Lt 

EN 
MA 
ENDI* 
SPOUT(BUS)! 



ND NOT RS 
«- FALSEJ 

heword; 

T REMOTEl 



THEN 



N 

TRE 
OPT 
GIN 



SET' 



♦ 2 DECIX 



AM(A * IF RS THEN » RESET" ELSE 

ER INX OP#OP * 47"0P»BUS)I* 
DS «• LIT " "! Si ♦ LOC OPJ DS 

DS «■ LIT " "J SI * o;x 

SCO THEN JUMP OUT TO L; DS*CHR)IX 
LOC Al SI * SI+21 DS * 6 CHRlX 
L1T"*"IX 



ac if 

SI * 

DS * 



01* 
SK*TWO(OP)lX 



MfB3*OPTlON*IF RS THEN OPTION AND NOT MASK ELSE OPTION OR MASKj 

DISKWAITCB»-30»DIRECTORYTOP-SYSNO)> 
FORGETSPACE(OPTER)!* 

forgetspacecb)»x 
unlocktqgcholdmask); 

end;* 

procedure typqpcktr»po)l value ktrfpoj real ktr.poj 

begin real vase »n» x,opterl 

label inckj 
real subroutine setti 

BEGIN 
STREAMC0PTl*[0PTI0N]l0PTER»N#NBSl*47-N*VASE)l 
BEGIN 

DI l*DI+4| 

SI*0PTERIN(SI*SI+8)MF SC*"*-" THEN GO TO EX] T I X 

ec IF SC<"0" THEN DS*CHR ELSE DSM L I T " W )IDS*2 LIT" "IX 

SI l*0PTl SKIP NBS SBI 

IF SB THEN TALLYlM ELSE 

BEGIN DS««3 LIT"NOT"J TALLY|*2J ENDI 

D5*5 LIT" SET«-"|X 

DlfVASEI SII«L0C NBS* DS I «Ll T w "I DS;*2 DECI DSI*L!T" "J 
EXITI OPTIpTALLYI 



END 



ENDI 
SETT*PJ 
SETTI 



08642000 
08643000 
08644000 
08645000 
08646000 
08647000 
08648000 
08649000 
08650000 
08651000 
06652000 
08653000 
08654000 
08655000 
08656000 
08657000 
08657400 
08657500 
08657600 
08657700 
08657800 
08658000 
08659000 
06660000 
08661000 
08662000 
08663000 
08664000 
08665000 
08666000 
08667000 
08668000 
08669000 
08670000 
08671000 
08672000 
08673000 
06674000 
08676000 
08677000 
08678000 
08679000 
08660000 
06680500 
06681000 
08681100 
08681200 
06681300 
06662000 
06683000 
08664000 
06684500 
08685000 
08685500 
06686000 
06666500 
08687000 
08686000 
08689000 
06669100 



SLEEP CITOGLEiUHOLDMASK); 08689200 

LOCKT0GCH0LDMASK)! 08689300 

VASEI"KTR,[15I15]-U 06689900 

OPTER * SPACE(0PTI0NSZ)40PTI0NSZt8l38U03l 08690000 

DlSKWAlTC-0PTER»0PTl0NSZiMESSAGETABLE[0] t [22l261)l 08690020 

IF PO THEN 08690080 

BEGIN 06690090 

STREAMCBUFFI'KTR* T»»0# OPTERt Dl*[NJ)j 08690100 

BEGIN SI*BUFFI63CIF SC»" " THEN SI*SJ+1 ELSE JUMP OUT TO DILI 06690110 

IF SC GEO M 0" THEN GO TO L4I 08690120 

DI*LOC U 06690130 

8(IF SC« M " THEN JUMP OUT TO LI ELSE 08690140 

IF SO*"*" THEN JUMP OUT TO Ll ELSE 08690150 

IF SC*"0 H THEN JUMP OUT TO Ll ELSE 08690160 

DS*1 CHRJI Lit 08690170 

TALLY*OJ BUFF*SH SI»OPTERI 08690180 

63CDI*L0C Tl IF 8 SC#DC THEN 08690190 

BEGIN IF SC»"* M THEN 08690200 

BEGIN TALLY«-48> JUMP OUT TO L3 END 08690210 

ELSE TALLY-TALLY+1 08690220 

END ELSE JUMP OUT TO L2)l TALLY-48IG0 TO L3IL2J 08690230 

IF SC«"* M THEN BEGIN Sl*BUFFI63CIF SC<"O w THEN SI*SI+1 08690240 

ELSE JUMP OUT TO L4)l L4I OI'LOC T| Sj*SI*t| 08690250 

IF SC< M 0" THEN BEGIN S I -SI "1 1 DS*1 OCT END ELSE 08690260 

BEGIN SI-SI-U DS*2 OCT ENDI 08690270 

TALLY-47J T C T ALLY*TALLY+63 ) I 06690280 

ENDI 08690290 

L3» T*TALLYI Sl*LOC Tl DI*DI OS" WDSl 08690300 

ENDJ 06690310 

IF N LSS OPTER. [8I10J THEN PCSETTtDEDl 08690400 

SPOUT(VASE); 08690600 

END ELSE 08690800 

BEGIN 08691000 

STREAMCKTROI 08691200 

BEGIN SIlaKTRJ 08691400 

IF SC«"S M THEN TALLYjM ELSE 08691600 

IF SC»"R" THEN TALLY|«2 ELSE TALLY<*3j 08691800 

KTRtsTALLYJ 08692000 

ENDI 08692200 

X |»PI Nfw-1* 08692400 

INCRl Nl*N+n 08692600 

IF (CKTRI«SETT) AND X ) t THEN 08692800 

BEGIN SPOUT(VASE)! 08693000 

VASEI«SPACE(3)J 08693200 

GO TO INCRl 08693400 

ENDI 08693600 

IF KTR*0 THEN 08693800 

IF X#3 THEN 08694000 

BEGIN STREAM(Xi«X8li VASE)I 08694200 

BEGIN DSI»12 LIT" ALL OTHERS " I 08694400 

XCDSIM LIT"N0T " ) I 08694600 

DSl*4 LlT»SET»"l 08694800 

ENDI 08695000 

SPOUTCVASE)! 08695200 

END ELSE FORGETSPACE(VASE) 08695400 

ELSE GO TO INCRl 08695600 

ENDI 08695800 

FORGETSPACECOPTER)!* 08696000 

UNLOCKTOGCHOLDMASKJI 08696100 

ENDI* 08697000 



X THE FOLLOWING THREE DEFINES MUST EACH BE CHANGED IF THE 08699000 

X DISK ROW SIZE OF PBD AND PUD FILES JS TO BE CHANGED, 08699050 

DEFINE P8DR0WSZ » 06699100 

9001 08699150 

X PBDROWSZ IS THE DISK ROW SIZE* IN SEGMENTS* OF PBD AND 08699200 

% PUD FILES, PBDROWSZ MUST BE A MULTIPLE OF THREE, 08699250 

»PBDRECS * 08699300 

300# 08699350 

* PBDRECS*PBDRQWSZ/3 I NO, OF LOGICAL RECORDS PEH ROW, 08699400 
♦PBDTOTRECS * 08699450 

6000# 08699500 

;* PBDT0TRECS*PBDRECSx20 I NO. OF TOTAL RECORDS PEK BACK-UP FILE, 08699550 

PROCEDURE PBI0(ALPHA*P0INTER)I VALUE ALPHA; REAL ALPHA »P0 I NTER* XP 08700000 

* 08700900 

* THIS PROCEDURE HANDLES 10 FOR THE CREATION OF BACK-UP FILES. FOR 08700910 
X DISK. IT OBTAINS NEW ROWS AND NEW FILES AS NECESSARY, IF IT RUNS 08700920 
X OUT OF FILES. HEADERt5],[4»n IS SET AND THE JOB TERMINATED* LEAV I NG08700930 
X ONE BLOCK FOR THE LABEL AND DS MESSAGE, 08700940 
X 08700950 
X ALPHA IS ADDRESS OF TOP I/O DESCRIPTOR, <0 MEANS READ XP 08701000 
X POINTER IS FIBCH3 XP 08702000 

BEGIN NAME HEADER? XP 08703000 

REAL T*-2» I0D»H*SJ 08704000 

INTEGER IMODJ 08704100 

LABEL OKI 08704500 

POINTER, CFF3*P01NTER INX 721 XP 08705000 

IF (HEADER*P0INTER.[3I15})#0 THEN 4XXXPB ON DISK %%%%% %P 08706000 

BEGIN 08707000 

HEADER I" [Mt(*HEADER)]j; 08707500 

IF HEADERC7J GEO PBDTOTRECS-2 THEN X CHECK FOR NEW FILE 08708000 

BEGIN 08708200 

* SET OMIT « PACKETS 08708400 

IF HEADERC63,[30U8J»« ,, 999" THEN 08708600 

S SET OMIT * NOT PACKETS 08708800 

IF HEADFRC6j,[42»6]s"9" THEN 08709000 

$ POP OMIT OMJT 08709200 

IF HEADERC7] GEO PBDTOTRECS THEN P(XIT) ELSE 06709400 

IF HEADERL5M4UJ THEN GO TO OK ELSE 08709500 

BEGIN STREAMCF»«PRT[P1M!X,3J INX M[MULPHA-3J INX «j, 08709600 

U3UU* Ht»Ht*NABSCSPACE(12))>J 08709800 

BEGIN SI t »F J SI»*SI*l; 08710000 

DSl«24 LlT"TQO MANY BACKUP RECS ON "; 08710200 

DS»«7 CHR» DS!«LIT M /"; SH»SIM! DS»«7 CHRJ08710400 

DS»*2 LIT";*"; 08710600 

END! 06710800 

HEADERC5],[4tlJ»*U 08711000 

GO TO OKI 08711200 

END; 08711400 

IF HEADERC7] GEO. PBDTOTRECS THEN X GET A NEW FILE 08711600 

BEGIN 08711800 

IF II«HEADER[5),[3I1] THEN HE ADER[ 5] , [ 3 I 1) I *0 ; 08712000 

H*SPACEC30)I S*M[HEADER INX NOT 0]l 08712100 

DISKWAIT(-H»30.S)I 08712110 

MtH*73*HEADER[7J; 08712120 

M[H+5],t2ll]*0; 06712130 

DISKWAITCH»30iS); 08712140 

MtH*7J*MtH+93*0; 0671215ft 

M0VE(20*H+9.H+10); 08712160 

M[H+5J*C*PCDUP)) OR MJ 08712170 

HEADER[53,I3llJl*I J XSET PUNCH BK UP TOG 08712200 



HEADFR[73 is O; 08/12500 

HEADERC33 l» XCUOCK + PCR7R); 08/13000 

STREAMCQNE»»1» H « *t HEADER t 6 J J ) t 08713250 

BEGIN SII«L0C ONEJ DSI*8 ADDJ 08713500 

Dl»«DI+24j 20CDSI-8 LlT"0")> 08/13750 

ENDJ 08/14000 

MtH+73*PBDR0WSZ DIV 3? 08714110 

HEADER[93*M(H+93*i; 08714120 

HEADER[10J*M[HM0]*GETUSERD15KC-(PBDK0WSZ+1))J 08714130 

MlHEADER INX NOT 0] »* EUFCdF I THEN "PUD " 08714140 

ELSE "PBD ")fHEADERt6]iH-l>> 08714150 

FORGETSPACECH)* 08714170 

FILEMESSAGECUF I THEN "PUD " ELSE 08714300 

"PBD "UHEADER[63[24l6l243* 08714310 

"OUT " &HEADER[6][30l30ll83» 06714320 

0»" "»0»0»0» 08714330 

CPBOREL OR OPNMESS) OR OPENK); 08714340 

END! 08714400 

END ELSE 08714500 

IF HEADFRC7] MOD PBDRECS*0 THEN XGET NEW ROW 08715000 

BEGIN HI»SPACEC30)I S«»MCHEADER INX NOT QJ? 08715100 

DISKWAIT(-H#30.S)J 08715200 

HEADERt9+HEADER[9)**P(DUP)+13* 06716000 

GETUSERDISK(-(PBDR0WSZ+1))I 08716010 

MlH+9+HFADER[9]]*HEADERt9+HEADER[93]J 08/16100 

MtH + 91«-HEADER[9]; 08716110 

MCH+7J*HEADERC7] * PBDROWSZ DIV 31 08716200 

DISKWAIT(H»30»S)? 08716300 

FORGETSPACECH)* 08716500 

END? 08716600 

OKf 08716800 

STREAM(A*I*HEADERtHEADER[9]*9J*CHEADERC73 MOD 08717000 

PBDRE6S)x3» D-PO INTER itCF J -1); 08718000 

BEGIN SI*L0C AJ DS*B DEC ENDI XP 08720000 

HEADERC71*-(*P(DUP)) + i; XP 08721000 

100*0141330100477777* 08722000 

END ELSE XX ON TAPE *X IP 08723000 

IOD*P21320500000000&MCP01NTER INX NOT lH3ll4»43> XP 08724000 

IOREQUEST(MCALPHA]»POINTER INX I QD&ALPHA C24 t U 13 » XP 08726000 

MtPOINTER INX NOT 13); XP 08727000 

M[TJ*10D INX M(TU0C26l26t7]|0[19il9tU AND NOT Ml XP 08728000 

IF H LSS THEN 08728500 

BEGIN TERMINATE(P1MIX)J 0872860© 

TERMINALMESSAGECH)* 08728700 

END* 08728801 

END PBIO! XP 08729000 

PROCEDURE TIMERELAXER(KTR#TYPE»MJX)JX 06730000 

VALUE KTR»TYPE»MIXIX 08731000 

REAL KTR»TYPE«MIX;X 08732000 

BEGIN INTEGER BUFF » PRT» I OT * T iP J » 1 1 1 X 08733000 

LABEL SPJTJX 08734000 

ARRAY V[*3*VU[*3» 08734100 

t SET OMIT » NOTCPACKETS) 08734499 

DEFINE UNITNO * PSEUDOM I X t M I X J tl 08/34500 

S POP OMIT 08734501 

BUFF * KTR,[15|153-1|X 08735000 

Vl*[MCPUTORTAKE(MlX,tJARCMJX.0 3 3»5#0)3 38i5C8|38ll0 3l 08735100 

IF TYPEJ'VTL THEN 08736000 

BEGIN 08736500 

STREAMCIOT*0»PRT*0»CODE*0| KTR)JX 08737000 



BEGIN SI*KTRJ JF SC»" " THEN BEGIN Ul I S I *S I + 1 I % 08738000 

IF SC»" " THEN GO LI END; IF SO"*" THEN GO L5U 08T39000 

IF SC*"»" THEN GO L2» IF SC<"0" THEN GO EXIT;* 08740000 

KTR*SII L3i TALLY*TALLY+i; SI*SI + W 08741000 

IF SC*"0" THEN GO L3; S I •■ K T R I CODE*TALLY; 08742000 

D1«-L0C PRTJ DS*C0DE OCT; TaLLY*0;X 08743000 

LSI IF SC* M " THEN BEGIN L4| SI*SI+1)X 08744000 

IF SC«" ** THEN GO L4 ENQJ JF SC»"»" THEN GO 121% 08745000 

IF SC*"*" THEN TALLY*l; GO EXI T I* 08746000 

L2| SI*SI+1I IF SC»" " THEN BEGIN L6» SI»SI+1I> 08747000 

IF SC*" " THEN GO L6 END ; KTR*Sl;X 08748000 

IF SC*"*" THEN BEGIN TALLY*l; GO EXIT ENO;X 08749000 

IF SC<"0" THEN GO EMU 171 TALLY-T ALLY+ll % 08750000 

Sl*Sl + iI IF SC*"0" THEN GO 171 DI* LOC I0T;X 08751000 

si*ktr; code*tally; ds*code Oct; tally*i;x OB752000 

EXITI C0DE*TALLY|X 08753000 

END STREAM;! 08754000 

IF NOT P THEN GO SPIT;X 08755000 

PRT * Px3600; IOT * Px3600;X 08756000 

VUl*tMtPUTORTAKECMlX^tUV[MlX»OJ3»14»0)JJ8,l4t8»38ll03l 08 757000 

IF PRT#0 THEN 08758000 

BEGIN 08759000 

Tl*(TYPE*VCT)xVt33-PRT; 08760000 

NTl««PUTORTAKE(MIXf CUVtMlX,131iO»VUtU*T)l 08761000 

NTl«»PUTORTAKE(MIX»lUV[MIX»13J3iO#VU[13J*T); 08762000 

Vt3J»«(*P(DUP))-T; 08763000 

END; 08764000 

IF I0T#0 THEN 08765000 

BEGIN 08766000 

T«*CTYPE*VCT)xV[4]-10T; 08 767000 

NTH»PUTORTAKE£MIXi tUV[MlX.O]3»0»VUtO]+T)l 08768000 

NTll«PUTORTAKECMIX.CUV[MjX.llJJiO.VUUlJ+T); 08769000 

V[4)I»(*P(DUP))»T; 08770000 

END; 08771000 

STREAM(TE5T*0lX*[V[0] J»MIX»Z*PRT#Q# I * I T s* » X 08774000 

K»»TYPE«33# T»*TI*VU,[CF 3); X 33*XT 08775000 

BEGIN DS-LIT " "I Z(DS*4 LIT M PRT "» TALLY*l;X 08776000 

KDS*4 LIT"AND ")); I(DS*4 LIT "IOT "; TALLYM);X 08777000 

DS*8 LIT "ESTIMATE"; Z(MDS*LIT "S"));X 08776000 

DS*8LIT" CHANGED"» K(DI*DJ-7; DS*8LI T"EXTENDED" ) ; X 08779000 

D5*5LIT" FOR"; SI*X; Sl*SJ+i; DS*7CHR; SI»SI*1IS 08780000 

DS*LITV"; DS*7CHR; DS«-LIT"»"; SI»LOC Z;X 08781000 

Sl*Sl-8; DS*2DEC; DS»LJT"*"I TEST'TALLY; 08782000 

DI*DI»3; DS*FILL; 06782500 

END STREAMS 08783000 

IF P THEN SP0UTER(T»UNITN0»1) ELSE 08764000 

FORGETSPACE(T); 08784100 

END; 0878500* 

IOT * PRT * -0;X 08786000 

IF P(V[33»DUP) GEO 97777777777 THEN P(DEL) ELSE 08787000 

PI * (PRT * P DIV 3600)-60x(PRT * PRT Dl V 60>;» 08788000 

IF P(V[4J»DUP) GEO 97777777777 THEN P(DEL) ELSt 08789000 

II * (IOT ♦ P DIV 3600)-60x( IOT * IOT DIV 60>;X 08790009 

STREAM(X •[ V [0)J »M IX tPRTi PI »IOT# 11 .BUFF) I 08791000 

BEGIN DSM7LIT" TIME LIMITS FOR"; SI*X; SI*Si + i; DS*7CHR;X 08792000 

DS*LIT"/"; Sl*Sl+i; DS*7CHR; DS*LIT"«"; SJ*LOC MlXj 08793000 

DS*2DEC; MIX*DI> DI*DI-2; DS*FILLI DJ*MIX; 08793500 

DS*10LIT" AREI PRT«"; IF SC*"+" THEN 08794000 

BEGIN SI#-SI + 16; DS*8LIT"N0 LIMIT" END ELSE BEGJNX 08795006 

DS*8DEC; DS*LIT"I"; DS*2DEC; BUFF*DM 1 * D I - 1 1 IX 08795500 



DS*/FILU DI*BUFF ENDI DS*6LlT") I0T« K ) 
DS*10LIT"N0 LIMIT,*" ELSE BEGIN DS*8DEO 



DS*2DEO 
STREAM;* 



INK 0)1 



DS*2LlT",*"J DI*DI 
ENn 
SPlTlS 

V[0Jl*V[3]| VC i 3 l«VC41| 

TI*PUT0RTAKE(MIX.[JARCMIX»33 J»-2»V 
SP0UTER(BUFF»UNITN0#1)I 
END TIMERELAXERI 
PROCEDURE CHANGEFACTOR(BUFF.TF)! VALUE BUFF»TFI 
BEGIN REAL FACTQRiB>T) INTEGER TEMPwTJ 
LABEL TYPEOUT.EXIT* 

BUFF * (CB*BUFF),tl5«15]-n&M[P(DUP)-U[9|9|9l> 
IF TF then go TYPeOUTI 
STREAM(ANS*0|B)> 

BEGIN SI*B) OI*LOC B) DS-8L 1 T"00000000" ) 



IF SC«"*" THEN 
DS*LIT"J"U 



131 DS*7FILL END) 



REAL BUFF) BOOLEAN TF) 



Li if sc « " " then begin si*si+ij go 

IF SC < "0" THEN GO TO Lll 

IF SC > "9" THEN GO TO LI) 

SI*SI*1) 

IF SC < "0" THEN GO TO ONECHR) 

IF SC < "9" 

THEN BEGIN S I *SI -1 ; DI-DI-2) 
ELSE ONECHRI BEGIN S I *- S I - 1 ; DI*DI'l) 



DI*DI-2) 
TO L END) 



DS*2 
DS-1 



CHRI 
CHR) 



END 
END) 



Lll 

L2l 



TO 
TO 

TO 
TO 

SC < "9" 

CONVERT) 

CONVERT) 

DB) DS* 10 



L2 ELSE 
ERROR) 

ERROR) 
ERROR) 



THEN DS*CHRJ 



SET) GO TO EXITS) 



SI*SI+4) D1*LQC ANS) DS*4 OCT) 



EXIT) 
LOCKTOGCHOLDMASK)) 



IF SC » %" THEN GO TO L2 ELSE GO TO L3) 
IF SC * "," THEN GO 
SI*SI+1) 

IF SC < "0" THEN GO 
IF SC > "9" THEN GO 
DS*CHR) 

IF SC * "0" THEN IF 
L3I IF SC * w " THEN GO 
IF SC * "*" THEN GO 
ERRORIDI*LOC ANS) SKIP 1 
CONVERT! SI*L0C B) 
EXITS! 
END STREAM) 
P( f FACTORt*)) 
IF FACTOR < THEN GO TO 
C0RE.C4I14J * FACTOR! 
SLEEPClTOGLEJ#HOLDMASK)| 
B l» SPACEOO)) 

DISKWAIT(-B#-30»DIRFCT0RYT0P-SYSN0)) 
MtB+9] * CORE) 
DISKWAIT(B»-30»DIRECT0RYT0P"SYSN0)) 
FORGETSPACECB)) 
UNLOCKTOG(HOLDMASK)) 
SELECTION! 
TYPEOUTi 

STREAM(I*(FACTOR*cOREtt<ni<U) DI V 100* FR*C TEMP*FAC TOR MOD 
MX* {TEMP*C0REtICFJx64xF ACTOR/ 100). US*CORE . t FF Jx64 . 
BEGIN DS*9 LIT"FACTOR ■ "I 

Sl*LOC II DS-2 DEO I*DH DI*DI-2) DS*F1LL) DIM* 

OS*Ln","l DS*2 DEC) 
DS*13 LIT". MAX CORE * "I DS*7 DEC) 

I*DII DJ*Dl-7) DS*6 FILL) DI*D 
DS* 8 LIT"# USING ") DS*7 OEC) DS*LIT"* W I 
DI«-DI-8l DS*6 FILL! 
ENO STREAM! 
EXIT) SPOUTCBUFF)! 



* CHANGE FACTOR 



100). 
BUFF)! 



08796000 
06796500 
0679700* 
06797500 
08796000 
08798056 
08798100 
08798500 
08799000 
08800000 
06601000 
06602000 
08802500 
08803000 
08804000 
08805000 
08806000 
08807000 
08808000 
08809000 
08810000 
08810500 
06811000 
08812000 
08813000 
06814000 
08815000 
08816000 
08817000 
08818000 
06819000 
06620000 
08821000 
08622000 
08623000 
08824000 
06825000 
06626000 
08828000 
08829000 
08830000 
08831000 
06632000 
08833000 
06834000 
08835000 
08836000 
08836500 
08837000 
08636000 
06639000 
08840000 
08841000 
08842000 
08643000 
08844000 
08845000 
06846000 
06847000 
08848000 



08848500 

END CHANGEFACTOR* 086490QO 

PROCEDURE SHEETDIDDLER(BUFF»TYPE»SID>> VALUE BUFF > TYPE* 5 ID) 08850000 

REAL. BUFF»TYPE»SID; 08850100 

COMMENT TYPE « 51 PS •• CHANGE PRIORITY Of JOB IN SCHEDULE 08850200 

m 7\ XS -- EXECUTE JOB IN SCHEDULE (FORCE SELECTION) 08850300 

« 61 ES -- ELIMINATE JOB FROM SCHEDULE (FORCE SELECTION, 08850400 

THEN "DS"> 08850500 

« 4i TS — TYPE OUT SCHEDULE! 08850600 

begin real iod*t»priority* oessiooo 

INTEGER LEVEL»NeXTLINKiTHISLINKiLaSTLINK» 08852000 

INTEGER ES»EM#EH> DEFINE ET ■ EH#* 06852500 

BOOLEAN LASTPASSED'ATLEASTONE; 08853000 

ARRAY S[+JfDLNK[*J| 08854000 

S SET OMIT s NOT(PACKETS) 08854499 

DEFINE UNITNO • St 23 3 , t 2 I 6 ]# ; X ORIGINATING UNIT 08854508 

$ POP OMIT 08854501 

LABEL C0NTINUE*C1#READIN#GNX,TS#TS1»TS2# 08855000 

XSES»ESLLfPS»PSl»PS2»SPIT*EXlTJ 08856000 

08857500 

SUBROUTINE GETNEXT) % READS IN NEXT JOB SHEET ENTRY 08858000 

BEGIN 08859000 

CONTINUE* LASTLINK * THISLINK* 08860000 

IF (THISLINK*NEXTLINK) # THEN GO TO READIN? 06860500 

Cll IF (LEVEL*LEVEL*1)>SHEETMAX THEN 08861000 

BEGIN LASTPASSED * TRUE* GO TO GNX END; 08862000 

LASTLINK * NEXTLINK * 0* 08863000 

IF (THISLINK*SHEET[LEVELJ,tCFJ) ■ THEN GO TO Cll 08864000 

READINl DISKWAITCS,[CFJ»30»THiSLjNK)i 08865000 

NEXTLINK ♦ SC 293 f 08867000 

IF St0),t36l6]»f 14 THEN GO CONT I NUE I XPASS LM ENTRY 08868000 

GNX| 08869000 

END GETNEXTI 08870000 

08871000 

SLEEPUTOGLEJ»SHEETMASK)i LOCKTOG(SHEETMASK); 08680000 

Sl«tMtGETSPACE(31»2.5)*2]]&30t8«38ll0); 08881000 

LEVEL * -U LASTPASSED * FALSE* 08882000 

IF TYPE LSS THEN GO ESLLJ*E5 A JOB ON LOGICAL LINE • SID 08882100 

BUFF ♦ ((T*BUFF) t [15«153-l)&M[P(DUP)-l3C9j9?9]> 08882500 

IF TYPE«4 THEN GO TS* IF TYPE*5 THEN GO PS* GO XSLSI 08883000 

TSl ATLEASTONE ► FALSEI 08884000 

TSll GETNEXT* IF LASTPASSED THEN GO TO TS2* 06685000 

IF SID NEO 63 THEN BEGIN IF SC33,[8ttOj NEQ SID THEN GO TSl END ELSE08885500 

IF ATLEASTONE THEN BUFF,CCF3 »» SPACEUQ)* 08886000 

ET*((CL0CK+P(RTR))/60)-SC23J,C24l24)| 08886300 

ES * ET MOD 60* ET * ET DI V 60* EM •• £T MOD 601 EH * ET DIV 60* 08886600 

STREAMCC*LEVEL»J*SC*J'ID*SUJtt8ll0JiJi*(S[QJ<0) OR (US[03 EOV 08887000 

"LIBMAIN")»NOT 0)AND((S[l3 EQV "DISK ")«N0T 0))» 08887100 

J2*St27J»EH»EM*ES#A*SC20]x64,BUFF>* 08887200 

BEGIN SJ*L0C C* DS + 6 DEC* DI«DI"6j DS*5 FILL* DI»BUFF* Dl*DH-6» 08888000 

DS*LIT"I W J SI»JI SI*SI+1» DS*7 CHR* DS*LlTV w * SI*SI+1* 08889000 

DSI»7CHR*J1(DS|«LIT" "*SI»"LOC J2* S 1 I »S I *1 *DS I »7CHR ) * 08890000 

DSt«LlT"«"ISH»LOC ID*DS»«2 DEC* 08890010 

DS*7 LIT" IN FOR"* SI*L0C EH* 08891000 

3(DS * LIT"*"* DS*2 DEO* ES*DI* DI*DI"9* DS*8 FILL* 08892000 

DI*ES* DS*8 LIT". NEEDS "I 08893000 

Sl*L0c A* DS»5 DEC* DS*L I T"*"* DI*DI-6* DS*4 FILL* 08899000 

END STREAM* 08900000 

SPOUTERCBUFFiir SID»*63 THEN UNITNO ELSE 0.1)1 08901000 

IF SID NEC 63 THEN BEGIN TYPEI»4*G0 EXIT END* % 4»TS 08901500 



ATLEASTONE'TRUt; 08902000 

GO TO TS1J 08903000 

TS2I IF ATLEASTONE THEN GO TO EXIT; 08904000 

IF S|0 NEQ 63 THEN TYPE»»4 ELSE * 4«TS 08904050 
STREAM(BUFF)! DS * 15 LIT " NULL SCHEDULE*"** XWF 08905000 

SPOUTCBUFF); GO TO EXITJ 08906000 

08907000 

ESLLl GETNEXT; 08907500 

IF LASTPASSED THEN GO TO EXIT; 08908000 

IF SC263 .C40I63 NEQ SID THEN GO TO ESLLf 08908500 

S[2J,[U2]i*3; D1SKWAITCS,[CF3»30.TH1SLINK}| GO TO EXIT; 08909000 

08909500 

XSESl GETNEXT; 08910000 

IF LASTPASSED THEN BEGIN SPOUTCBUFFJJ GO TO EXIT END; 089U000 

IF SC3J,[8lt01*SlD THEN GO TO XSES; 08912000 

SC2)«CH2Jl*CIK TYPE*7 THEN 2 ELSE 3); % 1 1 1 23«2C XS) # *3C ES ) 08913000 

DISKWAlT(S.CCF)f30»THlSLINK); 08915000 

GO TO SPIT; 08915100 

08915500 

PSl STREAMCPRIQRITYIT); 08916000 

BEGIN SI*T; 08917000 

Nl IF SC«**" THEN GO TO X; 08918000 

if sc<"0" then begin si»si+i> go to n; end; t*si; 08919000 

Kl IF SC* w O" THEN IF SC< W 9" THEN 08920000 

begin tally*tally+i> si*si*i; go to k end; 08921000 

si*t; di-loc priority; totally; ds*t Oct; go to z; 08922000 

xi di*lqc priority; skip db; dsmi set; 08923000 

Zl 06924000 

END STREAM; 08925000 

IF (PRI0RITY*P)<0 THEN BEGIN SPOUT(BUFF); GO TO EXIT END; 08926000 

PSl I GETNEXT; IF LASTPASSED THEN BEGIN SPOUTCBUFF); GO TO EXIT END* 08927000 

IF Sf 33«[8«iOJ#SlD THEN GO TO PS1J 08928000 

% DELINK AND RELINK THIS SHEET ENTRY 08929000 

DLNK|«[MtGETSPACE(31»2»5)*2J]&30t8»38ll03; 08930006 

IF NEXTLINK * THEN SHEET [LEVEL J , IFF] * LASTLJNK; 08931000 
IF LASTLINK « THEN BEGIN SHEET LLEVEL 3 , CCF 3 * NEXTLINK;GO PS2 END;08932000 

D1SKWAIT(-DLNK,[CF]»30»LASTLINK); 08933000 

DLNK[29J ♦• NEXTLINK; 08934000 

DI SKWA I T(DLNK,[CF]» 30. LASTLINK); 08935000 

PS2I S[23,tCF3 * IF CS[|8]»PRI0RJTY) > 32767 THEN 32767 ELSE PRIORITY; 08936000 

LEVEL ♦ IF PRI0R1TY>SHEETMAX THEN SHEETMAX ELSE PRIORITY; 08937000 

IF SHEET[LEVEL3,[CF3 * THEN 08938000 

BEGIN DlSKWAlT(»DLNK,[CF]f 30»SHEETUEVEL],[FFJ); 08939000 

DLNK[29] * THISLINKJ 08940000 

DISKWAITCDLNK,tCFJ»30» SHEET! LEVELJ f [FFJ); 08941000 

END ELSE SHEETUEVEL3 * TH1SLINK; 08944000 

SHEETtLEVEL3,tFF3 * THISLjNK; 08944500 
S[293 * 0; SC33 «■ ABSCS[33 ) f % TO GET SELECTION TO PRINT MESSAGE; 08945000 

DISKWAITCS,[CF3»30.TH1SL!NK); 08946000 

FORGETSPACECDLNK); 08947000 

SPIT! IF BUFF#0 THEN 08947100 

% SET OMIT m NOTCPACKETS) 08947199 

IF UNITNO GEO 32 THEN 08947200 

BEGIN 08947300 

M0VEC9»BUFF + 1»BUFF)» SPOUTERC BUFF # UN I TNO» 64 ) ; 08947400 

END ELSE 06947500 

$ POP OMIT 08947501 

FORGETSPACECBUFF); 08947600 

06948000 

EXITI UNLOCKTOG(SHEETMASK); 06997000 



FORGETSPACECS) I 06998000 
IF TYPE** THEN BEGIN KE YBOARDCOUNTER ♦ KE YBOARDCOUNTER-1 I % 4*TS 08998200 

SELECTION; 08998400 

KEYBOARDCOUNTER + KE YBOARDCOUNTER+1 * 08998600 

END ELSE SCHEDL00K(0»0mTYPE OUT SCHEDULED TASKS 08998800 

END SHEETDIDDLFR* 08999000 

PROCEDURE LOGOUT* 09000000 

BEGIN ARRAY L*LOGARRAY[ * J t 09001000 

REAL DT»BH»RCW«+0> 09002000 

INTEGER AH»DA»NJ 09003000 

LABEL STARTiEXITJ 09004000 

SUBROUTINE UNLOCK* 09004100 

BEGIN UNLOCKTOG(HOLDMASK); 09004200 

SPOUT(AH); 09004400 

FORGETSPACE(DT)| 09004500 

FORGETSPACE(BH)! 09004600 

END* 09004700 

START! 09005000 

DT f« SPACEC30)! 09006000 

IF LC33)«0 THEN 09008000 

BEGINISTREAM(DT)! DS*9 LIT "NULL LOG*"; 09009000 

SPOUTCDT)! 09010000 

GO TO EXIT 09011000 

END; 09012000 

SLEEPUTOGLEJ»HOLDMASK)» LOCKTOG( HOLDMASK) ; 09012100 

DISKHAITC-DT»-30»DIRECT0RYT0P"SYSNQ)J 09012200 

AHI»MCDT+ZO], [8110)1 09013000 

DO 09013600 

BEGIN AH»»(AH+1) MOD 1000; 09013700 

STREAMCAHi Nl*[N)); 09013800 

BEGIN SH*LOC AH* DS«*8 DEC END; 09013900 

NI*N&ACTDATEC6ll2l24j; 09014000 

END 09014100 

UNTIL AH"999 OR D I RECTORYSEARCH( -N> "LOG " 09014200 

$ SET OMIT * NOTCSHAREDISK) 09014299 

*(SYSN0+17H24*42I6J 09014300 

$ POP OMIT 09014301 

#5)*0; 09014400 

MtDT+203 J*0&AH[8I38I10); 09014 500 

SLEEP([LC32))#-0); L[ 32 ) *ABSC *PC DUP ) ) * 09015000 

SLEEP([L[313)#IOMASK); 09016000 

AH H» SPACEC30); 09017000 

M0VE(30»AH-1»AH) J 09018000 

BH I* SPACEC30); XLOG09019000 

IF DA«0 THEN 09019100 

IF (M[AH+10)l*PETUSERDISK(-L[34)»l)}»0 THEN 09019200 

BEGIN STREAMCNiAH); 09019300 

BtGIN DS«*18 LIT M #NQ USER DISK FOR "; 09019400 

SII*L0C N; SII«SI+i; DSl«7 CHR; 09019500 

DSt«5 LIT W /L0G* W ; 09019600 

END* 09019700 

L[32)|«NABS(*P(DUP)); 09019750 

UNLOCK; 09019800 

DAl«GETUSERDISK(L[34)&2[ll46«2J); 09019900 

GO TO START; 09020000 

END ELSE ELSE M [ AH+10 3 I *Da; 09020100 

M[BH) I* NOT 0; 09020200 

DISKWAIT(BH#1 »M[ AH+10) ); 09020300 

DISKWAIT(-BHf 30#LC36)); 09021000 

MOVE(10#BH»AH>; 09022000 



MCBH*4]|*Qft5[9l45l3J; 09024900 

STREAM(Als[DATEl»B?*BH+3»C»»0); 09025000 

BEGIN 09025100 

Ml«AI D I I wLOC CI DS|»8 OCT; Slt*LOC C; 09025200 

SII«Sl+5! DII«BJ DI I *D 1+51 DSl*3 CHR; 09025300 

END; 09025400 

Lt353*M[AH*103; 09026000 

Lt33Jl«0J 09027000 

L[32]«*NABS(*P(0UP))I 09027500 

ENTERUSERFILEC-N#"LOG " 09028000 

$ SET OMIT * NOT(SHAREDISK) 09028049 

&CSYSN0 + 17) t 24142X6 J 09028050 

* POP OMIT 09028051 

»BH"1)J 09028100 

MCAH>7J »» MtAH + 8jx3 • (M[AH + 93 »» 1>J XLQG09028200 

DISKWAITCAH»30#L[36J); 09029000 

STREAM(N» 09030000 

t SET OMIT s NOT(SHAREDISK) 09030099 

S»*SYSN0+17» 09030100 

t POP OMIT 09030101 

AH); 09030200 

BEGIN DS*21LIT "**** NEW LOG FILE IS " J 09031000 

SI*LOC Nl SI*SI+U DS*7 CHR; 09032000 

DSl*6 LITVLOG ♦ "; 09033000 

* SET OMIT m NOT ( SHARED I SK ) 09033099 

0II"DI"2ISI»*L0C SfS] l*Sl+7JDSI*CHR* 09033100 

$ POP OMIT 09033101 

END? 09034000 

DISKWAlT(DTf-3O»DIRECTORYT0P-SYSN0); 09036000 

UNLOCK; 09037000 

TIME0UT(SPACEC10))J 09037100 

GIMEDATE(SPACEClO).i); 09037200 

EXITl 09038000 

END; 09040000 

PROCEDURE LOGDISK; 09050000 

BEGIN REAL FID»MID.C»N; REAL RCWs+O; 09051000 

LABEL SEEK; 09052000 

C*"0| 09052500 

SEEK l 09053000 

SEEKNAM(*l»-l#C»MID»FIDiN); 09054000 

IF C*0 THEN 09055000 

BEGIN 09056000 

IF NOT SYSTEMFILECMID»FID) THEN 09056500 

IF (MlDI»DlRECT0RYSEARCMCMJDtFID»15))#0 THEN FORGE TSPACE ( MI D) ; 09057000 

GO SEEK; 09058000 

END; 09059000 

streamcn;»n»*spacecio>); 09060000 

ds*29 lit"#disk file logging completed*" ; 09061000 

SPOUT(N); 09062000 

ENDf 09064000 

PROCEDURE LINEMESSAGES(BUFH); VALUE BUFH; REAL BUFH; 09100000 

BEGIN 09101000 

real line#chrs»i»bf#uzer> 09102000 

label error»exit»cleanup; 09103000 

array 1nfc*j; 09104000 

boolean colapse; 09105000 

09106000 

09107000 

REAL SUBROUTINE SHOVEITOUT; 09108000 

BEGIN 09109000 



IF PCSTaTABLECIINF],DIALEDUP»DUP) THEN 09110000 

BEGIN 09111000 

IF COLAPSE THEN 09112000 

BEGIN 09113000 

COLAPSE* FALSE? 09114000 

STREAMfS* BUFH» BF)J 09115000 

BEGIN 09116000 

SI* S? 09117000 

DSl*8 LIT"-*#ATTN»"J 09118000 

XI IF SCi****-" THEN 09119000 

BEGIN 09120000 

IF SC** " THEN 09121000 

BEGIN 09122000 

DSl*CHR? 09123000 

BBI IF SC m " » THEN 09124000 

BEGIN S 1 « sS I > 1 f GO BB? END? 09125000 

GO TO X? 09125600 

ENDJ 09128000 

IF SC * "#" THEN 09129000 

BEGIN DS?=UT MARK? Slt*SI*ll END ELSE 09129500 

DS* CHR? 09130000 

GO XI 09131000 

ENDJ 09132000 

09133000 

0Sl*3 LIT'V-*"; 09134000 

S* DM 09135000 

ENOJ 09136000 

CHRS* ((CHRS* P), [33»15J-BF)x8+CHRS,l30l3JI 09137000 

END? 09138000 

TWXOUT(BF»CHRSfl»LINE)l 09140000 

END? 09141000 

SH0VE1T0UT* PI 09141500 

END? 09142000 

BF* BUFH,C15»153M! 09142300 

COLAPSE* TRUE! 09142600 

STREAMCRESULT* M*S* 01 B* BUFH* A* "ALL")? 09143000 

BEGIN 09144000 

SI* Bl 09145000 

DDI IF SC*" " THEN BEGIN SI* Sl + 1? GO DD END? 09146000 

S* SII DI*L0C A? 09147000 

IF SC< H H THEN 09148000 

BEGIN 09149000 

DI* Dl+5? 09150000 

IF 3 SC»DC THEN 09151000 

BEGIN 09151100 

IF SC«ALPHA THEN GO U? 09151200 

RESULT* TALLY 09152000 

END 09152100 

ELSE 09153000 

U| BEGIN 09154000 

DI* LOC RESULT? DS* 8 LIT "♦ "I 09155000 

SI* S? DI* LOC RESULT? DI* 01*11 09156000 

7(IF SC»ALPHA THEN DS*CHR ELSE JUMP OUT)? 09157000 

END 09158000 

END 09159000 

ELSE 09160000 

BEGIN 09161000 

IF SC>9 THEN GO EXJI 09162000 

SI* SI+1? DI* LOC RESULT? 09163000 

if sc<o then go one? 09164000 



IF SC>9 THEN GO ONE; 09165000 

SI* S; DS* 2 OCT! GO SUC! 09166000 

ONE! SI* S; OS* 1 OCTJ 09167000 

SUCt END* 09168000 

EX I t S* SIl 09171000 

END! 09172000 

BUFH* P! 09173000 

IF (LINEI«P)»C"1> OR SYSDISKADR»0 THEN GO ERRORl 09174000 

IF L1NE<0 THEN 09175000 

BEGIN % USERID WAS GIVEN 09176000 

lNFI»|MtSPACE(SYSDlSKHU)JJ*5YSDlSKRL[8l38l JOJI 09177000 

UZEK* ABSCLINE)* 1*0! 09178000 

FOR LINE!* STEP 1 UNTIL STATIONMAX DO 09^9000 

BEGIN 09180000 

SYSDlSK|0(liL|NFf INFJI 09181000 

IF CUZER EOV INFC1J )«NOT THEN 09182000 

BEGIN 09183000 

I* I+SHOVElTOur; 09184000 

END 09186000 

ENDi 09187000 

SYSDlSKlO(ltSTATlONMAX+l»lNF )? 09187500 

F0RGETSPACEC1NF)! 09188000 

IF 1*0 THEN 09188500 

BEGIN 09189000 

LINE* NABS(UZER)J 09189300 

GO ERROR! 09189500 

END 09190000 

ELSE 09190500 

GO CLEANUP! 09191000 

END! 09192000 

IF LINE GTR STATIONMAX THEN GO ERROR! 09193000 

IF LINE>0 THEN * LINE WAS GIVEN 09194000 

IF SHOVEITOUT THEN GO CLEANUP ELSE 09195000 

BEGIN! 09196000 

STREAM(L*LINE»T*1*(LINE>9)»BF)! 09197000 

BEGIN 09198000 

DS* 5 LIT "LINE "! 09199000 

SI* LOC LI DS* T DEC* 09200000 

OS* 15 LIT M NOT DIALED-UP*"! 09201000 

END! 09202000 

SPOUT(BF)! 09203000 

GO EXIT; 09204000 

END! 09205000 

I* 01 % SS ALL 09206000 

FOR LINE »» I STEP 1 UNTIL STATIONMAX DO 09207000 

I* I* SHOVEITOUT! 09208000 

IF J«0 THEN 09209000 

BEGIN! 09210000 

STREAM(BF)! DS* 19 LM "NO LINES D I ALED-UP*" ! 09211000 

SPOUT(BF)! 09212000 

GO EXJTJ 09213000 

END! 09214000 

CLEANUPl FORGETSPACE(BF)! 09215000 

GO EXIT! 09216000 

ERROR! IF LINE>0 THEN 09217000 

STREAM(L* LINE#BF)> 09218000 

BEGIN 09219000 

DS* 5 LIT "LINE "I 09220000 

SI* LOC LI DS* 2 DEC! 09221000 

DS* 15 LIT " NOT AVAILABLE* 1 *! 09222000 



ELSE 



END 

IF LINE<(M) THEN 

STREAM(L* LINE»BF)I 

BEGIN 

SI* LOC LI SI* Sl + l! 

DS* 7 CHRI 

OS* 15 LIT 

ENDI 



NOT DIALED-UP* M J 



BUFH* DI! SI* LOC Tl SI* SI+6I 
LIT " "I 



SPOUTCBF)! 
EXIT I 

ENDI 

PROCEDURE CALLCANDECBUFH»TYPE)1 VALUE BUFH»TYPEI REAL BUFH.TYPEI 
BEGIN 

REAL BUFF»A»L»F! 
BUFF* 8UFH.I15M5J-1I 

IF TYPE'O THEN P(BUFH) ELSE 
STREAM(BUFH»T* TYPE)J 
BEGIN 

DI* BUFH! DI* Dl*3l 
DS* 2 CHRl DS* 
ENDI 
BUFH* Pt 
DO BEGIN 

A* GETAREAC2)! 
STREAM(R*0#BUFHJA* A 
BEGIN 
S]* BUFH? 

2<56(IF SC#** M THEN 
BEGIN DS* LIT ' 
JUMP OUT 2 
El BUFH* SI) 
ENDI 
BUFH* PI F* PI 
IF L#0 THEN 
BEGIN 

M[AJ* P(DUP»LOD) 4 L [CTFJi 
MCL3* P(DUP»LOD) & A [CTCJ! 
ENDI 
Ll*AI 
END UNTIL fl 
MtA),MESSENDI«ll 
GIVEAWAY(A)! 
FORGETSPACE(BUFF)! 
END CALLCANDEI 
t SET OMIT * NOTCAUXMEM) 
REAL PROCEDURE NEXTAUXMeMWORD(HEADER»F1LEPaRaMi DI SKADDRESS) I 
REAL DISKADDRESS»FILEPARAM| ARRAY HEADERt*3l 
BEGIN 

EXITI 



INX 1)1 



DS* 
TO E 



CHR ELSE 

TALLY* 1| 
END))! 



R* TALLY! 



REAL T| LABEL 

ARRAY At*]! 

DEFINE EOFPTR 

ROWSJZE 

MAXROWS 

SEGMENTCOUNT 

WORDCOUNT 

ROWCOUNT 

A !■ IOQUE & 



HEADFRt73#. 

• HEADERC83*. 

■ HEADERC9J.U3I 5J#t 

* F ILEPARAM,[16ll53#t 

■ F ILEPARAM.C12I 6J#» 

■ FILEPARAM.I 6« 6J#! 
FILEPARAM[CTCJI 



IF DJSKADDRESS 
BEGIN 



• o then % first call on procedure 



09223000 

09224000 

09225000 

09226000 

09227000 

09228000 

09229000 

09230000 

09231000 

09232000 

09233000 

09234000 

09300000 

09301000 

09302000 

09303000 

09303500 

09304000 

09305000 

09306000 

09307000 

09308000 

09309000 

09310000 

09311000 

09313000 

09314000 

09315000 

09316000 

09317000 

09318000 

09319000 

09320000 

09321000 

09322000 

09323000 

09324000 

09325000 

09325500 

09325600 

09326000 

09327000 

09328000 

09329000 

09330000 

09400000 

09400100 

09400200 

09400300 

09400400 

09400500 

09400600 

09400700 

09400800 

09400900 

09401000 

09401100 

09401200 

09401300 

09401400 



CHL c 



n 




IF (OISKADDRESS I* HEADERflQ]) LEO OR EOFPTR LSS OR 09401500 

CHEADERCOJ EQV P0003600036000101 ) NEQ (NOT 0) THEN 09401600 

BEGIN 09401700 

STREAMC INTI«FILEPARAM LSS 0» T » *T I »SPACE(4 ) ) I 09401600 

BEGIN 0Sl*26 LIT" IMPROPER AUXMEM MCP FILE* B J 09401850 

INTCDI *«0I-9J DSl-3 LI T"lNT") J 09401900 

ENDi 09401950 

SPOUTU)! GO TO E X I T J 09402000 

ENDJ 09402100 

DISKWAIT(-A,[CF3»30. OISKADDRESS); SEGMENTCOUNT l« 1) 09402200 

NEXTAUXMEMWORD » ■ NFUG( A t 01 ) . [ CF] > 09402300 

GO TO EXIT; 09402400 

END* 09402500 

WORDCOUNT I* WOROCOUNT ♦ 11 09402600 

IF WORDCOUNT GTR 29 THEN 09402700 

BEGIN 09402800 

SEGMENTCOUNT I* SEGMENTCOUNT+l ) 09402900 

IF SEGMENTCOUNT GTR ROWSIZE THEN 09403000 

BEGIN 09403100 

SEGMENTCOUNT is U 09403200 

ROWCOUNT 1* ROWCOUNT + 1* 09403300 

IF ROWCOUNT GTR MAXROWS THEN GO TO EXITl 09403400 

OISKADDRESS |« HEADERC10 ♦ ROWCOUNT]; 09403500 

IF OISKADDRESS LEO THEN GO TO EXIT; 09403600 

END; 09403700 

IF (SEGMENTCOUNT + ROWCOUNTxROWSlZE-U GTR EOFPTR THEN GO F X I T I 09403800 

DISKWAIT(-A»£CF 3 » 30 »D I SKADDRESS + SEGMENTCOUNT'l ) ; 0940 3900 

WORDCOUNT l» 0; 09404000 

END/ 09404100 

NEXTAUXMEMWORD I* NFLAGC A [ WORDCOUNT 3 ) . t CF 3 I 09404200 

EXJTI END PROCEDURE NEXTAUXMEMWORD; 09404300 

PROCEDURE TRANSFERMCPTOAUXMEMCHDRADRS.MAXLOOJ VALUE HDRADRS,MAXLOC; 09404400 

REAL HDRADRSiMAXLOC; 09404500 

BEGIN 09404600 

REAL AUXADDRESS* AUXWORDSt CELLS* CELLVaLUE* CODEADDRESS, 09404700 

CODESIZE* DISKADDRESS* fSPB I TADDRESS. ESPBITCELL» FILEPARAM, PRTCELL. 09404800 

RSLTi AsCELLVALUE; 09404900 

ARRAY HEADER!*]; 09405000 

LABEL ERRORiLOOPtSTOPTRANSFER; 09405100 

HEADER «« IOQUE & HDRADRSt CTC J ; 09405200 

FILEPARAM I* SPACE(30),tCF3; CODEADDRESS I* SPACEC1024); 09405300 

ISPBITCEL.U I* P(.ESPBIT); FSPB I T ADDRESS I *NfLaGC Mt ESPB I TCELL 3 ) , [CF 3 ; 09405400 

LOOP; 09405500 

♦F (PRTCELLI*NEXTAUXMEMW0RD(HEADEK,FILEPARAM, OISKADDRESS)) > THEN 09405600 

BEGIN 09405700 

IF PRTCELL LSS 0200 OR PRTCELL GEO MaXLOC THEN 09405800 

BEGIN 09405900 

ERRORl STRFAMCPRTCELL»At*AI*SPACEC10)); 09406000 

BEGIN 09406100 

0SI»26LIT M INVALID McP-AUX PRT CELL»P"I 09406200 

SH»L0C PRTCELL; 09406300 

16(D5t*3 RESET} 3(IF SB THEN DSI*SET ELSE DS»«RESET; SKIP SB )); 09406400 

DSl«LlT"»"; DI»»0I-17l DS|*15 FILL; 09406500 

END STREAM; 09406600 

SPOUTCA); GO TO LOOP; 09406700 

END IF BAD PRT CELL NUMBER; 09406800 

IF (CELLVALUEl»NFLAG(MtPRTCELL3)),CCF3 NEQ ESPBI TADDRESS THEN 09406900 

BEGIN % CHECK FOR PRESENT* NON-SAVE SEGMENT 09407000 

IF P(M[PRTCELL3iT0P) THEN BEGIN P(DEL); GO ERROR; END ELSE 09407100 

IF NFLAG(P),[1I73 NE« P165 THEN GO TO ERROR; 09407200 



END! 09407300 

IF CELLVALUE.C6H3 THEN GO TO LOOPl X ALREADY WRITTEN 09407400 

IF PRTCELL«P(,DISKORAUXERROR) OR PRTCELL»P(»REENTER) THEN GO ERRORl 09407410 

CODESIZE I* CELLVALUE ,C8l 103* 09407500 

IF (AUXAODRESSl«AUXILIARYSPACE(CODESUE)) GTR THEN XSPACE AVA I LABLE09407600 

BEGIN 09407700 

OISKWAITC-CODEADDRESS»CODESlZE»CELLVALUE.[FFJ+MCPBASE); 09407800 

MtCODEADDRESS-lJUO&CQDESIZEtCTFJl 09407900 

DlSKl0(RSLT#C0DEADDRFSS*l»(C0DESIZE&l[3l47»l J)# 09408000 

-( O&AUX ADDRESS t 32 » 36112]))! 09408002 

SLEEP([RSLT3ilOMASK)l 09408005 

IF RSLT,t26»73 NEC THEN % AUXM£M ERROR FOR MIX ZERO 09408010 

BEGIN 09408015 

STREAMUi*AI«SPACEC10))) 09408020 

DSI«27LIT"AUXMFM TRANSFER TERMINATED*"! 09408025 

SPOUTCA)! 09408030 

GO TO STOPTRANSFERI 09408035 

END! 09408040 

M(PRTCElU l» (*P(DUP))&AUXADDRESStCTFUU6:47»lJ! X 6:1*AUXMEM 09408100 

AUXWORDS l» AUXWORDS + CODES I ZE t t 38 > 6 3 + 1 1 09408200 

CEILS l* CELLS + II 09408300 

GO TO LOOP! 09408400 

END X IF AUXILIARY SPACE AVAILABLE 09408500 

ELSE GO TO STOPTRANSFER! 09408600 

END! X IF PRTCELL GTR 09408700 

STOPTRANSFERI 09408800 

IF CELLS GTR THEN 09408900 

BEGIN 09409000 

STREAM(CELLS»AUXW0RDS«»(AUXC0DEt0]j*AUXW0RDS)xl6.AJ»A»»SPACE(10))J 09409100 

BEGIN 09409200 

SH»LOC CELLS! DS:*3 DEC! A»*DI* DI«»DI*3! DSl»2 FILL! DI«*AI 09409300 

DSI*37LIT H MCP SEGMENTS TRANSFERRED TO AUXMEM ("I 09409400 

DSl»5DEC> DSI*8LIT" WORDS)*-"! 09409500 

END STREAM! 09409600 

SPOUTU)! 09409700 

END I * IF CELLS GTR 09409800 

F0RGETSPACECFILEPARAM.ICF3)! FORGETSPACECCODEADDRESS)! 09409900 

2ND PROCEDURE TRaNSFERMcPTOAUXMeM; 09410000 

$ SET OMIT » NOT(AUXMEM OR MONITOR) 09410100 

PROCEDURE SETMONITORFILE(STOP)! VALUE STOPl REAL STOPl 09410200 

BEGIN 09410300 

DEFINE 09410400 

SYSMTRFLAG • CTABLE [ 43 , [ 1 1 01 3 * t X 0N» IF MONITORING SYSTEM 09410500 

HDRDISKADRS * CTABLEU3,[18I153#» X DISK ADRS OF SYSTEM/MONITOR HEADER 09410600 

TABLEOFFSET « CTABLEM3 , C 331 153#» X AVAILABLE WQRD IN SYSMTR TABLE 09410700 

MAXROWADRS * CT ABLE [53 , t 021 233#» X MAX DISK ADDRESS FOR THIS ROW 09410800 

ROWADRS n CTABLE 153 , 1 25 1 233#l X CURRENT DISK ADRS FOR THIS SEGMENT 09410900 

REAL I»K»HDR»MAXR0WSiR0wSlZE»ROWSTART»FlLENAME»ROWC0UNTtNEWROWl 09411000 

REAL CELL«I» DESC«K# SIZE*HDR» AREA»MAXROWSl 09411100 

INTEGER MAXSEGJ 09411200 

LABEL GETDISK. FORGETHEADERi FiRSTRECORD* STOPP# EXJTl 094U300 

FILENAMEI» W SYSTEM " 09411310 

t SET OMIT « NOT SHAREDISK OR OMIT 09411319 

&(SYSN0*17)[42l42l6J 09411320 

S POP OMIT 09411321 

1 09411330 

IF STOP THEN GO TO STOPPl X STOP MONITORING AND RELEASE FILE 09411400 

SIZEI*(DESC«»NFLAG(M[CELLI«P(,ENTERSYSMTR)3)).I»I10 3! 09411500 

AREA»»6ETSPACE(SIZE#65*1)*2! X GET SAVE CORE AREA 094U600 

S SET OMIT » NOTCAUXMEM) OR OMJT 09411700 



IF DESC.C6IU THEN % STORED ON AUXMEM 09411710 

DlSKWAlTC-AREA»SlZEt-C0&DESCt32t21»12J)) 09411720 

ELSE 09411730 

$ POP OMIT 09411740 

DlSKWAlT(-AREAfSlZE»DESc,tFF]+MCPBASE)l X GET CODE SEGMENT 09411750 

M[AREA'1J«*CELUSIZE[CTFJ; M[ CELL J I =FLAGCDESC UAREAC CTC J > 09411600 

AREAI*GETSPACE(64.0#1)+2J X SAVE CORE AREA FOR SYSMTR 09411900 

CTABUE[6)l»(*P(DUP))*CAREA*l)[CTFJt(AREA+33)tCTCJ* 09412000 

SYSMTRl«CTABlEt6J t tFFJ» CTABtC C 6] t ( 1 1 4 3 • *8l I USE LOWER CORE AREA 09412100 

M[CTABlEt6J, [FF] JNX 30] I »M[ CT ABLEC 6] » C CF 3 INX 30]I»N0T 0; X MARKERS 09412200 

IF CHDR!»DIRECT0RYSEARCHCFILENAME»"M0NITQR%17>)*0 THEN X NOT THERE 09412300 

BEGIN X BUILD HEADER 09412400 

HDR»«SPACEC30)I M[HDRJI«0; M0VE(29»HDR»HDR+t)J 09412500 

M[HDR3««P000360003600010U X 30 WORD UNBLOCKED RECORDS 09412600 

STREAM(0ATEtH3l*HDR+3)» 09412700 

BEGIN 09412800 

SII»LOC DATEI DSi«80CTJ X CREATION DATE 09412900 

DI»»H3» DS»*2LIT"+#"> X NEW FORMAT* SAVE FACT0R*10 09413000 

SH«H3l SII«SI+5; DSJ«=3CHR; I ACCESS DATE 09413100 

END STREAM! 09413200 

MCHDR*43,t9ini«ll X MARK AS DATA FILE 09413300 

M[HDR*n>*299) MtHDR+83l*300l M[HDR+9 i » *20 I X [20*3003 09413400 

IF (M[HDR*iO3l*PETUSERDlSK(3O0&l[2l47lU»l))«O THEN X NO DISK 09413500 

BEGIN 09413600 

STREAM(FILENAME#HDR)> 09413700 

BEGIN SI»*L0C FILENAME! SlUSJ + ll 09413800 

DSI*16 LIT "NO DISK SPACE FOR "! 09413900 

051*7 CHRI DSt*14 LIT "/MONITOR FILE*"! 09413950 

END STREAM? 09414000 

SPOUTCHOR)! GO TO EXIT; 09414100 

END! X IF NO DISK 09414200 

HDRDISKADRSl«EUF<FILENAME#*MONlTOR%HDR"m 09414400 

R0WADRSl»M[HDRM03l MAXROWADRSl »M[ HDR+10 J+Ml HDR + 8 3M i 09414500 

F0RGETSPACECDIRECT0RYSEARCHCFILENAME»"MQNITQR"*17)); 09414600 

STREAM(riLENAME»Kl«K»*SPACE(4)); 09414700 

BEGIN SII«LOC FILENAMEJ Sl»*SI+U DSlsLlT ","; 09414800 

DSI*7 CHR* DS«»22 L I T "/MONITOR FILE CREATED*"! 09414900 

END STREAMl 09415000 

SPOUTCK)! 09415100 

FIRSTRECORDI 09415200 

MtSYSMTRj|PNOT 0* X END OF FILE MARKER 09415300 

TABLEOFFSETl«M[SYSMTR+lli*Ol MOVE( 28 » SYSMTR+ 1 » SYSMTR+2) I 09415400 

DISKWAIT(SYSMTR»30»R0WADRS}> X WRITE FIRST RECORD 09415500 

SYSMTRFLAG»*U GO TO FORGETHEADERJ 09415600 

ENDJ % IF SYSTEM/MONITOR WAS NOT PRESENT 09415700 

IF (MtHDR INX 03 EQV 00003600036000101) NeQ (NOT 0) THEN 09415800 

BEGIN X SHOULD BE 30 WDS/RECORD * UNBLOCKED 09415900 

STREAM(FILENAME»HDRI»HDR,ICF3)S 09416000 

BEGIN SI»*LOC FILENAMEI Sjl*SH-li DStMO LIT ".IMPROPER "J 09416100 

DSl«7 CHRI DSl*14 LIT "/MONITOR F I L E * " I 09416200 

END STREAMl 09416300 

SP0UT(H0R.CCF3)J GO TO STOPPl 09416400 

ENDI X IF IMPROPER SYSTEM/MONITOR FILE 09416500 

HDRDISKADRSI*HDR,U8»15JJ ROWS I ZEt «M[ HDR INX 83j 09416600 

MAXROWS |* MCHDR INX 93 , C 43 I 5 3 1 09416700 

It»MAXR0WS+9> WHILE MtHDR JNX I 3*0 AND I GTR 9 DO I J* I - lj 09416800 

IF I LSS 10 THEN X NO DISK ADDRESS 09416900 

BEGIN 09417000 

1**101 09417100 

GETDISKl 09417200 



ROWSTARTl*MCHDR JNX I J t «PETUSCRD I SK ( RONS I ZE& 1 C 2 I 47 I 13*1)1 09417300 

IF ROWSTART w THEN % NO DISK 09417400 

BEGIN 09417500 

STREAM(FlUNAME»HDRl*HDR»*HDRtCCn); 09417600 

BEGIN SI«»tOC FILENAME! SH«Sl + ll 09417700 

DSl»18 LIT "NO DISK SPACE FOR "I 09417600 

DS»«7 CHR» DSt*14 LIT "/MONITOR FILE*-"; 09417850 

END STREAM* 09417900 

SPQUTCHDR)! GO TO STOPP; 09418000 

END* X IF NO DISK 09418100 

NEWR0W|«TRUE; * DONT SEARCH FILE IF NEW DISK ROW 09418200 

END ELSE ROWSTARTl*M[HDR INX IJ| 09418300 

STREAMfFlLENAME»Kl*Kl*SPACE(4))J 09418400 

BEGIN SH«LOC FILENAMES SIf»$I + U DS|« LIT ","l 09418500 

DSl»7 CHRI DSl«20 LIT "/MONITOR FILE FOUND*"! 09418600 

END STREAMl 09418700 

SPOUT(K)| 09418800 

R0WcOUNT««I-9> ROWADRSl*ROWSTART» MaXROWADRS I sROWSTART+ROWS I ZE"1 J 09418900 

MAXSEG»*MtHDR INX 7] MOD (ROWCQUNTxROWS I ZE ) 1 % ACTUAL EOF POINTER 09419000 

MCHDR INX 7] 1» ROWCOUNTxROWSlZE -II % ADJUST EOF POINTER 09419100 

DISKWAIT(HDR,tCF3»30#HDRDISKADRS)l * REPLACE HEADER 09419200 

IF NEWROW THEN GO TO FIRSTRECORDI % DONT SEARCH DISK ROW 09419300 

I »* "II 09419400 

DO BEGIN X SEARCH FOR FOF MARKER 09419500 

DISKWAIT(»SYSMTR»30*R0WSTART+(I |el+l))j 09419600 

IF MtSYSMTRJ * NOT THEN % MARKER * EOF 09419700 

BEGIN 09419800 

R0WADRS»*R0WSTART+Il 09419900 

IF ROWADRS ■ MAXROWADRS THEN * FULL ROW 09420000 

BEGIN 09420100 

IF ROWCOUNT * MAXROWS THEN X FULL FILE 09420200 

BEGIN 09420300 

STREAM(FILENAME#HDR|»HDRI»HDR,CCF3)I 09420400 

BEGIN SII*L0C FILENAMEI SIf«SI*ll DSl»LJT ",»j 09420500 

DS|*7 CHRI DS»*19 LIT "/MONITOR FILE FULL*" 09420600 

END STREAMl 09420700 

SPOUTCHDR)! 09420800 

GO TO STOPP; 09420900 

ENDI X IF FULL FILE 09421000 

MtSYSMTR]l»0&62I3l42l6]| % RESTART MARKER 09421100 

MfSYSMTR INX 13 I ■0*63[ 3l42 1 6 3 I % END OF ROW MARKER 09421200 

MtSYSMTR INX 23 t«OI MOVEC 27. SYSMTR+2» SYSMTR+3) I 09421300 

DISKWAIT(SYSMTR.30»R0WADRS)I % WRITE LAST RECORD IN ROW 09421400 

JiaROWCOUNT + 101 GO GETDJSKJ 09421500 

ENDI X IF FULL ROW 09421600 

MtSYSMTR]|*0«62[3»42l63l X RESTART MARKER 09421700 

M[SYSMTR*lJ|wO| M0VEC28#SYSMTR+1«SYSMTR+2)1 09421800 

TABLEOFFSETlwll SYSMTRFLAG ««TRUE I 09421900 

GO TO FORGETHEADERI 09422000 

ENDI % IF MARKER WAS FOUNDI 09422100 

END UNTIL I*R0WSIZE"1 OR I GEO MAXSEGI 09422200 

ROWADRS t" ROWSTARTI X START AT BEGINNING OF ROW IF NO MARKER 09422300 

SYSMTRFLAGI«TRUEI CTABLE t 73 1 »0l X 10 FINISH RESLT DESCH 09422400 

FORGETHEADERI FORGETSPACECHDR INX 0)1 GO TO EXITI 09422500 

STOPPl SYSMTRFLAGI*Ol 09422600 

PESCI«NfLAGCM[CELL|*P(,ENTERSYSMTR)J)I 09422 700 

F0RGETSPACECDE5C INX 0)1 09422800 

MCCELL3l»FLAG(DESC&(*PC,ESPBIT))CCTC3)l 09422900 

FORGETSPACE(CTABLEf63 f tFF3*l)l CTABLEC6 J l«Q| 09423000 

♦ F CM»DIRECT0RYSEARCHCFILFNaME»"M0NIT0R",16MCF:))«0 THEN K|*SPACEC4)1 09423100 



streamcfilfname 

BEGIN SI l*LO 

DSl»7 
END STREAMI 
SP0UT(K)| 
EX1TI 

END PROCEDURE S 
PROCEDURE GETMO 
X CTABLE14J.I01 
X CTABLEta] , t 16 
X CTABLE153»[02 
X CTABLE15],[25 
X CTABLE16],C01 
X CTABU16J,[02 
X CTABUEt63,[03 
X CTABLE[63,[04 
X CTABUEt6J,[16 
X CTABLEt63.[33 
X CTABLEtn 
BEGIN 

REAL RCW**Ol 
REAL I»HDR»M 
LABEL STOPJT 
HDR**SPACEC3 
MtHDR3l»0&63 
MCHDR*1J!»0; 
OISKWAIT(HDR 
DISKWAITCHD 
X SEARCH HEA 
It*(MAXROWSi 
WHILE MCHDR 
IF. I*MAXRQW$ 
BEGIN 
STREAM(Sl 
t SET OMIT * N 

S POP OMIT 



»K)| 

C FILENA 
CHRI DSI 



ETMQNITO 
NlTOROWi 
IOIJwMON 
I15)*DIS 
I23]«MAX 
«23J*DIS 
IOIJsFLA 
»OU*FLA 
IOIJvFLA 
101 JpFLA 
I153BADD 
*15J«ADD 
«RES 



AXR0WSJ 
•EXIT; 
0); 

C 3 J 4216] 
M0VEC28 
»30»CTAB 
Rt 30tCTA 
DER TO F 
»M[MDR J 
INX 1J*0 
♦9 THEN 

■"SYSTEM 
OT SHARE 



ME* SUvSJ + U DS»*LJT ","l 
M6 LIT "/MONITOR RE-SET*"! 



RFILEI 

ITOR FLAG CONt IF MONITORING SYSTEM) 

K ADDRESS OF SYSTEM/MONITOR FILE HEADER 

IMUM DISK ADDRESS FOR CURRENT FILE ROW 

K ADDRESS OF CURRENT SEGMENT IN FILE 

G FOR LOWER CORE AREA (SYSMTR) IN USE 

G FOR UPPER CORE AREA (SYSMTR) IN USE 

G FOR DISK 10 IN PROGRESS 

G FOR MONITOR FILE ROW FULL 

RESS OF LOWER CORE AREA FOR SYSMTR 

RESS OF UPPER CORE AREA FOR SYSMTR 

ULT DESCRIPTOR FROM DISK 10 



\ % END OF FILE ROW MAR 
»HDR*l»HDR+2); X ZERO R 
LEC53 . C25I23J)* X WRITE 
BLE£4J,U8U5J)J X GET 
IND NEXT AVAILABLE SLOT 
NX 93,[43l5])*9> X JNDE 
AND I GTR 9 DO M*I-ll 
% FILE IS FULL 



DISK OR OMIT 

&CSYSN0-H7)C42|42»6] 



KER 

EMAINDER OF RECORD 

LAST SEGMENT 
MONITOR FILE HEADER 

FOR NEW ROW 
X TO LAST SLOT 



BEGIN SI««S| S 

051*7 CH 

END STREAMI 

GO TO STOPIT* 

END* X IF FILE IS 

II«I*1I X INDEX TO N 

IF (MJHDR INX IJIpPe 

BEGIN X NO DISK A 

STREAM(Ste"SYSTEM 

$ SET OMIT » NOT SHARE 

S POP OMIT 

BEGIN SII«LOC 

DS?»7 CH 
END STREAMI 
STOPITI SPOUT(I)! 

SETMONITORFILE(I) 

GO TO EXIT! 

ENDI X IF NO DISK 

CTABLE[SJ,C02i23}««M 

CTABLE[5],C25l23]l»M 



>l i"I J*SPACE(4))| 
II»SI+ll DS»* LIT 
R| DSl*19 LIT "/MONITOR 



• "J 



FILE FULL*"I 



FULL 
EXT AVAILABLE ROW SLOT 
TUSERDISK(M[HDR INX 9]| 
VAILABLE 

n 

DISK OR OMIT 

&(SYSN0+17)[42|42|6J 

»H*It*SPACE<4))| 
SI SI I «S I *1 1 DS»«18 LIT 
R| DSIM3 LIT "/MONITOR 



IN FILE HEADER 



THEN 



"NO DISK 
ROW*"| 



SPACE FOR "| 



* 

OR FULL 
[HDR INX 
CHDR INX 



FILE 

N + MCHDR INX 8 

1)1 % STARTING 



JMI X MAX ROW ADRS 
ROW ADDRESS 



09423200 
09423300 
09423400 
09423500 
09423600 
09423700 
09423800 
09423900 
09424000 
09424100 
09424200 
09424300 
09424400 
09424500 
09424600 
09424700 
09424800 
09424900 
09425000 
09425100 
09425200 
09425300 
09425400 
09425500 
09425600 
09425700 
09425800 
09425900 
09426000 
09426100 
09426200 
09426300 
09426400 
09426500 
09426509 
09426510 
09426511 
09426550 
09426600 
09426700 
09426600 
09426900 
09427000 
09427100 
09427200 
09427300 
09427400 
09427409 
09427410 
09427411 
09427420 
09427500 
09427600 
09427700 
09427800 
09427900 
09426000 
09426100 
09428200 
09428300 



MtHOR INX 7]J*(I-9)xMtHDR INX 83*U X ADJUST EOF POINTER 09428400 

imKHAlT(HDR»30fCTABL.E[«].[18ll5]>» X REPLACE HEADER 09428500 

M[HDR3I«N0T 01 DI SKWA I T( HDR # 30. CTABLE C 5 3 , [ 25 » 233 ) J X EOF MARK 09428600 

EXIT! CTABLEC6],[4ll]|«0l FORGETSPACECHDR) I KILLCIRCW3 INX NOT 2)1 09428700 

END PROCEDURE GETMONiTOROWJ 09428800 

PROCEDURE ENTERSYSMTR(N)) VALUE Nl REAL N) 09428900 

X CTABLEC«],[01I01 J«M0NIT0R FLAG (0N» IF MONITORING SYSTEM) 09429000 

X CTABLEt6),[Onon»FLAG FOR LOWtR CORE AREA IN USE (SYSMTR) 09429100 

X CTABLE[6J,[02I011»FLAG FOR UPPER CORE AREA IN USE (SYSMTR)J 09429200 

X CTABLE[6],r03lOUssFLAG FOR DISK 10 IN PROGRESS 09429300 

X CTABL£[6J»[04i013«»FLAG FOR MONITOR FILE ROW FULL 09429400 

X CTABLEC6],(18il53*ADDRESS OF LOWER CORE AREA FOR SYSMTR 09429500 

X CTABlEt6],[33ll5]*ADDRESS OF UPPER CORE AREA FOR SYSMTR 09429600 

X CTABLEIH *RESULT DESCRIPTOR FOR DISK 10 FINISH 09429700 

BEGIN 09429800 

DEFINE 09429900 

TABLEQFFSET*CTABLEl4J,t33H5Jf»XAVAlLABLE WORD IN SYSMTR TABLE 09430000 

MAXROWADRS *CTABLE [ 53 , 1 02 I 233#» XMAX DISK ADDRESS FOR THIS ROW 09430100 
ROWADRS *CTABLEC5) t [25l23]#;SCURRENT DISK ADDRESS FOR THIS ROW 09430200 

REAL I»SY$ADRSJ 09430300 

LABEL EXIT* 09430400 

IF NOT (CTABLEC43,[Oll01J) THEN GO TO EXIT* X MONITOR FLAG IS OFF 09430500 

IF CTABL£[6J,(3I1J THEN X DISK 10 WAS IN PROGRESS 09430600 

IF CTABLEC73 l C19tn THEN X 10 COMPLETED 09430700 

CTABLFt63,C3jnt^CTABLEt73l»0; X RESET FLAG ANQ ZERO DESCi 09430600 

IF TABLEOFFSET GTR 28 THEN X TABLE IS FULL 09430900 

IF CTABLE[63,I3«2) NEQ THEN GO EMTJ X CANT SAVE THIS ONE 09431000 

MtSYSMTR INX TABLEOFFSET 3 I «NJ X STORE VALUE IN TABLE 09431100 

TABLEOFFSET lnTABLEQFFSEUl I 09431200 

IF TABLEOFFSET GTR 29 THEN X FULL TABLE 09431300 

BEGIN 09431400 

SYSADRS«*SYSMTR» X SAVE ADDRESS FOR DISK J0t SWAP CORE AREAS 09431500 

IF CTABLEC6J,U»13 THEN X USING LOWER CORE AREA 09431600 

BEGIN 09431700 

SYSMTRl»CTABLEt61,[33U53J X USE UPPER CORE AREA NEXT 09431600 

CTABLEC6 J v [l|3]f«3l * MARK DISK 10 IN PROGRESS 09431900 

E N 09432000 

Ek&E 09432100 

BEGIN X USING UPPER CORE AREA 09432200 

SYSMTR|*CTABLEC63.U8I153> X USE LOWER CORE AREA 09432300 

CTABLE(6Mll3)f»5! * MARK DISK 10 IN PROGRESS 09432400 

END; 09432500 

TABLE0FFSETt*M[SYSMTR3««0J MOVEC 29» SYSMTR. SYSMTR+1 ) ; 09432600 

DJSKlO(CTABLEt73»(SYSADRS-l)#31»ROWADRS)> X WRITE OUT SEGMENT 09432700 

R0WADRSI«R0WADRS+1I 09432800 

IF R0WADRS«MAXR0WADR5 THEN X FULL ROW 09432900 

BEGIN 09433000 

CTABLE[63,t4il J|»D X FLAG FOR OBTAINING NEW ROW 09433100 

F0RK(P(,GETM0NlT0R0W)»0»0»128ii); 09433200 

ENDI 09433300 

ENDI X IF FULL TABLE 09433400 

EXITI END PROCEDURE ENTERSYSMTRI 09433500 

$ POP OMIT 09433510 

PROCEDURE CHANGEAUXFILES(BUFF»WA)» 09433600 

VALUE BUFFiWAI REAL BUFF»WAJ 09433700 

BEGJN 09433800 

LABEL WAD0»CAFINI#WAFINI»INTCK.NULL1T»ERR0R1»ERR0R2; 09433900 

REAL A»I»U#KJ 09434000 

REAL X 09434020 

I SET OMIT s SHAREDISK OR OMIT 09434030 



* J 09434040 

t POP OMIT 09434050 

I 09434060 

BOOLEAN SUBROUTINE FILEOKJ 09434100 

BEGIN PU)J 09434200 

IF P(DIRECT0RYSEARCH(NABSCM[I+(Kx2))),M[I+(Kx2)+l J,5))»0 THEN 09434300 

BEGIN 09434400 

P(OEL»0)l 09434500 

STREAM(AJ*[MU+CKx2)]]iK,B»«K|*5PACEC5>)J 09434600 

BEGIN 09434700 

Sll*AJ DSl*14 LIT" NO AUXMEM INT*; 09434800 

K(DH»DI-3I DS«*3 LIT M MCP M ); DSl«6 LIT" PILE"! 09434900 

2(Siiasi + n dsib7 chr; dsjwlitv")) dh«=dim; 09435000 

DS»*LIT"*"; 09435100 

END; 09435200 

SPOUTCK); 09435300 

END; 09435400 

FILEOKl»P; 09435500 

ENDI 09435600 

if wa then go wado; 09435700 

stream(auxjnti*0#auxmcp!*0»nulli*0,ok|«0#errtogi*q» 09435800 

All*P3145634423474642»A2i« M NULL w »Bt*0» 09435900 

CX|*0»BUFF*DI"0«EI«0*F|*0( 1 I * 1 »*SPACEC4)); 094 36000 

BEGIN 09436100 

4(DSt5LlT w M ; DS»*7 LIT" M ); SH*BUFF; Dl=CIJ GO TO LU 09436200 

L0» IF SC« M H THEN BEGIN SH*Sl + ll GO LO END; CH»CX> 09436300 

Lit CX I «C 1 1 GO TO LO) TALLYI*i; 09436400 

DII*LOC Ai; DH»Dl + 6J 09436500 

IF 2 SC*DC THEN % FILES OK 09436600 

BEGIN 0K|*TALLY1 GO TO El END; 09436700 

DII«DI*lf SI l*S I-2I 09436800 

IF 4 SC»DC THEN * NULL FILES 09436900 

BEGIN NULL|»TALLYJ GO TO El END; 09437000 

EI«CI; Slt«SI*4f 09437100 

L2< CX|«Ci; GO TO LO; 09437200 

DII s LOC A 1 ; TALLYl»l; 09437300 

IF 3 SC^DC THEN 09437400 

BEGIN 09437500 

auxinti^tally; tallyi»o; 09437600 

di»»di+3; go to l3; 09437700 

END; Sll»SI-3; 09437800 

IF 3 SC«DC THEN 09437900 

BEGIN 09438000 

AUXMCPI«TALLYJ GO TO L3; 09438100 

END; GO TO E2j 09438200 

El 1 GO TO E3; 09438300 

L3l BIpTALLY; 09438400 

CXjbCI; GO TO LO; 09438500 

IF 2 SC*DC THEN 09438600 

BEGIN 09438700 

TALLYUO; FlwTALLY; 09438800 

NLl DM»L0C AUXINT; B(DH»DI+B); SKIP DB; 09438900 

F(SKJP DB); DSi»SET; CX f «CI f GO TO LO; 09439000 

IF SO w »" THEN BEGIN SH«SUH GO TO L2 END ELSE 09439100 

IK SC«"*" THEN GO TO E3 ELSE GO TO E4; 09439200 

E2l GO TO E4; 09439300 

E3» GO TO E5; 09439400 

END; SI»*SI-2; DU"DI*1I 09439500 

IF 4SC*DC THEN 09439600 

BEGIN TALLYl*lJ F« S TALLY; GO NL END; 09439700 



SH»SI««I IF SC# M «" THEN GO 70 E2; 09439800 

sn»si*i; cxibcd cu»d; qu*u 09439900 

BC2(DII*DI*8))I D I l *D I + 1 1 BI*DU IF SC*ALPHA THEN 09440000 

ec if sc»v w then else if sc*" " then; if toggle then 09440100 

JUMP OUT TO L4I IF SOALPHA THEN DSlsCHR ELSE JUMP 09440200 

OUT)! 09440300 

E<U GO TO ERNJ 09440400 

E5f GO TO EXT* 09440500 

L<H CXl«Cll CH*DI IF SC*"/"* THEN GO TO ERR; 09440600 

S!l"SI+lJ CXl»CII CI l wo; 09440700 

OH«BI PJl*D!+6| IF Sg*ALPHA THEN 09440800 

7(IF SC=ALPHA THEN BEGIN DS**CHRJ GO L5 END! IF SC*"," 09440900 

THEN ELSE IF SC<=" M THEN ELSE IF SO"* w THEN; IF TOGGLE 09441000 

THEN JUMP OUT ELSE JUMP OUT TO eRR* L5»); CXlsCP CI»«DJ 09441100 

if sc» w * w Then go to exti if sc"." then begin sh*si + i; 09441200 

CI !*E END* 09441300 

ERRI TALLY|»U ERRTOGisTALLY! 09441400 

EXT | END; 09441500 

IE P THEN BEGIN FORGfTSPACE ( I ) f GO TO E.RR0R2 END; 09441600 

WADOt 09441650 

DISKWAITC(X$»SPACE(30))»30 09441700 

* SET OMIT * NOT SHAREDISK OR OMIT 09441720 

&(N0T WAH1I47JU 09441725 

$ POP OMIT 09441730 

»AUXMEMDSK); 09441750 

S SET OMIT 9 NOT SHAREDISK OR OMIT 09441790 

Jl*4xSYSN0+X; 09441600 

S POP OMIT 09441810 

IF WA THEN 09441900 

BEGIN Al^CMtX+U + SYSNOJ EQV "AUXMLM ") * NOT 0; 09441910 

GO TO WAFINU 09441920 

END; 09441930 

IF P THEN I! OK ALL FILES 09442000 

BEGIN 09442100 

M[JJ|BABS(*P(DUP)); 09442200 

GO CAFINI; 09442300 

ENDI 09442400 

IF P THEN GO NULLIT; % NULL ALL FILES 09442500 

IF P(DUP)*0 THEN % MCP FILE UPDATE 09442600 

BEGIN 09442700 

IF P(DUP)<0 THEN 09442800 

BEGIN 09442900 

M[J3 »«ABSC*P(DUP)); PCDEL); 09443000 

GO TO INTCK; 09443100 

END; 09443200 

IF P.I2IU THEN % MAKE MCP FILE NULL 09443300 

BEGIN M(J]I»M[J*1)I«0J GO TO CAFINI END; 09443400 

Kiwi; IF F1LE0K THEN 09443500 

BEGIN 09443600 

M[JJf»MU+2Jj 09443700 

M[J+13l*M[ 1*33; 09443800 

END ELSE 09443900 

IF CTABLCC4J tC2l 13 THEN GO TO ERRORi; 09444000 

END ELSE IF CTABLEt 4 3 , [ 2 > 1 3 THEN 09444100 

GO TO ERRORI ELSE P(DFL); 09444200 

INTCKl 09444300 

IF P(DUP)#0 THEN % INT FILE UPDATE 09444400 

BEGIN 09444500 

IF PCDUPXO THEN GO TO CAFINI; 09444600 

IF P,[2IU THFN % MAKE INT FILE NULL 09444700 



BEGIN M[J + 
KleOl IF F 
BEGIN 

MtJ + 2 

MtJ + 3 

END ELSE 

IF CTABLEt 

END ELSE IF CTA 

GO TO ERROR1 EL 

CAFINII 

IF M[X+16+SYSN0 

BEGIN 

NULLITJ IF (M[ I ] 

IF (M[I+2J 

MtX+16+SYS 

ENDI 

FORGETSPACEU)? 
DISKWAIT(X»-30» 

CTABLEUJ»*(*P( 
WAF I N I I 

STREAM(A»NULLMC 

Tl*BUFF, 

BEGIN DS«M7 LI 

AC DS 1*1 4 L 

SI »*FILEID 

ASbDIJ DSt 

NULLMCPCDI 

A »"DI J SII 

D5lw7 CHR* 

LAI DSi*LIT m * h 

ENDI 

ERRORll 

FORGETSPACE(X); 
ERRQR2I 
END CHANGING AUXMEM 

$ POP OMIT 
PROCEDURE WHATINTRNS 
PROCEDURE INTRINSIC! 
BEGIN 

REAL DISKADDR«+lt 

$ SET OMIT « NQTCAU 

REAL HDR*MAXINT*1 

!NTNUM*cODE+ 

INTC0UNT*AUX 

MFID*INTC0UN 

ARRAY HEADER*T17S 

LABEL LOOPtAUXTRA 

P(0» Of 0* Oi 0# 0* 

I POP OMIT 
P(Ot 0» 0» 0» 0)J 

IF CT|»FH.£FF])»0 
DISKWAITC-T* 30t 
MAXINT l« M[T) ♦ 
T17SIZE l» MIT IN 
FORGETSPACE(T)J 
INTRNSC«"[M[INTL0 
(MAXINT+T17SIZE 
DISKWAITC-dNTRNS 
M[INTRNSC INX NOT 
FOR T l« 1 STEP 1 



23 »*Mt J+3J 1=0? 
ILEOK THEN 

Jl»M[I]l 
Jl»M[I+lJ? 



«].t3lM THEN GO TO 
BLE[4],[3ll3 THEN 
SE PCDEDI 



GO TO CAFINI END; 



ERRORll 



J * "AUXMEM 



THEN 



EQV 
EQV 
NOJt*"AUXMEM 



ti 



") 

"i 



sNOT 
= NOT 



AUXMEMDSK)> 

DUP)) «, PCDUP3C4I2I1 J 



THEN Mt J+2J»»M[J+3j!*0l 
THEN MCJ)l"M[J+ll t«OI 



& 0[ 2S 2 I 23 ; 



Pl»MtJ3«0» NULLINT»*M(J + 2JbO» F I LE IDS I * [ M[ J3 3 » 

C15ll5]-l)J 

T" AUXMEM FILES ARE"? 

IT" NOT SPECIFIED"? JUMP OUT TO LA)? 

S; SH*SI*1I DS»*6 LIT H -MCPl "I 

97 CHRI DSi*LlT"/"l $H«SJ*l? DSl*7 CHR? 

IsAl DSIM LIT"NULL")I DSl«7LlT"t iNTl H { 

•SI+1J DS|*7 CHR? DSMLlTV"! SH*S1 + 1? 

NULLINTCDH-AJ DS t»A LIT"NULL")I 
I 



FILFSI 

IC(B)f VALUE BJ REAL B? FORWARD? 
ABLFBUILDERCFH)? VALUE FH; REAL FH1 

T«*2t!NTLQC»+3»Tl7SlZE*+4»MAXINT«+5; 
XMEM) 

# filfparam«hdr+i» code»f ileparam*i» 
1# auxaddr*intnum+i, AUXWORDSsAUXADDR+1. 
words+i»a«diskaddr» codesize*t. 
ui» fid»mfid+i# rslt*fid+ii 

IZEt*ll 
N.ENDLOOP! 
0» 0# 0* 0)1 



THEN Tl«SPACE(30)l 
DISKADDR»»M[FH INX 103)1 

II X NUMBER OF INTRINSJCS 
X 17], [81103*11 % INTR.I17 



+ 1 
SIZE+1W0.FOR 



D1SK.AD0R, 



CI»GETSPACE(MAX1NT*TJ7SIZE»0»U + 2]J* 

H8I38U03I % SPACE FOR INTRINSIC TABLE ♦ INT,#17 

C INX 0)fMAXINTfDlSKADDR)l 

0) l« 01 MAXINT »» MAXINT -1? 

UNTIL MAXINT DO 



09444800 
09444900 
09445000 
09445100 
09445200 
09445300 
09445400 
09445500 
09445600 
09445700 
09445800 
09445900 
09446000 
09446100 
09446200 
09446300 
09446400 
09446500 
09446550 
09446600 
09446700 
09446600 
09446900 
09447000 
09447100 
09447200 
09447300 
09447400 
09447500 
09447550 
09447600 
09447700 
09447800 
09447900 
09448000 
09448001 
09491000 
09500000 
09500500 
09501000 
09501500 
09502000 
09502500 
09503000 
09503100 
09503500 
09504000 
09504500 
09504501 
09504570 
09505000 
09505500 
09505600 
09505700 
09505750 
09506000 
09506100 
09506500 
09507000 
09507500 



INTRNSCtT3l*NABSC(PC*PCDUP)»DUP),[8« 1 

CP(XCH) INX + DISKADDR}[6t21»273 

0ISKWAITC-(INTL0C«*INTL0C+MAXINT*2)»CT17 

INTRNSCC173 l« (*P(DUP))UNTL0C[CTC3| X 

M(lNTLOC-l3l*0&(T17S!ZE-l)tCTF3» X DUMMY 

DlSKADDRl"0UC«i*7»in 
INTRNSC[2)I**PCDUP) OR PISKADDR) 
FOR T 1*18 STEP 1 UNTIL 20 DO iNTRNSCCUl 
S SET OMIT * NOTCAUXMEM) 
CTABLEC9] I* MCFH INX 10 J I 
IF CP(RRR). [30111 AND USEDRB) OR (P(RRR) 
BEGIN 

DISKWAIT(-(TI=SPACE(30))»30#AUXMEMDSK); 
IF M[T*SYSNO+163*"AUXMEM " THEN 
r r r i n 

MFIDl»M[T*CSYSN0x4)*23l F I D I *M[ T*C SYSNOx 
FORGETSPACE(T)! 
IF MFID#0 THEN 

IF <HDR»«DIRECT0RYSEARCHCMFID»FID»4))*0 
BEGIN 

HEADER »* I0QUE & HDRCCTC3* 
FItEPARAM |* -SPACF(30)1 X SI 

CODE »* SPACEC1024)! 
INTCOUNT I* DISKADDR I * 01 
LOOP! IF CINTNUM|»NEXTAUXMEMWORD(HEADER»FIL 
BEGIN 

IF INTNUM GTR MaXINT OR INTNUM LSS 
BEGIN 

STREAMCINTNUM»Tl«Tl«SPACEUO)); 
BEGIN 

DS»«23LIT"INVAL10 INT-AUX NU 
SI I *LOC INTNUMJ DSf«6DEC; OS 
DJI»D1-9| DSt«7FILLl 
END STREAM! 
SPOUTCT); GO TO LOOPl 
ENDI X IF BAD INTRINSIC NUMBER 
IF INTRNSCt INTNUM], [3»13 OR INTNUM 
C0DES1ZE I* INTRNSCC I NTNUM3 . C CF 3 1 
IF (AUXADDRi»AUXlLIARYSPACE(CODESl 
BEGIN 

DISKWAIT(-CODEtCODESUE»INTRNSC 
M[CODE-ni»0«cODESlZECCTF]; 
DlSKlO(RSUT»CODE-l»tCODESIZE&U 
•<0UUXADDR[32I36!12J))1 
SUEEP(tRSLT3#I0MASK)» 
IF RSLT,C26l73 NEO THEN X AUX 
BEGIN 
STREAM(Tl*Tl«SPACE(10))l 

DSl»27LIT"AUXMEM TRANSFER 
SPOUTCT)! 
GO TO ENDLOOPI 
ENDI 
INTRNSCHNTNUM3 l» X [3»13 INDI 
<*P(DUP))l0t5l35ll3HC0DESIZECC 
AUX WORDS I « AUX WORDS^CODE SIZE ,138 
GO TO LOOP! 

ENDJ X IF SPACE AVAILABLE 
ENDI X IF ANOTHER INTRINSIC SPECI 
ENDLOQPl 

IF INTCOUNT GTR THEN 



03+INTSIZE) & 
)J 

SIZE*l)»INTRNSCC173.C6l27J)l 
MARK PRESENT 
MARKER FOR DUMP/ANALYZE 



»*P(DUP) OR DISKADDR? 



,[31?1J AND USEDRA) THEN 



4)+33J 

THEN 

GN BIT INDICATES INTRINSJCS 

EPARAM»DISKADDR))>0 THEN 
1 THEN 



MBER>"» 



*\7 THEN GO TO LOOPI 
ZE>) GTR THEN 
[JNTNUM3,C6l27])| 
3I47I1J), 

MEM ERROR FOR MIX ZERO 

TERMINATED*"! 



CATES AUXMEM 

TCJ*AUXADDR[CTFH1[ 31471 131 
163+11 INTC0UNT»BINTC0UNT*1I 



FIED 



09508000 
09508500 
09508600 
09508700 
09508800 
09509000 
09509500 
09510000 
09510500 
09510505 
09511000 
09511100 
09511200 
09511300 
09511400 
09511500 
09511600 
09511650 
09511700 
09512000 
09512500 
09513000 
09513500 
09514000 
09514500 
09515000 
09515500 
09516000 
09516500 
09517000 
09517500 
09518000 
09518500 
09519000 
09519500 
09520000 
09520500 
09521000 
09521500 
09522000 
09522500 
09523000 
09523500 
09523502 
09523505 
09523510 
09523515 
09523520 
09523525 
09523530 
09523535 
09523540 
09524000 
09524500 
09525000 
09525500 
09526000 
09526500 
09526510 
09527000 



BEGIN 

$TREAMCINTCOUNT»WORDSI*AUXWORDSX16»A|*AI*SPACE(1Q))J 
BEGIN 

SimUOC INTCOUNT; D$»«8DEC1 DI 1*01 -ei DSI*7FILL) 
SI»*A) D1»«A) 8(IF SC* h " THEN SI|»SI+1 ELSE DS|*CHR)) 
DSI*29LIT" INTRINSICS MOVED TO AUXM^M ("J 
SH*LOC WORDS) DSlebDECI DSs *6LIT W WORDS)*") 

end stream? 
spoutca)! auxcoderoj»»c*p(dup)>*auxwor0s; 
end) % if intrinsics moved to auxmfm 
forgetspacecfiueParam)? 

FORGETSPACECCODE); 

HEADERUNL0CK(MFID»FID»HDR); 

END ELSE tBMESS(MFID»FID*15#0»0t0,l)J 



* FILE NOT ON DISK 



% auxmemdsk NOT 

AND TO BE USED 



INITIALIZED 



SIl*S!+l)l 



END ELSE FORGETSPACE(T)! 
END) * IF AUXMEM ON LINE 
* POP OMIT 

INTSIZEI'CINTRNSCCOJ + 3 ) 01 V 41 
S SET OMIT • NOTCPACKETS) 

TI»SPACEC15)J WHATJNTRNSICCT); 

STREAMCSlssTtDl"^)! 

BEGIN 

SIt*S) DII»DI+4| % CMBIT IN M[3)itlll] 

63C IF SC*", M THEN JUMP OUT? SII«Sl+l)i Sl*Sl) 

4(SH«S!*U IF SC*" t " THEN JUMP OUT)l 
IF TOGGLE THEN ELSE SJl«S> SII*SI+i; 
3CIF SC<"0" THEN JUMP OUT) TALLY I *TALLY+1 » 
SMTALLY) Slf«Sl*SJ DI»*DI-S) DS»"S CHR) 

END) 

FORGETSPACE(T)! 
S POP OMIT 

END INTRINSIC TABLE BUILDERI 
BOOLEAN PROCEDURE SYSTEMF I LE ( A»B )) VALUE A»B) REAL A»B) FORWARD! 

PROCEDURE CHANGEINTRINSICFILECBUFF)! VALUE BUFF* REAL BUFFJX 
BEGIN 

REAL A»8»I»J»K»L»FH#TtIT) 

REAL SIZE*I»DISKADDR«T»LOC*IT»WJsJJ 

LABEL EXIT»WITH0UT»NGI 

BOOLEAN SUBROUTINE NULLMJXJX 

BEGIN POLISHCUIX 

IF INTSIZE'O THEN BEGIN INTSJZE * Of X 
FOR 1*1 STEP 1 UNTIL MIXMaX DOX 
IF JARROWtn^O THEN* 

IF (JARROWUJ JNX 0)JFENCE THEN GO NG ELSE 
IF NOT(JARtI»9J,tlll3) THEN % NOT "SYSTEM" JOB 
NG» BEGIN P(DEL»0)) I^MjXMAX END) 

IF NOT P(DUP) THEN INTSUE * C I NTRNSC t 03+3) DI V 41X 
END)* 

NULLMJX * POLISH)* 
END NULLMIXJX 
SUBROUTINE FORGETEMj* 
BEGIN WAITSTORE(O)) STOREDY[OJ*0) 
WHILE (K * M[LJ)»[CF)*0 DO* 
BEGIN IF K>0 THEN* 

IF K,C3fl2]»*700 THEN* 

FORGETSPACECL+2))* 
L * K,[CFJ)X 
END)* 

ST0REDY[Q3*1) 
$ SET OMIT 9 NOT(AUXMEM) 



09527500 
09528000 
09528500 
09529000 
09529500 
09530000 
09530500 
09531000 
09531500 
09532000 
09532500 
09533000 
09533500 
0953*000 
09534100 
09534200 
09534201 
09534500 
09534999 
09535000 
09535100 
09535200 
09535300 
09535400 
09535500 
09535600 
09535700 
09535800 
09535900 
09536000 
09536001 
09537000 
09550000 
09600000 
09601000 
09602000 
09602100 
09602200 
09603000 
09604000 
09605000 
09606000 
09607000 
09607100 
09608000 
09611000 
09612000 
09613000 
09614000 
09615000 
09616000 
09617000 
09618000 
09619000 
09620000 
09621000 
09622000 
09623000 
09624000 
09624010 



FOR 1181 SUP 1 UNTIL INTRNSCC03 DO IF I NTRNSC C U . t 3 1 11 THEN 09624020 

BEGIN * INTRINSIC ON AUXMEM 09624030 

F0RGETAUXILIARYSPACEUNTRNSCU3,[CF3»INTRNSCCI3,[FF3)I 09624040 

AUXCODEtO)lp(*PCOUP))-(INTRN5CtI J t CCF3) t [38l6J-ll 09624050 

ENDI 09624060 

S POP OMIT 09624061 

F0RGETSPACE( INTRNSC INX 0); INTRNSC*0 09624100 

END FQRGETEMjX 09625000 

DEFINE ERROR m GO TO EXI T#J* 09626000 

09627000 

09629000 

SLEEPCITOGLEJt FREEMASK); INTFREE * FALSEJ* 09630000 

T * BUFF!* 09631000 

NAMEID(A»T)I NAMEID(B»T); NAME ID( B. T ) I % 09632000 

IF (FHt»DlRECTORYSEARCH(A#Bf 17))»0 THEN ERROR; 09633000 

IF (J*MCFH44i t t36l6])/0 THEN 09633100 

IF J#DCINTYPE AND J#TSSlNTYPE THEN 09633200 

BEGIN X DONT ALLOW CI ON KNOfcN NON- 1 NTH I NSJ CS FILE 09633300 

STREAM(A#B»NTl»eBUFF t U5ll5j-n; 096 3 3400 

BEGIN DS!*2LIT"# "I SIt«LOC A! 09633500 

SIt»SI+ll DSl*7CHR! DSl*LIT"/"l 09633600 

S I I "SI ♦ 1 1 DSl*7 CHRI 09633700 

DSl*24 LIT" NOT AN INTRINSICS FILE*"* 09633800 

ENDI 09633900 

FORGETSPACECFH)! 09634000 

FORGET SPACECDIRECTORYSEARCH(A#Bi 16))! 09634100 

ERROR; 09634200 

ENDI 09634300 

IF NOT NULLMIX THEN CQMPLEXSLEEPC NULLM I X ) I 09635000 

IF INTRNSC*0 THEN FORGETEMI 09636000 

$ SET OMIT s SHAREDISK 09636999 

IF MCPFREE^O THEN SLEEPCCT0GLE3»MCPMASK)J 09637000 

LOCKTOG(MCPMASK)! 09638000 

S POP OMIT 0963800$ 

Tl*SPACE£30)l 09639000 

DISKWAlTC*Ti-30»0)l 09640000 

I »sT+13+5xSYSN0l 09641000 

IF C IT»*DIRECT0RYSEARCH(M[ I1»M[ I + 1J»16))J«0 THEN 09642000 

FORGETSPACEC IT)I 09643000 

MtI]«»AI 09644000 

MtI*Ul»BI 09645000 

DISKWAIT(T»*30»0)I 09646000 

$ SET OMIT « SHAREDISK 09646999 

UNLOCKTOG(MCPMASK)! 09647000 

I POP OMIT 09647001 

S SET OMIT ■ NOTCAUXMEM) 09647999 

DISKWAIT(-T»30tAUXMEMDSK)| IF C PC RRR ) , [ 30l 13 AND 09648000 

USEDRB) OR CPCRRR),[31»13 AND USEDRA) THEN 09648100 

IF MtT+SYSNO+l63* M AUXMEM " THEN IF M[ T+ ( SYSN0x4 )+2 J #0 THEN 09648200 

BEGIN 09646300 

STREAMU l«It«5PACE(2))J DSI«14 LIT"CA JNT PLEASE*"! 09648400 

SP0UT(1)I CTABLEt4J,t3«n»»ll 09648500 

COMPLEXSLEEPCNOT CTABLE t 4 J , [ 3 II 3 ) I 09648600 

ENDI 09648700 

I POP OMIT 09648701 

FORGETSPACE(T)! 09648800 

i 09650000 

INTRINSICTABLEBUILDER£FH.tCF3)l 09657000 

FORGETSPACECFH)! 09658000 

WHATINTRNSICCBUFF,tl5ll5J)l 09659000 



STREAMCB«*BUFF,ti5J15]-l)l DS»*6 LIT" NEW "J 09670000 

EXIT! SP0UTCBUFF,tl5«15J-l)J* 09676000 

INTFREE * TRUEJ* 09677000 

END CHANGING INTRINSIC FILES ON USER DISK WITH MANY PRECAUTIONS!! 09679000 

PROCEDURE CHANGEMCP(BUFF>J VALUE BUFFI REAL BUFF J 09679100 

BEGIN 09679200 

REAL RCW« + 0,A«RCW+1,B«A + 1»T*B+1»Z = U1,BASE«=Z + U 09679300 

LABEL EXIT? 09679400 

P(0.0.0»0tO}| 09679600 

TI*BUFF» 09679800 

NAMEID(AiT)! NAMEID(B»T)I NaMeiDCBiT)? 09679900 

S SET OMIT s SHAREDISK 09679999 

IF MCPFREE*0 THEN SLEEP([TQgIEJ#McPMASK)| 09680000 

LOCKTOG(MCPMASK)! 09680100 

$ POP OMIT 09680101 

Z»*SPACEC30)i 09680200 

DISKWAIT(-Z»-30»0)J 09680300 

BASEl*ZM0 + 5xSYSN0l 09680400 

IF (A EQV M[BASE3)^N0T OR 09680500 

<B FQV MtBASE*U)*NOT THEN 09680600 

BEGIN 09660700 

IF (TI*DIRECTQRYSEARCH(A»B»17))»0 THEN 09680800 

BEGINJ 09680900 

STREAM(A**UJ»Tl*BUFF.[l5t 15 3-1 V 09681000 

BEGIN DS 1 = 1 3 LIT M #N0 MCP FILE M ; SI I *A ; S I J «S I + 1 > 09681100 

DSl*7 CHR»DSl»LlT"/"jS!i«SI*llDSH"7 CHRJ 09681200 

DS*LIT W * ,, > 09681250 

END* 09681300 

GO TO EXIT* 09681400 

ENDJ 09681500 

IF (NT1*M[T*4J,[36I6])#0 THEN IF NT1*MCPTYPE THEN 09681505 

BEGIN * DONT ALLOW CM ON KNOWN NQN-MCP FILE 09681510 

STREAM(Alw[A]»Tt«BUFF.U5» 15J-1)? 09681515 

BEGIN DS»*2UT"# "1 SI»*A* SllvSI + H 09681520 

DSl«7CHR; D51«LITV"J SJI*SI+1J 09681525 

DSl»7CHRJ DSJ*12LIT M NOT AN MCP- M f 09681530 

END! 09681535 

FORGETSPACECT); 09681540 

FORGETSPACE(DIRECT0RYSEARCH(A»B.16))l 09661545 

GO TO EXITI 09681550 

END! 09681555 

IF M[BASE*2]*2*MCPBASE THEN 09681600 

F0RGETSPACE(DIRECTORYSEARCH(MCBASE3»MlBASE+n.l6))l 09681650 

MtBASE3«"AJ 09681700 

HCBASE>Ul*>Bl 09681800 

Mt8ASE+23»»MtT*101» 09681900 

$ SET OMIT * NOT(AUXMEM) 09681909 

DISKWAITC-(T|*T INX 0) # -30, AUXMEMDSK ) I 09681910 

M[T+(SYSN0*4)] JsNABSC*P(DUP))! * NOTE MCP CHANGE 09681920 

DISKWAJTC T»-30iAUXMEMDSK)J 0968J930 

S POP OMIT ' 09681931 

FORGETSPACECT)| 09682000 

ENOl 09682100 

STREAMCAl»tA)»Tl*BUFF|t 151 153*1 )| 09682200 

BEGIN DS|«18 LIT " NEXT MCP WILL BE W J S I I *A» S II *S I + 1 ; 09682300 

DS»*7 CHRlD5l*LIT"/ w jSH*SI + UDM»7 CHRJ 0968240S 

DS*LIT"* W I 09682450 

ENDJ 09682500 

Mf33*NABSC*PCDUP))f % SET FLAG FOR WM 09682550 

EXIT! 09682600 



DlSKWA!T(Z#-30»0); 

* SET OMIT ■ SHAREDISK 

UNLOCKTOG(MCPMASK); 
S POP OMIT 

FORGETSPACE(Z)! 
SP0UT(8UrF,tl5ll5]-l)J 
BUFF»*0> 
END CHANGING OF THE MCP; 

BOOLEAN PROCEDURE SYSTEMFILE ( A. B ) J VALUE A»Bf REAL AtBJX 
BEGIN LABEL DI SK .LOG* TRUTH. IR. SYS» REMt DECK. MASK. TEST ; 

LABEL DMPI 

LABEL SCHED»FILJ 

LABEL MAINT* 

* SET OMIT * NOTCSTATISTICS) 
LABEL STATS; 

t POP OMIT 

DEFINE T*PCTRUTH)#lX 

IF (B EQV P(DISK))-T THEN* 

P(((A EQV PCDIR))*T) OR 
((A EQV P(DMP))*T) OR 

C(A EQV PCLOG))*T)) 
ELSE IF CB EQV PCLOG))»T THEN* 

P(((A EQV PCSYS))*T) X 



S SET OMIT ■ 



S POP OMIT 



SHAREDISK 

OR ((A EQV 
OR ((A EQV 



$ SET 



S POP 



t SET 



OMIT * 
ELSE 



PCMAINT))=T)X 
P<REM))*m 

)* 



NOT(SHAREDISK) 
IF CB EQV P(LOG) 
P((CA EQV 
OR (CA EQV 



OMIT 
ELSE 

OMIT a 
ELSE 



& CSYSN0+17H24t42l6J)»T 
P(MAINT))»T) X 
PCREM))»T))X 



THEN* 



IF (A EQV P(DECK))»T THEN* 

P(((B AND P(MASK)) EQV PCTEST))sT)X 

NOTCSTATISTICS) 

IF CB EQV PCSTATS))* T THEN* 

PCCA EQV PCSYSTEM " 

NOTCSHAREDISK) OR OMIT 

&CSYSN0 + 17H42l42i6J 



$ SET OMIT * 

S POP OMIT 

))*T) 

$ POP OMIT 

ELSE IF CB EQV PCSCHED))*T THEN 
PC CCA, [61 16]) EQV PC FIL ))«!)! 
PCRTN)I« 



DISK 
LOG 
TRUTH! » 






DIR 

SYS 

REM 

DECK 

MASK 

TEST 

DMP 

MAINTII 

SCHEDlt 

FILf If 



I i 
I s 

I i 
f t 

I I 
I i 
» t 



"JX 

")X 



"DISK 
"LOG 

*3777777777777777l% 
"DIRCTRY";X 
"SYSTEM "jX 
"REMOTE "jX 
"DECK "j* 
P77000000007777JX 
P12000000003714;X 
"DMPAREA")X 
"MAINT ")X 
"SCHEDUL"lX 
"OOOOFIL"! 



$ SET OMIT a NOTCSTATISTICS) 



09682610 
09682619 
09682620 
09682621 
09682700 
09682600 
09683000 
09683100 

09700000 

09701000 
09701500 
097015)10 
09701550 
09/01599 
09701600 
09701601 
09702000 
09703000 
09704000 
09704500 
09704550 
09705000 
09706000 
09706049 
09706050 
09706100 
09706101 
09706150 
09706199 
09706200 
09706300 
09706400 
09706401 
09707000 
09708000 
09708099 
09708100 
09708200 
09708299 
09708300 
09708301 
09708400 
09708401 
09709000 
09709100 
09710000 
09711000 
09712000 
09713000 
09715000 
09716000 
09717000 
09718000 
09719000 
09720000 
09720500 
09720650 
09720700 

09720750 
09720799 



STATSlU "STATS " ; S 09720600 

* POP OMIT 09720801 

ENDI* 09721000 
PROCEDURE! WHATSGOINGON(BUFH)) VALUE BUFHI REAL BUFHl *DSX09600000 

BEGIN 09801000 

REAL I»MX#LM,BUFF#LINE»S#T»PRTM,ELTM»Q,Z; 09802000 

LABEL NOONE»OK,EXITtSPUUTlT#EGRESS»MIXUP; 09803000 

ARRAY INF[*J»MIXER[*JJ 09604000 

BOOLEAN GETBUFFI 09805000 
REAL MlXt RCW«+0| *OS*09805100 
MIX |* BUFH.C9I6J; XDSXQ9805200 

LMlsSTATlONMAX+ll BUFF » *BUFH, [ 15 I 15 J- 1 } 09806000 

STREAMCL^HB^BUFH); 09807000 

BEGIN 09808000 

SI* Bl DI*LOC L; 09809000 

DDI IF SC«" " THEN BEGIN SI* SI + ll GO OD END* B* SJI 09810000 

IF SC*"Q M THEN IF SC<"9 M THEN 09811000 

BEGIN 09812000 

SI* SI+11 09813000 

IF SCJ"0" THEN IF SC< M 9" THEN 09814000 

BEGIN 09815000 

SI* BJ DS* 2 OCT.* 09816000 

GO EGJ 09817000 

END) 09818000 

SI* B; DS* OCT; 09819000 

END! 09820000 

EGl END! 09821000 

IF CLINEJsP)»0 OR LINE GTR STATIONMAX THEN 09822000 

GO EXJT J 09823000 

IF SYSDISKADR N£G THEN 09823100 

INF »*[MC SPACE CSYSDISKRL)]HSYSDISKRL[8l 38H0J J 09824000 

MIXER|*[M[SPACE(MIXMAX+1)]J&(M1XMAX+1)C8J38U0 3J 09825000 

IF (1* MIX)#0 THEN GO MIXUPI 09825100 

MIXERI03* II 09826000 

MOVECMIXMAX.MIXERfMjXER INX 1)| 09827000 

IF SYSDISKADR NRQ THEN 09827100 

BEGIN 09827200 

IF LINE>0 THEN 09828000 

BEGIN 09629000 

SYSDISKIO(li-LlNE»INF); 09830000 

H*LINEI 09830500 

IF NOT (IF LINE GTR LMAX THEN ELSE SCHEDL I NEC L I NE J ) THEN 09831000 

IF NOT STATABLEtLINEJ.DlALEDUP THEN 09831500 

BEGIN 09832000 

GETBUFf* TRUE* 09833009 

STREAM(BUFF)' DS*8 LIT " NULL *"l 09834000 

SPQUTCBUFF)! 09835000 

GO EGRESS; 09835500 

ENDI 09836000 

IF INF ( 1 3 LEQ THEN GO TO NOONE ELSE 09836500 

GO SPUUTIT; 09837000 

ENDI 09838000 

FOR I* STEP 1 UNTIL LM DO 09839000 

BEGIN 09840006 

SYSDISKIOUMf INF); 09841000 

IF I LEO STATIONMAX THEN 09841400 

IF STATABLEf D.DIALEDUP THEN 09841500 

IF INFC1) GTR THEN GO TO OK ELSE 09842000 

IF NOT LINETABLEt 09842300 

$ SET OMIT 8 TWXONLY 09842399 



IF I GTR LMAX THEN ST AT ABLE, t I J .LEENKER ELSE 09842400 

$ POP OMIT 09042401 

UtDlRECTLlNE THEN 09642500 

BEGIN 09843000 

NOONEI INFCU»«"N0B0DY "J 09843500 

OKI IF GETBUFF THEN 09844000 

BUFFl*SPACE(10) 09845000 

ELSE 09846000 

SPUUTITJ GETBUFF* TRUE? 09847000 

Ol»l! 09847050 

Sl«IF I GTR LMAX THEN ELSE SCHEDLINEUJJ 09847060 

IF CMX|*STATABLEt IJ,MIXNR) GTR THEN 09847100 

IF MX#CANDYINX THEN 09847110 

BEGIN TABCNTtMXJl»TABCNTlMXJ*U 09847150 

IF (Tt»PUT0RTAKECMX»tJARCMX#3J J » Ul t 2 I 47 I U 1 ) )*NOT 009847200 

THEN Qt»0 ELSE 09847210 

BEGIN 09847220 

Tl«nPUTORTAKECMX,[PROCTlME[MXntltO); 0984 7230 

«»»PUTORTAKE(MX» [JAR[MX»On»l»0)> 09847240 

Zl»PUTORTAKE(MX,UAR[MX.m»lfO)l 09647250 

IF MX«P2MIX THEN T* T+CLOCK+PC RTR ) I 09847300 

FORMTIME([PRTMJtT)» 09847350 

T* C(CL0CK+P(RTR))/60)-PUT0RTAKE(MX#LUVtMXi9]]il#0) 09847400 

.mi7J; 0984M50 

F0RMTIME(tEUTMJfTx60)l 09847500 

END! 0984755* 

TABCNTtMX]»»TABCNT[MXJ"l> 09847600 

END ELSE MX|*0l 09847650 

STREAM(X|«e«0# S» Ul«INFtlJ» I» 09849001 

Q» Z# Ml»MX» N»«PRTM# Ol*ELTM» Bl*BUFF)l 09850000 

BEGIN 09651000 

SJ*LOC Ul SI*SJ*1I DS*LlT " w l 09852000 

US*7 CHRI DS*4 LIT" ON "I U*DH 09853000 

DS* 2 DECI B* DI> 01* Ul DS* FILL! 01* Bl 09854000 

S(DSl*8 LIT M -CSCHED)">1 09854500 

M(DS* 7 LIT " USING "J 09855000 

XCDSIM5 LJT"HUNG JOBJ MIX *"! SI»*LOC M| DS»*2 DECI 09855100 

Ul*DII D!t»DI*2l DSl*2 FILLl 01 l»U; 09855200 

JUMP OUT 2 TO EXIT)! 09855300 

SI* SI + ll DS* 7 CHRl DS* LIT "/"I 09856000 

SI* SI+ll DS* 7 CHRl DS* LIT "s"! 09857000 

DS*2 DFCI U*DII DI*DI-2l DS*FILL| DI*UI 09857500 

DS*5 LIT " PST»"I DS*8 CHRl 09858000 

DS* 4 LIT " IN "| DS* 8 CHRl JUMP 0UT)1 09858100 

EXITI DS»«L!T"* M I 09859000 

ENDI 09860000 

SPOUTCBUFFJJ 09861000 

IF REPLY[MX3<0 THEN 09861100 

IF 0#0 THEN 09861150 

BEGIN 09861200 

REPLY[MX3* VWYI 09661300 

BRINGBACKCMX)! 09861350 

CLICKl*CL0CK+P(RTR)+240l 09861360 

SLEEP ( t REPLY [HI XJ1 #-0)1 09861370 

ENDI 09861400 

IF LINE>0 THEN GO EGRESS! 09862000 

MIXERCMXJ* 01 09863000 

END! 09864000 

ENDI 09865000 

ENDI 09865100 



FOR I* 1 STEP 1 UNTIL MIXMAX DO 09866000 

IF MIXER[U#0 THEN 09667000 

IF JARC [ #*3#0 THEN 09868000 

MIXUPI BEGIN 09869000 

TABCNTt I J JsTABCNTU J + 1J 09669250 

Ul*0| 09869500 

IF GETBUFF THIN 09870000 

BUFF»*SPACE(1Q) 09871000 

ELSE 09872000 

GETBUFF* TRUE) 09873000 

IF CTt»PUTQRTAKECl»lJARtJ»3JJ»Hll2l«7!l3»0))»NQT 09873100 

THEN STREAM(I»BUFF)J 09873110 

BEGIN DSJ*4 L J T " M I X M J 098f3120 

SU'LOC II 0Sl*2 DEC! 09873130 

DSl»9 LIT" IS HUNG*"* 09873140 

Dll"D!*lll DS|»2 FILLl 09873150 

END ELSE 09873160 

BEGIN T«=T*PUTQRTAKE( I » t PROCT I ME 1 1 J]»1*0)I 09873200 

IF IsP2MIX THEN T* T + CLOCK + PC RTR ) I 09873300 

FORMTIMECCPRTMJf T); 09873400 

T* <(CL0CK+P(RTR>)/60)-PUT0RTAKE(i»CUVCI»9JJ»l»Q> 09873500 

,[H17Jl 09873600 

F0RMTIME<CELTMJtTx60)l 09873700 

Ut'il 09873800 

STREAMCU* PUTORTAKECl»EUSERCODE£in»l»0>» 09874000 

0*PUTORTAKEC1»IJAR[I»0]]»1»0)» 09875000 

Z* PUTORTAKE(I»tJAR[If 1))»1iO)i M* I* 09876000 

N* PRTM» 0* ELTM» B* BUFF)! 09876100 

BEGIN 09677000 

Sl*LOC Ul Sl*Sl+ll DS*LlT " "I DS*7 CHR! 09878000 

DS* 7 LIT " USING "I 09879000 

si* si+u ds* r chri ds* lit m / w i 09880000 

SI* SI + ll DS* 7 CHR* DS* LIT "* h * 09681000 

DS* 2 DEC! DS* 5 LIT " PST*"I DS* 8 CHR! 09882000 

DS* 4 LIT M IN "I DS* 8 CHRl DS* LJT "*"! 09682100 

END? 09883000 

END! 09883508 

TABCNTt 1 3 •■TABCNTC I i-ll 09883750 

SPOUT(BUFF)? 09884000 

IF REPLYUJ<0 THEN 09884108 

IF Q THEN 09884150 

BEGIN 09884200 

REPLYUii* VWYI 09884308 

BRINGBACKC I )! 09864400 

CLICK|«CL0CK+P(RTR}+240! 09884410 

SLEEP(tREPLYCMIX3].-0)! 0988442* 

END! 09884500 

IF MIX#0 THEN GO EGRESS! 09884600 

END! 09885000 

EGRESS! 09886000 

FORGETSPACECMIXER)! 09887000 

IF SYSDISKADR NeO THEN 09887100 

FORGETSPACE(INF)! 09886000 

IF GETBUFF THEN 09889000 

BEGIN STREAMCB»*BUFFI*SPACEC5))J DS »» 7 LIT M END SM*«I END 09890000 

ELSE STREAMC8UFF)! DS >* 8 L I T"NOTH ING* W I 09691000 

EXIT! SPOUT(BUFF)! 09692008 

END! 09894000 

PROCEDURE FENCEMOVERCB* BUFF)! 09900000 

VALUE B» BUFFI 09901000 



REAL B» BUFFI 09902000 

BEGIN LABEL EXIT; 09903000 

INTEGER T» A* 09904000 

*STREAMCTl«0» B)l 09905000 

BEGIN S1I*B* IF SC«" " THEN BEGIN 09906000 

LI SII«SI+lf IF SC= H w THEN GO TO U END) 09907000 

IF SC* w O M THEN IF SC<"9» THEN 09908000 

BEGIN BI»SIJ S I I *SI ♦ 1 1 TALLY 1*1 ; 09909000 

7CIF SC< M H THEN JUMP OUT; IF SC>"9" THEN JUMP OUTJ 09910000 

S!l>SI + U TALLYI»TALLY+1)J 09911000 

SU«BI Bl*TALLY* DII»LOC Tl DSl«B OCT* 09912000 

END END STREAMING! 09913000 

T !* POLISH; 09914000 

T I* H00000-(£CP(DUP)-T)DIV CHUNK* I ZE )xCHUNKZl ZE ) ; 09915000 

IF T<P20000 OR T>P70000 THEN 09916000 

BEGIN SPOUTCBUFF-l)* GO TO EXIT END; 09917000 

SLEEP£[TOGLEJ»HOLDMASK)j L0CKTOG( HQLDMASK) | 09918000 

DISKWAITC-(AI*SPACE(30))»-30#DIRECT0RYT0P-SYSN0); 09919000 

M[A+19]|*Tl 09920000 

DISKWAIT£A,-30»DIRECT0RYT0P-SYSN0); 09920100 

UNLOCKTOGCHOLDMASK); 09921000 

STREAM(T#A); 09922000 

BEGIN DSI*22 LIT " FENCE TO BE MOVED TO "J 09923000 

ai»di» sh*loc t; dsj*8 dec* 09924000 

dsi»lit "«•*•; dh*a; dss = 7 fill,; 09925000 

END STREAMING; 09926000 

SPOUT(A); FORGETSPACE(BUFF-l); 09927000 

EXIT I END FENCEMOVERI 09928000 

PROCEDURE LINECLEAR(KTR)! 09955000 

VALUE KTR; REAL KTRI 09956000 

BEGIN LABEL START » BADL I NE I 09957000 

REAL BUFF»LINE»X| 09958000 

STARTi ; 09958500 

STREAM(LINEI»"1# Xt*0» KTRI); 09959000 

BEGIN $1 IpKTRI DII*L0C LINE! 09960000 

Ll IF SC="* W THEN GO TO EXIT; 09961000 

IF SC<"0" THEN BEGIN SI*Sl*lJ GO TO L ENDJ 09962000 

IF SC>"9" THEN BEGIN $I*Sl*n GO TO L END* 09963000 

SII»SI*1I 09964000 

IP SC< H 0" THEN GO TO ONE* 09965000 

IF SCS"9" THEN 09966000 

BEGIN SI*SI-1I DS*2 OCT END 09967000 

ELSE BEGIN 09968000 

ONEI SI*SI»1I DS*1 OCT END* 09969000 

IF SC*"S" THEN 09969600 

BEGIN SIIfSI+11 TALLYl»8l X»»TaLLYI END! 09969700 

KTR*SII 09970000 

EXITI END STREAM! 09971000 

KTR*P| 09972000 

X»*P; LINEl*P; 09972500 

IF LINE GEO THEN 09973000 

BEGIN 09973500 

BUFFI*SPACE(5) I 09974000 

IF LINE*0 AND LINE LEO LMAX THEN 09974500 

BEGIN 09975000 

IF SCHEDLINEUINEJ THEN 09975100 

BEGIN IF (X»8) THEN SCHEDBUSY ( LI NE ] I «1 ; 09975110 

IF 5CHENDCLINE1 THEN X|«0 09975115 

ELSE IF CXI«SEQARRAYCLJNE],ICF3)GTR 511 THEN 09975120 

BEGIN SLEEPC[M[X + 323 J»-0); M[ X + 32] I *ABS£ *P( DUP) ) ENDI09975125 



STREAMCY»*(X GTR 5 1 1) » L I NE » BUFF ) ; 09975130 

BEGIN SII^LOC L1NE2 DS»*9 LIT" STATION "I DS**3 DECJ 09975140 

LI NE I *DI ; DII»DI-3I DSl«2 FILL* DII*LINE; 09975145 

YCDSl*7LIT" CLEAR*"; JUMP OUT TO LL)J 09975150 

DSl*6LIT" IDLE*"; 09975160 

LL» END; 09975170 

SPOUT(BUFF)! 09975180 

IF X LEQ 511 THEN GO TO START* 09975185 

IF (NTll*STATABLEtLlNEJ.MIXNR) GTR THEN 09975190 

IF NT1 NEQ CANDYINX THEN 09975200 

BEGIN TERMINATECNTH3CCTF3)* 09975210 

HALTJ NOPROCESSTOGIkNOPROCESSTOG-I; 09975220 

END FLSE SHEETDIDDLER(0»-1,LINE)J 09975230 

M[X*77]»*M[X+78]; 09975240 

STREAH(BUFFI»»BUFFI»SPACE(5))I 09975250 

DS*«30LIT"**TASK TERMINATED BY OPERATOR*"; 09975260 

MtX + 32]l««NABSC*P(0UP))l 09975270 

SCHEDI0(30»1»BUFF&LINEUTF3); 09975280 

FORGf TSPACE(BUFF); 09975290 

GO TO START; 09975300 

END? 09975310 

IF LINETABLECL1NEJ/0 THEN 09980000 

IF BLASTREADCLINE*X+7) THEN 09981000 

BEGIN 09982000 

IF LlNEDlSCtLINEJ«MULTI THEN ENT EREADYQCL I NE ) ; 09982300 

IF STATABLEtLINEJ.OUTPUTANKING THEN 09982400 

IF TANKLINECLJNE]*0 AND T A 1LQUT*LI NE THEN 09982500 

BEGIN 09982600 

TANKLINEtTA I LOUT] INLINE; 09982700 

TAIL0UT|=LINEJ 09982800 

STARTWORKINGJ 09982900 

END! 09983000 

Xl"0j 09983100 

END ELSE Xl*2 09983200 

ELSE 09983300 

BADLINEl Xf»ll 09983400 

STREAM(X»LINF»BUFF); 09983500 

BEGIN SlIsLOC LINE; 09983600 

DSl«6 LIT" LINE "I. DSI*3 DEC; 09983700 

BUFF««Di; DI»«Dl-3; DSl«2 FILL; DI»*BUFF; 09983800 

cn«ci + x; go to ok; go to badnum; 09983900 

DS|*14 LIT" DID NOT CLEAR"; GO TO LI 09984000 

OKI OSt* 6 LIT" CLEAR"! GO TO LI 09984100 

BAQNUMj DSIM5 LIT" DOES NOT EXIST"; 09984200 

Ll DS1*LIT"*"I 09984300 

END; 09984400 

SPOUT(BUFF); 09984600 

GO TO START; 09984800 

END ELSE GO TO BADLINE; 09985000 

END! 09985500 

END LINE CLEARING; 09986000 

S SET OMIT » NOT(DEBUGGING) 09999999 

COMMENT GNC RETURNS CHARACTER AT B AND BUMPS B BY ONE ;* 10000000 

REAL STREAM PROCEDURE GNC(B)I* 10001000 

BEGIN LOCAL T; SI * B; DI* LOC T; DS* WDS;X 10002000 

SI * T; si*si+i; di-loc GNC ; DI*D1*7; ds*chr i si*si-m 10003000 

DI* B ; T* SI ; SI* LOC T ; DS ♦ WDS;X 10004000 

END GNC 1% 10005000 

COMMENT TAN TEST C FOR ALPHA AND RETURNS RESULT;* 10006000 

BOOLEAN STREAM PROCEDURE TANCC) ; VALUE C ;» 10007000 



BEGIN* 

Sl*LOC C) S I *S1 +7 ; 
TAN* TALLY)* 



IF SCsALPHA THEN TALLY*!)* 



REAL 



END 
PROCEDURE 
BEGIN* 

REAL 
LABEL 
T * 01 
IF C* ' 



TEST 
EXP) 



ALPHAMERIC )* 



X»T# I»P)X 
G»BOOBOOJX 
X * "*")* 

'♦" OR C * "•" 



THEN* 



00 
IF 



ELSE 
ELSE 
ELSE 
ELSE 



X*CJ T* LP* C * GNCCB)) END)* 



IF 
IF 
IF 
IF 
IF 



END* 
END* 



BOOBOO 



BEGIN 
BEGIN* 
P * o;* 
C*"*" OK C"""" THEN C*GNCCB))* 

C* "*" THEN BEGIN P*LP)C*GNCCB ) END* 
C * V" THEN BEGIN P * MtlPl • 1 161 15) I C * GNCCB) 
C ■ "«" THEN BEGIN P * M[LP ) . 1 33 1 15 J ; C * GNC(B) 
C< 7 THEN DO P*Px8 + C UNTIL (C* GNC(B))>7* 
C" H t" THEN* 

BEGIN C*GNC(B)) DO P*PxlQ+c UNTIL ( C*GNC CB ) )>9 END* 
ELSE IF TAN(C) THEN* 

BEGIN DO P* Px64*C UNTIL NOT < TAN(C*GNC C B ) > ) ) * 
FOR I* STEP 2 UNTIL NSYMBS DO* 
IF TBLC 1 l«C6f 42] * P THEN* 
BEGIN P*TBLCI*1] ) GO TO G END)* 
ERROR ♦ "NO SYMB" ) GO TO BOOBOO )* 
END* 
C* "[" THEN* 
BEGIN C * GNCCB3I* 

P* EXP ) IF ERROR # THEN GO BOOBOO )* 
P * P0LISH(CMEMORYCP3)»L0D»0f INX) J* 
IF C* "J" THEN* 
BEGIN ERROR* "NO BRKT")* 

DO UNTIL (C*GNC(B))* M * H END ELSE C*GNC(B})* 
END)* 



ELSE IF 



+ (IF Xs»+" THEN P ELSE *P))X 



(( X «.C)# W + H AND C * 



FRMT1(G»T»M»WB>> 



SKIP SB) DI*WB) 



Gl T* T 

END UNTIL 
EXP * T)X 
END EXP I* 
STREAM PROCEDURE 
BEGIN* 
Si* LOC T) 
IF SB THEN* 
BEGIN* 
SI * SI+0)X 
7<IF SC »"0" 
END* 
ELSE* 

BEGIN* 

SI*SI+4J SKIP 3 SB)* 
5(DS*3RESET)3(IF SB THEN 
SKIP SB)) END)* 



) )* 



VALUE Q»T»M)* 
DI*DI + D* 



THEN SI*SI*1 ELSE DS*CHR) )* 



DS*SET ELSE DS*RESET)* 



LIT 



SI- 

IF 



ELSE 



DS * 

LOC U) 

SC*"0" THEN 
IF SC «"D W 
SI* LOC M) 
SI* LOC M) 
BEGIN* 
SI * LOC MJ* 



IX 



SI*SI*7)X 

BEGIN* 
THEN BEGIN* 
DS* 8 DEC END 



ELSE 



BEGIN* 
DS* 8 CHR END) DS*LIT"*" END* 



10008000 

10009000 

10010000 

10011000 

10012000 

10013000 

10014000 

10015000 

10016000 

10017000 

10018000 

10019000 

10020000 

10021000 

10022000 

10023000 

10021000 

1002500P 

10026000 

10027000 

10028000 

10029000 

10030000 

10031000 

10032000 

10033000 

10034000 

10035000 

10036000 

10037000 

10038000 

10039000 

10040000 

10041000 

10042000 

10043000 

10044000 

10045000 

10046000 

10047000 

10046000 

10049000 

10050000 

10051000 

10052000 

10053000 

10054000 

10055000 

10056000 

10057000 

10058000 

10059000 

10060000 

10061000 

10062000 

10063000 

10064000 

10065000 

10066000 

10067000 



IF SB THEN* 10068000 

BEGIN* 10069000 

DS * 3 RESETJ3CIF SB THEN DS*SET ELSE DS*RESET* 10070000 

SKIP SB)** 10071000 

3(5CDS*3 RESETJ3C1F SB THEN DS*SET ELSE* 10072000 

DS*RESET * SKIP $8))** 10073000 

OS * LIT " M ) JX 10074000 

END* 10075000 

ELSE* 10076000 

2C8(DS*3 RESET*3(JF SB THEN DS*SET ELSE DS*RESET1Q07700Q 

* SKIP SB))* DS* LIT " ")** 10078000 

DI* DIM* DS - LIT"*"** 10079000 

END* 10080000 

END ** 10081000 

PROCEDURE DTI 10082000 

BEGINS 10083000 

real cl»litc» i»t#nix 10084000 

label la»lb»found»bang*exit>* ioossqoo 
define readspo » do until waltlod inx rbx inx p4q000000* ?377» 10086000 

25) * #** 10087000 
DEFINE WRITESPO * DO UNTIL WAI T IOC WB INX 0*0377,25) * # ; X 10088000 

REAL RCWk+OJ* 10089000 

P0LlSHC0»RDS»5.-»0»XCH»CFXtSTF)»* 10090000 

HALT** 12000000 

SLEEP([TOGLE]«KEYBOARDMASK)I LOCK! OGCKEYBOARDMASK ) * 12001000 

STREAMCOCRCW INX )&RCW[ 30 I 10 I 2 ] : W6 ) * * 12002000 

BEGIN* 12003000 

01* WB* DS* LIT MMM * DS*6 LlT"ClL * "*X 12004000 

SI* C* SI*SI»2* C*SI** 12005000 

SI* LOC C* SI*SI+5* SKIP 3 SB** 12006000 

5(DS* 3 RESETI3CIF SB THEN DS*SET ELSE DS*RESET * SK IP SB)) 12007000 

* DS*LIT«M" * SI*LOC C* SI*SI+5>* 12008000 

DS*4RESETJ2(IF SB THEN DS*SET ELSE DS-RESETl SKIP SB)** 12009000 

DS*LIT"*"** 12010000 

END** 12011000 

P0LISHC,CL»*)JX 12012000 

TBL[35J*MtRCW,[18H5]J,tl8>15Jj* 12013000 

WRITESPO** 12014000 

LITC*0** 12015000 

FOR 1*1 STEP 1 UNTIL NSTOP DO* 12016000 

IF ST0PSMM30I16) « CL THEN LIK* STOPSCl J , [ 18 1 10 ] J * 12017000 

LAI READSPO ',% 12018000 

NOBACKTALK*FALSE** 12019000 

ERROR*0»* 12020000 

B * RBX INX 1J 12021000 

STREAM(Q*B)»* 12022000 

BEGIN* 12023000 

SI*Ol DI*QI DI*DI+1J* 12024000 

LI IF SO*"*" THEN* 12025000 

BEGINX 12026000 

IF SC»P14 THEN SI*SI+1 ELSE* 12027000 

IF SC* " " THEN SI*SU1 ELSE DS*CHR*X 12028000 

GO L»X 12029000 

END** 12030000 

DS* CHR** 12031000 

END** 12032000 

OGNCCB)** 12033000 

IF C«"* n THEN GO TO LAJ* 12034000 

IF C*"*" THEN BEGIN TYPETOG*GNC ( B ) * OGNCCB) END** 12035000 

IF C*"$" THEN* 12036000 



BEGIN* 

OGNC(B) 

T*EXPI 

STREAMC 

BEG 
Si* 

Ql SI* 
IF 
IF 
SI* 
DI* 
DS* 
SI* 
END 
POLISHU 
STREAM( 
BEG 
DI* 
SI* 
5( 

DS* 
DS* 
2C 
DS* 
END 
WRITESPO 
GO TO LA 
END** 
IF C» W P M THE 
BEGINX 

OGNC(B) 
T*EXPI 
IF C«"»"THEN T*T&CC*GN 
FOR 1*1 
IF STOPS 
ERROR* " 



ERROR * THEN GO LBlX 
0!T»S*P0LlSH(,DT»4»x,2»O,V*0}{* 
X 
X 

+01 l*sii si*sui; skip u sb;x 

THEN GO QJ SKIP SBIX 
THEN GO QJX 

♦0) si*si-2;x 

OC LJ DI*DI *3l* 

CHRI DI* LI* 
LOC SJ SI*SI+6| DS* 2 CHKJX 

OPStNSTOP*NSTOP + m»*)lX 
*ST0PStNST0P3iWB);X 

X 

BJ DI*DI+1I Sl*LOC CLlX 

T * S 1 S K T P ^ S ft 1 % 

* 3 RESET» 3(IF SB THEN DS*SET ELSE DS* RESETX 

JSKIP SB})|X 

IT*!"I SI* LOC CLl Sl*Sl*5lX 

RESETI* 

SB THEN DS*SET ELSE 0S*RESET| SKIP SB; ) I* 
T"*"lX 



FOUND** 



IF 



IF 
T* 
IF 



STREAM ( 
BEG 
GO TO LA 
ENDIX 
C » "X" T 
BEGINX 
C * GNCC 
FOR I * 
IF TBLtl 
FRMTKTY 
MR I 
IF NOBAC 
END 
GO TO LA 
ENDIX 
C* H I H THE 
EXP I IF 
C * "I" T 
BEGINX 
OGNC(B) 

N*EXPMI 
ENDIX 



)% 

IF 
L* 
IN 
Tl 
SI 
SB 
SB 
Si 

L 

2 

IX 

ST 
CL 

IN 

W 

s 

DS 

L 

4 
IF 
LI 
IX 
IX 

I* 

NX 

IX 

IF ERROR#0 THEN GO TO LBJX 

C(B))C30I46I2JIX 

STEP 1 UNTIL NSTOP DOX 

til. [30118] b T THEN GO FOUND!* 

NO STOP"! GO TO LB|X 

L*sTOPsm»v*o>;x 

IN D1*LISI * LOC LI SI*SI*3l DS * 2 CHR ENDIX 
IX 

HENX 

B)|X 

STEP 2 UNTIL NSYMBS D01 

3.C1I5] « C THEN BEGINX 

PETOG* "TBLtl J»MEMORY[TBL(I*m#WB)!X 

TESPOIX 

KTALK THEN GO TO LAlX 

IX 

IX 

N GO EXJTIX 

ERROR * THEN GO LB|X 

HENX 



IX 



IF ERROR +0 THEN GO LB ELSE GO BANG!* 



12037000 
12038000 
12039000 
12040000 
12041000 
12042000 
12043000 
12044000 
12045000 
12046000 
12047000 
12046000 
12049000 
12050000 
12051000 
12052000 
12053000 
12054000 
12055000 
12056000 
12057000 
12058000 
12059000 
12060000 
12061000 
12062000 
12063000 
12064000 
12065000 
12066000 
12067000 
12068000 
12069000 
12070000 
12071000 
12072000 
12073000 
12074000 
12075000 
12076000 
12077000 
12078000 
12079000 
12080000 
12081000 
12082000 
12063000 
12084000 
12085000 
12086000 
12087000 
12088000 
12089000 
12090000 
12091000 
12092000 
12093000 
12094000 
12095000 
12096000 



BANG t * 



LBI 



EMTi* 



N * 01% 

IF C= M l" THEN* 
BEGIN* 

CL*0l i*oi* 

IF COGNCCB)) <9 THEN CL*CI* 

DO I «■ I x 64 + C UNTIL N0T( T AN( C*GNC ( B ) ) ) t % 
NSYMBS*NSYMBS+2I* 

TBL[NSYMBS] * I SCL[ 1 1 43 I 53 I TBLC NSYMBS+1 ] * TJX 
GO BANG** 
ENDI* 
JF C* "»" THEN* 
BEGIN 1% 

IF COGNC(B))<9 THEN BEGIN!* 
STREAMC I*0»* 

WB* B»L*0i K*0)l* 
BEGIN* 
SI ♦ WB I * 
16UF SC*"0" THEN BEGIN T ALLY*T ALLY + 1 J SI +S I + 1 END* 

ELSE JUMP OUT TO Z )tZii 
L * TALLYI TALLY * 16** 
LC TALLY*TALLY ♦ 63)J K*TALLY J D I ** 

LOC I I KCSKIP 3 DB);X 
SI * WBJ* 
LCSKIP 3 SBJ3UF SB THEN DS'SET ELSE DS»RESETjX 

SKIP SB ))J* 
ENOJ* 
POLISHC [MEMORYmj.OJ* 
END ELSE* 
IF C»"»" THEN* 

BEGIN 1*0! WHILE < OGNC (B ) )<9 DO IMMO + CI* 
MEM0RY[T3*I 1% 
END ELSE BEGIN 1*0* DO I*lx64 + C UNTIL NOT ( TAN( OGNC (B ) ) ) J X 
MEM0RY[T]*I ENDJ* 
GO BANG 1% 
ENDI* 
IF C *"•* THEN* 

BEGIN ERROR •■"ILL EXP"J GO LB END;* 

FOR I •■ STEP l UNTIL N DO* 

BEGIN* 

FRMT1(TYPET0G»LP*T*I .POLISHC [MEMORY! LP 3 ) »LOD)»WB> I* 

WRITESPOJX 

IF NOBACKTALK THEN GO TO LAJ* 

ENDI* 
GO TO LAI* 

STREAM CERROR»WBtRBX)lX 
BEGIN* 

SI «■ RBX) DI * WBI DI ♦ Dl + ll 
SI»SI*9|I 
Ul IF SC * "♦" THEN BEGIN DS* CHRJ GO TO L ENDfX 

DS *6L!T"ERR0R "I SI*LOC ERROR) Sl»SI+llS 

DS *■ 7 CHR I DS ♦ LIT "♦"I* 
ENDI* 

WRITESPO I* 
GO TO LAI* 

MCWB3 * NOT 01 WRITESPOI* 
UNLOCKTOGCKEYBOARDMASK)* 
NOPROCESSTOG*NOPROCESSTOG-1I* 
P0L1SH(LITC»RTN)I* 



12097000 
12098000 
12099000 
12100000 
12101000 
12102000 
12103000 
12104000 
12105000 
12106000 
12107000 
12108000 
12109000 
12110000 
12111000 
12112000 
12113000 
12114000 
12115000 
12116000 
12117000 
12118000 
12119000 
12120000 
12121000 
12122000 
12123000 
12124000 
12125000 
12126000 
12127000 
12128000 
12129000 
12130000 
12131000 
12132000 
12133000 
12134000 
12135000 
12136000 
12137000 
12138000 
12139000 
12140000 
12141000 
12142000 
12143000 
12144000 
12145000 
12146000 
12147000 
12148000 
12149000 
12150000 
12151000 
12152000 
12153000 
12154000 
12155000 
12156000 



ENDJX 12157000 

i POP OMIT 12157001 

REAL PROCEDURE PRNPBTSPECASE1 ( Z ) J 12500000 

X 12500100 

X THIS PROCEDURE HANDLES THE FOLLOWING FUNCTIONS FOR C0M19. DEPENDING 12500H0 

x on the value of z« 12500120 

X FINDS THE NEXT REEL OF TAPE, 12500130 

X 1 FINDS THE NEXT REEL OF A BACK-UP DISK FILE, 12500140 

X 2 HANDLES THE QT + OR - MESSAGE. 12500150 

X 3 INITAILIZES A NEW FILE (OR PACKET), 12500160 

X 4 HANDLES TERMINATION OF A FILE. 12500170 

X 12500180 

VALUE ll REAL ll 12500500 

BEGIN 12501000 

REAL RCWb+O. MSCW*-2t C0MM0N*-4; 12501500 

ARRAY INREC-+H*]! 12502000 

ARRAY FPB»INREC + l[*3f LOG I NF0«FPB + 1 1 * J * HEADER»LOGINFO+ 1 [ * } i 12502500 

REAL UNIT«HEADER*1» V«UN1T+1» COPYsV+1, MFID*C0PY+1» FID*MFID+1» 12503000 

IODwFIDM. T*10D + 1» B*T+1» 12503500 

real searchval=b+1» currowwst archval+ 1 » f 1rstf i d*currow + 1 » 12504000 

segnr»firstfid*1j 12504500 

real x*searchval» num«currqw# recount*segnr> 12505000 

boolean signed0n«segnr*1# formtog*sl gnedon + 1 . abqrted*fqrmtog-u i 12505500 

boolean termflag«l0ginf0. nocont*f i rstf i ot 12506000 

$ set omit ■ not packets 12506500 

boolean st0g*aborted*l; 12507000 

real pcopy*stog*i# pfirstfid*pcopy*i> 12507500 

* set omit * packets 12509500 

real pflrstfid*firstfidt pcopy*cqpyi 12510000 

t POP OMIT OMIT 12511500 

12512000 

LABEL RD* RED* SPACEND* NOMORE* NOFILE. AUT» BOMBER. NEXTFJLE* 12512500 

PNCHLK* PRlNTlTAGAlNt EOFt PRNTDS. PNCHDS. TAPENDt CONT I NUE » 1251 3000 

RETURNFALSE# REMOVEM, TEST* TAPECL* STOPTIME* RETURNTRUE. 12513500 

RETURNT0C0M19) 12513750 

LABEL L00K4TAPE* NOMOREELS* QTSPEC» INITIALIZE* STARTANEWF I LE; 12514000 

SWITCH SW J* 12514500 

L00K4TAPE» NOMOREELS* QTSPEC* INITIALIZE* S 1 ART ANEWF I LEI 12515000 

DEFINE DSED » C TERMSET (P1M J X ) )#, 12515500 

QTED « (PRTtPlMlX»P253» t O)#* 12516000 

VF * 43l5#» 12516100 

UNITF * 38l5#» 12516150 

COPYF * 30t8#» 12516200 

NUMF * 22»8#. 12516250 

NOTP ■ 291 t#* 12516300 

COPYO * 21ll#» 12516350 

S SET OMIT « PACKETS 12516500 

REELNO * 30»18#. 12517000 

$ SET OMIT « NOT PACKETS 12517500 

REELNO s 4216** 12518000 

S POP OMIT OMIT 12518500 

SEPARATION * 46#l X FOR 6 LP I • SET IT TO 70 FOR 8 UP I • 12519000 

£*i**«****4<««*4c****************«**«***«**********«*******4 I ** I 4<*****>»******12519500 

12520000 

SUBROUTINE RDYTAPEI 12520500 

BEGIN 12521000 

B,U8»9J»«P54I 12521500 

P(WAITIOCP4200000000»0»UNIT)»DEL)< 12522000 

P(WAlTI0CB»0tUNIT)#WAlTIO(B»P4O»UNlT)»DEL»DEL)l 12522500 

REC0UNTl*P77777l 12523000 



END! 12523500 

12524000 

12525000 

SUBROUTINE REWIND; 12525500 

BEGIN 12526000 

ST0PTIMINGC0»1023)J 12526500 

P(WAITI0(M2Q0000000»0»UNIT)*DEL); 12527000 

IF (SAVEWORD AND TWOCUN I T ) )wO AND PRNTABLEt UNI T 3 , [ 1 1 13 12527500 

AND NOT CSVPBT OR OTED OR NOcONT) THEN 12528000 

F ORK ( P (, PURGE !T)»UNIT#-2»t 29 • I) 1252B500 

ELSE 12529000 

BEGIN LABELTABLE[UNIT3*$114; 12529500 

MUmTABUrUNITJ*RDCTABLE[UNIT3*0) 12530000 

SLEEP(CTOGUE3»S7ATUSMASK); 12530500 

READY*READY AND NOT NT 1 *T W0( UN I T ) I 12531000 

RRRMECH«-N0T NTl AND RRRMECH OR NTl AND SAVEWORDI 12531500 

END) 12532000 

END; 12532500 

12533000 

12534000 

BOOLEAN SUBROUTINE LOOKfORTAPE! 12534500 

BEGIN 12535000 

Tl«RDCTABUE[UNiTJl 12535500 

Rewind; 12536000 

if signedon then fpbt 43 l»fpb [ 4j-l0gi nfot 18 3-cl0ck-pc rtr ) ; 12536500 

IF P( CTl*FINDINPUT(MF 101012221 2342546447*7, [ 14! 10 3+ 1»T, [241 17 3 t 12537000 

-0»0»Tl»0»0#0»0)) GEQ 0» DUP) THEN 12537500 

BEGIN 12538000 

RDCTABLE[UNITl*T3,[8l63 JSPIMIX; 12538500 

LABELTABUECUNlTjmFIOl 12539000 

FPBI"PRT[PiMlX»3]J % FINDJNPUT CALLS STARTIMING 12539500 

IF SIGNEDON THEN FPB[ 4 3 » *FPB[43+LOGI NFO[ 24 3 *CLOCK+P< RTR) ; 12540006 

RDYTAPE; 12540500 

END; 12541000 

L0OKFORTAPEI*P> 12541500 

END; 12542000 

12542500 
^♦♦♦♦♦♦♦♦♦♦♦******#****** 1> **4 t * + ^ # * 1> * 1(1 ** + ** + # + # ^ + # ^^ # + # ^ #1|1 ^ # + ### + ^^ #<I + # ^ 1([ j2543000 

12543500 

REAL SUBROUTINE READTAPE; 12544000 

BEGIN 12544500 

RDJ IF DSED OR PRT [ P 1MI X » ?25 3*5 THEN BEGIN PC5); GO TO RED END; 12545000 

IF WAITlOCB»e2000040»UNlT),C42|U THEN 12545500 

BEGIN 12546000 

P<WA!TIO(B»P2000040»UNIT)*DEl>; 12546500 

IF MCB INX 33 THEN 12547000 

IF LOOKFORTAPE THEN GO TO RDI 12547500 

P«3)l 1254800* 

GO TO RED; 12548500 

END; 12549000 

FOR Tt»17 STEP 18 UNTIL 89 DO 12549500 

IF M[6 INX T3. [20113 THEN Tl*256; 12550000 

P(T>200); 12550500 

REDI READTAPE««PJ 12551000 

END; 12551500 

12552000 
X********#«********** + *#******* # #****#^ + ** 1 | l ** ++ ^ # ^ #Ik ^ #+######+ ^ % ^^^ + #+)>]( ,j2552500 

12553000 



BOOLEAN SUBROUTINE SPACETQFUE) 12553500 

BEGIN 12554000 

X|»NUM; 12554500 

WHILE (X««X-1) GEQ DO 12555000 

BEGIN 12555500 

DO UNTIL (Tl«READTAPE)J 12556000 

IF T GEQ 3 THEN BEGIN P(l); GO TO SPACEND END! 12556500 

END! 12557000 

P(0)J 12557500 

SPACEND! 12558000 

SPACETOFILE!=Pl 12558500 

END! 12559000 

12559500 
%***^^******************************************************************l 25 60000 

12560500 

BOOLEAN SUBROUTINE FINDFILE! 12561000 

BEGIN 12561500 

IF (HEADER!-DIRECT0RYSEARCHCMFID»-FID»5EARCHVAL)) LSS 64 THEN 12562000 

GO TO NOMOREI 12562500 

HEADER! "CMC HEADER 3 J*30[8|36ll03l 12563000 

SEGNR!*0! 12563500 

CURROW|«10J 12564000 

IF AB0RTED!«HEADERt53,t2!U THEN 12564500 

IF HEADER[7]*0 THEN 12565000 

BEGIN 12565500 

NOMORE! PCI)! 12566000 

GO TO NOFILE! 12566500 

ENDJ 12567000 

LABELTABLE£VJ!*NABSCFID)J 12567500 

PCO)! 12568000 

NOFILE! FINDFILE!*P! 12568500 

END? 12569000 

12569500 
%******* **************************************************************** 1257 0000 

12570500 

BOOLEAN SUBROUTINE NOMOReREELS! 12571000 

BEGIN 12571500 

IF HEADER. tCF) GEO 64 THEN FORGET SPACE C HEADER ) I 12572000 

IF FID,[REELN0]=0 THEN 12572500 

BEGIN HEADERieO! 12573000 

P(l)l 12573500 

END ELSE 12574000 

BEGIN 12574500 

STREAM(0NE!«1* FH[FJDJ)J 12575000 

BEGIN SI!*L0C ONE! DS»»8 ADD END! 12575500 

P(FINDFILE)! 12576000 

END! 12576500 

N0M0REREELSl»P! 12577000 

END! 12577500 

$ SET OMIT « NOT PACKETS 125f8000 

12578500 
X*** *********** ********************************************************* \257 9000 

12579500 

BOOLEAN SUBROUTINE NOMORefH-ES! 12580000 

BEGIN 12580500 

IF NOT PCFlD.C30ll2J» w 99" OR COMMON, [NOTP J #DUP) THEN 12581000 

BEGIN 12581500 

PCDED? 12582000 

STREAM(0NE!*1» Fl-tFIDl >* 12582500 

BEGIN SIlsLOC ONE! Sll»Sl*6l Dl!*DI+5! 12583000 



DS!*2 ADD? 0Sl=LlT"l"; 12583500 

END; 12584000 

F IRSTF ID*»F!D; 12584500 

PCFINDFILr>> 12585000 

ENDJ 12585500 

NOMOREFlLESUP; 1258600ft 

END) 12586500 

* POP OMIT 12587000 

12587500 
****** ******************************************************************i25qqq0O 

12588500 

SUBROUTINE REMOVEIT; 12589000 

BEGIN 12589500 

Tl "DIRECTOR YSEARCH(-MFIDi-CFID J »PFIRSTnD)#SEARCHVAL)? 12590000 

IF T GEO 64 THEN 12590500 

S SET OMIT * NOT PACKETS 12591000 

DO BEGIN 12591509 

* POP OMIT 12592000 

DO IF FID*IOD THEN GO AUT UNTIL NOMQREREELS; 12592500 

$ SET OMIT * NOT PACKETS 12593008 

END UNTIL NOMOREFILESJ 12593500 

$ POP OMIT 12594000 

AUTl 12594500 

END; 12595000 

12595500 
***************************************************** ***************** 

12596500 

SUBROUTINE PAGEUECT; 12597000 

BEGIN 12597500 

PCWAITIQCP4000100000»Q»V)» DEL); 12600500 

ENDl 12601000 

12601500 

X********** ************************************************************* 12602 qqq 

12602500 

SUBROUTINE WRITEB; 12603000 

BEGIN 12603500 

P(WAITI0(8 INX P210104000000,0»V). DEL); 12607000 

E ND * 12607500 

12613000 
x************* ****************************************** **************** 1261 3500 

12614000 

SUBROUTINE SETUPINREC; 12614500 

BEGIN 12615000 

INRECJ«[M[B INX ( UN I T»18) j } & 18[ 8 ; 38 HO J ; 12615500 

INREC[173l*0; 12616000 

ENDl 12616500 

12617000 
************************************************* ******** + m* m mmml26l7500 

12618000 

SUBROUTINE INVaLIDNUM; 12618500 

BEGIN 12618750 

FaEMESS("INVALID"»"FILE "tO^NUMB *"» NUM+ 1 # Oi ) I 12619000 

END; 12619250 

12619500 

X********************** ************************************************* 12620000 

12620500 

pcdeL#z#mscw#stf>; 12621000 

GO TO 5W[PJ; 12621500 

J 12621900 

% LOOKFORTAPE FINDS THE NEXT REEL. THE FIRST RECORD IS A LABEL SO 12621910 



% INREC IS MOVED DOWN TO SKIP IT, 

L00K4TAPE1 

PaOQKFORTAPE)> 

INRECI*CNOT 17) 1NX INRECJ 

RECOUNTl«OJ 

GO RETURNT0C0M19J 

NOMQREELSl 

P(NOMOREREELS)? 
GO RETURNT0C0M19? 



QTSPECI 



PRTtPJMlX»P253J»0| 

P(T)> 

IF UNJT»l8 THEN 

BEGIN NT2»*(T t [9t24] DIV 
I0Dl»CHEADER£8] DIV 
IF (Tls3xNT2+SEGNR) 



DO IF 

BEGIN 



% BE CAREFUL OF THIS, 

% DISK PORTION 
5)8,T[l»2ll3> 

3)x3) * CALCULATE TRUE ROW SUE 

LSS THEN % SPACE BACKWARD 



CCURROWUeCURROW-1) LSS 10 THEN 



% TO A PREVIOUS FILE 



BOMBERI 



IF FID*FIRSTFID THEN GO TO BOMBERJ 

IF SEARCHVALs3 THEN PCDI RECTORYSEAKCH( -MF IDi F1D» 1 3 ) *DEL ) ; 

FORGETSPACE(HEADFR)J 

STREAM(ONf t«l, FS"[FlDl>f 

BEGIN SI»»LOc ONEi DSI*8 SUB END* 

IF (HEADER»»DIRECT0RYSEARCH(MFID»FID»5)} LSS 64 

THEN GO BOMBER? 
HEADER»«[M[HEADER3 3&30[8J38llO]; 
CURR0WJ*HEADFR[93,[43l53+9J 

WHILE HEADERtCURR0W3«0 DO CURROW I *CURR0W1 ; 
IF CURR0W<10 THEN 
BEGIN 

NTH*"RANGE *"t 

IF CNT2l«PRT[PlMIXtP2b3),C2lU THEN 
NTl»»NTU"- ,, C42l42t63; 
FILEMESSC"INVALID"» ,, QT «,0# 

NTl#NT2,t9»24J»0#0>> 



end; 
end until 

ELSE 
BEGIN 

IF T 



PRTIP1MIX»P25]|«5| 
P(DEL)I 

go returnfalse; 

(Tl«IOD+T) GEO 



% 

% 



FORCE A 
LEFT AT 



QT 
12626500 



% SPACE DISK FORWARD 



GEO IOD THEN 



DO 



NEXTFILEI 



IF 



(CURR0WI*CURR0W+1) 
IF NOMOREREELS THEN 
UNTIL (TI»T-I0D) LSS 
IF (CURROWMO)xlOD + T 
GO TO NEXTFILEJ 



X TO ANOTHER ROW* 
X CHECKING FOR NEW FIL 
GEQ CHEADERC9], [43153*10) THEN 
GO TO BOMBER 
IOD) 
GTR HEADER[7Jx3 THEN 



END! 

SEGNRlwT) 
PC 19)1 

END ELSE 

BEGIN 



% TAPE PORTION 



12621920 
12621930 
12622000 
12622100 
12622500 
12623000 
12623500 
12624000 
12624400 
12624500 
12624600 
12625000 
12625500 
12625900 
12626000 
12626100 
12626250 
12626500 
12626750 
12627000 
12627500 
12628000 
12628500 
12629000 
12629500 
12630000 
12630500 
12631000 
12631500 
12632000 
12632002 
12632500 
12633000 
12633500 
12634000 
12634500 
12635000 
12635500 
12636000 
12636500 
12637000 
12637500 
12638000 
12638500 
12639000 
12639500 
12640000 
12640500 
12641000 
E12641500 
12642000 
12642500 
12643000 
12643500 
12644000 
12644500 
12645000 
12645500 
12646000 
12646500 



% 



IF T.C2J1J THEN % SPACE BACKWARD 12647000 

IF CT«*T,C9l24]) LSS I NREC [ 17 J , [ CF } THEN 12647500 

BEGIN I0DI-CU4) DIV 5t 12648000 

DO P(WAITI0((89 INX B )&7 1 22 I 45 » 3] » 0, UN J T ) » DEL ) 12648500 

UNTIL (IODIMOD-1) LEQ OR DSED OR QTED; 12649000 

REC0UNT|*5J 12649500 

END ELSE GO TO BOMBER % REEL SWITCH NOT ALLOWED 12650000 

ELSE 12650250 

BEGIN IOD»«(T, [91241) DIV 5) % SPACE FORWARD 12650500 

DO UNTIL (X|»READTAPF) OR C I OD *« I0D*1 )»0 I 12651000 

IF I0D*O THEN 12651500 

IF X*5 THFN GO TO BOMBLRI % 5«DS-ED. LET IT FALL THRU . 1 2652000 

RECOUNTt»0; 12652500 

END? 12653000 

REC0UNTl«CMCB INX 17] INX NOT RECOUNT) t [CF ] I 12653500 

P(18)J 12654000 

ENDI 12654500 

* „ 12654900 
% FIX UP INRECt BUILD 10 DESC AND QT MESSAGE AS NEXT TO BE WRITTTEN. 12654910 

12654920 

P(T|«B INX P(XCH))< 12655000 

INRECI»INREC&PCXCH)[CTC]J 12655500 

M tT-U l*C RECOUNT + 1 )&74 111 141 «7H(V#22)[ 29l 44 »4 J ; 12656000 

NT1»»P; % LEFT AT 12626500 12656500 

STREAM(AI»NT1.[FFJ» C I»NT1 . C2l U • PNCHlsV*22* B»*T"18)J 12657000 

BEGIN 051*16 LIT"<<<<<<<<<<<<<<< "; 12657500 

CIl*CJ+PNCH; GO TO PRNTJ DSJ*7 LIT" PUNCH"; GO TO LI* 12658000 

PRNT»DS|»7 LIT"PRINTER M J 12658500 

LU DS«s21 LIT" BACK UP FILE SPACED "I 12659000 

CII*CI+C; GO TO FFR? DSl*4 LlT"BACK"l GO TO L2i 12659500 

FER« DS»*4 LIT" FOR"* 12660000 

L2» DS««4 LJT"WARD"J 12660500 

SlfsLOC A« DS»»6 DEC; B l»D I S Dl»*DI-6; 12661000 

DSl*5 FILL; D!l*B; 12661500 

CII»CI*PNCHI GO TO LIN; DSl"5 LIT" CARD"; GO TO L3; 12662000 

LINI DSI*5 LIT" LINE"; 12662500 

L3» DSt*17 LIT"S, >>>>>>>>>>>>>>"; 12663000 

bi«di; sii*b; sih>si-8; ds;=7 wds; 12663500 

END; 12664000 

GO RETURNTRUE; 12664500 

12664900 

INITIALIZE! 12665000 

12665100 
X HANDLES MISCELLANEOUS SETUP TASKS* INCLUDING STARTING THE TIMING FOR12665110 
% LOGGING* CHECKING AND READYING THE INPUT FILE AND SPREADING COMMON, 12665120 

* 12665130 
RCW,[CFJt*P( f C0M19»L0D) INX \% 12665500 
Vl»C0MM0N f [VFJ; 12667750 
IF P(,INREC»LOD)»0 THEN 12668000 
BEGIN 12668250 

IF LABELTABLE[VJ,[1I5]#P21 THEN X PRINTER CL-ED 12669500 

BEGIN 12669750 

IF <UNIT1«C0MM0N,[UNITFJ)<16 THEN 12670000 

IF LABELTABLE[UNIT)«?21000000606060604 12670250 

TINUtVH6*30ll8J THEN SETNOT I NUSE C UN I T » 0) ; 12670500 

GO TO INITIATE; 12670750 

END; 12671000 

LABELTABLEm, [5ll)t«0J 12671250 

PRT[PlMlX,e25J|«0; 12672000 

Bl"(GETSPACE(9l»0»l)+2)&90[8l38ll0J; 12672500 



END; 126^3000 

RDCTABLElVJ,l8l6]»sPlMlXj 12675000 

STARTIMING(5»V)J 12675250 

STARTlM!NG(0»UNITl«COMMON t tUMTF ])J 12675500 

FPBIpPRT£P1MIX»33; 12675750 

C0PYl«C0MM0N t CC0PYM; 12676000 

IF UNIT*18 THEN 12676500 

BEGIN 12677000 

MFID«*IF V*22 THEN "PUD " ELSE M PBD "; 12677500 

F!RSTFIDI«LABELTABLE[V],I6|423l 12679500 

* SET OMIT * NOT PACKETS 12680000 

IF NOT COMMON, [NOTPJ THEN BEGIN PCOPY « *COPY I COPY**0 END; 12680250 

PFIRSTFIDls 12680500 

* POP OMIT 12661000 

fioibfirstfid; 12681500 

searchval»*3; 12682000 

if findfile then go returnfalse* 12682500 

END ELSE 12684000 

BEGIN 12684500 

AB0RTLD?»0j 12686000 

NOC0NTl*CCNUMlKCOMM0N, [NUMFD OR COPY)? 4 ©! 12686500 

MFIDISMUUITABLECUNITJJ 12687000 

IF LABELTABLE[UNITJ.IH5J**»21 THEN % UNIT WAS CL"ED WHILE 12687300 

BEGIN AB0RTED>*2; % WE WERE SCHEDULED, 12687400 

GO RETURNFALSEJ 12687500 

END; 12687600 

FIDl*LABELTABLE[UNITJt»(*P(DUP))&0[5t47in; 12687700 

RDCTABLECUNIT].[8»6]I*P1MIX; 12688000 

RRRMECHI«RRRMECH OR TWO(UNIT); 12688500 

RDYTAPE; 12689000 

IF SPACETOFILE THEN 12690500 

BEGIN 12691000 
IF T*3 THEN INVALIDNUM; X SET BY READTAPE IF EOT, 12691500 

go returnfalse; 12692000 

END; 12692500 

END; 12693000 

SETUPJNREC; 12693500 

GO RETURNTRUE; 12694000 

12694400 

STARTANEWFILEI 12694500 

12694600 

X HANOLES THE END OF A FILE AND FIGURES OUT WHAT TO DO NEXT, BUT 12694610 
% FIRST. THE LOG MUST BE TAKEN CARE OF. CDONT USE T BETWEEN HERE AND 12694620 

% THE TEST AT 12705750,) 12694638 

12694640 

IF AB0RTED»2 THEN GO TO TAPECL; 12694800 

IF SIGNEDON THEN 12695000 

BEGIN 12695500 

SlGNED0Nl«L0GINF0tl6J+PR0CTlMEtPlMlXj*CL0CK+P(RTR)l 12696000 

PROCTIME t PI MIX] j «(*P(DUP)) -SIGNEDON; 12696500 

FORMTIMEULOGINFOUOn.SIGNEDON); 12697000 

FORMTlMECtLOGINFOUlJJ* 12697500 

lOTlMEtPlMlX]-CIOTlME[PlMlXJi*L0GINF0[17])); 1269800* 

FORMTlMEUL0GlNFOri2J]»XCL0CK*P(RTR)); 12698500 

SIGNEDON I »L0G!NF0[1 8] KLOCK + PCRTR ) > 12698 750 

FPB[43|p(*P(DUP))-SIGNEDON; 12699000 

FPBC9]|»(*P(DUP))-SIGNED0N; 12699250 

STREAM(DH»DSED# ClsPCDUP) OR C0PY>1# LOGJNFO); 12699500 

BEGIN Sll«LOGINFO; SHftS!+40l SII*Sl+40; 12700000 

DI»*DI + 32; DSl*LlT H »"; DSl«6CHR; 12700500 ~~~ ~ 



% 



DS|*6 LIT". IOT«"; 0S**8 CHKI 12701000 

DS»sll LIT"J DONE AT M ; DS»*5 CHRJ DS I *L I T"*" I 12701500 

C(DII»DIM5I CIlaCI+D) GO TO CPYJ 12702000 

DS»«5 LlT w DS-ED w J JUMP OUT* 12702500 

CPYl 0Sl*4 LlT w C0PY M )| 12703000 

ENOJ 12703500 

SPOUTIT(LGGINFO*CE0JMESS OR PBEOJK) AND 12704000 

N0T(JAR[P1MIX»9J,[2UJ))I 12704100 

SIGNEDONl*»0» 12704500 

ENDI 12705000 

% 12705100 

% IF DSED OR QTED. SKIP THE CHECKS FOR COPIES, 12705110 

* 12705120 
IF CTERMFUGJ*DSED OR QTED*3) THEN 12705250 

IF V»22 THEN GO TO PNCHDS ELSE GO TO PRNTDSJ 12705500 

* 12705600 
X T IS SET IF THE FIRST GET FAILS, THIS SHOULD ONLY HAPPEN AT THE END 12705610 

* OF A BACK-UP TAPE, NOTE THAT IF A FILE NUMBER IS SPECIFIED. I N I T I ALM 2705620 
% lit ONLY SPACES TO ITS START* SO WE MAY CATCH AN INVALID NUMBER 12705630 
% HERE, SINCE ONLY ONf FILE IS PRINTED WHEN A NUMBER IS GIVEN* IF WE 12705640 
% ARRIVE HERE. IT MUST HAVE BEEN A BAD NUMBER. IF IT IS DESIRED TO 12705650 
X CONTINUE DOWN ThE TAPE AFTER ThE SPECIFIED FILE. THIS TEST WILL NEED12705660 
% TO BE CHANGED, 12705670 

* 12705680 

if T then % first get failed 12705750 

IF UNI T#18 THEN 12706000 

BEGIN 12706250 

IF C0MM0N,£NUMF)#0 THEN JNVALIDNUM; 12706500 

GO TO TAPEND; 12706750 

END ELSE GO REMOVeM; 12707000 

* 12707100 
IF (C0PY«*C0PY-1) GTR THEN * MORE COPIES OF FILE ROD, 12707250 
BEGIN 12707500 

IF V«22 AND PUNCHLCK THEN 12707750 

BEGIN 12708000 

PNCHLKt STREAMCP1MIX. T J *T » *SPACE( 1 ) ) ; 12706250 

BEGIN DS»«25 LIT"#PNCH LOCKED » PRNPBT/D I SK*" J 12708500 

SJjstoc P1MIX; DSS=2 DEC? DS»»LIT m » ,, J 12708750 

DIi"01"3l DSl«FILLJ 12709000 

EN01 12709250 

SPQUT(T)! 12709500 

REPLYtPlM!X]|»NABS(T|pVOKaVWY[ 3614216 J*VOT[ 3014216 J )» 12709750 

C0MPLEXSLEEP(REPLY[P1MIXJ>0 OR DSED); 12710000 

IF NOT WHYSLEEP(T) THEN GO TO PNCHLK; 12710250 

IF DSED OR QTED THEN GO STARTANEWF I LEI 12710500 

ENOI 12710750 

IF UNIT»18 THEN * DISK 127U000 

BEGIN 12711250 

* SET OMIT ■ NOT PACKETS 12711500 

ST0G»»SEARCHVAL»3> 12712000 

S POP OMIT 12712500 

PRINT ITAGAINI 12713000 

FIDmiRSTFIDI 12713500 

SEARCHVAL«*5J 12714000 

IF FINDFILE THEN GO TO EOF ELSE GO TO CONTINUE! 12714500 

END; 12715000 

* X TAPE 12715400 
IF RDCTABLECUNIT3,[14«10J#1 THEN % THIS ISNT FIRST REEL 12715500 
BEGIN 12716000 

RDCTABLE[UNIT],[141tOH»0| 12716500 



IF NOT LOOKFORTAPE THEN GO TO EOF; 12717000 

END ELSE 12717500 

KDYTAPE; 12718000 

IF SPACETOFIUE THEN GO TO EOF ELSE GO TO CONTINUE* 12718500 

END! 12719000 

* SET OMIT « NOT PACKETS 12719500 

IF UNIT'lB THEN % CHECK FOR COPIES OF PACKET 12720000 

BEGIN 12720500 

IF STOG THEN BEGIN SE ARCHVAU » *ii STOG!*Q END) 12721000 

IF NOMOREFILES THEN 12721500 

IF <PC0PYl*PC0PY-l) GTR THEN 12722000 

BEGIN 12722500 

FIRSTFIDloPFIRSTKIDI 12723000 

GO PRINTITAGAINJ 12723500 

END ELSE 12724000 

ELSE GO CONTINUE! 12724500 

END! 12725000 

$ POP OMIT 12725500 

12725900 

EOf : * 12726000 

12726100 

% AT THIS POINT. WE ARE THROUGH WITH THIS FILE OR PACKET, CLEAN UP 12726110 

% THE OUTPUT BEFORE COING ON. 12726120 

* 12726130 

IF V#22 THEN % PAGE EJECT AND SEPARATE 12726500 

BEGIN 12727000 

PAGEJECT; 12727500 

PRNTDSI 12728000 

IF SEPARATE THEN 12728500 

BEGIN 12729000 

STREAMCU«aUNlT*ie# X | *P( DUP )-l 7. FI*FID» Al*TINUCV]» 12729500 

B)» 12730000 

BEGIN 12730500 

U(SIt*L0C F! SII*SI+1I 0S|s4 CHR; DSs«LjT" »); 12731000 

sh»loc a; si i»s 1+5? dsis»3 chr; 12731500 
dst»3 lit" --"j x(ds»«7 l i t ,, b5700-- ,, ) ; ds»*lit w "| 12732009 

SI I *S1*3f DS:b3 CHR! 12732500 

U(DSl*LlT" "j SItsLOC Ft Sll»SI*ll DSl«4 CHR)J 12733000 

ENDI 12733500 

FOR T t «1 STEP 1 UNTIL 5 DO WRITEB; 12734000 

FOR Tl*2 STEP 2 UNTJL SEPARATION DO 12737000 

P(WAITI0(P4002000000»Q»V)» DEL)* 12737500 

FOR Tl«l STEP 1 UNTIL 5 DO WRITEB; 12738000 

PAGEJECT; 12738500 

END* 12739000 

END* 12739500 

PNCHOS* 12740000 

IF UN1T*18 THEN % TAPE 12740500 

BEGIN 12741000 

IF TERMFLAG OR NOCONT OR ABORTED THEN 12741500 

BEGIN 12742000 

TAPENDI 12742500 

REWIND! 12743000 

GO TO TEST! 12743500 

END ELSE 12744000 

BEGIN * TRY THE NEXT FILE 12744500 

NUMI»NUM*i; 12745000 

REC0UNTl*P77777! 12745500 

CONTINUE! SETUPINREC! 12746000 

RETURNFALSEJ 12746500 



end; 



P(0)i 

GO RETURNT0C0M19I 



END; 



REMOVEMl 



% 
% 



DISK - CLOSE THE OPENED FILES AND* IF NOT QTED* REMOVE THEM, 

NOT o; 



IODlelF SEARCHVAL«3 THEN FID ELSE 
SEARCHVALJM3I REMOVEIT; 

FPB[4J|»(*PCDUP))+CL0CK+PCRTR>I 

IF TERMFLAG#3 THEN 

BEGIN 

IODl»NOT 01 

SEARCHVALl*7; REMOVEIT; 
TEST! % FOR CO 

IF AUTOPRINT AND NOT (FORMTO 
CTWO(V) AND SAVEWORD)sO TH 
IF (COMMONlsPRlNTORPUNCHWA 
ENDI 
TAPECLJ 

COMMQNt*0; 
FORGETSPACE(B); 
SETNOTINUSECViFORMTOG)! 
STOPTIMEI 

STOPTlMlNGCSt 1023); 
RETURNTRUEt 

P(1)J 
RETURNT0C0M19I 

P(0»RDS#l#SUB»0»XCHtCFX»STF) J 
END OF FIRST PRINTER BACKUP SPECIAL C 
PROCEDURE PRNPBTSPECASE2(Z)J 
X 

PROCEDURE HANDLES ADDITIONAL 
1NITA1LIZE LOGGING, 
WRITE ABORT OR DSFD MESSAGE 
HANDLE PARITY ON INPUT FILE, 



X NOT QT-ED 



NTINUATION FOR AUTOPRNT, 

G OR TERMFLAG) AND 

EN 

iT(»v»-0))*o then go to stoptime; 



THIS 


1 

2 



X 
X 

X 
X 

X 

VALUE It REAL Zl 
BEGIN 

REAL 

ARRAY 

ARRAY 

REAL 



ases procedure; 

things for comi9, values of z are 
and construct ending label, 



REAL 

REAL 
BOOLEAN 
BOOLEAN 
SET OMIT 
BOOLEAN 

Real 

SET OMIT 

REAL 
POP OMIT 

UML 
LABEL 



RCW«+0» MSCW«»?» C0MM0N*»4I 
INREC»+1I*J| 

FPB«INREC+lt*]» LOGINFObF 
UNIT«HEADER+1# V*UNIT+1» 
I0D«FID+1» T«I0D*1» BwT*l 
SEARCHVAL*B+t» CURROW*SEA 
SEGNR«FIRSTFID4-i; 
X*SEARCHVAL, NUM«CURROWi 

signedon«segnr+i# formtog 
n0c0nt»firstfidi 
« not packets 
stog»aborted*i; 

PC0PY»ST0G+lt PFIRSTF1D*P 
» PACKETS 

PFIRSTFID»FIRSTFID» PCOPY 
OMIT 



PB+1C*J» HEADER»L0GINF0+1[*3I 
C0PY*V+1» MFID«C0PY+1, FID»MFID+1» 

; 

RCHVAL+l* FIRSTFID«CURROW+lt 

RECOUNTsSEGNRl 

•SlGNEDON+1, ABORTED»FDRMTOG+U 



copy*i; 
•copy; 



SLEAP» WHY. EXJTTOC0M19I 
SIGNIN» ABORTMSG, PARERR; 



12747000 

12747500 

12748000 

12748500 

12748900 

12749000 

12749100 

12749110 

12749120 

12749500 

12750000 

12750250 

12750500 

12751000 

12751500 

12752000 

12752500 

12753000 

12753500 

12755500 

12756000 

12756400 

12756500 

12757000 

12757500 

12757750 

12758000 

12758250 

12758500 

12759000 

12759500 

12760000 

12800000 

12800100 

112600110 
12800120 
12800130 
12600140 
12800150 
12800500 
12801000 
12601500 
12802000 
12802500 
12803000 
12803500 
12604000 
12804500 
12805000 
12805500 
12806000 
12606500 
12807000 
12607500 
12809500 
12810000 
12611500 
12612000 
12812500 

12813000 



SWITCH SW tm 12613500 

SIGNIN, ABQRTMSG* PARERRJ 12814000 

DEFINE DSED * ( TERMSET C P1M I X ) ) #» 12614500 

QTED * (PRT[P1MIX.P25J*0)#» 12615000 

VF * 43l5#» 12815100 

UNITF * 38»5#» 12815200 

COPYF * 30t8#» 12815300 

NUMF * 22l8#» 12815400 

NOTP « 29ll#» 12815500 

COPYO * 21»1#> 12815600 

12820500 
X****«***************************************** *************************12821000 

12821500 

SUBROUTINE FM| X* BUILD AND SPOUT FORMS MESSAGE *X 12822000 

BEGIN 12822500 

STREAM(UI»TINUtV3» PlMlXt INREC* D l«T I «SPACEC 10 ) ) I 12823000 

BEGIN DSl*LlT"# M J 12823500 

SU*LQC U* SIlsSI+5; DS«»3 CHR; 12824000 

DSl*20 LIT" FM ROD tPRNPBT/D I SK«=" J DSl«=2 DEO 12824500 

U»«DII DII*DI*2; DS*«sFIUL| Dl«»U> 1282500*) 

SI I*INRECI 0SI»5 LIT" FOR "I 12825500 

SI|*SI+H DSl«7 CHRI DS|*LIT"/ W J 12826000 

SII»S1*1J DS»*7 CHR* DS<*4 LIT" OF n t 12626500 

SIIpSI + 11 DSI«7 CHR* DSl«LITV"J 12827000 

SI»*SI+U DSI*7 CHR* 12827500 

DS|»LIT"*"J 12828000 

END! 12828500 

SPOUTCT)! 12629000 

REPLY[P1MIX] |* 12829500 

NABS(Tl"V0K»VWY[36l42l6HV8Tt30l42l6J*VFMl24l42l6l)» 12630000 

END FM SUBROUTINJ 12830500 

12831000 

%*^*m*t************************** *************************************** I Z&H.500 

SUBROUTINE BADFM| XBUILD AND SPOUT BAD FM MESSAGE X 12832008 

BEGIN 12832500 

STREAM(AI*TlNUtT]»MXl*PlMlX»T»«T(*SPACEC10))J 12833000 

BEGIN DSl*19 LIT'MNVALID INPUT UNIT -I 12833500 

SI f »UOC MX> DS»*2 DEC?DSI»2 LIT"FM"I 12834000 

SH*LOC A> SII»S1+5I DS»«3 CHR* 12834500 

DSlwLIT %"| DI I *0 1-ei DS1*FILU 12835000 

END! 12835500 

SP0UT(T)J 12836000 

END BADFM SUBROUTINE 12836500 

12837000 
% ^#*mm*************************** *************************************** ^^^^7 500 

12638000 

SUBROUTINE WRITEBANdeJECTJ 12838500 

BEGIN 12839000 

P(WAITI0(B INX P210104000000»0#V)»DEL)J 12843000 

IF V#22 THEN PC WA I T I 0( M000100000* 0* V ) » DEL ) i 12843500 

END! 12844500 

12845000 

tmm************************************** ******* **************** ********12845500 

12846000 

% 12646500 

P(Z.MSCW»STF)I 12847000 

GO TO SWtPjj 12847500 

12847600 

SIGNINI 12848000 

12846100 



X HANDLES FIRST RECORD OF FILE. PICKING UP LOGGING INFO AS WELL AS 12848110 

X COPIES OR FORM SPECIFICATIONS, NOTE THAT LABEL INFO IS SAVED IN 12846120 

X LOGARRAY FOR USE AT ABORTMSG, TIMING IS STARTED AT IN1TAILIZE AND 12848130 

X STOPPED IN REWIND* AT REMOVEM OR AT STOPTIME FOR TAPE. DISK AND THE 12848140 

X OUTPUT UNIT RESPECTIVELY, LOGARRAY IS USED TO REMOVE THE TIME 12848150 

% ASSOCIATED WiT H A GIVEN BACK UP FILE FROM THE TIMING IN THE FPB AND 12848160 

* LOG IT TO THE USER, THAT IS DONE IN SiqNOUT, THUS, THE TIME LOGGED 12848170 

X AT PRNPBT/DISK EOJ IS OVERHEAD TIME OCUHRlNG DURING SWITCHING FROM 12648180 

X FILE TO FILE, 12 ! 4 ! 1 !J 

% 12848200 

L0GlNF0lB[M[GETSPACE(20.0,l)+2]3&20t8l38ll0j} 12848500 

IF F0RMT0G»pINREC[13] THEN FM* 12849000 

IF COPY LEO AND NOT COMMON , [COPYO J THEN 12849500 

CQPYIMF CINRECC14] AND NOT ?377)*0 THEN INRECIMJ + I ELSE 0; 12650000 

STREAMdNREC* LBH»(N0T 14) INX INREC» LOGINFOH 12850500 

BEGIN SI l»INRECI SIl«S!*l7l 12851000 

DSl»12 LIT" PRNPBT FOR "J 12851500 

DSl*7 CHRJ DS»«LIT W / W I SIjpSI+1* DS»*7 CHRI DS|«5 LIT"* PST"{ 12852000 

Sll*lNRECi DSl*2 WDSJ SIf*LBL> DS»«10 WDS; 12852500 

END; 12653000 

L0GINF0[16]|«-(PR0CTIMF[P1MIX]*CL0CK+P(HTR))} 12853500 

L0GINF0tl7]t«» IOTIMEtPlMIXJl 12854000 

L0GINF0C183»»-CL0CK-P(RTR)I 12654500 

MAKELOGC INREC INX 3»PBCCARD)J 12855000 

IF FORMTOG THEN 12860500 

SLEAPI 12861000 

BEGIN C0MPLEXSLEEPCREPLYCP1MIX] GEO OK DSED OR QTED)i 12861500 

IF NOT WHYSLEEP(T) THEN 12862000 

BEGIN FM; GO TO SLEAP END) 12862500 

IF REPLYCPtMIX],[CFJ»VFM THEN 12663000 

IF (Tl»REPLYtPlMIX],[FFl) NEO 20 AND T NE« 21 THEN 12863500 

BEGIN * ILLEGAL UNIT, 12864000 

LABELTABLECn»*0114l 12864500 

BADFMI 12865000 

ready»»ready and ct»*not twoct)>» 12865500 

rrrmechi«rrrmech and t; 12866000 

saveword»«savew0rd and t* fmj go sleap 12866500 

END ELSE 12873000 

IF T#V THEN 12873500 

BEGIN * SWITCH UNITS, 12874000 

LABELTABLEtTJ l» LABELTABLEC V 1 > 12874500 

RDCTABLECTJ l« RDCTABLECVJI 12875000 

MULTITABLEtT] »« MULT I TABLET V 1 ; 12875500 

LABELTABLEtVJ l« MULT I TABLE I V J I* RDCTABLEtV] I' 01 12876000 

FPB[6] l t36«6]t»(Vl*T)*ll 12676500 

ENDI 12877000 

END , 12877500 

F0RMT0G»"CF0RMT0G OR PUNCHLCK AND V*22) AND NOT (DSED OR QTED5J 12878000 

SIGNEDONHTRUEI 12878500 

GO EXITT0C0M19I 12879000 

12879100 

ABORTMSG! 12879500 

12679600 

X AB0RTED«3 IMPLIES ABORT HAS OCCURRED* CURRENTLY, NOTHING ATTEMPTS T912879610 

X DISTINGUISH BETWEEN 1 AND 3» BUT ABORTED MUST BE SET HERE FOR TAPE 12879620 

X SO WHY NOT MAKE IT DIFFERENT, 12879630 

% 12879640 

AB0RTEDI-3I 12880000 

STREAM(T!»DSED OR QTED» B)J 12880500 

BEGIN 12881000 



ABI 

LEND 

ENDJ 

WRIT 

IF V 

BEG! 



DSt*8 L IT"*** J SIl=B» DS l = J6 WDS; DI»*B; 

C I l"C I*T» GO TO ABI 

DII»DI+2«J 

DSt*34 LIT" BACK-UP TERMINATED BY OPERATOR " I 

60 TO lend; 

DH*DJ*34J DSlsll LIT" ABORTED "I 



EBANDEJECTJ 
*22 AND SIGNEDON THEN 
N 

STREAMCLOGINFOi B)> 
BEGIN SH*L0GINF0> SHpSI + 32* 

DS|*8 LIT" LABEL "J DSl»12 WDSJ DS»*LIT" "i 
SIl«LOGINFOl SII«Sl+l2l DSI«15 CHRl 
DSIM2 LIT" "> 
ENDI 

WRITEBANDEJECU 
ENDI 
GO TO EXITT0C0M19; 



PARERRI 



% 
% 
% 



BUILDS ERROR MESSAGE FOR OUTPUT AND ALLOWS OPERATOR TO OK OR OS, 
T IS USED TO PASS BACK WHETHER OR NOT TO TERMINATE, 

IF V*22 THEN GO TO WHY) 

STREAM(AI»UNIT# T I «T I "SPACE ( 15 ) ) ; 

BEGIN 22CDSt*2 LIT ">>") I SI 1«L0C AISH'SI+7! 

IF SC*"B" THEN DSI»6 LIT " DISK " ELSE 

0SI»6 LIT " TAPE "I 

DSI*26 LIT "PARITY ON PRINTER BACK UP "J 

22(DSl»2 LIT "»")! 
END STREAMl 

P(WAlTlO(T*16CCTF]tO»V)#DEL)l 
FORGETSPACE(T)! 



WHY! 



GO TO WHY! 



EXIT 

END 

PROC 

X 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

% 

BEG I 



FILEMESS<"#PARITY"tO»0»"ERROR "»0»0»0)l 

REPLY[PlMlX3l«-VQT&VWY[36»42l63&V0K[30l42l63l 

C0MPLEXSLEEP(REPLY[P1MIX3 GEO OR DSED OR QTED)I 

IF NOT WHYSLEEP(VQUVWY[36t42t638,VQKC30i42i63) THEN 

Tl«DSED OR QTEDJ 

T0C0M19I 

P(0»RDS»0f XCH»CFX#STF)I 

OF SECOND GROUP OF PRINTER BACKUP SPECIAL CASES; 

EDURE C0M19) 

C0M19, TOGETHER WITH PRNPBTSPECASE 1 AND PRNPBTSPEC ASE2 WHICH SHARE 
ITS STACKt ARE THE WORKING PART OF PRINTER BACK-UP, INFORMATION IS 
PASSED TO C0M19 IN COMMON AND LABELTABLE» AS FOLLOWSl 
COMMON, [43151 LOGICAL UNIT NUMBER OF OUTPUT UNIT, 

INPUT UNIT NUMBER, IF DISK, THE LABELTABLE ENTRY FOR 
THE OUTPUT UNIT CONTAINS THE FILE ID, 
NUMBFR OF COPIES SPECIFIED IN PB MESSAGE. 
IF TAPE* STARTING FILE NUMBER GIVEN IN PB MESSAGE. 
IF DISK, *0 IF ENTIRE PACKET IS TO BE PRINTED* *1 IF 
NOT, 
[21113 ON IF "«0" APPEARED IN PB MESSAGE, 

N 



C38I53 

[301 8 J 
[22(83 



12881500 
12882000 
12882500 
12883000 
12883500 
12884000 
12884500 
12885000 
12685500 
12886000 
12886500 
12887000 
12887500 
12688000 
12688500 
12889000 
12889500 
12890000 
12890500 
12891000 
12891100 
12891500 
12891600 
12891610 
12891620 
12691630 
12892000 
12892500 
12693000 
12893500 
12894000 
12894500 
12895000 
12895500 
12897500 
12898000 
12898500 
12699000 
12899500 
12900000 
12900500 
12901000 
12901500 
12902000 
12902500 
13000000 
13000100 
13000110 
13000120 
13000130 
13000140 
13000160 
13000170 
13000180 
13000190 
13000200 
13000210 
13000215 
130002S0 
13001000 



REAL RCW«+0» COMMONsM; 13002000 

ARRAY INRECC* J* FPBC*J» LOGINf 0C*3 • HEADER[*JJ 13003000 

REAL UNJT# V* COPY* MF1D* FID* I OD* T« B) 13004000 

REAL SEARCHVAL* cURROWt FIRSTFID* SEGNRJ 13005000 

REAL XwSEARCHVAL* NUM*CURROW. REC0UNT*SE6NR I 13006000 

BOOLEAN SIGNEDON. FORMTOG* ABORTED? 13007000 

BOOLEAN N0C0NT*FIRSTF1DJ 13008000 

* SET OMIT « NOT PACKETS 13009000 

BOOLEAN STOGi 13010000 

real pcopy* pfirstfioi 13011000 

* set omit » packets 13012000 

real pfirstfid*firstfid» pc0py»c0py) 13013000 

$ pop omit omit 13014000 

* 13017100 

* THE LOCAL VARIABLES ARE USED AS FOLLOWS! 13017110 
X ARRAYS 13017120 
X INREC ARRAY DESCRIPTOR FOR THE CURRENT RECORD. 13017130 
X FPB FPB ARRAY, INPUT IS THE FIRST FILE? OUTPUT THE 2ND. 13017140 
X LOGINFO LABEL INFORMATION AND STARTING TIMES FOR LOGGING, 13017150 
X HEADER DISK FILE HEADER, 13017180 
X REALS 13017190 
X UNIT LOGICAL UNIT NUMBER FOR INPUT. 13017200 
X V LOGICAL UNIT NUMBER FOR OUTPUT, 13017210 
X COPY NUMBER OF COPIES OF THIS FILE TO BE PRINTED. IF IT IS 13017220 
X NOT SPECIFIED* IT EQUALS 0. 13017230 
X MFID MULTI-FILE ID OF INPUT FILE, 13017240 
X FID FILE ID OF INPUT FILE, 13017250 
X 100* T TEMPORARY STORAGE, 13017260 
X B ADDRESS OF 90 WORD BUFFER FOR INPUT. 13017270 
X BOOLEANS 13017280 
X SIGNEDON ON IF LOGGING IS INITIALIZED, THIS SHOULD BE OFF ONLY 1301/290 
X FOR FILES WHICH DO NOT START AT THE BEGINING* E,G,» 13017300 
X WHEN A STARTING REEL IS SPECIFIED ON DISK, 13017310 
X FORMTOG ON IF FORM IS SPECIFIED OR PNCHLOCK IS SET, 13017320 
X ABORTED *1. DISK ABORTED BY H/L, CHECK ]H GET TO FIND OUT WHERE . 1 301 7330 
X s2. TERMINATION DUE TO CL OF INPUT TAPE WHILE SCHEDULED , 1 301 7335 
% »3, TAPE ABORTED BY H/L, FOUND BY RECOUNT MISMATCH, 13017340 
% 13017350 

X THE FOLLOWING APPLY ONLY TO DISK FILES! 13017360 
X SEARCHVAL THIRD PARAMFTER FOR DI RECTORYSE ARCH. IT IS 3 OR 5 DUR I NG1301 7370 

X PRINTING* DEPENDING ON WHETHER jT IS THE FIRST COPY OR 13017380 

X NOT, AND 13 OR 7 DURING FILE TERMINATION, 13017390 

X CURROW INDEX Of THE ROW CURRENTLY BEING PRINTED, 13017400 

X FIRSTFID FILE ID OF FIRST REEL* USED FOR MULTIPLE COPIES OF 13017410 

X MULTI-REEL FILES, 13017420 

X SEGNR NUMBER OF NEXT SEGMENT TO READ FROM THE CURRENT ROW, 13017430 

% 13017440 

X THE FOLLOWING APPLY ONLY TO TAPES* 13017450 

X X TEMPORARY STORAGE, 13017460 

X NUM NUMBER OF CURRENT FILE ON TAPE* USED FOR COPIES. 13017470 

X RECOUNT NUMBER OF RECORDS PRINTED IN THIS FILE. THIS IS CHECKED 13017480 
X AGAINST THE C-FIELD OF THE 10 DESCRIPTORS IN THE FILE T013017490 

X SPOT ABORTS. 13017500 

X NOCONT TRUE IF CONTINUATION FROM FILE TO FILE IS NOT ALLOWED, 13017510 

% 13017520 

X THE FOLLOWING APPLY ONLY TO PACKETS! 13017530 
X PCOPY NUMBER OF COPIES FROM PB MESSAGE* WHICH MAY APPLY TO THE13017540 

X ENTIRE PACKET, "COPY" IS SET ONLY FROM LABEL EQUATION, 13017550 

X PFIRSTFID FILE ID OF FIRST FILE IN THE PACKET* USED FOR COPIES OF 13017560 

X THE PACKET, FIRSTFID APPLIES TO INDIVIDUAL FILES WITHIN 13017570 



% THE PACKET AND IS USED FOR COPIES SPECIFIED VIA LABEL 13017580 

% EQUATION, 13017590 

X STOG SET DURING THE FIRST PRINTING OF THE PACKET IF ONE OF 13017600 

X THE FILES SPECIFIES MULTIPLE COPIES, IT IS USED TO 13017610 

X RESTORE THF VALUE OF 3 TO SEARCHVAL WHEN THE FILE IS 13017620 

% COMPLETED. 13017630 

% 13017670 

LABEL TRYNEXT, TAPERDR, TAPERD, TA^ECHK, ABORTi NOGET, GOTTEN, 13018000 

START, RESTART, MAlNLOOP, «UIT, TESTENDJ 13019000 

DEFINE DSED » ( TERMSETC PiM I X } )#, 13020000 

QTED * (PKTtPlMlX,P25]*0)#l 13021000 

DEFINE LOOKFORTAPE * PRNPBTSPECASE 1 ( 0)# , 13022000 

NOMOREREELS ■ PRNPBTSPECASE 1 ( 1 )# , 13023000 

QTSPEC m P(PRNPBTSPECASEl(2)tDEL)#t 13024000 

INITIALIZE ■ PRNPBTSPECASe1(3)#. 13025000 

STARTANEWFILF • PRNPBTSPECASE t ( 4 )* , 13026000 

SIGNIN » PRNPBTSPECASE2(0)#, 13027000 

ABORTMSG ■ PRNPBTSPECASE2U 3* , 13028000 

PARERR ■ PRNPBTSPECASE2{2)#I 13029000 

13030000 
2********* ♦♦♦**********#*****it>******** + *********************************13031000 

13032000 

BOOLEAN SUBROUTINE GETI 13033000 

BEGIN 13034000 

IF iNRECCin, [20113 THEN QO TO NOGETJ 13035000 

IF (INRECI^CNOT 17) JNX INReO.CCFI GEO B.[CF3 THEN 13036000 

IF UNlT»»18 THEN GO TO TAPECHK ELSE 13037000 

ELSE * READ NEXT BLOCK 1303B000 

IF UNIT*18 THEN 13039000 

BEGIN 13040000 

IF SEGNR > HEADER[73x3 THEN GO TRYNEXTJ % END OF FILE 13041000 

IF (SEGNR GEO HEADER[6]-1) THEN 13042000 

BEGIN % END OF ROW 13043000 

IF (CURR0WI»CURR0W + 1) GEO HEADER I 93 ,1 431 53 + 10 THEN 13044000 

TRYNEXTJ IF NOMOREREELS THEN GO TO NOGETJ 13045000 

SFGNRl«01 13046000 

END» 13047000 

INREC»*90 I NX INREC* 13048000 

DISKIOCIOD»-B»90,HEADER[CURROW3+SEGNR)| 13049000 

SEGNRlwSEGNR+31 13050000 

SLEEP(tI0D3#I0MASK)| 13051000 

IF I0D,[28»13 THEN 13052000 

BEGIN PARERRJ 13053000 

IF T THEN GO TO NOGETJ % DSED OR QTED 13054000 

ENDI 13055000 

IF ABORTED THEN % TEST FOR BAD 10 DESC, 13056000 

IF (M[B INX 183, [6|423 E«V » ")*NOT THEN 13057000 

GO ABORT* 13058000 

END ELSE 13059000 

BEGIN % TAPE 13060000 

TAPERDRl X|«0; 13061000 

TAPERDI IF (I0Dl»WAITI0(Bf«»200OO40»UNIT)), [43(13 THEN 13062000 

BEGIN PARERRJ 13063000 

IF T THEN GO TO NOGETJ % DSED OR QTED 13064000 

ENDI 13065000 

IF IOD|[42«13 OR X THEN 13066000 

BEGIN 13067000 

IF CXl'NOT X) THEN GO TO TAPERDJ 13068000 

IF M[B INX 33 THEN 13069000 

IF LOOKFORTAPE THEN GO TO TAPERDR ELSE GO NOGETJ 13070000 



END; 13071000 

IF CX|«M[B INX NOT 0])*90 THEN 13072000 

IF (X AND P7775)*16 THEN % OLD FORMAT TAPE 13073000 

BEGIN 13074000 

INREC,tCFJ»*B INX U 13075000 

INRECtl7Jl«M(BJ*0C20l20l7Ji 130 76000 

END ELSE GO TO NOGFT 13077000 

ELSE 13078000 

BEGIN 13079000 

INRECI"90 INX JNRECJ 13080000 

TAPECHM IF (RECOUNT«»RECOUNT INX 1) * INREC U 73 , t CF 3 THEN 13081000 

BEGIN 13082000 

ABORT! ABORTMSG; 13083000 

NOGETI P(0); 13084000 

GO TO GOTTEN; 13085000 

END; 13086000 

END; 13067000 

END; 13088000 

PCI); 13089000 

GOTTEN! GETi»P; 13090000 

END; 13091000 



% 



13092000 



X START IS USED FOR A NEW FILE COR NEW PACKET), RESTART IS USED FOR 13092010 

X A COPY (OR A NEW FILE WITHIN A PACKET), 13092020 

13092030 

START! 13093000 

IF C0MM0N»0 THEN GO TO INITIATE! 13094000 

IF INITIALIZE THEN 13095000 

BEGIN 13096000 

RESTART! IF GET THEN 13097000 

BEGIN 13098000 

IF INRECC 173 ♦ t 1 • 11 3*0 THEN SIGNIN; 13099000 

IF UNIT#16 THEN RECOUNTl*INRECU73.[CF3; 13101000 

END ELSE % BAD FIRST BLOCK. SHOULD BE EOT 13102000 

BEGIN P(l); 13103000 

GO TO TESTEND; 13104000 

END; 13105000 

MAINLOOP! 13106000 

IF PRTR0W[P1MIX3,CPSF3 > 1 THEN STOPM; 13107000 

IF (T!*PRT[PlMlXtP253)#0 OR DSeD THEN 13108000 

BEGIN 13109000 

IF T<0 THEN * ♦ OR • SPECIFIRED 13110000 

BEGIN 13111000 

QTSPEC; 13112000 

GO TO MAINLOOP; 13113000 

ENDI 13114000 

ABORTMSG! * DSED OR QTED 13115000 

GO TO QUIT! 13116000 

END; 13117000 

IF GET THEN % VALID REC, WRITE IT & CONTINUE 13118000 

BEGIN 13119000 

PC WAI T IOC INRECC 17)4CINREC)ICTC 348121 1 42163 #0»V). DEL)! 13128000 

GO TO MAINLOOP! 13129000 

END! 13130000 

END; 13131000 

QUIT! 13132000 

PCO)! 13133000 

TESTEND! 13134000 

Ti«Pf * T«l IF FIRST GET FAILS. ElSE 0,13135000 

IF STARTANEWFILE THEN GO TO START ELSE GO TO RESTART! 13136000 



END OF PRINTING BACKUP TAPE AND DISK FILES; 13137000 

PROCEDURE SPOSETCTYPE#BUFH)» 13200000 

VALUE TYPE»BUFH? REAL TYPE»BUFH; U201000 

BEGIN 13202000 

REAL LINEtLAST.BUFF.UZERJ 13203000 

LABEL EXIT#0KE0»CARRY0NJ 13204000 

ARRAY JNFE*J; 13205000 

BOOLEAN OK? 13206000 

BUFF* BUFH.C15I153-1J 13207000 

IF SYSDISKADR'O THEN GO EXIT? 13207050 

INF* £M[$PACECSYSDlSKRL)mSYSDISKRL[8«38llOJJ 13207100 

IF NOT REMOTE THEN GO EXIT) 13208000 

IF TYPE, 11113 THEN XTHIS ALLOWS QUITTER TO RESET A SPO 13208100 

BEGIN LINE»=BUFH> 13208200 

BUFF«»SPACE(10)I 13208300 

GO TO CARRYONJ 13208400 

END? 13208500 

STREAMCL— HB*8UFH»A*"SP0")? 13209000 

BEGIN 13210000 

DI* LOC A? DI* DI + 5? 13211000 

SI* B; 13212000 

DDI IF SC« W " THEN BEGIN Si* SI + 1? GO DD END* B* $1* 13213000 

IF 5C<»0" THEN 13214000 

BEGIN 13215000 

IF 3 SC*DC THEN 13216000 

L* TALLY? 13217000 

GO EGRESS? 13218000 

END? 13219000 

IF SC> W 9 W THEN GO fcGRESS? 13220000 

SI* 51+1? 01* LOC L? 13221000 

IF SC<"9" THEN IF SC**0" THEN 13222000 

BEGIN 13223000 

SI* B? DS* 2 OCT? 13224000 

END 13225000 

ELSE 13226000 

BEGIN 13227000 

SI* B? DS* OCT? 13228000 

END? 13229000 

eGRESSI ENO STREAM? 13230000 

IF (LINE* P)<0 THEN GO EXIT? 13231000 

CARRYONI 13231500 

LAST* ABSCSPOWQRD)? 13232000 

IF LINE»0 THEN XSW1TCH THE SPO 13234000 

BEGIN 13235000 

IF LAST-0 THEN GO EXIT? 13236000 

SPOWORDfUlU* NOT TYPE? 13237000 

SYSDISKIO(3»-O.INF>? 13238000 

INFI33* SPOWORD? 13239000 

SYSDISKIO(0>-OtlNF>? 13240000 

GO OKED? 13241000 

END? 13242000 

IF LINE GTR STATIONMAX THEN GO EXIT? 13243000 

SYSDISKlOdf-LINEt INF)? 13244000 

UZER* INFCU? 13244300 

SYSDISKJ0(3#*0.INF>? 13244350 

IF TYPE THEN 13245000 

IF NOT STATABLEtLINEl.DIALEDUP THEN 13246000 

OK* FALSE 13247000 

ELSE 13248000 

BEGIN 13249000 



IF OK* (UZERsO) THEN 13250000 

BEGIN 13250100 

SPOWORD, [40183* LINE* 13251000 

INF t 33* SPOWORDJ 13252000 

END 13252100 

END 13253000 

ELSE 13254000 

IF LASTwLINE THEN 13255000 

OK* NOTCSPOWORD* INFC3J* 0) 13256000 

ELSE 13257000 

OK* FALSE? 13258000 

SYSDISKI0(0»-0#INF)J 13259000 

IF OK AND TYPE AND (LAST#0) THEN 13260000 

BEGIN! 13261000 

STREAM(L* LINE.T* LAST.B* BUFF)I 13265000 

BEGIN 13266000 

DSI-8 LIT "STATION " J Site LOC L* 13267000 

DS* 2 DEC* B* 01) Dl* DI"2; DS* FILL? DI* BJ 13268000 

DS* 11 LIT " REPLACING "J DS* 2 DEO B* DM 13269000 

DI* DI ""21 DS* FILL* DI* BJ 13270000 

DSIB18 LIT " AS ALTERNATE SPO*"J 13271000 

ENDI 13272000 

TWX0UT(BUFF»37,liLA5T)J 13274000 

END 13275000 

ELSE IF OK THEN 13276000 

OKEDI STREAMCL* LINENS* T YPE » t 47 i U » 8* BUFF)I 13277000 

BEGIN 13278000 

LCSH* LOC LI DSJ* 8 LIT "STATION "J DS»* 2 DEC; 13279000 

B* DII DI* DI-2J DS* FILL? DI* B! JUMP OUT TO D)J 13280000 

DS* 3 LIT "SPO"l 13281000 

DI SCDS* 4 LIT " SET"} JUMP OUT TO 01)1 13282000 

DS* 6 LIT " RESET"; 13283000 

Dl I DS* 8 LIT " AS SPO*"l 13284000 

ENDJ 13285000 

EXIT* SPOUT(BUFF)* 13286000 

IF OK AND (LINE*0) THEN 13286100 

BEGIN 13286150 

IF TYPE THEN 13286200 

BEGIN 13286250 

SYSDISK10(3»-LINE»INF)J 13286300 

INFC33* (NOT 0}, £12136]; 13286350 

INFC1J* MCPI 13286400 

SYSDISKI0(0,-LINE»1NF)> 13286450 

$ SET OMIT s TWXONLY 13286454 

IF STATABLEILINEJ.STATIONTYPE THEN SSCREEN DEVICE 13286455 

BEGIN TNA0G[SEQARRAY[LINE3.C26I6] J , [ 14 J 34 ] l«0 J 13286460 

IF STATABLE[LINE3,0UTPUTANKING THEN 13286465 

IF TANKLINECLINEJ x AND TAILOUT * LINE THEN 13286470 

BEGIN TANKLINEtTAILOUTj J«LINE; 13286475 

TAlLOUTl«LINEI 13286480 

STARTWORKINGI 13286485 

ENOI END* 13286490 

£ POP OMIT 13286491 

LINE* LAST! 13286500 

END? 13286550 

IF LINE*0 THEN 13286600 

BEGIN 13286650 

SYSD1SKI0(3»-LINE# INF)* 13286700 

INFC33* INFCU* 01 13286750 

SYSDISKIO(0»-LINE»INF)» 13286800 



$ SET OMIT s TWXONLY 13286809 

IF STATABLECLINUtSTATlONTYPE THEN *SCREEN DEVICE 13286616 

TNAOGCSEOARRAY[L!NE].C26I63JI*(«PCDUP})1INFIO)CJAI20IHJI 13286620 

S POP OMIT 13286821 

END? 13286850 

END* 13286900 

IF SYSDISKADR NEO THEN 13286950 

FORGETSPACE(INF)* 13287000 

END SETSPOJ 13288000 

REAL PROCEDURE ANALYSIS;* 14000000 

BEGIN! 14001000 

REAL ICW#IRCW» INCW#CL»T1»C»T2»SYLLABLE 1% 14002000 

t SET OMIT * NOTCNEWLOGGING) 14002099 

REAL MCPROCTEMPI 14002100 

S POP OMJT 14002101 

LABEL GETOUTI* 14003000 

COMMENT ANALYSIS EXAMINS THE SYLLABLE WHICH CAUSED THE JNTURRUPT AND* 14004000 

FROM THE RELATIVE ADDRESS Of THE SYLLABLE (INCLUDING* 14005000 

VARlENT OPERATOR CONSIDERATIONS) COMPUTES THE LOCATION, C» 14006000 

OF A COPY Of THE DESCRIPTOR ON THE TOP Of THE STACK,* 14007000 

THE PREVIOUS TWO SYLLABLES ARE FETCHED BY THE STREAMX 14008000 

STATEMENT GETSYLLABLES WHICH ALSO ADJUSTS THE C-L REGlST- 14009000 

ERS PROPERLY.* 14010000 

FINALLY THE STACK IS ADJUSTED AS FOLLOWS!* 14011000 

DECREASF S BY 1»IF OPDC OR DESC* 14012000 

XCH A AND B RF.G I STERSt I F COC OR CDC* 14013000 

OTHERWISE LEAVE THE SAME, M4014000 

CHECKSTACKSPACEJX *WF 14014100 

S SET OMJT s NOT(NEWLOGGING) 14014199 

IF P1MIX>0 THEN 14014200 

IF NOT LOGSTOPPEDfPlMlX] THEN 14014300 

IF NOT MCPROCTlMEtPlMlXJ, [1 »13 THEN 14014400 

BEGIN 14014500 

MCPRQCTEMP*PR0CTIME[P1MIXJ*CL0CK+P(RTR)1 14014600 

MCPR0CTIME[P1MIX3*NABS(*PCDUP))I 14014 700 

END? 14014800 

$ POP OMIT 14014801 

INCW * PRTCPlMlX»eJS* 14015000 

POLISHC.INCW.IOR)!* 14016000 

IRCW * * INCW l% 14017000 

ICW * *( (NOT 0) INX INCW) I X 14018000 

CL * (IRCW INX 0) 8, IRCWC30I10J23J* 14019000 

STREAM (T1*0,T2*0,CL»X«.0)J* 14020000 

BEGIN* 14021000 

SI*CLI SI-SI-2 I CL * Sli DI * LOC T2) DI*DI+6J* 14022000 

DS * 2 CHRI SI * SI -31 * 14023000 

IF SC ■ "/" THEN* 14024000 

BEGIN* 14025000 

SI*SI-ll IF SC «"0" THEN* 14026000 

BEGIN TALLY*1J T1*TALLY JCL ♦ SI END;* 14027000 

ENDJ* 14026000 

END GETSYLLABLE I* 14029000 

P0LISH(,CL»*#,T2»*»,T1»-);* 14030000 

IF INCW, [32113 THEN* 14031000 

BEGIN COMMENT P-BIT IN CHARACTER MODE ;* 14032000 

IF T2 * 04441 THEN* 14033000 

BEGIN COMMENT ENTER CHARACTER MODE** 14034000 

PCMtClRCN * *(NQT INX INCW * PKT[P1MIX,8J ♦* 14035000 

(NOT 1 INX INCW)&0C32llllJ))»U8ll53J&* 14036000 

i(16j47lU40[18Jl8ll53f (NOT 0)1NX INCW.*); 14037000 



C *■ INCH INX -2J* 14038000 

END ELSE BEGIN* 14039000 

IF MEMORYt C * I RCW , [ 18 I 153-T2 . [ 36 « 6] 3 t [ 1 1 3 3 * 4* 14040000 

THEN* 14041000 

BEGINS 14042000 

IF T2,[42I6]» P53 THEN BEGIN* 14043000 

COMMENT CONTROL WORD MEANS CHARACTER MODE RELEASE** 14044000 

Tl*PR'T[PlMlXi93«.M[(*C<NOT 1 ) JNX INCH) ) , [ 18| 153 J , [331 lb J 1 1 14045000 

POL1SH(M[T1]»0»0)U 14046000 

IF MCT1 3 . [20U3 THEN CONT I NUI TYB I T* * 14047000 

PROGRAMRELEASEJ* 14048000 

END* 14049000 

ENDJ* 14050000 

IF T2 = THEN GO TO GETOUT;* 14051000 

END* 14052000 

END* 14053000 

ELSE* 14054000 

BEGIN* 14055000 

IF T2, [46113 THEN* 14056000 

BEGIN* 14057000 

C *■ ICW, [3311531* 14058000 

POLISHCICW. (NOT DINX INCH, *»IRCW*X 14059000 

PRT[P1MIX,83*INCW «■ (NOT 0)JNX INCW »«■)>* 14060000 

END OPDC DESC PART* 14061000 

ELSE* 14062000 

BEGIN* 14063000 

C ♦ INCW INX "2J* 14064000 

IF (NT1 * T2 AND P77) * P41 THEN* 14065000 

BEGIN C ♦CI J* 14066000 

POLISHCMEMORY[C3»MEMORY[C+1J»[MEMORY[C33» * »[MEM0RY[C+1J 14067000 

}»«-)** 14068000 

END COC CDC PART* 14069000 

ELSE IF NT1 * 8»31 THEN* 14070000 

BEGIN COMMENT THIS IS A BRANCHI* 14071000 

GETOUTl CL ♦ PUPRUPlMlX,133#DUP#T2»XCHfO INX P600000U4072000 

END BRANCH PART* 14073000 

ELSE IF NT1 * 935 THEN GO TO GETOUT; COMMENT RETURN!* 14074000 

END ALL SYLLABLES BUT OPDC DESC I* 14075000 

END WORD MODE INTURRUPT J* 14076000 

POLISHCIRCW & CL[33l33ll53&CL[10!3Ql23»lNCW#O ;* 14077000 

ANALYSIS ♦CI* 14078000 

$ SET OMIT p NOT(NEWLOGGING) 14078099 

IF MCPROCTEMP#0 THEN 14078100 

BEGIN 14078200 

MCPR0CTEMP*PR0CTIME[P1M1XJ+CL0CK+PCRTR)-MCPRQCTEMPJ 14078300 

IF MCPR0CTEMP<0 THEN MCPRQCTEMP*0| 14078400 

MCPR0CTIME[P1MIX)*-ABS(*PCDUP))*MCPR0CTEMPI 14078500 

ENOJ 14078600 

* POP OMIT 14078601 

END ANALYSIS OF P BIT I* 14079000 

DEFINE C0DEADDRESS(C0DEADDRESS1#C0DEADDRESS2) ■ 14100000 

AC TUALOVERLAYADDRESSCltCODE ADDRESS 1> CODE ADDRESS2)** 141 01 000 

DATADDRESS(DATADDRESS1#DATADDRESS2) ■ 14102000 

AcTUAL0VERLAYADDRESS(0,DATADDRESSi»DATADDRESS2)#l 14103000 

14104000 

SAVE INTEGER PROCEDURE ACTUALOVERLAYADDRESSC TYPE* MIX, LOC)J 14105000 

VALUE TYPE* MIX. LOCI 14106000 

INTEGER TYPE* MjX, LOCI 14107000 

BEGIN INTEGER T « +U 14106000 

* SET OMIT « NOTCAUXMEM) 14108999 



label auxm e m» 14109000 

£ POP OMIT 14109001 

IF TYPE THEN * CODE,,, 14110000 

BEGIN 14111000 

$ SET OMIT * NOT(AUXMEM) 14111010 

IE LOC.[5U3 THEN GO TO AUXMEMJ 14111020 

$ POP OMIT 14111021 

LOC «* LOC INX 01 14U2000 

T J* JARtMIX.LOC DIV C T t * JAR[ Ml X. 83 ) + 10 3 + LOC MOD T; 14113000 

END ELSE * BETTER BE DATA,.., 14114000 

BEGIN 14115000 

$ SET OMIT ■ NOTCAUXMEM) 14115010 

IF UOC, t 331 33*7 THEN 14115020 

AUXMEMj T I* "(0 & LOC C 321 36 J 123 ) ELSE 14116000 

$ POP OMIT 14116001 

T !■ DAL0CCMIX»L0C.[33|6]+P(0UP>-13*LQC,C39|93 14117000 

END! 14118000 

END; 14119000 

$ SET OMIT * NOTCAUXMEM) 14119999 

PROCEDURE AUXIL1ARYMEM0RYCASUALTYREC0VERY; 14120000 

FORWARD) 14121000 

PROCEDURE AUXILIARYTABLEINITIAUIZEI 14122000 

FORWARD! 14123000 

S POP OMIT 14123001 

COMMENT THE SEGMENT DICTIONARY IS CONSTRUCTED BY THE* 14125000 

COMPILERS AND EACH ENTRY HAS THE FORMAT!* 14126000 

11113 ■ 1 FOR TYPE 2 SEGMENTS* «0 OTHERWISE,* 14127000 

I 21 13 « 1 FOR INTRINSICS » * OTHERWISE,* 14128000 

[ 3» 13 * 1 IF BEING MADE PRESENT. » OTHERWISE 14128100 

(INTERLOCK FOR RE-ENTRANT CODE) 14128200 

t 4» 23 * FOR NORMAL SEGMENTS 14128300 

= 3 FOR SEGMENTS OVERLAID TO AUX, MEM, 14128400 

* 2 FOR SEGMENTS TO BE OVERLAID TO 14128500 

AUXILIARY MEMORY WHICH HAVEN"T BEEN 14128600 

C 61 13 ■ 1 FOR C0B0L68 FILE TANK, 14128700 

[ 71 13 « 1 FOR C0B0L68 READ ONLY ARRAY, 14128800 

[ 81103 • LINK TO PRT FOR 1ST DESCRIPTOR FOR* 14129000 

THIS SEGMENT.* 14130000 

U6U53 ■ SEGMENT SIZE (<1024) FOR ABSENT 14131000 

SEGMENTS ,* 14132000 

« CORE ADDRESS OF PRESENT SEGMENTS.* 14133000 

* 1 FOR NEVER-PRESENT INTRINSICS,* 14134000 
[331153 « DISK ADDRESS OF SEGMENT,* 14135000 

» INTRINSIC-NUMBER FOR INTRINSICS,* 14136000 

THE PRT FOR PROGRAM SEGMENTS IS CONSTRUCTED BY THE* 14137000 

COMPILERS IN THE FORMAT J* 14138000 

[ 0153 * PROGRAM DESCRIPTOR BITS,* 14139000 

t 6113 * STOPPER BIT WHICH DEFINES THE t 7U13* 14140000 

FIELD,* 14141000 
C 71113 « LINK TO NEXT DESCRIPTOR THAT BELONGS TO* 14142000 

THIS SEGMENT, IF STOPPER FALSE,* 14143000 

* SEGMENT NUMBER. IF STOPPER TRUE,* 14144000 
C1B1153 ■ IT-REGISTER FIELD USED AT RUN TIME IN* 14145000 

LABEL AND ACCIDENTIAL DESCRIPTORS,* 14146000 

■ SEGMENT NUMBER FOR WORD MODE AND* 14147000 

CHARACTER MODE DESCRIPTORS,* 14148000 

[331153 • CORE ADDRESS FOR PRESENT SEGMENTS,* 14149000 
« RELATIVE ADDRESS FOR ABSENT SEGMENTS,* 14150000 

I,E. RELATIVE TO BEGINNING OF SEGMENT,* 14151000 

EACH PRT (R+4) CONTAINS A DESCRIPTOR WHICH POINTS* 14152000 



procedure: makepre 

BEGIN* 

REAL MIX 

REAL SAV 

REAL P1M 

REAL 

INTEGER 
BOOLEAN REE 

DEFINE L 

DEFINE NOTOPEN 

ARRAY NAME DD 

ARRAY AIT[*J; 

ARRAY PRTR[*] 

REAL SEG 

REAL SPA 

BOOLEAN 

REAL 1»J 
S SET OMIT m NOT 

REAL MCP 
S POP OMIT 

LABEL tXlTl * 

label wrap#ar 
label open.cl 
label codein; 
label dloop# 
define rever 
comment makepresent ha 

OF DESCR 
DATA DFS 
IF 



TO THE SEGMENT DICTIONARY.* 
SENTCOI VALUE C* REAL CJ* 



X*PlMIXt 

ebit* nine j* 

ix) real yecchh*-2»* 

»mother»mom»loc»size;* 

diskaddr * savebitjx 

NTRANT! 

INKa [ 7lllJ#»STOPPER*[ 

«=[25«1] *i% 

t% 



61 1J#»PR0GRAMDESC*C5!1J#JX 



)X 

NO»MOTHER» X« 
CE*« SPACE 

noti3*spacf; 

» 

CNEWLOGGING) 
ROCTEMPI 



MOMtlOD n 
FOR SEGMENT 



NUMBERS (INTRINSICS) BY MJX 



ALL AVENUES MUST 

ound.testreadyj* 

OSE>* 



LEAD TO HERE 



AND SET* 
ADDRESS* 
SPACE ELSE* 



10 

PRO 

J* 

SUBROUTINE RU 

BEGIN WHILE N 

OR MEMOR 

END RUNAROUND 



NGI 

SE «[22in#. READY *[ 19 J U#»PRESENT »[2lU#l* 

S THE FOLLOWING ACT I ONSi DEPEND I NG ON THE TYPE* 
IPTOR CAUSING PRESENCE BIT »* 
CRIPTOR «* 

MOTHER ABSENT THEN GET CORE SPACE 
MOTHER PRESENT WITH PROPER CORE 
THEN IF INITIAL ACCESS. ZERO THE 
RFAD IN FROM DISK AND RETURN DISK SPACE* 
THFN SET 1ST MEMORY LINK TO SAVE OR NOT SAVE* 
AND SET 2ND LINK TO ADDRESS OF MOTHER* 
IN ANY EVENT. SET COPY PRESENT WITH CORRECT CORE* 
ADDRESS,* 
DESCRIPTOR!* 
GRAM DESCRIPTOR!* 

NAROUNDJ* 

OT (PRTREXJ *■ ((LOC + 2) INX PRTRCXJ)* 

Y), STOPPER DO X * PRTRt X] ,L INK I % 



$ SET 



OMIT 
IF 
IF 
IF 



* NOT 
MIXX> 
NOT L 
NOT M 



CNEWLOGGING) 
THEN 

OGSTOPPEDtMIXX] THEN 
CPROCTlMECMlXXiaiUl 



THEN 



S POP 

IF 
IF 



BEGIN 

MCP 
MCP 
END! 
OMIT 

IF (P1MI 
(D * M[CJ) 
Ot[6l2J*l 



roctemp«-proctime[mjxx)+clock + pcrtr)j 
roctimeimixxj*nabs(*pcdup)); 



BEGIN X»»[INT 



X*YECCHH,tCFJ)«0 THEN P1MIX*MIXX; 
ttllll THEN* 
THEN *TYPE 13 INTRINSIC 
RNSC[SEGNOl«NFLAG(D) INX 0]]) 



14153000 
141S4000 
14155000 
14156000 
14156500 
14157000 
14157500 
14158000 
14159000 
14159100 
14160000 
14161000 
14162000 
14162500 
14163000 
14164000 
14164100 
14164200 
J4164300 
14164399 
14164400 
14164401 
14164500 
14165000 
14166000 
14166100 
14166200 
14167000 
14168000 
14169000 
14170000 
14171000 
14172000 
14173000 
14174000 
14175000 
14176000 
14177000 
14178000 
14179000 
14180000 
14181000 
14182000 
14183000 
14184000 
14185000 
14185100 
14185199 
14185200 
14185300 
14185400 
14185500 
14185600 
14185700 
14185800 
14185801 
14185900 
14166000 
14186010 
14186020 



IF MEMR0W[P1MIX] INX LSS FENCE THEN 14106030 

BEGIN 14186040 

SEGNOl»SEGNO-l J 14186050 

STREAM(Tl»SEGNO AND 3» I «* 1 1 NTABLEt P1M I X. SEGNO U IV 4]])? 14186060 

BEGIN DII«»DI*T| DH»DI+Tl SKIP 1 DBJ DSl*SET? END? XMARK TYPE 1 814186070 

IF X GTR THEN SLEEPC [ X } »-0 ) I 14186080 

IF (X INX 0} LEQ 1023 THEN 14186090 

BEGIN P(ABS(X)#[X]» ts)j 14186100 

SIZE«*X INX 01 14186110 

MINE»*(NFLAGCD) INX OHS I ZE t 8 » 38 I 10] &3[ It 46 » 2 ] i 14166120 

$ SET OMIT m MONITOR OR NOT(AUXMEM) 14166121 

AUXTRACEC1»CNFLAG(D) INX 0))l 14186122 

I POP OMIT 14186123 

L0C1«GETSPACECSIZE>13»0)J 14186130 

S SET OMIT ■ NOTCAUXMEM) 14186132 

IF X f [3lU THEN % INTRINSIC ON AUXMEM 14186134 

DISKADDR l» -(0&X[32l21»12l) 14186136 

ELSE 14186137 

$ POP OMIT 14186136 

DISKADDR »* X,[6»27JJ 14186139 

GO TO CODEINI 14186140 

END ELSE BEGIN M[ C 3 , 1 CF J ? «I NTRNSC [ ( NFLAG(D ) ) INX OJ.CCFJJ 14186150 

HCC3.C2I 1 Jl«ll 14186169 

GO EXJTJ 14186170 

END 14186180 

END ELSE 14186190 

BEGIN 14186200 

S!ZEI"INTABLEROWCPlMlXJ t (8nOJ-ll 14186210 

FOR I IWINT13ST ART STEP 1 UNTIL SIZE DO 14186220 

IF lNTABLE[PlMlXilJ f [FF)«SEGNO THEN 14186230 

BEGIN Jl»i; SIZEIpOJEND; 14186240 

IF J NEQ THEN 14J86250 

BEGIN . 14186260 

MtcJ.[CFJl»lNTABLE[PlMlX#J].[CF]l 14186270 

M[C3.[2?lll»ll 14186280 

GO EXIT; 14166290 

END ELSE 14186300 

BEGIN SSEARCH FOR EMPTY SLOT 14186310 

FOR I IPINT13START STEP 1 UNTIL SIZE DO 14166320 

IF INTABLECPlMIX»n«0 THEN BEGIN J»*IJ SlZEl*Oj END? 14186330 

IF J«0 THEN X EXPAND INTABLE ROW 14186340 

BEGIN L0C!*INTABLER0W[P1MJXJ INX 01 14186350 

INTABLEP0WtPlMlXjJ»[MtGETSPACE(SlZE+lNTl3SlZE»lf 1) 14186360 

♦ 2n&(SIZE*INTl3SlZEH8!38»lO]l 14186365 

M0VE(SIZE+INT13SIZE»INTABLEN0W[P1MIX],CCF3»1» 14186370 

INTABLER0WEP1MIXJ); 14186375 

M0VE(SIZE»L0C»INTABLER0W[P1MIX]); 14186380 

J|«i; 14186390 

END? 14186400 

IFCSUEIMNTRNSCCNFLAGCD) INX OJ INX 0) GTR 1023 THEN 14186410 

SlZE»»M[SlZE-n,[FFJ> 14186415 

$ SET OMIT • NOTCAUXMEM) 14186416 

IF X,C3IU THEN ^INTRINSIC ON AUXMEM 14186417 

DISKADDR*-(0*XI32»21I12]) 14186418 

ELSE 14186419 

* POP OMIT 14186420 

DlSKADDRl«X,C6i27]l 14186422 

MINE*(NFLAG(D) INX 0)&SI ZE[ 8 I 38l 1QJ& 1C4 » 47 II J&l [ 2 I 47 I 1] * 14186425 

L0C»»GETSPACE(SJZE»13»0)I 14186430 

MCLOC J««(*P(DUP))&PlMlXt9t42l6JJ 14186440 



INTABLtCPlM 

GO TO CODEI 
END 
END 
END El.SE 

BEGIN PRTR * PRT[P1MI 

DO IF LOC.PROGRA 

ELSE IF IOC 

ELSE LOC * 

UNTIL SEGNO*OIX 

DO * SEGNO INX p 

IF DD(0],(3I1) T 

IF (SIZE * (MINE 

BEGIN DDtO],[3»l 

N0T13l»TRUE 

IF MINE<0 T 

IF PRTR[X 

IF M1NE.I2I 

BEGIN X * t 

IF REENT 

LSS FE 

BEGIN 

I 

B 



S SET OMIT 

$ POP OMIT 
I SET OMIT 



t POP OMIT 



E 
END) 
SIZF « 
MONITOR OR 
A 

NOT(AUXMEM) 
IF X,£3 
DISKADD 
ELSE 

DISKADD 
END ELSE IF 
DISKADDR 



IX. JJI«0tStGN0[CTFH(L0C*2nCTCJI 

n; 



X.*]; LOC * NFLAG(D)&0[5«5in; 
MDESC THEN SEGNO «• LOC.C18J153* 
.STOPPER THEN SEGNO * LOCtLINK* 
NFLAG(PRTR[L0C,LINK3)X 

RTRU3JX 

HEN COMPLEXSLEEP((NOT DD[ 03 , C 3 1 13 ) ) I * 

* DDCQ3),[18ll53)<1023 THEN* 
3 * II* 

I 
HEN* 

* MlNE.t8llOJJ.C2t 13 THEN GO ARQUNDJ* 
1] THENX 

INTRNSC[MJNE INX 0331* 

RANTl*(X,[4llJ OR (MEMRQWCP1M I X ] INX 0) 

NCE) OR ((MINE INX 0)»17) THEN 

IF X>0 THEN SLEEP(£XJ. -0)1 

F (X INX 0)>1023 THEN 

EGIN LOC ♦ (SIZE ♦ X INX 0)-2l 

DDCOJ , t FF3 * SUE* GO AROUND* 
ND ELSE PCABS(X). C X J * O) 



* X INX 0| 

NOT(AUXMEM) 

UXTRACEd»(MINE 



INX 0))l 



113 THEN % INTRINSIC ON 
R I* -C0&XC32I21I12J) 



AUXMEM 



R t« X t [6l27)l 

JAR[PIMIX»103bO THENX 
I* DATAD0RESS(P1MJX» MINE) 



ELSE DISKADDR «* C0DEADDRESS(P1MI X. MINE)! 

LOC * GETSPACE(SIZE»1 ♦ (MJNE<0) + 70xREENTRAN1 » 
MJNE<0 AND MINEt C6l 1 ))I 



CODEJNf 
S SET 



OMIT 9 NOT(STATISTICS) 

COUNTUP((LOC GTR FENCE ) *19t ( SI ZE+29) DJV 30)1 
$ POP OMIT 

DISKI0(I0D»-L0C-1»SIZE»DISKADDR)> 
SLEEP(UODJiIOMASK)! 
IF I0D,[26»7] NEQ THEN 
BEGIN 
IF MINE, 12113 OR (0,C6l2J»l) THEN 

INTRNSCtMINE INX 03 I* NABS( *P( DUP ) ) I 
DDtOJ,[3ll3 l* 01 
GO TO NGJ 
ENDI 

X !« MINE. [811031 
IF N0T13 THEN 

OLAYCTRtPlMIXJj*DOWNOLAY(SlZE)l 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
I 
1 
1 
i 
1 
1 
1 
t 
1 
I 
1 
1 
I 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
t 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
XR381 



4186450 
4186460 
4186470 
4186473 
4186480 
4167000 
4188000 
4189000 
4190000 
4191000 
4192000 
4193000 
4194000 
4195000 
4195100 
4196000 
4197000 
4198000 
4198100 
4198200 
4198210 
4198300 
4198400 
4198500 
4196606 
4198700 
4199000 
4200000 
4200010 
4200020 
4200030 
4200100 
4200200 
4200300 
4200400 
4200401 
4200500 
4201000 
4202000 
4202100 
4203000 
4204000 
4205000 
4205001 
4205010 
4205099 
4205100 
4205101 
4205200 
4205300 
4205400 
4205500 
4205700 
4205750 
4205600 
4205850 
4206000 
4206010 
4206100 
4206200 



S SET OMIT * NOTCSTATISTICS) 14206299 

CQDEPBITS[PlMlX)lw*P(DUP) + ll *R63 14206300 

S POP OMIT 14206301 

IF D. [6123*1 THEN 14206310 

BEGIN 14206320 

MCC J • CCF J^UOC + 21 M[C)»[2lU*l! 14206330 

IF MEMR0W[P1MIXJ INX LSS FENCE THEN BEGIN 14206332 

INTRNSCtMINE INX ] J »-( *P COUP ) H ( L0C + 2M CTC J I 1420633* 

M[L0C3l*(*P(DUP)H0[9l9l63&0[2l47tU END ELSE 14206336 

M[LOC3«C2t l]lvOI 14206336 

M[L0C+l3* 0&MlNEt8l38tlO)&SIZEtCTFJ* 14206340 

GO EXIT! 14206350 

END? 14206360 

IF MlNE>0 THEN BEGIN RUNAROUNDJ* 14207000 

M[C3 • ((L0C+2) INX D) OR MEMORY** 14208000 

IF REENTRANT THEN 14209100 

INTRNSCCMINE.tCFii * •( *P< DUP ) H CLOC + 2 ) t C TC 3 ELSE 14209200 

IF (X * PRTR[4J, [18J63)#0 THEN* 14210000 

M[L0C3 * (*P(DUP))8.X[9l42«6J»X 14211000 

t SET OMIT * NOTCAUXMEM) 14212000 

IF NOT DISKADDR.CUU THEN 14212010 

t POP OMIT 14212011 

M[L0C+13I*0 & SIZE[CTF]J 14212020 

M[L0C*UI"(*P<0UP))4SEGN01CTCJ» 14212030 

IF MINE.C2M) THEN MHOC + 13 * ( *P(DUP ) )&M I NE C 8 I 38 > 10 3 f % 14212100 

DDtOJ, [181153 ♦ LQC+21* 14213000 

END PROGRAM CODE SEGMENTS* 14214000 

ELSE BEGIN 14215000 

M[C3 ♦ PRTR[X] * M OR CCL0C+2)* 14216000 

&(M[L0C*13 * [PRTR[X33 INX ) [ 18 I 33 I 15 3« 14217000 

& (MINE. [7111x24) [3143153 * C0B0L68 READ ONLY 14217500 

*SlZE[8t38:iOJ)J* 14218000 

IF MINE. [6113 THEN X C0B0L68 FILE TANK 14218010 

IF NOT PCM[L0C+43»T0P»XCHtDEL) THEN* BUILD FIB PTR14218025 

BEGIN 14218027 

P([M[L0CM3]*DUP»DUP.L0DiXCH»INX#M[C3»FFX» 14218030 

P100026»UIA 32»DIB 2tTRB 16#XCH»*)i 14218035 

WHILF <AJT*PRTR[A1TNDX]),PBIT*0 14218040 

DO MAKEPRESENT([PRTR[AITNDX33 INX 0)1 14218045 

IF AIT, [8110] < AIU03+2 THEN 14218050 

BFGIN PCAITtO.OJJ I NTERRUPT ( 1 ) 1% PHONEY I NVALI Dl A2 1 8055 

P(DEL,DEL»DEL)J * INDEX ON AIT 14218060 

AIT * PRTRUITNDX3; 14218065 

ENDI 14218070 

AIT[AIT[03I«*P(DUP)+13I»-(HPRT[P1MIX,16 3 14218075 

[8t38ll034M[C3[FTF3)» 14218081 

ENDI 14218090 

$ SET OMIT » NOTCSTATISTICS) 14218099 

DATAPBITS[P1MIX] ja*P(DUP)+l» XR6 3 1421 81 00 

* POP OMJT 14218301 

END TYPE TWO DATA SEGMENTS!* 14219000 

IF NOT MINE, [6113 THEN M[LOC3.(2ll3 * 01 14220000 

END ABSENT SEGMENTS* 14221000 

ELSE BEGIN LOC ♦ SIZE-2J* 14222000 

REENTRANT * DDCOJ w t2l 111 14222100 

AROUNDI IF DD[0J>0 THEN* 14223000 

IF NOT PRTR[X * DD[ J . [8 1 10 3 3 , [ 2 1 1 3 THEN RUNAROUNDI* 14224000 

MCC] * IF DD[03>0 THEN ((SIZE INX D) OR M)* 14225000 

ELSE PRTR[DD[0] I [8U033J* 14226000 

ENDJ* 14227000 



IF REENTRANT THEN 14227100 

BEGIN SUE * (DDtOJ 1NX 0)-l)* 14227200 

if memr0w[p1m1x] 1nx geo fence then 14227210 

sizei«reentrantintabuemap(Size+i); 14227220 

streamcsegno. t ♦ size and 3i* 14227300 

i «• [1ntable[p1mix»size div 4jj))* 14227400 

BEGIN 14227500 

SII*1I S I I «S I +T J Sl«*Sl+Tl SKIP 1 SB* 14227520 

IF SB THENJ * REMEMBER TYPE 13 REFERENCE 14227540 

DI!«DI«T! DH«DI*TI T I «D 1 1 SI t«U0C T) 14227560 

SI IOSI-2S DSl*2 CHR) 14227580 

IF TOGGLE THEN BEGIN DI)*T) SKIP 1 OB) 0Sl»SET) END) 14227600 

END) 14227620 

END)* 14227700 

DDC0)«[3tl) ♦ 01 GO EXIT! 14228000 

END)* 14229000 

IF (MQM|isDiE3)5J)*0 AND (MOM AND ?33)#P30 THEN 14230000 

BEGIN* 14231000 

COMMENT 1/0 DESCRIPTOR;* 14232000 

IF JAR[PlMlXt2J < THEN 14233000 

BEGIN TERMINATECP1MIX); 14233100 

TERMlNAtMESSAGEC25)J 14233200 

END) 14233300 

TESTREADY) MOM t *M[ LOC*D INX (IF D»REVERSE THEN 2 ELSE NOT 1)3, tCFj) 14234000 

IF (M[M0M] AND IQMASK)*Q THEN 14235000 

WAlT0RSWAP(M[L0CJiU2)6J»MQM)) 14236000 

IF TERMSET(PIMIX) THEN GO TO INITIATE) 14237000 

IF MEM0RY[M0M], PRESENT THEN* 14238000 

MEM0RY[C]*MEM0RYIM0M]« 14239000 

ELSE* 14240000 

BEGINS 14241000 

IF MEMORYfMOMJ.NOTOPEN THEN* 14242000 

OPEN)* 14243000 

BEGIN SAVEOPENCMOM)) GO TO TESTREADY END SSR9014244000 

ELSE BEGIN* 14245000 

COMMENT READY AND NOT PRESENT INDICATES REEL-SWITCH OR TERMINATE)* 14246000 

PRTR*M[M0M-3J)* 14247000 

L0c*PRTRU5M25l53)* 14248000 

SIZF*PRTR[41,[8|4};X 14249000 

IF MCMOM], [27111 THEN* 14250000 

IF MtM0M] f t24»U THEN* 14251000 

BEGIN IF SIZE*2 AND NOT PRTR[ 4 3 , 1 2« 1 i * 14252000 

AND NOT M[M0M],(22tU THEN* 14253000 

BEGIN BLASTQ(LOC))* 14254000 

P(WAITI0(MIM0M-2J»0»L0C)»DEL))* 14255000 

P(WA1TJO(«»1000000340000005»0»LOC)»DEL))X 14256000 

IF MtMCMOM-23 INX 4),[42|6]*1 THEN* 14257000 

CLOSE! BEGIN L0C*PRTR[1 33 1 C28 1 103 ) * 14258000 

FJLECL0SE(M0M&P12U8«33)15]))X 14259000 

PRTR[13),[28I10J»L0C+1)X 14260000 

GO TO OPEN)* 14261000 

END)* 14262000 

END)* 14263000 

END FLSEX 14264000 

BEGIN IF SIZE*2 OR SlZE*7 OR SIZE«8 THEN* 14265000 

BEGIN IF NOT PRTR[4J,[2U1 THEN* 14266000 

MtM[MQM*2J INX 4 3 , [ 42 I 63* 1 ) X 14267000 

GO TO CLOSE)* 14268000 

END)* 14269000 

END)* 14270000 



PCM0M»M[M0MJ,[27Um»0»0)J* 
C0M11J* 

end)* 



END)* 
END* 



ELSE* 



COMMENT 
DLOOPl 



DATA 

IF 
IF CMO 
B 
P 
P 
G 
E 

IF ( 
R 
C 
G 
E 

SAVE 

MEMO 



BEGINX 
DESCRIPTORS 



IF M 



COMMENT 
* SET 

S POP 



NGI 

S SET 
$ POP 



S SET 

t POP 

WRAPlX 



EXITI 



ELSE 

READ 
OMIT * 

MORE 
OMIT 

DISK 

SLEE 
IF I 
B 
F 
G 
E 
OMIT ■ 

OMIT 



MEMO 
MEMO 

OMIT • 
DATA 

OMIT 



(MOTHER*ME 
THER INX 0} 
EGIN 

RTR0WCP1MIX 
RTR0WCP1MIX 
TO INITIA 

nd; 

MOTHER INX 

EGIN 

OMPLEXSLEEP 

TO DUOOP. 

ND) 

BIT * MOTHE 

RY[M0M] * M 
SAVEB 

OTHER, [CF3< 

STREAMCl-L 

BEGIN 

DI*L) 

Sl-L; 

END 
X 

BEGIN* 
ARRAY FROM 

NOTCSTATIS 
DPBITS[P1M| 



MORYCMOM ♦ D»tl8li 
«• 6 THEN X I/O ER 

l.tFFl I* 201 % }/ 
],CPSFJl« II * TE 
TE» 

0) * 5 THEN X INTE 

(C(M[M0M3 INX 0) N 



R,[CF3=1) 

OTHER&CdOC *GETSP 

IT »+2)[33t33 

3 THEN 

0C + 2» S*SIZE"1» T*- 

SI * LOC SlSI*Sl 

SI*L0C Hf DS*WD 

T(DS*32 WDS) DS*3 

ZERO SPACE* 



533), I 

ROR F« 

ERHO 
RMINAT 



2tn 

OM OL 

R 
E 



THEN GO WRAP)* 
AY 



RLQCK FROM OLAY 
EQ 5))) 



ACE(SlZE*M0THER,t8|10J#2»X 
)15JU[2U7il J;x 



MOTHE 
•LOC T 



R,[CF3 
)DI*Dl 



0» W*( 
+ 6 ; D I 

s; 

2 NDS)I DS*S WDSJX 



*2))J 

♦7)DS*CHR)X 



DISK AND RETURN DISK SPACE;* 

TICS) 

X]|»*P(DUP)*ll 



10(1 

PC C I 

0D,[ 
EGIN 
ORGE 
TO 
ND? 
NOT 
COU 



0D»"L0C-l»M0THER»t6l 

DATADDRE 
Q03tI0MASK)) 
26173 NEO THEN 

TSPACECLOC+2)) 
INITIATE) 



(STATISTICS) 

NTUP((LOC GTR FENCE)+21»C 



10), 

SS(P1MIX» MOTHER))? 



MOM*MOMfcMOTHERtCTFJ; 

0LAYCTR[P1MIX]|«D0WN0LA 

END ;x 
RYtL0C3,[2»n * SAVEBI 
RYCL0C+1J * MOM I* 

NOT(STATISTICS) 
PB1TS[P1M!X]|«*PC0UP)*1I 



Y(MOT 
TJX 



MOTHER, [61101+29) DI V 30)1 
HER, [6t 101)) 



MEMORYCCJ « 
END)* 



- IF D, [81103 • 
ELSE MEM0RY[M0M3 



THEN 
I* 



P(M[M0M3»0f CDCtDiXCHt INX)Z 



14 

14 
14 
14 
14 
14 
14 
H 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 

XR3814 
14 
14 
14 
14 

XR6314 
14 
14 
14 
14 
14 
14 



271000 
272000 
273000 
274000 
275000 
276000 
277000 
278000 
278100 
279000 
279150 
279200 
279250 
279300 
279350 
279400 
279450 
279500 
279550 
279600 
279650 
280000 
281009 
282000 
283000 
284000 
285000 
286000 
287000 
288000 
289000 
290000 
291000 
291099 
291100 
291101 
292009 
292100 
292110 
292129 
292130 
292140 
292160 
292170 
292199 
292200 
292201 
293000 
294000 
295000 
296000 
297009 
297099 
297100 
297101 
298000 
299000 
300000 
301000 
301100 



t SET OMIT * NOT(NE^LOGGING) 14301199 

IF MCPROCTEMP#0 THEN 14301200 

BFGIN 14301300 

MCPR0CTEMP*PR0CTIMECMIXXJ+CL0CK4.PCRTR)-MCPR0CTEMPI 14 301400 

IF MCPR0CTEMP<0 THEN MCPROCTEMP*0; 14301500 

MCPROCTIMEtMIXX]*ABS(*P(DUP))*MCPROCTEMPJ 14 301600 

ENO> 14301700 

t POP OMIT 14301701 

END MAKEPRESENT J* 14302000 

REAL ADDRS«NT1JX 14342000 

PROCEDURE C0M5U 14343000 

BEGIN* 14344000 

DEFINE HAKRYSTA s M[ WORKERSTACK+5 J # » % STA 14344100 

CtEARlNPUTANK « 14344200 

STATABLE [ IJ »«C*P( DUP))&(CANDEM IX tI3 + P240H 1«39 I 93 14344250 

&0[14l47llHl[16l47in 14344350 

&(NQT (Ti«INPUTANKtl]))[l3l35iUJ 14344400 

INPUTANKtUl«NAB5CP(DUPfL0D»0»XCH)*PC35l35lll)l 14 344450 

IF (Sl"Ti"7,[FF]»2) GTR THEN DO 14344500 

BEGIN IF CMtT] AND IOMASK)wO THEN 14344550 

SLEEPUMmj»lOMA$K)J % THEN DISCARD 14344600 

FORGETSPACECTH X BUFFERS 14344700 

END UNTIL (Tl»M[T+2J,[CFJ-2> LE« OR T«Sl 14344800 

I; 14344900 

REAL RCW*+0»X 14345000 

ERT0G*+2»X 14346000 

I *+3*% 14347000 

T salt 14348000 

INTEGER J*UX 14349000 

ARRAY VECT0R» + 5t*]»S* + 6t*m 14350000 

INTEGER Q*S; 14350100 

REAL MSCW*-1> 14350200 

REAL TYP**7; 14351000 

INTEGER LINK; 14351100 

LABEL RETURNEM, AHEAD; 14351150 

INTEGFR M0THER«+8» NEXTM0M*+9» M0MMIX**10» CATCH«*lll* 14351200 

REAL JAR9 * +121 14351210 

S SET OMIT « NOT(PACKETS) 14351239 

REAL UNITN0*LINK1 14351240 

S POP OMIT 14351241 

ARRAY PRTR*L!NK[*3; XR2314351300 

S SET OMIT m NOT C STAT I ST I CS ) 14351309 

REAL 0BJINFOb+12> 1435131I 

$ POP OMJT 14351311 

* SET OMIT « AUXMEM 14351390 

DEFINE STACKSZ*180#; 14351400 

$ SET OMIT « NOT AUXMEM 14351410 

DEFINE STACKSZ*200#; 14351420 

$ POP OMIT OMIT 14351430 

PRJ0RTY»PRY0R[P1MIX]*-11 14 351500 

P(GETSPACE(STACKSZ»76t0)»STS».COM5#RCW»0#RDS»O»XCH#CFX»STF); 14 353000 

P(P&[MSCW3tCTF]#0»0»0i0»0»0); 14 354000 

P(0#0»0»0#0»0#0); 14355000 

t SET OMIT » NOTCSTATISTICS) 14355099 

P(0)I 14355100 

C0RETIME[P1MIX3I*(*P(DUP))+CL0CK+P(RTR)-T1MINGCP1MIXJJ 14 355200 

t POP OMIT 14355201 

UVR0WIP1MIX3*CVECT0R*UVR0W[P1MIXJ)& 14356300 

CGETSPACECUVSIZE»64i5)+2HCTC)J 14356400 

M0VE(UVSUE»VECT0R»UVR0W[P1MIX]); 14356500 



VECTOR I »JARR0W[P1MIX)8,< GET SPACE(30#64»b) + 2HCTC); 14 357000 

M0VEC30 i JARR0W[P1M1X]# VECTOR); 14 357100 

IF (M0THER1«MEMR0W[P1MIXJ,[CFJ USS FENCE) THEN 14357150 

F0RGETSPACECJARR0WCP1MIXJ) ELSE 14357200 

IF VECTORED USS THEN MeMRQW[ PlMI X J J «MEMRQW [ 0) ; 14357250 

UARR0W[P1MIX3,[CF3J*VECT0R) 14 357 300 

ERT0G*0&PRT[P1MIX»P25][1J2«46]) 14357400 

JAR9 {» VECT0R[9]> 14357500 

TYP*VECT0R(2J,[8ii0]| 14358000 

IF VECT0R[03<0 THENX 14358100 

BEGIN CATCH*PRTCP1MIX»P2<>]I 14358150 

ERT0G«-VECT0Rtl J<0 OR ERTQG) 14358200 

END) 14358300 

IF VECT0Rt2]<0 THEN X COBOL 14360100 

IF VECT0R[1]>0 THEN X NOT DS-ED 14360200 

WHILE PRTtPlMIX»16]>0 DO ASR)XCLEAN OUT AIT 14360300 

* SET OMIT « NQTCAUXMEM) 14360302 

IF VECTORED GTR THEN * NOT DS"ED 14360304 

FOR MOMMIX t* 6 STEP 5 UNTIL 11 DO 14360310 

BEGIN 14360320 

Q I* NFLAG(PRT[P1MIX#M0MMJXJ)J X AIT OR OAT ENTRY 14360322 

IF Q.E2I13 THEN X PRESENT. GRAB ADDR FROM LINK 14360324 

Q 1* Q ft MCO INX NOT 031FU3) 14360326 

IF Q.E33l33*7 THEN ARTNC6p-D) X AUXMEM 14360328 

IF VECT0RE2) LSS THEN MOMMIXl«ll» X COBOL HAS NO OAT 14360330 

END) 14360332 

t POP OMIT 14360333 

SLEEP<C0LaYMaSK3»T»«TW0CP1MIX)); 14 360334 

OLAYMASK ip OLAYMASK AND NOT T) 14360336 

T l* DALOCtPlMIX»03,ICF3» 14360338 

FOR It«l STEP 2 UNTIL T DO 14360340 

BEGIN 14360342 

F0RGETUSERDISKCDAL0CtPlMIX.I3»-5OQ)J 14360360 

END) 14360362 

J \* INTABLER0W[P1MIXJ | • 0) 14360364 

$ SET OMIT * NOT(AUXMEM) 14360366 

S |* PRUP1MJX.43 & ((I »»*P(DUP)) + 1H8»38!10); 14360368 

FOR I»»I STEP -1 UNTIL 1 DO 14360370 

IF CAUXC0DEtPlMIX3+AUX0ATA(PlMIX3)*0 THEN I»*l ELSE 14360372 

IF CNT1 I* 5(13X0 THEN 14360374 

IF VECTORED GTR THEN X AVOID CONFUSION IF DS-ED 14360376 

BEGIN COMMENT TYPE-TWO (DATA) SEGMENT) 14360378 

IF (NTlleNFLAG(PRT[PlMlX.NTl. [8»10)])), (2113 THEN 14360380 

NT1 t* NT1 I M(PCDUP) INX NOT 03EFTC3) 14360382 

IF NT1,[33I3W THEN 14360384 

ARTN(NTlfl)) 14360386 

END ELSE ELSE 14360388 

IF NTl,[5ll3 THEN 14360390 

BEGIN IF (NT2 t« NU . [ FF 3 ) > 1023 THEN NT2 J »M( NT2-1 3 , C FF) ) 14360392 

AUXCODEtPlMIX] |> *H(DUP)-NT2 I [38I6)-1) 1436039ft 

F0RGETAUXILlARYSPACE(NT2f NT1.ECF3)) 14360396 

END) 14360398 

S POP OMIT 14360399 

IF MOTHER THEN X BELOW FENCE 14360400 

BEGIN STASUS(P1MIX3*STABLE) 14360500 

C0RE.(FF3*C0RE f EFF 3*S INFO t PlM I X 3 , t FF 3 ) 14360600 

WAITSTORE(PIMIX)) 14361000 

WHILE(T*M(I3),CCF3 * DOX 14362000 

BEGINX 14363000 

IF T>0 THEN* 14364000 



IF T, C9I6 JvPlHIX IHENX 14365000 
% XR8114365100 
% XR8U4365200 

F0KGETSPACEC1 INX 2)J XR8U4365300 

I* T.ICFJX 14366000 

ENDI* 14367000 

END ELSE 14367010 

BEGIN IF L0GUINE,f33»f]?»0 THEN 14367020 

BEGIN CLEARTANK(L0GLINE#0)1 14367021 

TANKStII»L0GLINEi[«0l8]3l"(*PCDUP))40[CTCJ» 14367022 

If WORKING THEN % MAKE SURE HARRY ISNT14367023 

IF HARRYSTA-I THEN % DIDDLING OUR LINE 14367024 

COMPLEXSLEEP(NOT WORKING OR HARRYST A# I ) I 14367025 

CLEARINPUTANK; 14367030 

TANKOKt I } f *0« 14367032 

END; 14367034 

SWAP(E0JSTATE»0); 14367036 

MEMROW[PtMlX]j»MEMROWtOJ{ 14 367038 

T*CI*NOT FENCE INX 1) DIV 1890+2; 14367040 

FORGETUSERDlSK(DlSKSTOREtPlMIXJ»NABS( I DIV 30 + T + T + 2 )) 1 4367050 

ENDI 14367060 

14367100 

DAT[P1MIXJ*0; 14367200 

IF TYP#0 THEN 14371000 

$ SET OMIT « STATISTICS 14371999 

F0RGETSPACE(DlRECT0RYSEAKCH(VECT0R[7]f IF VECT0R[OJ<0 14372000 

THEN "DISK " FLSE IF VECTOR [ 0] ,[ 2U J THEN "CANDE "14373000 

ELSE ABS(VECT0R[U}#13))I 14373100 

$ POP OMIT 14373101 

$ SET OMIT a NOT(STATISTKS) 14373199 

BEGIN 14373200 

NTlt»DIR£CTORYSEARCH(VECT0Rt7J'IF VECTORlOJ 14373300 

LSS THEN "DISK " ELSE IF VECTORlOJ . [211 J 14373400 

THEN "CANDF " ELSE ABS( VECTORC I) ) » 1 3) , I CF J J 14373500 

OB J INFO l«M t NT 1*3 UM t NT J +4 J 1 24 I 36 I 6] I 14 373600 

FORGETSPACE(NTl)! 14373700 

END; 14373800 

S POP OMIT 14373801 

IF TYP»1 THEN % COMPILE PART OF COMPILE &G0 14374000 

BEGINX 14375000 

RETURNEMI SI*[MCSPACEC31)JJ&31[8»38»1QJI 14376000 

DISKWAIT(-S,[CFJ»30.VECT0RC2J,[FF]); 14 376100 

IF ERT0G«0 AND TYP*1 THEN 14376200 

BEGINX 14377000 

SLEEPUTOGLEJ»SHEETMASK); 14378000 

LOCKIQG(SHEETMASK)? 14379000 

STREAM ( A*0 I B*?C f SCHEDULE IDS))» 14383100 

BEGIN SI*B; 14363200 

47(SKIP SB; SKIP DB; TALLY*TALLY+i;i4383300 

IF SB THEN BEGIN END 14383400 

ELSE JUMP OUT); 14383450 

DS*SET; A*TALLY; 14383500 

END STREAM) 14383609 

T * P; S[3J * 0&T[8»38ll0j; 14383700 

S125J * CATCH! 14383740 

S16J I* VECT0R16JI 14383750 

SC23J,[24|24J*(CL0CK+P(RTR))D1V 60j 14383760 

DISKWAIT(S,[CFJ»30» 14383800 

VECT0R[2J I [FFJ)| 14383900 

I *■ IF SI 163 > SHEETMAX THEN SHEETMAX 14385000 



ELSE SU8JJ 14386000 

U SHEETLI 3. CCF J * THEN 14387000 

BEGIN DISKWAlTC-S,tCFJ»30» 14388000 

SHEETm.tFN)! 14389000 

SC29J * VECTQR[23,tFF3* 14391000 

0ISKWA1T(S,[CFJ»30» 14392000 

&HEETC I 3 ,CFF3 )l 14392500 

END ELSE SHEETt I ] * VECTQR[ 23 • I FF J ! 14394000 

SHEETtn.im * VECT0K[23,[FF3; 14395000 

UNLOCKTOGCSHEETMASK); 14396000 

FORGETSPACECS INX 0)1 14396050 

NEEDSEltCTlMJ XR9314396100 

GO AHEAD; 14396200 

ENDS 14397000 

ELSE BEGINS 14398000 

F0RGETESPUlSK(VECT0Rt23,tl8ll53)l» 14 399000 

UINK * SC 133 1 14399108 

WHILE LINMO DO 14399200 

BEGIN DISKWAIT(-S,[CF3»30»L1NK)J 14399300 

F0RGETESPDISK(HNK3> LINK * SC29JI 14399500 

END} 14399600 

FORGETSPACE(S)J 14399700 

END 14400000 

END ELSE* 14401000 

IF TYP=*0 THEN 14402000 

BEGIN* 14403000 

VECTOR[93l«VECTOR[9J,[CFJl 1440 3900 

FOR 1*1 STEP 1 UNTIL VECTORC93 DO* 14404000 

IF VECT0R[9+I3 * THEN* 14405000 

FORGETUSERDISK(VECTORC9+I3»-VECT0R[8J)J 14406000 

END ELSE 14407000 

IF TYP«4 14407100 

THEN GO TO RETURNEMJ 14407200 

IF (T«*VECTORC63.CCF3) GEO ESPDI SKBOTTOM AND T LSS 14407300 

ESPDISKTOP THEN FORGETESPD I SK( T ) ; 14407400 

AHEAD* 14407500 

IF JARCP1MIX.03 < THEN* 14408000 

IF ERTOG * THEN! 14409000 

TYP*3I 14410000 

T*UVR0W[I*P1MIX],CCF3J 14411000 

S SET OMIT * NQTCAUXMEM) 14411099 

IF AUXDATACP1MIX] NEQ THEN 14411100 

IF (AUXERRORTOG AND TWO(PIMIX)) s THEN 14411110 

AUXILIARYMEMORYCASUALTYRECOVERY 14411120 

ELSE AUXDATAtPlMlX3l«0j 14411130 

$ POP OMIT 14411140 

COMMENT SUBTRACT CORE REQUIREMENTS FROM CORE WORDI 14411200 

IF VECT0Rt23.[3»13 THEN 14411800 

BEGIN 14411810 

NTl»*GETSPACE(5#73»5)*2l 14411820 

MCNTl 31* & P1M1XI20U3I53J 14411840 

MtNTt+13«» VECT0RC53,C1I233» 14411650 

M£NTl + 23»» XCLOCK * VECT ORt 23 1 1 1 1 1 1 7 3 & 14411860 

CVECT0Rm<0)U8»42l6JJ 14411870 

MCNT1+33I* VECT0R[03> 14411680 

MCNT1+43I* VECT0RC13I 14411890 

LINKUP(14»NT1)> 14411900 

ENDI 14411910 

VECTOR »* VECTOR&SPACE(10)CCTC3; 14412H0 

MOVEC10.JARROW[P1MIX],VECTOR); 14412120 



WHILE XCLOCK+PCRTR) GEO WJTCHINGHOUR DO MIDNIGHT; 14412200 

MOTHERMF VECT0H[11<0 THEN 2 ELSE T V P # 3 1 14412300 

STOPUOG(IiO); 14412330 

NEXTM0M«"VECTORt3 3+PR0CTIMEU3J 14412400 

CATCH*((VECT0Rt2J*USERC0DEtI 3 )*ABS( VECTORt 1 3 > 14412600 

AND USERCODEtn*0) + lJ 14412610 

S «b VECT0R*(SPACE(10)-1)[CTCJI 14412800 

MOVE(lO.[StO])ilS[lJj)J 14412900 

IF CL0GARRAYE31J AND 10MASK)«0 THEN XR2714413000 

SUEEP(tUOGARRAY[3l3J»lOMASK)J XR27 144 13010 

StU * NEXTMOMI 14413100 

S[23 * VECTORI4J + IOTIMEU3I 14413200 

S[33 «• <LCtI]-SCCI))KCHUNKiIZE*CHUNKZUE« 14413300 

$ SET OMIT « NQTCNfcWLOGGJNG) 14413399 

St 43 * ABSCMCPROCTIMEtlJ)* 14413408 

St5J * MCPIOTIMEtHJ 14413500 

$ POP OMIT 14413501 

MAKEUQGC[S[0]],[CFJ»EOJSTaTS)J 14414000 

IF U0GHNEi[33l7] NEQ THEN XR231 4414010 

BEGIN PRTRlM0Q.UE&GETAREA(2HCTc3J XR2314414020 

PRTR[0 3,CFF3l*LOGLINE> XR2 3 1441 4030 

PRTrUl il«MOTHER> XR2314414040 

PRTR12J»*XCL0CK+P(RTR)I XR2 3 1441 4030 

M0VEC9»IStl J J»tPRTRC3] J); XR2 31 4414060 

PRTRtl2]l*ERT0Gi[ll46); IR23 144 14070 

PRTR[133i»VECTORtOJl *R2 3 14414080 

PRTR[143l»VECT0R[l3» XR23 144 14090 

PRTRC153l»USERC0DECPlMIXJJ XR2 3 1441 4 100 

PRTR[16 3l*NEXTltPiMIX)J XR2314414110 

PRTR(173|»NEXT2[P1MIX]; IR2 3 14414 120 

QUEVENT(PRTR,[CF]#CANDYINX)J XR2 3 144 14800 

END ELSE XR2314414810 

IF NEXT1CP1MIX] NEQ THEN XR231441482P 

ZIPPER(NEXTl[PlMlX3»NEXT2tPlMlX3)» XR23 1441 4830 

S SET OMIT * NOTCSTATISTICS) 14414834 

J0BNUM»*J0BNUM-1J 14414835 

Stl3»«C0RETIME[PlMlXj; 14414840 

St23l*0LAYUSED[PlMIXj; 14414845 

St3 3»»READYQUETlME[I3&INITlALR«TlMEtnill25j233> 14414850 

S[4 3»*0B0lNFO8,SO[PlMlX)t6|24ll8 3> 14414855 

S[53I«SWAPS[P1MIX]&SWAP0UTS[P1MIX3U»25«233I 14414860 

S[6)lPC0DEPBlTSlPtMjX]4DATAPBiTSCPlMlX3Cll25l23]l 14414865 

St7 3J»C0DE0LAYStPlMIXJ&DATA0LAYS[PlMlXJ[ll25«23J> 14414870 

SC83»»JQBNUM1 14414873 

S[93«"M0RECPBITStPlMlX]&M0REDPBlTS[PlMIX3tll25«23 3* 14414880 

MAKELOG(tS[0 3 3.[CF3*SYSTATS); 14414885 

$ POP OMIT 14414686 

FORGE TSPACE([S[1]])J *R2 3 144 14900 

FORMTIME([VECTOR[43 3«NEXTMOM)1 14415000 

LINKIXNOT VECTOR[OJ),C2I13I XR201441581Q 

S SET OMIT » NOTCPACKETS) 14415819 

TYP,[ill3*(VECTOR[13<0) OR ( VECTOR t 23 A 8 1 103*3) J 14415820 

S POP OMIT 14415821 

IF STASUSH3 NEQ STABLE THEN XR4114415850 

COMPLEXSLEEPCSTASUStPlMIXJsSTABLE); XR4 114415860 

STREAMC BROTHER »OCATCH# I »VEC TOR )> 14415900 

BEGINS 14416000 

DS * LIT " "> DI * Dl*m 14417000 

C(DS*LIT w /"» DI*Dl+7); 14418000 

SI*L0C CJ SI*SI+7; 14418100 



IF SC*"i M THEN DS*8 LIT " w | 14416200 

DS*Ln"*"l SI*L0C II DS*2 DEC! 14419000 

I*DII DI*DI»2I DS*FILLI 01*11 14419100 

DS* 5 LIT ".PSTw"! 14419200 

DI*DI+8I 14419500 

CI - CI+BJ* 14420000 

GO TO El* 14421000 

GO TO OKI* 14422000 

DS*7 LIT " DS-ED "I 14423000 

GO TO XIX 14424000 

OK|X 14425000 

DS*5 LIT " EOJ M l 14426000 

GO TO XIX 14427000 

El 0S*11 LIT M SYNTX ERR M l 14428000 

X| DS*UIT W * W I 14429000 

ENDI 14429100 

SPOUTITCVECTOR INX 0,(LINK OR CANDYMESS) AND 14430000 

EOJMESS AND (NOT JAR9),t2»U OR E0JK)| 14430010 

S SET OMIT « NOT(PACKETS) 14430019 

UNITN0I*PSEUD0MIXCP1MIX]I 1443002ft 

P1MIX|«PSEUD0MIXCP1MIX]|=0J 14430030 

IF UNITN0#0 THEN 14430040 

DRAINO(UNITNO»(TYP,CCnM)»TYP,Cilt] 14430050 

&JAR(I>6HlllllJ)I 14430060 

$ POP OMIT 14430061 

IF CL0GARRAY[3U AND JOMASK)sQ THEN 14430100 

SLEEPUL0GARRAY[31]J. |OMASK)j 14430200 

IF TABCNTtn#0 THEN 14430300 

BEGIN CLICK|«CLOCK+9QO| 14430400 

COMPLEX SLEEP ( TABCNT ( U*0) I 14430500 

END! 14430600 

FORGETSPACECJARRQWUJJI 14431000 

PlMlX*JARROWtn*PRTROWt I J*Ol 14431100 

14431300 

IF BATCHJ0BCI3 OR FSROW 1 1 J 1 1 CFl LSS FENCE XR9314431500 

OR NEEDSELECT THEN XR9314431600 

SELECTION! 14432000 

NEEDSELECTI.OI XR9314432500 

FORGETSPACE(T)! XR9314432600 

KlLLURCWmi 14434000 

END L5C0MIX 14435000 

PROCEDURE ZIPPER(W1»W2)I VALUE W1.W2I REAL Wl#W2lX 14531000 

BEGIN REAL T»II 14532000 

T|«GETSPACE(12»64#5)+4| 14533000 

14534000 

IF (I*USERC00EtPlMIXJ)*ABS(N0T 0) THEN I* 01 14534500 

STREAMCK*?i4.A*[WtJ»C*I»B*T)l 14535000 

BEGIN 14536000 

SI*LOC K| S I *S I + 7 I DS* CHRI 14537000 

DSl* 5 LIT "USER""* SIl»LOC CI S 1 i«Sl ♦! I DS l» 7 CHRl 14537100 

DS* 9 LIT "IEXECUTE "I SI*AI Sl*Sl*ll 14537200 

DS* 7 CHRI DS* LIT V"l S1*SI+H DS* 7 CHRl 14538000 

DS* 6 LIT "IEND,**I 37(DS* LIT " " ) I 14539000 

E NDI 14540000 

I*IF P1MIX«0 OR USERCODEtPlMlX]»MCP THEN 31 ELSE 26| 14541000 

$ SET OMIT s NOT(PACKETS) 14541049 
IF PSEUD0MIX[P1MIX] NEQ THEN NYLONZ IPPER[ PlMl X J , C2 I 1 J I <*0I 14541050 

S POP OMIT 14541131 

FORKCP(.CONTROLCARD) OR C O&LOGL I NE [ 32 I H UxLOGL I NE ) » 14541150 

HlC3l43l5HPlMlXn8t42»6J#-l»CCSTACK»0)l 14541170 



S 5ET OMIT * NOTCPACKETS) 14541179 

IF PSEUD0MIX[P1MIXJ NEQ THEN 14541180 

IF MEMROWCPlMlXJ.CCn GEO FENCE THEN 14541182 

00 SWAP(WAJTSWAP»1) UNTIL 14541164 

NYL0NZlPPERlPlMlX),[2lil ELSE 14541166 

SLEEPCtNYLONZlPPERtPlMIX] J»?1000000000000000)l 14541190 

S POP OMIT 14541191 

END ZlPPERjX 14542000 

REAL PROCEDURE EUF(A*B*L)I VALUE A*B*L* REAL A»B»LJ 14543000 

BEGIN! 14544000 

REAL 1*J»R»T»Z#X 14545000 

ARRAY XC*]t ALC*3»AT«Z[*JI 14546000 

INTEGER Si 14546100 

* SET OMIT * SHARED1SK 14546199 

DEFINE R1"R#» X1»X#J 14546200 

$ POP OMIT 14546201 

$ SET OMIT « NOTCSHAREDISK) 14546299 

ARRAY Xi[*]> 14546300 

REAL H0LDER»NEXTSLOT»8YPASS*Rl; % HOLDER MUST BE AT X1H 14546400 

BOOLEAN DELETET0G*R1+U % MUST BE TOP OF STACK 14546500 

$ POP OMIT 14546501 

LABEL. LL»COPY»FOUND»FASTl 14547000 

LABEL CHECK#DOWN»BQMBOUTJ* 14548000 

X 14548900 

REAL SUBROUTINE THERE!* 14549000 

2! 14549100 

% ON EXIT* X IS THE LAST BYPASS BLOCK READ AND J IS ITS ADDRESS, 14549110 

X IF THERE IS TRUE* I IS THE INDEX OF THE ENTRY FOR THE FILE, 14549120 

% .. IF THERE IS FALSE* T IS THE ADDRESS OF THE FIRST BLOCK WHICH 14549130 

X HAS A VACANT SLOT, 14549140 

X 14549150 

BEGINX 14550000 

Tl«0l 14550500 

LLi FOR 11*0 STEP 3 UNTIL 57 DO 14551000 

BEGIN IF C X E 1 3 EQ* A) « NOT THEN 1455150P 

IF CXn + U EOV 8) s NOT THEN 14552000 

BEGIN P(l); 14552500 

GO DOWN* 14553000 

END? 14553500 

IF CXr I J EOV P14) * NOT THEN 14554000 

IF T*0 THEN Tl«JI 14554500 

END! 14555000 

IF CZ»*X[2],CFF])#0 THEN 14555506 

BEGIN DISKWAlT(»R»60*JI*Z)i 14556000 

GO TO LL» 14556500 

END* 14557000 

IF T«*0 THEN TlwUf 14557500 

PCO)J 14558000 

DOWNI THEREI*P< 14558500 

ENDJX 14559000 

t SET OMIT m NOT( SHARED I SK ) 14559099 

P(A,[llU)l X INITIALIZES DELETETOG 14559100 

* POP OMIT 14559101 

AI«ABSCA)J 14559200 

IF (A OR B)tClt5)#0 OR A«S»14 OR AsPlH THEN 14559300 

BEGIN 14559400 

TERMINATE(P1MIX)J TERM INALMESSAGE( 75) I 1455950P 

ENDI 14559600 

$ SET OMIT * SHAREDISK 14559990 

LOCKDIRECTORYJ 14560000 



$ POP OMIT 14560010 

X I* [M£R I* SPACE(60)3H60tBI3bU0]l 14561000 

AL*I0QUE&(L + 1HCTC3> 14561100 
Sl«SCRAMBLE(A»B)l X10414562000 

CHECK; DISKWAITC-R»-60»(J**S))J 14563000 

IF P1MIX #0 THEN* 14564000 

IF THERE THIN* 14567000 

% 14567100 

% A FILE ALREADY EXISTS ON DISK WITH THIS NAME., IF WE ARE ALLOWEDl 45671 10 

X TO REMOVE IT. AND IT IS NOT IN USE» WE WRITE THE NEW HEADER 14567120 

% OVER THE OLD ONE AND RETURN THE OLD FILERS DISK, IF IT IS IN 14567130 

% USE* DIRECTORYSEARCH IS USED TO REMOVE IT WHEN IT IS FREE AND 14567140 

% THEN. HAVING LOST CONTROL OF ThE DIRECTORY. WE RETURN TO CHECK 14567150 

% AND START ALL OVER AGAIN, 14567160 

% 14567170 

BEGIN DlSKWAlT(-R»*30.CTl«XtI+2J,[CF] ))J 14568000 

$ SET OMIT * NOT SHAREDISK 14566990 

UNLOCK(S); 14569000 

$ POP OMIT 14569010 

IF B t USERCODEtPlMUJ THEN % NEED TO CHECK SECURTY1 4570000 

BEGIN J»*R&T[CTF3l 14571000 

$ SET OMIT a SHAREDISK 14571990 

UNLOCKDIRECTORYI 14572000 

I POP OMIT 14572010 

IF SECURITYCHECK(A»B.USERC0DE[P1MIX3.J)#7 THEN 14573000 

BEGIN 14574000 

$ SET OMIT * NOT SHAREDISK 14574990 

UNLOCK(T)J 14575000 

S POP OMIT 14575010 

FILEMESS(- M INVALID"»" USER " * A »B» 0.0 , 0) I 14576000 

ENDI 14577000 

t SET OMJT * SHAREDISK 14577990 

END ELSE * OK TO REMOVE FILE 14578000 

$ SET OMIT * NOT SHAREDISK 14578250 

ENDI 14578500 

$ POP OMIT OMIT 14578510 

IF (X[4J,tll3l OR XU), [121243 OR XC93.IU28J) * THEN 14579000 

BEGIN R1«NABSCR)» * NOT IN USE - WE CAN 14579500 

AT I*XI X DO A QUICK REPLACE 14560000 

GO TO COPYI 14580500 

END 14581000 

$ SET OMIT * SHAREDISK 14581490 

ELSE UNLOCKDIRECTORY 14561500 

$ POP OMIT 14581510 

I 14582000 

S SET OMIT ■ NOT SHAREDISK 14582490 

UNL0CK(T)I 14582500 

$ POP OMJT 14582510 

% 14562900 

% IN ORDER TO PROVIDE CONTINUITY OF FILE CHARAC TER 1 1 ST 1 CS, PARTS 14582910 

% OF THE OLD HEADER ARE NOW MOVED TO THE NEW HEADER. 14582920 

% 14562930 

IF P(DIRECT0RYSEARCH(A»B»7).DUP) GE« 64 THEN 14583000 

BEGIN ATHIOOUE&PCXCHMCTCJ; 14583500 

COPYI ALliJl«AT[lll 14584000 

ALt23l«ATC2)J 14584500 

ALt3]J-(*P(DUP))&ATC33t2J2lt03) 14585000 

IF ALt43,C36l63«0 THEN 14585500 

AL[4J|»<»P<DUP))4ATC4J[36I36I6JI 14586000 

AL(53l*AT[53l 14586500 



AL[6]I«AT[6]I 14587000 

IF R LSS THEN GO TO FASTj 14587500 

FORGETSPACECAT)! 14588000 

END ELSE 14588500 

IF P*2 THEN F!LEMESS(- W SYSTEM %"F1LE "»AtB»0»0»0) 14589000 

ELSE GO INITIATE; 14589200 

S SET OMIT * SHAREDISK 14589490 

LOCKDIRECTORY? 14589500 

S POP OMIT 14589510 

GO TO CHECK) 14590000 

END ELSE ELSE Tl«S> % SETS UP FOR P1MIX»0 1459050P 

% 14590900 

* THE PILE IS NOT THERE, WE SEARCH FOR A VACANCY* IF ONE IS FOUND14590910 

% I AND T ARE ITS ADDRESS, IF THERE ISNT ONE* Z IS THE ADDRESS OF14590920 

X THE LAST BLOCK AND T IS SET TO THE ADDRESS OF THE NEW BLOCK, 1459093* 

% 14590940 

I SET OMIT » NOT SHAREDISK 14590990 

DI5KWAITC-CEH0LDERJ,ECFJ).-3»DIRECT0RYSEG)> I! CLOBBERS XI 14591000 

Xll»[M[RH«SPACE(60) 3 3&60[ 8 » 38 ! 10 J ? 14591100 

£ POP OMIT 14591110 

DO BEGIN 14591500 

IF CZl*T)#J THEN DI SKWA I T( -R» 60» Z ) I 14592000 

FOR 1*0 STEP 3 UNTIL 57 DO 14593000 

IF C X E I J EQV P14)« N01 THEN GO TO FOUND* 14594000 

END UNTIL CT»*X[23,[FF3)««0J 14595000 

X[23,[FF3* BYPASS * BYPASS-2* 14596000 

14597000 

IF BYPASS, [CF3<BYPASS,[FF3 THEN I REC TQRYFULLC ) ; 14598000 

S SET OMIT m SHAREDISK 14598090 

DISKWAIT(R#60,Z)J X WRITE OUT POINTER TO NEW BLOCK 14598100 

$ POP OMIT 14598110 

Tl«BYPASS,CCF)j 14598200 

XH03l»ei4; M0VE(59»X1,X1 INX 1)1 14598300 

* SET OMIT « NOT SHAREDISK 14598390 

Xl»Xl) 1459840P 

t POP OMJT 14598410 

11*01 14598509 

FOUND!* 14599000 

PBCOUNT*PBCOUNT+C(((A EQVPBD ")*NOT 0) OR 14599900 

((A EOV M PUD w )*NOT 0)) AND (B»[CF3«1))I 14599916 

XEU*AJ XCI*J]»BI XEI+2],[CF3*NEXTSLOTl 14600000 

t SET OMIT « NOT SHAREDISK 14600290 

$ SET OMIT s NOT STATISTICS OR OMIT 14600299 

BYPASS0OTTOM**8YPASS,tCFJl 14600300 

$ POP OMIT 14600301 

IF TJ*Z THEN X WRITE NEW BLOCK, OLD IS UPDATED LATER, 14600400 

$ POP OMJT 14600410 

DISKWAITCR1»60»T)I 14600500 

X 14600900 

X UPDATE THE NAME SEGMENT, BUT DONT WRJTE IT OUT UNTIL THE NEW 14600910 

X HEADER IS WRITTEN, 14600920 

X 14600930 

J*(NEXTSL0T"DIRECT0RYT0P-3)&0t44l44l4J-rDlRECT0RYT0P<rl9l 14601000 

It*CCT|»NEXTSL0T)-J)x2+30| 14601500 

DISKWAITC-R1»*30»J)J 14602000 

NEXTSLOTl«XHI*lli 14602500 

XlC 1 1 l»A* XlCI*13l»BI 14603000 

IF NEXTSLOT*0 THEN % GOING TO USE EOF RECORD 14603100 

IF 1«0 THEN X WRITE NEW EOF RECORD BEFORE 14603H0 

BEGIN P(X1[283,XH29])J % DESTROYING CURRENT ONE 14603200 



X 



X 



Xl(28jlePH4l X SAVE NAME* REPLACE WITH "END" FLAG, 14603300 

Xl(291l«0f 14603310 

NEXTSL0TtsT*30l 14603320 

BYPASS, [FFl * J+16; 14603330 

DISKWAITCR1»30*J+16)J 14603400 

P([Xn29]]»*»[XH28J]f*)J X RESTORE CLOBBERED NAME 14603600 

IF J*16*BYPASS,[CF3 THEN D I RECTORYFULLC ) ; 14603700 

END ELSE 14603800 

BEGIN XUI-2]|>*114J XltJ-ni«Oi NEXTSLOT«wT»l END; 14604000 

14604900 

X NOW WE CAN WRITE EVERYTHING OUT, NOTE THAT IN ORDER TO M I N I MI ZE 14604910 

X THE DAMAGE CAUSED BY AN UNTIMELY HANG* THE MAIN AND (FOR 14604920 

X SHAREDISK) THE BYPASS DIRECTORIES ARE CORRECT AT ALL TIMES, 14604930 

14604940 

FASTI XR9214605000 

t SET OMIT » NOT SHAREDISK 14605490 

IF NOT DELETETOG THEN 14605500 

FOR l!*ALC9J. [43151+9 STEP "1 UNTIL 10 DO 14606000 

IF ALUJ'O THEN SCRATCHD I RECTOR YDELETEC ALU J » ALC 82 ) J 14606500 

$ POP OMIT 14606510 

DISKWAIT(L+1*-30*T)I X FILE HEADER 14607000 

IF R GTR THEN 14607500 

BEGIN 14608000 

£ SET OMIT ■ NOT SHAREDISK 14608490 

DlSKWAlTC(H0LDER].[CFJ»-3»DlRECT0RYSEGm BYPASS & NXTSLOT 1 4608500 

i POP OMIT X (CLOBBERS X1U46Q8510 

D1SKWAIT(R1.*30»J)J X NAME SEGMENT 14609000 

8 SET OMIT ■ NOT SHAREDISK 14609990 

FQRGETSPACE(Rl). 14610000 

DISKWAIT(R»-60»Z)1 X BYPASS BLOCK 14610500 

IF S#Z THEN UNLOCMS), 14611000 

S POP OMIT 14611010 

END ELSE X CLEAN UP OLD HEADER 14612000 

BEGIN DISKL0G(A»B»AT)J 14613000 

Jl»AT£9J+9J 14614000 

FOR 11*10 STEP 1 UNTIL J DO 14615000 

IF AT[IJ#0 THEN FORGETUSERD I SKC AT t 13 * ATI 63) ; 14616000 

ENDI 14617000 

* SET OMIT * SHAREDISK 14617990 

UNLOCKDIRECTORYJ 14618000 

$ POP OMJT 14618010 

EUFI»T> 14619000 

BOMBOUTtX 14620000 

FORGETSPACE(R), 14621000 

END ENTERUSERFILE IX 14622000 

PROCEDURE C0M11* COMMENT ALGOL I/O COMMUNJ C ATEI X 14623000 

BEGIN REAL C0DE«»4#TANK*-5*R0W*-6* X 14624000 

REAL MID— 8»FID*-7» 14624050 

REAL STA*-6» RESULT*-7* B» T» F* S» TlME0UT»-7; 14624100 

NAME PHYL*"5» A) 14624200 

ARRAY HEADER»"5[*JJX 14625000 

ARRAY FINAL«*6[*3lX 14626000 

LABEL 0PEN»PARITY»E0F»E0T»DISKSPACE»DISKL0CKIX 14627000 

LABEL ARGH»ECH»PURGELOCK»SEEKDCI 14627400 

LABEL CL0SE»RDATA»SELERR»SPACE»REFILL;X 14628000 

label readlabel* 14629000 

Label iore«»rotate;x 14630000 

switch function«-open.parlty»e0f*eotfdiskspace»seekdc»cl0se» 14631000 

RDATA.SELfRR»SPACE»REFILL,READLABELiIORE«I»KQTATE 14632000 

. i 14632900 



REAL INF0#LOC»USASI > 14633000 

REAL IlX 14634000 

LABEL MESSAGE* BACK| 14635000 

ARRAY FPBt*J»FIBr*m 14636000 

REAL TANG»TANKI 14636100 

IF C0DE*20 THEN GO TO PURGELOCKl 14636900 

GO TO FUNCTI0N[C00E3>X 14637000 

PARITY! INFO*" PAR"1 GO TO MESSAGEIX 14639000 

EOF* INFO*" EOF"! GO TO MESSAGEIX 14640000 

eOTl INFO*" E0T"|X 14641000 

MESSAGEI FPB*PRTIP1MIX»3]| F IB*M[P< , TANKt LOD) . t 33 I 15 3*3 3 IX 14642000 

IF FIB[53.tltl3 THEN INF01* •" INV" OR Ml 14642100 

IF FIB[43,t8l43*14 THEN 14642200 

BEGIN TERMINATECP1MIX)! TERMI NALMESSAGEC 61 ) ENDI 14642300 

STREAM(X*INFO»Z*0»F* IF TANG«0 THEN ELSE 14643000 

[FPB[FIB[4] a [13lllU]i 14643100 

Q*TANG#0. 14643200 

J*JARR0W[P1MIXJ.X 14644000 

D»*(C0DE««GETSPACEC10»2.5)*2))I 14645000 

BEGIN OS * LIT "»"J SI*L0C X; Sl*Sl+b! DS*3 CHRJX 14646000 

Sl*LOC Xj IF SC-0 THEN DS*10 LIT " NO LABEL "X 14647000 

ELSE IF SO"8" THEN DS*11 LIT 14647100 

"WRITE TD " 14647200 

ELSE IF SOP30 THEN DSl*lO LIT 14647300 

"ALIO USER " 14647400 

ELSE DS*10 LIT "ECT ERROR "JX 14646000 

Q(X*DII SUFI DI*LOC Zl 14649000 

IF 8 SC#DC THEN BEGIN SI*Fl SI*SI+1> DI*X|X 14650000 

DS*7 CHRJ DS*LIT" "I X*DI 1 14651000 

ENDIX 14652000 

DI*XJ SI*SI + 1I l)S* 7 CHR )> 14653000 

DS*2 LIT "|*"|X 14654000 

ENDIX 14655000 

14656000 

14657000 

TERMINATECP1MIX)! TERM! NALMESSAGE C C -CODE ))J X 14658000 

DISKSPACE»OPEN»CL0SEI XR90 14659000 

IF HEADERI4J THEN X FILE IS IN DIRECTORY 14659100 

FORGETSPACECDIRECTORYSEARCH 14659200 

(MID*F1D»-(HEADER.CCF3)&R0WCCTFJ)) ELSE 14659300 

HEADERCR0WJI»GETUSERDISK<HEADER[8J)J 14659400 

SEEKDCU GO TO INITIATE! 14660000 

PURGELOCKl SAVEWORDI«SAVEWORD OR TWO(ROW)! It 14671000 

RDATA«» INFO*" R£R"I GO TO MESSAGE* 14673000 

SELERR' INFO !■ $37000000606225431 GO TO MESSAGEI 14674000 

SPACEI FIB*MCPC, TANK. LOD). [33|15)*3lJ LOC*F I Bt 153 , [25 I 5] I X 14675000 

BLASTQUOOlX 14676000 

■FPB»[MEM0RY[3JU3t23l46l2UR0WC22|lll]|X 1467 7000 

ROW*ABS(ROW)|X 14676000 

WHILE CROW*ROW»mO DO INFO*WA I T 1 QC FPB» M0» LOC ) I X 14679000 

GO TO INITIATE! II 14680000 

REFILLI FIB*M[(TANK4-P(,TANK#L0D).133I15J)-3JJX 14681000 

CODE*FIBI133,C10l93-l!X 14682000 

L0C*FIB[193,C33ll53-FlB[i63,[33ll53|X 14683000 

FPB*MEM0RYCFlBtl63 I NX 0*ROWJ|X 14684000 

INFQ*FPB,[18I15J»X 14685000 

FOR 1*1 STEP 1 UNTIL CODE DOX 14686000 

BEGIN I0REQUEST(FLAG(FIB[19J&(INF0+L0C)[33I33I153)»X 14687000 

FIB[16)&INF0[33I33I153*FPB)IX 14668000 

MEMORYtTANK3*MEMORY[TANK380[2l2ll3&0[19ji9tl3X 14689000 



&0[26»26l7 3&lNF0t33«33ll5j;X 14690000 

STHEAMC CODE* T*MEMORY £ T ANK 3 » TANK) 1% 14691000 

BEGIN SI*TANK| Sl«-SI+8l D$*CQDE WDSl* 14692000 

S1*L0C TJ DS*WD5I* 14693000 

END!* 14694000 

INFO*MEMORY[INFO*ROW3,[18I15J>X 14695000 

ENDIS 14696000 

GO TO INITIATE; M 14697000 

READLABELI F IB*M[ ( T ANK*P( # TANK »L0D) . t 33 1 15 J )-33 1 % 14696000 

LOC*FIB[153, [25153!* 14699000 

BLASTQCLOOJX 14700000 

PCHAlTl0(CFIB[5l.t44ll]x(MiTANK-2],l8U0]-l) INX M[TANK-23) 14701000 

4M[ TANK] [21 1 21 J 4 J # P37 700000 » LOC ) » DEL ) ! 14702000 

STREAM(Yl*0tX|"0»Xll*0iX2l*0i*l*M[TANK-23)i 14702025 

BEGIN DH«U0C XI DSl*24 LIT "VOL 1HDR1 HDR2E0F 1E0F2E0V 1"; 14702050 

DH*LOC XI 14702100 

6(TALLY»»TALLY+1I 14702150 

SI»»ZJ 14702200 

IF 4 SC»OC THEN 14702250 

JUMP OUT TO A)l 14702300 

TALLYl*0l 14702350 

At 14702400 

YlsTALLYI 14702450 

END! 14702500 

IF (USASlt«P)>0 THEN 14702550 

USASlTAPE(H[TANK-2],tCFJ»USASl»3»L0C»FIB[5]t[44Jn)J 14 702600 

PCWAlTI0C[M[5JJ*3[23l46»2H(NQT F I B[ 53 H 22 t 44 | 1 3 t 14703000 

P37700000»LQC)»DEL)! 14703100 

GO TO INITIATE* II 14704000 

I OREO I FPB*MEMORYl(IF ( I NFO*NFLAG( MEMORY [ PC TANK t OUP * [ M3 » I NX # PRL ) 3 ) 3 1 4 705000 

,[22113 THEN 2 ELSE NOT 1) INX JNF03IS 14706000 

JOREQUESTCFlNAt»lNFO»FPB)l* 14707000 

MEMORYtTANKJ*MEM0RYtTANK3&0[26l26l7 3&0tl9l47ll3>X 14 708000 

GO TO INITIATE!* 14709000 

II 14709300 
ROTATEI TANK*PC,TANK#L00),[33I153;X 14710000 

STREAM(T«-M[TANKJ»N*R0W-1#D*TANK)?X 14711000 

BEGIN SI*DI SJ+SJ+8J OS*N WDSl SI«-LOC Tl DS*WDS ENDJX 14712000 

IF M[TANK3, [3»5]*16 THEN 14712100 

IF M[TANK3. [24113 THEN 14712200 

IF CI*PCM[TANK-3J»14»C0C>)»»0 THEN 14712300 

BEGIN 14712350 

PHYl ♦ TANK JNX Ml 14712400 

FOR LOC * ROW-1 STEP "1 UNTIL, DO 14712450 

BEGIN 14712500 

IF ( B*MCPHYLIL0C3 INX NOT 23)#0 THEN 14712550 

BEGIN 14712600 

IF (1*1-1) < THEN 14712750 

IOC * -II 14712800 

END! 14712850 

ENDI 14712900 

ENDI 14712950 

GO TO INITIATE* * 14713000 

DISKLOCKI 14713100 

END COMHIX 14714000 

15006000 

PROCEDURE DISPLAYCX)! VALUE X| REAL XJX 15019000 

BEGIN REAL Tl 15020000 

STREAM(XlvJ*JARR0W[PlMlX3tPlMjX»* 15021000 

Yl«Tl«SPACEC25))l 15022000 



BEGIN DS * LIT "*">* 15023000 

2CSI * JI SI * SltlJ DS * 7 CHHJ J * S1I2 15024000 

L? SI * S 1-1 1 * 15025000 

IF SC * " " THEN* 15026000 

BEGIN DI * DIM* GO TO L END** 15027000 

DS ♦ LIT V; )}% 15028000 

DI * 01-11 DS * LIT "*"l* 15029000 

SI*LOC P1MIX; DS*2DEC> P1MIX«-DH D1*UI"2> 15030000 

0S*FILLI DI*P1MIXI DS*2LIT"I "I 15030500 

SI * XI* 15031000 

H» 4(40(IF SC***" THEN JUMP OUT 2 TO HHJ 15032000 

DS*CHR))J HH! 15033000 

j * on di * di+8; si * u;* 15034000 

S5 SI * Sl-ll IF SC « w H THEN GO TO SI* 15035000 

SI «• SI + 1J J * SII DI * JJ DS * LIT "*"JX 15036000 

X»DU 15037000 

END?* 15038000 

X*(C(X#-P),[CF3)-T)x8 + X,t30t33-lJ 15039000 

SPOUT(P(X,T)); 15040000 

ENOI* 15041000 

15059000 

PROCEDURE C0M13 I* 15060000 

BEGIN* 15061000 

X COBOL 10 INTERFACE COMMUNICATE* 15062000 

REAL CODE * -4. REEL ■ -6 It 15063000 

NAME FLOC « -5 S X 15064000 

ARRAY FIB [ * 3 1 % 15065000 

REAL T» C0B66J 15066000 

LABEL L4I 15067000 

DEFINE IN0UT*FIB[l33,[27ll J# >D I REC»F 1 B [ 1 3 3 , [25 1 1 3 # » * 15071000 

SORTFILE«FIBr4].[7UJ#tLABELS0MlTTE0*FIBt4J,C2«n#>* 15072000 

C0B68 ♦ (FIB * *(FLOC>), [81103 " 221 15073000 

IF C0DE«4 THEN GO TO L4» 15074000 

IN0UT*C0DE*3J DIREC* C0DE»2I* 15080000 

IF NOT C0B66 THFN 15080900 

IF FIBC5],[46{2J*3 THEN BEGIN* 15081000 

FIBU8J, C18U5] ♦FIB[18), [311531* 15082000 

IF C0DE»3 THEN 15082100 

FIB[18],[3I153*FIB[163,[33I153*FIB[183, [311531 ENDI* 15083000 

NT1I«FL0C 1NX 31 *R9015084000 

P(0iSTFfPRTtPlMlX»8J»STS)| XR90 15085000 

FILEOPENCltNTl)! *R9015086000 

L4I* 15093000 

CODE * IF (CODF«-ABS(REEL))«0 THEN 6 ELSE* 15094000 

(IF C0DE*1 THEN 7 ELSE* 15095000 

(IF CQDE«2 THEN 10 ELSE* 15096000 

(IF CODEM THEN P22 ELSE *KRUNCH 15097000 

(IF CODE-64 THEN 052 ELSE 0)}))| XKRUNCH 15097500 

IF (T*FIB[43.[8l4])#2 AND TM AND T#8 THEN CODE-OJ* 15098000 

IP t«4 AND CODF-0 THEN C0DE*10 I* 15099000 

FILECLOSECC FLOC INX 3 )& C0DE[ 16 I 33| 15 3 ) I X 15100000 

IF C0DE»0 OP C0DE*10 OR C0DE«?22 THEN F I B[ 5 3 . [ 42 1 1 3*1 15101000 

ELSE FIB[53 f [40l23*(C0DE*7)x2 + H* 15102000 

IF NOT C0B68 THEN 15102900 

IF FIB[53, [46123*3 THEN BEGIN* 15103000 

FIB[183 f [3ll53*FIB[l83 f [i8ll5J>FIB[183, [181153*0 ENDI* 15104000 

GO TO INITIATE;* 15105000 

END C0M13I* 15106000 

PROCEDURE WHATSJT(BUFH)! VALUE BUFHI REAL BUFH* *DS*15106500 

BEGIN 15107000 



REAL B 

ARRAY 

REAL M 

LABEL 

BOOLEA 

BOOLEA 

B 

S 

P 

I 

1 

I 

t SET OMI 

$ POP OMI 



OKI 



F»I»L1NU 

INFC*3> 
JX» L*MJX 

EXIT»EDD» 

N GETBUFF 

N SUBROUT 

EGIN 

YSDI SKI OC 

(0)» 

F CINFtO] 

F INFCU 

F NOT LIN 

T s TWXON 

IF L GTR 

T 

L3.DIREC 

BEGIN 

INFtl 

P(DEL 

IF GE 

GETBU 
STREA 



S 

E 

BF* BU 

NOSQIK 

IF (MI 

B 

I 

F 



SPOUT 
ENDI 
POUTLINE* 

nd; 

FH. [1511b 
SYSDISKAD 
X|»BUFH|[ 
EGIN 11*1 
F NOSD TH 
OR LINE I 
IF ST 



» RCWB40J 

gotit.okj 

»nosd; 

ine spoutlinej 

1»LINE»INF)I 

I*STATABLE[LJ8ABSCLINE)3),DIALEDUP THEN 
GTR THEN GO TO OK ELSE 

ETABLEI 
LY 
LMAX THEN ST AT ABLECL 3 ,LEINKER ELSE 

TUNE THEN 

3»«"N0B0DY "J 

• 1)J 

TBUFF THEN 

BF l*SPACEC5)J 

Tf+ TRUE! 

M(S»»IF L GTR LMAX THEN ELSE SCHEDLINE [L3 t 

U I * I N F C 1 J » L» BF); 
BEGIN 

SI-LOC UJ SI*S|*U DS*LIT W w ; 
DS*7 CHRI DS*4 LIT " ON "J 
UJ»DI» DSt»3 dec; 
SCDS«*8 LIT M -CSCHED) W ); 

ds«*lit m *»; 

di i *ui DSt*2 fill; 

end; 

(BF)> 



p; 



3-1; 

r*o; 

9163} * THEN 

J 

EN ELSE 

* 1 STEP 1 UNTIL STAT10NMAX 

ATABLE[LINEJ,MIXNR»MIX THEN 

GO gotit; 



% <MIX> WU 



DO 



I i*o; 



GOT I Tl 



STREAM(T*PUTORTAKE(MIX,[USERCODEtMlX3 3»l»0)»V*PUTORTAKE(MIX, 

[JAR[MlX»03)»l»0)»M*PUTORTAKE(MIXf t JAR[ Ml X» 1 3 3 # 1 » 0) » 



NOSD 
BF); 



DS« 
DS< 



7 
7 



LIT 

chr; 



X»=MIX» Y»*LINE# Zl»l» S I = I F 
THEN ELSE SCHEDL I NE [ L I NE 3 » 

BEGIN 

SI*L0C T! SI*SI+1I DS*LlT " "; 

DS* 7 CHR; DS* LIT " H ; SI* si+i; 

DS* 7 CHR; DS* LIT M / w ; SI* S I + 1 1 

os*2 dec; x*di; ds*lit"* k ; di*di-3; ds*fill; 
Z(dsi»4 lit" on "i xi*di; ds»*3 deg; 

S(DS|*8 LIT M -(SCHED) W ); DS*»UIT w *' ,, I 
DIl*Xj DSl*2 FILL); 

end; 

iPOUTCBF); 



OR LINE GTR LMAX 



' using "; 

DS* LIT »■ 

di*x; 



"; 



15 

15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 



107500 
108000 
108100 
108500 
109000 
109500 
110000 
110500 
111000 
111100 
111200 
111280 
111299 
111300 
111301 
111320 
111400 
111500 
111600 
112000 
112500 
113000 
113500 
113700 
114000 
114500 
115000 
115100 
115600 
115700 
116000 
116500 
U7000 
117500 
117550 
118000 
118500 
118700 
119500 
120000 
120100 
120500 
121000 
121500 
122000 
122490 
122500 
123000 
123500 
123700 
124000 
124500 
125000 
125500 
126000 
126500 
126600 
127100 
127500 
128000 



GO EXIT; 15128500 

END} 15129000 

STREAM(L*OlZ*BUFH); 15129500 

BEGIN 15130000 

SI* Zl DI* LOC L; 15130500 

00» IF SC^" " THEN BEGIN SI* SI + JI GO OD END? 15131000 

IF SC*0 THEN IF SC<9 THEN 15131500 

BEGIN 15132000 

Z* SII SI* SI*l; 15132500 

IF SC>0 THEN IF SC<9 THEN 15133000 

BEGIN SI* Z; DS* 2 OCT* GO EGRESS END* 15133500 

SI* Z; DS* OCT) GO EGRESS; 15134000 

END* 15134500 

DS* 8 LIT • , + 0000001 H 5 15135000 

eGRESSl END; 15135500 

IF CLINE»*P) GTR STATIONMAX OR LINE*0 THEN 15136000 

BEGIN 15136500 

SPOUT(BF); GO EXIT; 15137000 

END; 15137500 

IF NOSD THEN ELSE 15137600 

15138000 

lNFl»tM[SPACE(SYSDI5KRL)mSYSDlSKRLC8i38llOJI 15138500 

IF UNE>0 THEN XWU <LINE> 15139000 

IF NOSD THEN ELSE 15139100 

BEGIN 15139500 

LINE* NABSCLINF); 15140000 

IF NOT SPOUTLINE THEN 15140500 

BEGIN; 15141000 

STREAM(L?«ABS(LINE)»CI"INFt03,DIALEDUP»Bl«BF); 15141500 

BEGIN 15142000 

SI*LOC L; US*LIT m h ; DS*3 DEC; 15142500 

CCDS* 15 LIT " NOT DI ALED-UP*"} JUMP OUT TO X); 15143000 

DS* 12 LIT " NOT IN USE*"; 15143500 

XI DI*B; DS*3 FILL; 15144000 

ENDJ 15144500 

SPOUTCBF); 15145000 

END? 15145500 

GO EDO; 15145550 

END; 15146000 

I* 0; XWU 15146500 

IF NOSD THEN 15146600 

BEGIN 15146610 

STREAM(BF);DSlM6 LIT"#NQ SYSTEM DISK*"; 15146620 

!IM» 15146630 

SPOUT(BF); 15146640 

END 15146650 

ELSE 15146660 

BEGIN 15146670 

FOR LINEl"0 STEP 1 UNTIL STATIONMAX DO 15147000 

i* i+spoutline; 15147500 

SYSDJSKI0C1»5TATI0NMAX*1»INF)I 15147600 

END; 15147700 

IF 1*0 THEN 15148000 

BEGIN; 15148500 

STREAMCBF); DS*9 LIT" NULL WU*"} 15149000 

SPOUTCBF); 15150000 

END; 15150500 

EDDIIF NOSD THEN ELSE FORGETSPACEC INF ) J 15151000 

EX1TI 15151500 

END; 15152000 



BOOLEAN PROCEDURE CONQUER( C » N» L» S . G) ; 15168000 

VALUE C»N»L#S»G; 15168100 

REAL C»N»LJ ARRAY S[*3*X 15169000 

INTEGER Gl 15169100 

BEGIN ARRAY B»Ct*J»* 15170000 

REAL T»I*TJX 15171000 

LABEL X»Y> 15172000 

IF PRTCP1MIX,0]*W0RD0FEASE THEN GO TO STACKOVERFLQW ; 15172100 

WHILE L<0 DO 15172300 

IF MEMR0W[P1MJX],CCF}*FENCE THEN 15172400 

BEGIN NTl»MtMEM[P|MlX»AVAlL31> 15172500 

NT2*0> 15172600 

WHILE (NTl*MtNTlJ).[FF]»»P77777 DO 15172700 

NT2»NTl,tFF3*NTZI 15172710 

IF -NxLxl.l<NT2 THEN GO TO Yj 15172800 

IF CANTEXPANDCP1MIXJ THEN GO TO Yl 15172810 

EXPAND[P1MIX]*31 15172900 

SWAPCFORCESWAPtDI 15173000 

IF TERMSET(PIMJX) THEN P<XJ1); X101 151 73050 

END ELSE L*ABSCL>> 15173100 

Yt Ll*ABSCL)J IF G THEN IF LxN GTR 512 THEN GO TO Xj 15173200 

IF (T «■ GETSPACE(NxL.2.3)) « TH£NX 15174000 

BEGIN IF NOT G THEN PCOiRTN)J 15175000 

X» IF NOT N THEN 15175900 

BEGIN G*CONQUER(C»N«-N D I V 2»L»N INX S»1)J 15176000 

G*CONQUERCS INX NtN*L»S»l)f 15177000 

P(ltRTN)J 15177800 

P(XIT);X 15178000 

END)* 15179000 

T «■ GETSPACE(L»2»1)JX 15180000 

tNDIX 15181000 

B - (M[T + 2J]tl[8l36f lOHC[18l33M5)fX 15182000 

N * N-ll* 15183000 

FOR I * STEP 1 UNTIL N DO* 15184000 

BEGIN sm*P(OUP)&P(B»XCH)[CTFJl 15165000 

B * L INX Qi% 15186000 

ENOJX 15187000 

CONQUER-U 15187500 

ENDJX 15188000 

REAL PROCEDURE BATCHSELECT CF »N» B » L ) i VALUE F#N> 15200000 

REAL F»N,B#LI 15200100 

BEGIN 15200200 

REAL I»J) LABEL L1»L2> 15200300 

IF F NEQ THEN * SHEET ENTRY PASSED AS A PARAMETER 15200400 

IF NOT L THEN % SHEET QUEUE NOT "LOCKED" 15200500 

BEGIN 15200600 

SLEEP(tTOGLEJ»SHEETMASK)l 15200700 

LOCKTOGCSHEETMASK); 15200800 

Ll*UX "LOCKED" TOGGLE 15200900 

END) 15201000 

IF CNl*(64xN"CN NEC 0)) DIV CHUNKZUE) GTR CHUNKMAX THEN N » «CHUNKMAX >1 5201 1 00 

Nl«(N«0)+NI 15201200 

FOR II«N STEP 1 UNTIL CHUNKMAX DO 15201300 

BEGIN 15201400 

FOR JlsO STEP 1 UNTIL N DO 15201500 

IF BATCHEDU-J) THEN GO TO Lll 15201600 

Bl*"B4(64xN+I)CCTF3» % SIGN BIT INDICATES "OK" TO RUN 15201700 

GO TO L2J 15201800 

Lll ENDI 15201900 

BATCHSELECTl»TRUEJ X CANT RUN IT NOW 15202000 



L2» END! 

PROCEDURE COREPRINTCQ)! 

VALUE Qj REAL 0; %Q IS 

BEGIN 

LABEL TEST»AROUND»S 
REAL L!NK»A»N#MIX| 
S SET OMIT • NOTCPACKE 

REAL UNITNO? 
S POP OMIT 

SUBROUTINE CHECKMEM 

BEGIN AIPMEMROWCMIX 

NT2l=MEM[MlXtO 

WHILE A * NT2 

BEGIN IF NOT ( 

BEGIN NTl 

If L 

CtLI 

END! 

AI*LINK I 

end; END! 

Cl«UVROWd(SPACEfMIX 
FOR A«»0 STEP I UNT 
MIX|*ABSC0)I 

$ SET OMIT * NOTCPACKE 
IF MIX#0 THEN UNITN 

S POP OMJT 

IF MEMROWCMIXi.tCF] 
IF Q,tltl3 THEN 
FOR MlXl»t STEP 1 U 



MIX TO BE CU-ED " Q.CH13 MEANS ALL MIXES 

PUTTER* 
ARRAY CC*)! 
TS) 



IF JARROWIMIX] * 
BEGIN 







TEST! IF (STASUStMiX 

BEGIN CLICK|*C 
SLEEPUSQ 
END! 

IF JARROWIMIX] 
BEGIN TABCNHMJX 
IF CCA!«CN!»SQ 
CCMIXJ , [9 
IF N.I30I63 * 
BEGIN IF A#REA 
AND A/ 
CtMIX],[9 
END! 
END ELSE CCMIXJi 
IF NOT Q,UU3 
END! 
AROUND! 

FOR MIXiwO STEP i U 

IF CQ,mi3 OR 0«MI 

BEGIN LINK|*SPACE(9 

IF MIX # THE 

CAI»PUTORTAKE( 

BEGIN STREAMCM 

BEGIN SII 

DS»* 

END* GO T 

END ELSE 

STR£AM(Xl*OlA» 

B««PUT0 



} 

) INX 01 

3.EFF3! 

DO 

LINK»*M[A]),[1U J THEN 

l«LINK,CCF3-A! 

ink,[2ui then ntii»o*ntjictfii 

NK»C9»633»«C*P{DUP))+NTlJ 

nx o; 

MAX+1))[CTC3J 

IL MIXMAX DO CtAl««OJ 

TS) 

0!*PSEUDOMIXtMIXJJ 

< FENCE THEN CHECKMEM ELSE GO TO TEST) 

NTIL MIXMAX DO 
THEN 

3 AND STABLE) * THEN 
LOCK ♦ P(RTR) + IBOJ 
[MlXJ3#0lSTABLE[t8»ft2!6J}* 

#0 THEN 

ll"TABCNTtM!X] + Q,ClHJl 

[MIX3),C18J63) AND STABLE) * THEN 

filial ELSE 

THEN *J0B RUNS ABOVE THE FENCE 

DYSTATE AND A#RDYRPT 

WAITSTATE THEN CHECKMEM? 

»93$«N.C30!63"N, [36*63*1! 

■ 01 
THEN GO AROUNDI 



NTIL MIXMAX DO 

X) AND CIMIXJ^O THEN 

)l 

N IF C • C9I 1 j OR 

MIX»[PRY0R[MIX33»1 OR MtO))*N01 THEN 

IX, LINK)! 

■LOC MIXI DS!*4 LIT "MIX "! DSl»2 DECI 

9 LIT " IS HUNG*"! D I I *D J - 1 1 » DSI«FlLLl 

SPUTTER! 



RTAKECMIX,[JAR[MlX,03 3»l*0)t 



15202600 

15300000 
15301000 
15302000 
15302500 
15303000 
15303499 
15303500 
15303501 
15304000 
15305000 
15306000 
15307000 
15308000 
15309000 
15310000 
15311000 
15312000 
15313000 
15314000 
15315000 
15316000 
15316100 
15316199 
15316200 
15316201 
15317000 
15317500 
15318000 
15319000 
15319500 
15320000 
15321000 
15322000 
15323000 
15323500 
15324000 
15324250 
15324500 
15325000 
15326000 
15327000 
15328000 
15328500 
15328750 
15329000 
15329251 
15329500 
15330000 
15331000 
15332000 
15333000 
15334000 
15335000 
15336000 
15337000 
15338000 
15339000 
15340000 
15341000 



0«»PUTORTAKE(MIX»[JAR[MIXtl)]»l»0)t 15342000 

MIX»N*aC[MlXJ,C9t9J»S»*LlNK)i 1334 3000 

BEGIN SJI*L0C Al DSl«6 OECI DI 1*01-6* 15344000 

DSl»5 FILLJ 0!«»Si DH»DI*6I 15345000 

dsi*lit *i"; 2(Si»»si + i; dsi«7 cmr; 15346000 

0S««LIT »/»)} DII"DIMI 15347000 

0S»*LIT "*"; DS»*2 DEO St»DI« 15348000 

DI I "DI-2 J OS l*F ILL; DM=S; 15349000 

N(DS1»8 LIT "• USING "I DSl*2 DEC * 15350000 

SlwDIJ DII*D1"2; D5l»FlLL; 0H"SI 15351000 

DS»«7 LIT " CHUNKS"? JUMP OUT) I 15352000 

X|*D1I OSt-LIT "♦"! 15353000 

END ELSE 15354000 

STREAM(NI»QILINK)J 15355000 

BEGIN DSI-14 LIT " OlMCP/DISK» 0*1 N|>DH END) 15356000 

IF CNmCCMlXJ,[FFJ) * THEN 15357000 

5TREAM(SI«P»0I»N»RI»C[MIXJ,[CF3)I 15358000 

BEGIN DI »*SI 15359000 

SH*LOC 0; DS»»6 LIT "»SAVE»"; DS|*5 DEO 15360000 

SlaDIJ DII*DI-5; 0Sf«4 FILL; D I I «S; 15361000 

SlIwLOC RI. DSU6 LIT ",QLAY»»; DSl*5 DEO 15362000 

DS|*LIT »*»| DHwDI-6; DSl«4 FILLl 15363000 

END STREAM! 15364000 

P(DEL); 15365000 

SPUTTERl TABCNT[MIX3l*TABCNT[MIXJ-Q,[ltlJ; 15365500 

SPOUTEHcLINKiUNITNOtl); 15366000 

END; 15367000 

IF Q«[ltl) THEN SPRINT TOTAL 15368000 

BEGIN P(C[01)I 15369000 

FOR Ml X i «1 STEP 1 UNTIL MIXMAX DO 15370000 

IF C[HIX),[9|9]«0 THEN PC C [MI X J » ADD) ; 15371000 

Nt»(Nl*P) INX N.tFF]; 15372000 

STREAM(NtA»«AlwSPACE(5))l 15373000 

BEGIN SI»«L0C Nl 15374000 

DS»*31 LIT "TOTAL MEM IN USE BELOW FENCE « "I 15375000 

DSl*5 DEC; DSl*LIT "•"! DI l«DI-6* DSl»4 FILL; 15376000 

END; 15377000 

SPOUT(A); 15378000 

END; 15379000 

FORGETSPACE(C INX 0); 15380000 

END CORE PRINT; 15381000 

BOOLEAN PROCEDURE PRTGAMESCBUFF » M I X ) ; VALUE BUFF»MIX; REAL BUFF.MJX; 15400000 

COMMENT PRT6AMES IS THF BUSINESS END OF "IN" OR »0T" MESSAGES; 15401000 

BEGIN REAL NX, j NDEXt DATA* T » J; 15402000 

$ SET OMIT m NOTCPACKETS) 15402499 

DEFINE UN1TN0 * PSEUD0M1 X I MI X Hi 15402500 

$ POP OMIT 15402501 

LABEL ECH* X;;; 15403000 

STREAMCBUFFiF*BUFF<0#D*[DATA]»I*UNDEXJ}; 15404000 

BEGIN S1»BUFFI 15405000 

LI IF SC» H " THEN BEGIN SI»Sl*l! GO L END; 15406000 

4<IF SC*" " THEN IF SC*"*" THEN IF SC*"»" THEN 15407000 

BEGIN TALLY*TALLY+j; Sl*Sj*l END)* 15408000 

i*tally; d!*di+8; di*di-i; si*si-i; ds*i chr; 15409000 

F( 15410000 

Ml if SC«" " THEN BEGIN SI*SI+1I GO M END; 15411000 

IF SC#"»" THEN BEGIN E*Ol«"DI-HDS*UlT M,,,, *JUMP OUT ENDI 15412000 

SI*SI*1I 15413000 

N| IF SC»" " THEN BEGIN SI*SI+lf GO N END; TALLY*Ql 15414000 

8(IF SC>"0" THEN BEGIN TALLY*TALLY + 1 ; SJ*SI+1 END 15415000 



ELSE JUMP OUT); IF SC#" " THEN IF SC/ M * M THEN GO E? 15416000 

I-TALLY; DI*D? SI-SI-1? DS*1 OCT)? 15417000 

ENOI IF (INDEX AND NOT Pl070707)*0 THEN GO ECH? 15418000 

IF JARROW[MlX]sO THEN GO ECH? 15419000 

IF (NX* I NDEX. I 45 I 334 INDEX [ 42 * 39 » 3] & INDEX C 39 I 33 I 3J& INDEX [38 I 29 1 115420000 

J)S20 THEN GO ECHJ 15421000 

Tl*PUT0RTAKE(MlX,tPRT[MlX.l0n»HlC2»47»lJ#0)J 15421200 

IF T»NOT FALSE THEN GO ECHI 15421400 

Tl«PUTORTAKE(MlXi[M[T,MOM-3]l»lUt2U7ll)fO)| 15421600 

IF T«N0T FALSE OR T.tCFJ LSS (PRTROWtMIXJ INX NX) THEN GO ECHI 15421800 

IF BUFF LSS THEN 15422009 

BEGIN 15422200 

P(M[Tl*PUT0RTAKECMIX>[PRT[MlX#NXn»2#0)J)J 15422400 

FORGETSPACE(T)! 15422600 

IF P(TOPtXCH.DEL) THEN PC PUTORTAKE ( M I X, CPRT [ MI XiNX ] J # 15422800 

0#DATA)tDEL) ELSE GO ECHI 15423000 

END ELSE 15424000 

BEGIN STREAM(JJ»J»sPUT0RTAKE(MIXt[JARtMIX.0J]»2#0)#MlX, 15425000 

1NDEX»RI*TI»PUT0RTAKE(MIX»IPRT[MIX.NXJ]»2»0)» 15426000 

D* DATA* BUFF,(i5ll5)-l)5 15427000 

BEGIN SI*J? SI-SI + 1 * DS*LIT" "?* »WF 15428000 

ds*7 chrj ds*llt*v"; si*si+1j> xwf 15428100 

ds*7chrj ds*lit m *"j sl*lqc mix* ds*2dec? 15429000 

mix*du di*di-2; ds*f illx di*mixi 15429500 
ds*3lit w »r* m > sl*sl*4j ds*4 chrj d*di? di*di"4» 15430000 

ds*3 fill; oi-d; ds*lit w * w ? si-r; 15431000 

if sb then % descriptoritype octal 15432000 
16(ds*3 reset; 3(jf sb then ds*set else ds* 15433000 

reset? skip sb)) else 15434000 

0S*8 DECI 15435000 

ds*lit w *"; di*d; di*di + u ds«-7 fill; 15436000 

END; 15437000 

spoutercdata»unitno»i); 15437100 

forgftspace(t); forgetspacec j) i 15437500 

END! GO X; 15438000 

ECHI PRTGAMES*!? 15439000 

Xt END; 15440000 

PROCEDURE SPOUTMCPCBUFT); VALUE BUFF? REAL BUFF; 15500000 

BEGIN REAL X? XQ21M5501000 

DISKWAITC(X*SPACE(30))»30.MCPNAMESE6); 15501100 

STREAM(MU»MaRKLEVEL#PH«PATCHLEVEL»LL|bLOCALEVEL 15501500 

»Nl«X*20+2xSYSN0»AJ«BUFF)? 15501600 

BEGIN 0S*LIT" "? SI*N> SI*S1*JI DS*7 CHR; DS*LIT"/"J 15502000 

SI*S1+1? DS*7 CHR; DS*6 LIT" MARK "; 15502100 

SII*L0C ML? IF SC GEO " " THEN; 15502200 

8(IF TOGGLE THEN IF SC»"0" THEN SII»SI+1 ELSE DS»«CHR 15502300 

ELSE D5l*CHR)l DSl«LIT»\"; 15502400 

SH*LOC PL; IF SC GEO M " THEN; 15502500 

6(IF TOGGLE THEN IF SC«"0* THEN SI»«SU1 ELSE 0Sl*CHR 15502600 

ELSE DSl«»CHR)? DSI«2CHR; 15502700 

SII«L0C LLI IF SC GEO " " THEN; 15502800 

8(IF TOGGLE THEN IF SC«"0" THEN SII»SI+1 ELSE DSt«CHR 15502900 

ELSE DSl»CHR)? 15503000 

OSte 9 LIT" INCLUDES"? 15504000 

DSl*12 LIT" B487-S FOR "I 15505000 

S SET OMIT * NOT(TWXQNLY) 15505099 

DSl*15 LIT"TELETYPES ONLYi"? 15505100 

$ POP OMIT 15505101 

$ SET OMIT » TWXONLY 15505199 

DSl«ll L1T"EVERYTHING»"? 15505200 



$ POP OMIT 15505201 

* SET OMIT ■ NOTCDFX) 15509000 

DS * 4 LIT M DFX»"l XDFX15510000 

$ POP OMIT 15510001 

$ SET OMIT « NOTCDUMP OR DEBUGGING) 15514999 

DSl»5 LIT"DUMP»"| 15515000 

t POP OMIT 15515001 

$ SET OMIT * NOHDEBUGGING) 15515999 

OS * 11 UIT " DEBUGGING."! 15516000 

$ POP OMIT 15516001 

$ SET OMIT ■ NOTCCHECKLINK OR DEBUGGING) 15516999 

DSl»10 LIT^CHECKLINK."! 15517000 

$ POP OMIT 15517001 

t SET OMIT * NOTCSAVERESULTS OR DEBUGGING) 15517999 

DS«p12 LIT M SAVtRESULTS. w J 15518000 

$ POP OMIT 15518001 

* SET OMIT » NOT(SHAREDISK) 15518999 

DSMO LIT"SHAREDISK»"J 15519000 

$ POP OMIT 15519001 

S SET OMIT a NOTCSTATISTICS) 15519999 

DStsllLlT"STATlSTlCSt , 'J 15520000 

S POP OMIT 15520001 

$ SET OMIT * NOTCAUXMEM) 15520099 

DS*7 LIT "AUXMpM."; 15520100 

t POP OMIT 15520101 

$ SET OMIT = N0TCB6500L0AD) 15520300 

0S*10 LIT "B6500L0AD»"J 15520400 

$ POP OMIT 15520401 

$ SET OMIT * NOTCPACKETS) 15520409 

DSt58LlT"PACKETS#"> 1552041§ 

t POP OMIT 15520411 

$ SET OMIT * NOT(DKBNODFX) 15520419 

DS*9 LIT w DKBNODFX» M J 1552042© 

t POP OMIT 15520421 

$ SET OMIT • NOTCMONITOR) 15520430 

DSlsSLIT^MOMTOR."; 15520440 

S POP OMIT 15520450 

$ SET OMIT e NOT SEPTKTANK 15520460 

DSlsll LIT"SEPTICTANKi w J 15520470 

$ POP OMIT 15520480 

$ SET OMIT « NOT AUTODUMP 15520490 

DS**9 LIT"AUT0DUMP»"1 15520500 

t POP OMIT 15520510 

DI * DI-U 15523000 

DS * LIT M *"l 15524000 

ENDI 15530000 

IF M(3],tlU] THEN % CM HAS BEEN DONE 15531000 

BEGIN DISKWAIT(-X»30#0)» 15531100 

STREAM(N«-X+10 + 5xSYSN0.BUFF)» 15531200 

BEGIN SI*BUFM S I •- S 1 + 1 6 J 15531300 

LI IF SC NEQ "•" THEN BEGIN SI»SI+1I GO LI ENDI 15531400 

BUFF*SII DI'BUFFI 15531500 

DS*18 LIT--NEXT MCP WILL BE "I 15531600 

SI*N| SI*SI*U DS*7 CHRJ DS»UT"/"I 15531700 

SI*SI+1I DS*7 CHRI DS*LIT"«-"| 15531800 

ENDI ENDI 15531900 

IF BUFF>0 THEN SPOUTCBUFF)! 15532000 

FORGETSPACE(X)! X021M55321Q0 

END SPOUTMCPI 15533000 

PROCEDURE WHATINTRNSIC(BUFF)! VALUE BUFF I REAL BUFFI 15534000 



BEGIN 15535000 

REAL SIZEiLOC»INTWORDiWIiU 15536000 

LABEL EXIT* 15537000 

IF INTSIZE*0 THEN 15539000 

BEGIN I 15540000 

STREAM(BUFF); DS*14 LIT "NO I NTH I NS I CS* W J 15541000 

SPOUT(BUFF); 15541100 

GO EXIT? 1554200P 

END; 15543000 

COMMENT MAKE NI INTRINSIC PRESENT; 15544000 

SIZE «■ (INTWORDI»INTRNSCUNTRNSCtOJ J) INX OJ 15545000 

LOC »* SPACE(SIZE)> 15546000 

S SET OMIT ■ NOTCAUXMEM) 15547000 

IF lNTW0RDt[3UJ THEN X INTRJNSICS ON AUXMEM 15547100 

DISKWAIT(-L0C#SIZE»»(0&INTW0RD[32»21U2])) 1554 7200 

ELSE 15547300 

S POP OMIT 15547301 

DISKWAIT(-L0C»SIZE#INTW0RD,[6«27])> 15546000 

D ISKHA !T("(H "SPACE ( 30) )»30»0); 15549000 

STREAM(Xl*I*l3+5xSYSN0»L0K»=L0C»BUFF); 15550000 

BEGIN 15551000 

SH*L0K; SH«SI+6! 15552000 

10(SII»SI+1I 15552100 

7C IF SC* H * H THEN JUMP OUT 2 TO Lll 15552200 

IF SC»"P" THEN SlJsSI+1 ELSE DSJ^CHR))? 15552300 

Lll Sp*XJDSl*3LlT" ( M ; 15552400 

S|t«S!+lJ DSis7 CHRJDS»«LlT"/"; 15552500 

SllaSl+i* DSJ*7 CHR»DSI«2LIT")*"J 15552600 

END STREAM* 15552700 

FORGETSPACE(LOC)* FORGF TSPACE ( I ) » 15552800 

EX I T I 15554000 

END WHATINTRNSICJ 15555000 

S SET OMIT • NOTCAUXMEM) 15604999 

REAL PROCEDURE AUXPRJNTCQ)! VALUE Q; REAL Q; 15605000 

% PRINTS AMOUNT OF AUXILIARY MEMORY USED 15605100 

BEGIN 15605200 

REAL It IMAX, C» TC» D» TD» PR« FN# SN, BUFF; 15605300 

S SET OMJT « NOT(PACKETS) 15605349 

REAL UNITNO; 15605350 

$ POP OMIT 15605351 

LABEL ERROR#FMT; 15605400 

IF 0,1111) THEN IMAX «* MIXMAX ELSE 15605500 

IF (II«IMAXfBQ.CCF3) NEQ THEN * NOT MCP AND INTRINSICS 15605600 

IF I GTR MJXMAX THEN 15605700 

BEGIN 15605800 

ERRORI P(ltRTN)l 15605900 

END ELSE IF JARR0WCI3*0 THEN GO TO ERROR; 15606000 

IF IMAXwO OR Q.C1U1 THEN % PRINT MCP AND INTRINSIC USAGE 15606100 

BEGIN 15606200 

PR»»Ol FN;«"INTRINS"> SNJ«"MCP "I GO TO FMT; 15606300 

END! 15606400 

S SET OMIT * NOTCPACKETS) 15606449 

IF 1*0 THEN UNlTNOlppSEUDOMIXm; 15606450 

I POP OMIT 15606451 

FOR II"! STEP 1 UNTIL IMAX DO IF JARRQW[ I 3 NEQ THEN 15606500 

BEGIN 15606600 

t'ABCNTC !3l«TABCNTtI 3*11 15606650 

PR I* PUTORTAKE(I»tPRYOR[I J3#l»0); 15606700 

FN |« PUT0RTAKECI»NaRU»03J»1.Q){ 15606800 

SN |» PUTORTAKECIt [JARC 1 • 1 1 J » 1 f 0) I 15606900 



TABCNTt I JI»TABCNT[M-H 15606950 

FMTI TD »* TO + (D >* AUXDAT A[ I]x 1 6 ) i 15607000 

TC »» TC + (C »* AUXCODEC13K16)! 15607100 

STREAM(PR#FN#SN»I#D»C»XJsO,BUFF«*BUFFI*SPACE(7))> 15607200 

BEGIN 15607300 

Sl!»LOC PR» DS»=6DEC> D S • ■ L. I T " I " * 15607400 

X«»DIJ 01 «»D I -7* DSJS5FILL; D I I » X ; 15607500 

2(SIl»SI*U DS»b7CHRJ OS : «L I TV" ) ; 15607600 

DII«DI-1I DSl«LIT"* M ; DSl»?DECJ 15607700 

X |*DI ; 01 I*D1 -21 DS»*FJLLJ DI»»X) 15607800 

DSI-7UIT" IDATAb"? DS»«5DECJ 15607900 

X:*DIJ 0H«=DI»5; DSls^FILLJ DM*XJ 15608000 

DS»*6LIT" CODE*"; DSJ=5DECJ 15608100 

XlspjJ DI»»D!-5J DSl=4FILL; D I * *X5 OS I »L IT"«-"| 15608200 

END STREAM; 15608300 

SP0UTER(BUFF*UNlTN0tl)» 15608400 

END ! 100PJ 15608500 

IF Q f tl«n THEN % PRINTING FULL MIX 15608600 

BEGIN 15608700 

STREAM(N>*TD*TC» BUFH «BUFF 1 «SPACEUO) ) J 15608800 

BEGIN 15608900 

DSI»21LIT W TOTAL AUX MEM USED* "J 15609000 

SII*L0C NJ DS»*60EC; DS««2LIT".* W ; 15609100 

DII*DI-8> DSt*5FlLLJ 15609200 

END STREAM? 15609300 

SPOUTCBUFF)* 15609400 

ENDJ X IF FULL MIX 15609500 

END PROCEDURE AUXPRINT* 15609600 

$ POP OMIT 15609604 

REAL PROCEDURE KEY I NSCAN(KTR» M I X ) ; REAL KTRtMlX; 16029000 

BEGIN 16029100 

REAL TYPE*+1# TBLADORJ 16029200 

% SCANS INPUT BUFFER FROM SPO 16029300 

% RETURNS ERROR FLAG IN MlX,tl«3i ,,. 16029400 

% MIX,[H1J«FLAG FOR EMPTY BUFFER (GROUP MARK ONLY) 16029500 

% MIX,t2IU=FLAG FOR NO INFO AFTER MIX INDEX 16029600 

% MIX,[3»1]»FLAG FOR QMARK (CO INPUT AS FIRST CHARACTER 16029700 

% KTR IS INITIALLY THE ADDRESS OF SPO INPUT BUFFER 16029800 

% KTR IS ASSIGNED NEXT CHARACTER LOCATION AFTER SCAN 16029900 

* TYPE.tCFJ IS ASSIGNED TABLE LOCATION (MIXMSG OR INFOMSG) 16030000 
% TYPE, CII5J IS ASSIGNED PROCEDURE NUMBER 16030100 

* TYPE»t6t6J IS ASSIGNED MlXCODE 16030200 
STREAM(MfXl=63» BUFF«*KTR «)> % SCAN INPUT BUFFER 16030300 

BEGIN 16030400 

SII»BUFFI 16030500 

DII«BUFFI DIl'DI-ll OSlsLlT"<"» % BACKSPACE CHARACTER 16030600 

8(60(1F SC»"*" THEN % END OF INPUT STRING 16030700 

BEGIN ~ 16030800 

DSl-CHRl JUMP OUT 2 TO L; 16030900 

END! 16031000 

IF SC«*<" THEN * BACK SPACE CHARACTER 1603U00 

BEGIN 16031200 

DI»«DI»U IF SC NEQ DC THEN 01**01-11 16031300 

END 16031400 

ELSE DS»»CHR))J % END OF BACKSPACE CHECK 16031500 

LI SJ|*BUFFJ DM«LOC MIX! % CHECK FOR MIX INDEX 16031600 

LU IF SC» W * THEN 16031700 

BEGIN 16031800 

$lt«Sl+}J GO TO Lll 16031900 

ENOJ 16032000 



IF SC* W »" THEN X EMPTY BUFFER 

BEGIN 

SKIP DBJ OSl«SET> GO TO X X I T 1 X M I X , 1 1 » 1 J»EMPTY BUFFER FLAG 

END J 
IF SC LSS "0" THEN GO TO XXIT; X NO MIX INDEX, SET "MIX"*63 
IF SC GTK w 9" THEN X QUESTION MARK, SET Ml X, [ 3 1 1 J 

BEGIN 

SII*SI + 1J SKIP 3DB? DS»«SET1 GO TO XX IT 1 * M I X , t 3 « IJ-QMaRK FLAG 

end; 

Sll«Sl«ll IF SC LSS "0" THEN GO TO ONE; 
IF SC LEQ "9 W THEN 

BEGIN 

SllsSI*U DSI»20CTJ 

END 
ELSE 

BEGIN 
ONEi S!i»S!-ll DSi«OCT> 

end; 

L2J IF SC* W * THEN * SCAN TO NEXT VISIBLE CHARACTER 
BEGIN 

Si tsSl + U GO TO L2I 
END) 
IF SC»"»" THEN X NO INFORMATION AFTER MIX INDEX 
BEGIN 

d!t*loc mix; skip 20bj ds|»seu x m i x .[ 2 i 13*error flag 
end; 

XXiTt DII«RUFF; DH"D1-BI DS|s8LIT"INV kbd "I 

BUFFlvSII X SAVE LOCATION OF NEXT CHARACTER IN BUFFER 

END stream; 
makelogcktr-i#spin); X BACKSPACING is done, we can log NOW, 

IF P([KTR]#STD»[MIX]»SND).tl»3J*0 THEN 18 NOT ttMARK, EMPTY OR ERROR 
BEGIN 

TBLADDR»»TYPE»*SPACECKEYMSGSZ)> 

DlSKWAlT(-TYPE»KEYMSGSZ»MESSAGETABLEt2], [22'26J); 
STREAM(TBBLl*TYPEt BUFFJ*KTR I TQG»*(MIX NE«> 63)); 
BEGIN 

sti»tbbl; si»=si+i> dii»buffj di»*di+2; 
nextj ci i*c i+tog; go to nomix; 
mix| if sc geo 1 then go to ok else 

BEGIN 

si i*si+e; go to mix? 
end; 

NOMIXl IF SC GTR t THFN 
BEGIN 

Simsi+a; GO TO nomix; 
end; 
ok» sn»sj + i; di««di-2; 

IF SC*"*" THEN X END OF TABLE 
BEGIN 
TBBLl*TALLYf GO TO XT; 

end; 
if 2 sc*dc then 

BEGIN 

SI l«SH-5; GO TO NEXTJ 

end; 
tog»»di; diuloc tbbd si ipsi4-2i ds»*2 oct; x switch value 
sn«si-4; dimloc tbbl; ds»*2Chr; x proced & mixcode 
si i»tog; 

Ll IF $C«" H THEN 
BEGIN 



X MIX SPECIFIED 

X BUT THIS IS NOT 

X A MJX MESSAGE. 

* MIX NOT SPECIFIED 
X BUT THIS IS A 
X MIX MESSAGE, 



X NOT MATCHING ENTRY 



16032100 
16032200 
16032300 
16032400 
16032500 
16032600 
16032700 
16032800 
16032900 
16033000 
16033100 
16033200 
16033300 
16033400 
16033500 
16033600 
16033700 
16033800 
16033900 
16034000 
16034100 
16034200 
16034300 
16034400 
16034500 
16034600 
16034700 
16034800 
16034900 
16034950 
16035000 
16035100 
16035200 
16035250 
16035300 
16035400 
16035500 
16035600 
16035650 
16035700 
16035750 
16035800 
16035850 
16035900 
16035950 
16036000 
16036100 
16036200 
16036300 
16036400 
16036500 
16036550 
16036600 
16036650 
16036700 
16036750 
16036800 
16036900 
16037000 
16037100 



SI »«SI*1J GO TO LI 16037200 

ENDI 16037300 

BUFFI«SH 16037400 

XTl END STREAM STATEMENT; 16037500 

PC [KTRJ*STD» ,TYPE#STD)J 16037600 

FORGETSPACECTBLADOR)* 16037650 

END % IF NOT OMARKf EMPTY OR ERROR 16037700 

ELSE * QMARK» EMPTY OR ERROR 16037720 

IF MIX,[3llJ THEN % QMARK 16037740 

BEGIN MIX|*63| 16037760 

TYPEl«VCCftl(ll43t5]l 16037780 

END 16037800 

ELSE TYPEl«Ol 16037850 

END PROCEDURE KEYINSCAN) 16037900 

PROCEDURE KEYIN0(B»KTRX)> VALUE B»KTRXl REAL B»KTRX| 16038000 

16039000 
BEGIN 16040000 

REAL BUFF* KTR» TYPE* MIX, A, I» J» Kl 16041000 

16042000 

16043000 

LABEL CUTY* RXJT* ERROR* FORGET* EXIT 16044000 

»AX. IL* QT» OU* WY. RY* DS» RS» SS» DP 16045000 

»DD* DB» ST* CM, MF» SV» CL# BK 16046000 

16047000 

16048000 

16049000 

j 16050000 

16051000 

SWITCH St* ERROR 16052000 

»AX, IL* IL* QT» OU* WY* RY, DS» DS* RS 16053000 

*SS» DP* DD» DB» ST* CM, MF» SV, CL» BK 16054000 

»RXIT» RY* RXIT* RXIT* RXlT 16055000 

16056000 

16057000 

16058000 

; 16059000 

BUFFl*KTRX,[15»153l 16060000 

MIX JsKTRX,[ 916 )i 16061000 

TYPE»*KTRX,[ 217 ]l 16062000 

KTR iwKTRX, [1513331 16063000 

GO TO StTYPEH 16064000 

AX| 16065000 

1 1* BUFFI 16066000 

GO TO RXITI 16067000 

IL» 16068000 

IF(II»ANVIL(TYPE*2»KTR)) GTR 35 THEN 16069000 

IF I < 42 THEN GO TO ERROR, 16070000 

TYPE l« VILJ 16071000 

IF I GTR 35 THEN BUFFI*! J 16072000 

GO TO RXIT; 16073000 

OUl 16074000 

STREAM(AI*"LP" I Bl«"MT"» CI»"DK". Dl« H CP"» KTR)I 16075000 

BEGJN 16076000 

SI I* KTR) 16077000 

DI I* LOC A, DI «* DI+6; 16078000 

TALLYl»ll IF SC* n +" THEN GO TO XT; 16079000 

TALLYI-2) IF 2 SC»DC THEN GO TO XTl 16080000 

TALLYI«3| SJlvSl-21 DI ••01*14 J IF 2 SC«DC THEN GO TO XTl 16081000 

TALLY|*4{ SllwSj-21 01 1-01*6* IF 2 SC*OC THEN GO TO XTl 16082000 

TALLYI»5I SI IpSI-21 Dll"01*6l IF 2 SC*DC THEN GO TO XTl 16083000 



TAtLY l»Ol 16084000 

XT 1 A l» TALLY; 16085000 

END) 16066000 

IF(ll«P) * THEN GO TO ERRQRl 16067000 

GO TO RXJTI 16088000 

WYi 16069000 

IF MIX L$S 63 THEN GO TO RX I T I * <MIX> WY 16090000 

A»*QJ X THIS PRINTS OUT TOTAL LIST QF WAITING JOBS ON WY 16091000 

FOR 11*0 STEP 1 UNTIL MIXMAX DO 16092000 

IF REPLYCI] LSS THEN 16093000 

BEGIN 16094000 

REPLYCA» a ni«VWY; BRINGBACKC I )J 16095000 

END! 16096000 

IF A NE9 THEN GO TO FORGET* 16097000 

MCBUFFM J I «FLAG( 005644 34 360606060)1 16098000 

GO TO ERRORI % SPOUT MESSAGE 16099000 

RY| 16100000 

IF <I1*F0RMESS{KTR#TYPE*VFM)) LSS THEN GO TO FORGET; 16101000 

IF I GTR 31 THEN GO TO ERROR ELSE GO TO RXJTj 16102000 

RSI 16103000 

L1NEM£SSAGES(KTR)J 16104000 

GO TO EXITI 16105000 

SS» 16106000 

IF CANDYINX NEQ ThF'N C ALLC ANDE CKTR» "SS" ) ELSE 16107000 

LINEMESSAGES(KTR)J 16108000 

GO TO EXIT! 16109000 

DPI 16110000 

* SET OMIT m NOTCDEBUGG I NG OR DUMP) 16111000 
STREAMCAI»"LP"» KTR l Bi* w MT w )> 16112000 

BEGIN 16113000 

Si I* KTRl 16114000 

OJ lw LOC AJ DI I* DI ♦ 6J TALLY»*1> 16115000 

if 2 sc»oc then go to xti I6116000 

01 l« DI ♦ 221 SI I* SI - 21 TALLYI*2J 16117000 

IF 2 SC»DC THEN GO TO XT) 16118000 

TALLYI»OJ 16119000 

XT I A Ip TALLY! KTR I. S|) 16120000 

END STREAM STATEMENT? 16121000 

IF CAI»P([KTR]>STD))*0 THEN GO TO ERROR; 16122000 

IF A«t THEN 16123000 

BEGIN 16124000 

PRINTCORE(MJX); GO TO FORGET; 16125000 

END) 16126000 

DUMPCQRE(KTR&BUFFU5i33U5J)> 16127000 

* POP OMIT 16127001 
GO TO EXITI 16128000 

ODI 16J29000 

$ SET OMIT m NOT( OEBUGG I NG) 16130000 

DDTI 16131000 

$ POP OMIT 16131001 

GO TO FORGET! 16132000 

DBI 16133000 

S SET OMIT a NOTCDEBUGGING) 16134000 

D1SKBUGI 16135000 

S POP OMIT 16135001 

GO TO FORGETI 16136000 

ST I 16137000 

IF-REPLYtMIXJ ■ CVWY&V0Kt36l42l6J) OR JARROWCMl X 3*0 THEN GO ERROR; 16138000 

IF NOTERMSET(MIX) THEN PRTR0W[MIX] , (PSF 3 1*2* 16139000 

GO FORGET; 16140000 



CMI 16141000 

CHANGtMCP(KTR)J 16142000 

GO TO EX1TJ 16143000 

MF< 16144000 

FENCEMOVER(KTR» BUFF}) 16145000 

GO TO EXIT! 16146000 

SV» 16147000 

SAVETHEUNIT(KTR)! 16148000 

GO TO FORGET* 16149000 

QTl 16150000 

IF MIX USS 63 THEN X MIX INDEX SPECIFIED 16153000 

BEGIN 16154000 

CUTYl I l*PUTORTAKE(MlX»CvlAR(MIX»OI )»2»0)i 16155000 

Jl *C CMC 1 1 EOV "PRNPBT " ) = NOT 0) AND 16156000 

C CMC 1*1 J EOV "DISK ") « NOT 0)1 16157000 

FORGETSPACEU); 16158000 

IF J THEN 16159000 

BEGIN 16160000 

REPLYCMIX]I»TYPE> 16161000 

STREAM(A«=0, B»»0 > KTR)* 16166000 

BEGIN 16167000 

SII«KTRJ 16168000 

IF SC« M + M THEN TALLY;«2 ELSE 16169000 

IF SC* W - M THEN TALLYI*3 ELSE GO XT* 16170000 

B2I SH«SI + l; IF SC«" w THEN GO TO B2* 16171000 

BlwlALLYl TALLY»*0; 16172000 

6(IF SC LSS "0 M THEN JUMP OUT » SH*SI + 1I TALLY » «TALLY+1 ) J 16173000 

KTRl«TALLYi DH*LOC AJ Sll«SI-KTRI DS»«KTR OCT; 16174000 

XTI END STREAM STATEMENT? 16175000 

NT2l»P* 16176000 

NTllsPJ 16177000 

PRTlMiy,e2«SJ|s5%NTlt9>24j24]&NT2[U z »6l2]l 16178000 

GO TO FORGETJ 16179000 

END 16180000 

ELSE GO TO ERROR; * NOT PRNPBT 16181000 

END; 16181500 

CLI X MUST FOLLOW QT 16182000 

X QT OR CL LINE OR PERIPHERAL UNIT 16183000 

STREAMCWIwO I KTR); 16184000 

BEGIN 16185000 

SIIpKTR; 16186000 

IF SC GEO "0" THEN IF SC LfQ "9" THEN TAULYIvl I 16187000 

Wl*TALLY; 16188000 

END STREAM STATEMENT; 16189000 

IF P THEN 16190000 

BEGIN 16191000 

LINECLEAR(KTR)! GO FORGETJ 16192000 

END; 16193000 

IF (II*UNITIN(TINU»KTR)) LSS 36 THEN X CHG IF MORE PSEUDORDRS 16194000 

IF (MIX»* RDCTA6LEU J.C6J6J) NEQ THEN 16195000 

BEGIN 16195500 

TABCNTCMIX3 f»T ABCNT t M I X ] ♦ 1 f 16195750 

IF TYPE»« THEN GO TO CUTY 16196000 

ELSE GO TO DS; X CLEAR UNIT IN USE BY JOB 16197000 

END; 16197500 

X CLEAR UNIT NOT IN USE BY JOB 16198000 

* SET OMIT « NOTCSHAREDISK) 16199000 

IF I LSS 40 AND I GTR 35 THEN 16200000 

IF TYPE'19 THEN X CL 16201000 

BEGIN 16202000 



IF ( II»I-36)=SYSN0 OR I GEQ SYSMAX THEN GO ERKORI 16203000 

CLEANQUTU OR MEMORY)! 16204000 

GO TO FORGET; 16205000 

END! 16206000 

S POP OMIT 16206001 

IF TYPE»4 OR (I GTR 29) THEN GO TO ERROR; % OT OR PSEUDO UNIT 16207000 

LABELTABLEtUl*P(DUP.LOD»SSP); % MARK IT NOT IN USE 16208000 

MIX|*63) GO TO RYJ 16209000 

D S| 16210000 

IF JARROWCMIXJ NEO THEN 16211000 

BEGIN 16212000 

TERMINATECMIX&3C18I33H5])! 16213000 

MALT; 16214000 

N0PR0CESST0Gt*N0PR0CESST0G-i; 16215000 

JARCMlX«6] t mt]l«C(TYPE"9) OR CTYPEM9))) * DS-8» SD*9 CL*19 16216000 

GO TO FORGET* 16217000 

ENOI 16218000 

GO TO ERROR; 16219000 

BKi 16220000 

IF CH» MESSAGEHOUDER.CCF]) NEQ THEN 16221000 

BEGIN 16222000 

IF (Jt« MI 1 J.CFF3) NEQ THEN 16223000 

DO BEGIN 16224000 

AI*M[JJ; 16225000 

IF CA.[4l5JsO AND MIX*63) OR C A 1 1 4 1 5]*M I X AND MIX NEQ 63)THEN 16226000 

BEGIN 16227000 

MClJl*P(DUP#tOD>&AU8«18ll5); 16228000 

NUMESSI«NUMESS-1I 16229000 

FORGETSPACECJ+1)) 16230000 

END 16231000 

ELSE I*«J) 16232000 

LND UNTIL <J«*AtCFF))*Oj 16233000 

MESSAGEHOLDER,CFF]»*I! 16234000 

END! 16235000 

IF SPOWORD LSS THEN % GO CLEAN OUT TANK 16236000 

BEGIN 16237000 

IF STATABLECKJ*ABS(SP0W0RD)J.0UTPUTANK1NG THEN 16238000 

BEGIN 16239000 

WHILE NOT (Jl«TANKS[K]),CllU DO SLEEP ( t TANKSt K J } , -0) ; 16240000 

STATABLE[K],OUTPUTANKlNGJsO; 16241000 

IF J.I2I8J NEQ OR TA1L0UT « K THEN 16242000 

BEGIN 16243000 

Also; 16244000 

DO 1>*A UNTIL £AI»TANKStA3t[2l8D»K| 16245000 

TANKS! Ill»C*P(0UP))*Jl2 12183 I 16246000 

IF K«TAIL0UT THEN TAlLOUTt'H 16247000 

END) 16248000 

END1 16249000 

TANKStK]l«NABS(0)j 16250000 

$ SET OMJT » TWXONLY 16251000 

IF STATABLEtK],STATlONTYPE»TC500 THEN 16252000 

TNA0Q[SEQARRAY[K],[26l6]Mlll33l"0 ELSE 16253000 

BEGIN 16254000 

TNA06tSEQARRAY[K],t26l6JJ««(*PCDUP))&P(0»XCH)[14ll4tl4); 16255000 

STATABLE[K3,[22«?3I»»0; 16256000 

END! 16257000 

$ POP OMIT 16257001 

END) 16258000 

MIXf.63) 16258500 

GO TO FORGET; 16259000 



Rxn » 

REPLY[M1X]I*TYPE & I [ 1 8 I 33 I 15J ) 
BRINGBACKCMIXJI 

IF I NEO BUFF THEN 
BEGIN 
FORGET! 

STREAM(Tl*BUFF-l)J DS I *LI T"*"l 
ERRORI 

spoutcbuffm)! 
end; 

EXIT! 

IF CMIX»»0) AND (MIX<63) THEN T ABCNT t M I X 3 I *T ABCNU M I X J-l ; 
END PROCEDURE KEYINOl 
PROCEDURE KEYIN1CB»KTRX)| VALUE B#KTRXJ REAL B.KTRXI 
BEGIN 
REAL BUFF* KTR* TYPE* M I X» A* I* J* Kl 

LABEL COUT» ERROR* FORGET* EXIT 

»DT» WD* TR» WT» TF» WM* CX» CE» CC» OL 

»PB» BS* SC* RN» LD» RD» ED* SI» CA» Stt 
«CS* HS 



I 

SWITCH Sl=ERROR 

»DT» WD* TR* WT* TF» TF» WM* CX» CE» CC 
»OL* PB» BS* BS* SC* RN» LD' RD* ED* SI 
*CA» CA» SQ» CS» HS 



DTI 



; 



BUFFI«KTRX,U5I15JJ 
MIX |«KTRX,[ 916 Jl 
TYPEl»KTRX,t 217 Jj 
KTR I»KTRX,[15I33J; 
GO TO S[TYPE]I 



WDI 



TRl 



WT * 



TFI 



WMl 



CXI 



SETDATE(KTR), 
GO TO EXIT) 

GIMEDATE(BUFF-1»1)J 
GO TO EXJTI 

SETIME(KTR)! 
GO TO EXITI 

TIMEOUT CBUFF-1)) 
GO TO EXITI 

CHANGEFACTORCKTR* TYPE*5)I X TF«5» SF"6 
GO TO EXITI 

SPOUTMCP(BUFF-i)J 
GO TO EXITI 

IF REMOTE THEN 

BEGIN 
CALLCANDECKTR* 0)1 



16349000 
16350000 
16351000 
16352000 
16353000 
16354000 
16355000 
16356000 
16357000 
16356000 
16359000 
16359500 
16360000 
16361000 
16362000 
16363000 
16364000 
16365000 
16366000 
16367000 
16366000 
16369000 
16370000 
16371000 
16372000 
16373000 
16374000 
16375000 
16376000 
16377000 
16378000 
16379000 
16380000 
16381000 
16382000 
16383000 
16384000 
16385000 
16386000 
16387000 
16386000 
16389000 
16390000 
16391000 
16392000 
16393000 
16394000 
16395000 
16396000 
16397000 
16398000 
16399001 
16400000 
16401000 
16402000 
16403000 
16404000 
16405000 
16406000 
16407000 



n 



mo**- ' 





£ 



GO TO E X I T 1 16408000 

END ELSE GO TO ERROR] 16409000 

CE« 16410000 

STREAMCKl*KTR|*SPACEC8)+2)J 16411000 

DSt*45 L1T"CC RUN C ANDf /TSHARER ] STACK»2001 C0RE«4000J END*" ) 16412000 

GO TO COUTJ 16413000 

JC» 16414000 

AI"MtBUFF-3J,CCFJ-BUFFl % WDS IN MESSAGE 16414100 

STREAMCBUFF* BLt*A>8, KTR t *CKTR I *SPACE ( A + 2 ) + 2) ) J 16415000 

BEGIN 16416000 

SII»BUFF) 16417000 

BLC36CDSl«2LlT" * ) } DI I «KTR> ; 16417100 

IF SC NEC "*" THEN 16418000 

BEGIN 16419000 

DSl*CHRJ 16420000 

LI IF SC NEQ "•" THEN 16421000 

BEGIN 16422000 

IF SC NEQ P14 THEN DSl«CHR ELSE SI«»S1+1J 16423000 

GO TO LJ 16424000 

ENDi 16425000 

END; 16426000 

DS|*CHR» 16427000 

ENDI 16426000 

COUTJ 16429000 

M[KTR"4]«[9I6]I»0! 16430000 

CCARO<KTR«i( IF CABS(B) GTR 1) THEN 30 ELSE 25 ) [ 3 ; 43 « 5 i ) J 16431000 

GO TO FORGET] 16432000 

Oil 16433000 

OUTPUTLABEL(KTR)> 16434000 

GO TO EXIT] 16435000 

PBI 16436000 

PRINTBACKUP(KTR)] 16437000 

GO TO EXIT] 16438000 

BSl 16439000 

SP0SET(TYPE = 13» KTR)J % BSe=13» US»14 16440000 

GO TO EXIT] 16441000 

SC! 16442000 

STREAM(SPOt*SPOWORD GEO Oi Sl« ABSC SPQWORD ) » B»* BUFF-DJ 16443000 

BEGIN 16444000 

OSl» 18 LIT " SPO CONSOLES AREl"J 16445000 

SP0(DS»»4 LIT "SPO ")l 16446000 

SIl* LOC S] DSl* 2 DEC; DSl- LIT "*"] 16447000 

Oil* DI-3] DSl* 2 FILL] 16448000 

END STREAM STATEMENT] 16449000 

SPOUT(BUFF-l)] 16450000 

GO TO EXIT] 16451000 

RNI 16452000 

RUNTHEDECKCKTR)] 16453000 

GO TO EXIT] 16454000 

LDI 16455000 

STARTLOADN(KTR)] 16456000 

GO TO EXIT] 16457000 

RDJ 16458000 

OECKREMOVER(KTR)) 16459000 

GO TO EXIT] 16460000 

EDI 16461000 

EXTERNALEND(KTR)] 16462000 

GO TO EXIT] 16463000 

S I I 16464000 

$ SET OMIT * NOTCSTATISTICS) 16465000 



STREAM(A«*0 l KTR); 16466000 

BEGIN 16467000 

Sn»KTRJ TALLYJ»1| 16468000 

IF SC«"*" THEN GO TO L2; 16469000 

IF SC GEO "0" THEN 164/0000 

BEGIN 16471000 

SI»*SI+1! 16472000 

IF SC GEO "0" THEN 16473000 

BEGIN 16474000 

S!I»SI»1! DIIbLOC A) 0SI»2 OCT; 16475000 

END 16476000 

ELSE 16477000 

BEGIN 16478000 

SI?»S!-1J DH«L0C AJ OS I «= OCT ; 16479000 

ENOI 16480000 

END 16481000 

ELSE GO TO L2J 16482000 

IF SC NEQ "*" THEN 16483000 

BEGIN 16484000 

L2I TALLY»*0> A»»TaLLY 16485000 

ENDI 16486000 

ENDJ 16487000 

IF Ul*P)«0 THEN GO TO ERROR; 16488000 

INTERVALl»Ix360Q; 16489000 

STREAM(AI«I» BI'BUFF-1); 16490000 

BEGIN 16491000 

SII«L0C A; DS»*23LIT"NEW TIMING INTERVAL IS "f 16492000 

DSl»2 DEC; DS»* 9LIT" MINUTES*"; 16493008 

END! 16494000 

C0UNTARRAY[29]«sXCL0CK; 16495000 

$ POP OMIT 16495001 

GO TO ERROR; * SPOUT MESSAGE 16496000 

CAI 16497000 

$ SET OMIT * NOT(AUXMEM) 16498000 

CHANGEAUXFILES(KTR»TYPE»21); % WA»21» CA*22 16499000 

$ POP OMIT 16499001 

GO TO ERROR; % SPOUT AUX MESSAGE OR ERROR MESSAGE 16500000 

SOI 16504000 

STREAM(TYPEI«QIINF01 I *"STOPOKN"» I NF02 I *P25676 30000000000 # 16504100 

KTR); 16504200 

BEGIN 16504300 

SIiaKTR; DI»*LOC INFOH DI»*DI + U TALLYl»l; 16504400 

IF 4 SC»DC THEN GO TO EXT; 16504500 

SIl«SI-4; TALLYl*TALLY+U 16504600 

IF 2 SC«*DC THEN GO TO EXT; 16504700 

Sll»SI-2; TALLYl*TALLY+2; 16504800 

IF 4 SC«DC THEN GO TO EXT; 16504900 

TALLYl=TALLY+4; 16505000 

EXT» TYPEI»TALLY; 16505100 

END; 16505200 

IF P(M[P(,DISKSQUASH)3tT0P) THEN IF P(P.CFF3 AND P#DUP)#0 THEN 16505300 

PC.DISKSQUASH.STD) ELSE GO TO ERROR ELSE IF P(XCH)»8 THEN 16505400 

BEGIN 16505500 

F0RK(P(,DISKSOUASH)»KTR#Of 192.1); 16505600 

GO TO EXIT; 16505700 

END ELSE GO TO ERROR; 16505800 

GO FORGET; 16505900 

HSl 16506000 

$ SET OMIT « NOT SEPTICTANK 16506990 J 

KTR|*-KTR> 16507000 ^ 



$ POP OMIT 16507010 

CS I 16506000 

S SET OMIT ■ NOT SEPTICTANK 16508990 

RUNSEPTICCKTR)! 16509000 

$ POP OMIT 16509010 

GO TO EXIT* 16510000 

FORGET! 16604000 

STREAM(Tt«BUFF-i)J DS>«LIT"*"J 16605000 

ERRORl 16606000 

SPOUTCBUFF-1); 16607000 

EXITI 16608000 

IF (MIX#0) AND CMIX<63) THEN TABCNT [MIX J |»TABCNT[MIX1-1I 16608500 

END PROCEDURE KEY1N1; 16609000 

PROCEDURE KEYIN2(KTRX); VALUE KTRXJ REAL KTRXJ 16610000 

% AUXILIARY PROCEDURE TO "KEYIN", 16611000 

% THIS PROCEDURE IS CALLED AS AN INDEPENDENT RUNNER FROM 16612000 

% PROCEDURE "KEYIN"J 16613000 

16614000 

BEGIN 16615000 

REAL BUFF» KTR# TYPE* MJX# a* I* U» Kl 16616000 

REAL R» Rl» R2» R3» R4J 16616100 

INTEGER INTIsNTI* INT2»A» INT3»J» INT4.R4; 16616200 

ARRAY UT « R3C*J 16616300 

S SET OMIT • NOT SHAREDISK 16616400 

tU » R2C* J 16616500 

S POP OMJT 16616600 

I 16616700 

S SET OMIT * SHAREDISK 16616800 

DEFINE U * AVTABLEU 16616900 

S POP OMJT 16617000 

REAL HN1 * MJX* HN2 * TYPE; 16617100 

NAME SEGDICT « R3: 16617200 

REAL SEG«I» ADR»J» L0CN»K» HALTED»R1| % FOR RA REQUEST 16617300 

S SET OMIT m NOT(PACKETS) 16617499 

REAL UNITN01 16617500 

$ POP OMIT 16617501 

LABEL PGA* FERGIT* FORGET. ERRORi EXIT 16616000 

»MX» R0» TS» Tl* PR* LF» LC» LS» EX* PD 16619000 

»0T. IT» P0» PG» AU» MS* LN» CD* FE« CU 16620000 

»5Y» 0C» RW» CI. SM» CT» WU» XD» WJi MC 16621000 

»HD»RA.RAEND 16622000 

16623000 

16624000 

16625000 

I 16626000 

16627000 

SWITCH St* ERROR 16626000 

»MX. R0» R0» TS» TS. TS» TS» TI* PR* LF 16629000 

»LC» LS* EX* PD» 0T» OT. IT* P0» P0» PG 16630000 

»AU» MS» LN» CD» Fl» CU» SY» OCi RWi CI 16631000 

»SM»CT»CT,CT.WU*XD»XD»WI*MC»CD 16632000 

#HD»RA 16633000 

16634000 

16635000 

| 16636000 

16637000 

BUFF|«KTRX,tl5ll53l 16638000 

MIX |»KTRX,[ 916 3; 16639000 

TYPEI»KTRX,[ 217 U 16640000 

KTR l«KTRX,[15l33)J 16641000 



$ SET OMIT a NOTCPACKETS) 16641099 

IF M1X#63 THEN UN 1 TNO J "PSEUDOMI Xt Ml X J J 16641100 

$ POP OMIT 16641101 

GO TO SfTYPEJ) 16642000 

MX} 16643000 

MIXPR1NT(BUFF-1)> 16644000 

GO TO EXIT) 16645000 

ROl 16646000 

CHANGEOPTIONCKTR* TYPE*?)) * RQ*2» S0*3 16647000 

GO TO EXIT) 16648000 

TSl 16649000 

IF CTYPE»6 OR TYPE»7> AND CMIX*63) THEN % ES OR XS SCHEDULE TASK 16650000 

SCHEDL00K(KTRiTYPE«9> % ES*6t XS»9 16651000 

ELSE SHEETDlDDLER(KTR»TYPEfMlX)j % TS*4t PS*5i ES«6i XS»7 16652000 

MIX t«63f 16652500 

GO TO EXIT) 16653000 

Tl! 16654000 

TlMEUSEO(BUF"F-l»MIX)j 16655000 

GO TO EXITJ 16656000 

PRj 16657000 

CHANGEPRI0RITYCKTR»MIX)> 16658000 

GO TO EXITJ 16659000 

LFI 16660000 

l»»3) GO TO PDJ 16661000 

LC* 16662000 

11*2) GO TO PDJ 16663000 

LSI 16664000 

II»4J GO TO PDJ 16665000 

EX| 16666000 

It*lJ KTR|« -KTRJ 16667000 

PDt 16668000 

PRINTDIRECT0RYCKTR&I[9J42|6])J 16669000 

GO TO EXITJ 16670000 

OTl 16671000 

IF TYPE*16 THEN KTRJ* -KTRJ * 0T*15» IN*16 16672000 

IF PRTGAMESCKTR»MIX) THEN GO TO ERROR EUSE 16673000 

IF KTR LSS THEN GO FORGET ELSE GO EXITJ 16674000 

ITI 16675000 

IF NOT (Il*PUTQRTAKE(MlX»[JARCMlX#2U#liO)>»[4»n THEN GO TO ERROR) 16676000 

PCPUT0RTAKE(MlX,[JARtMjX»23J»0»Ull5»47ll])fDEL)J 16677000 

GO TO FORGET) 16678000 

POI 16679000 

TYP0P(KTR»TYPE S 19)J * T0*18# P0M9 16680000 

GO TO EXIT) 16681000 

PGi 16682000 

STREAMCY)«KTR)J 16683000 

BEGIN 16684000 

SIIbY) 16685000 

LA) IF SC NEC "* M THEN 16686000 

BEGIN 16687000 

SII»S|*1I DM«DI*1I GO TO LA) 16688000 

END 16689000 

ELSE DS)«>4LlT H *«-*«-"J 16690000 

ENDJ 16691000 

PGAJ STREAM(Yl»Oi KTRJ A I *A » "SPACE C 12) + 1 > J 16692000 

BEGIN 16693000 

SII«KTRJ 16694000 

LJ IF $C«" " THEN 16695000 

BEGIN 16696000 

Slt«S!*ll GO TO LJ 16697000 



IF 
IF 



THEN 
THEN 



TALLY 
TALLY 






ELSE 
ELSE 



THEN 



LLI 



THEN 



IF 



Al 

TA 
GO 

AUf 
J SE 

IF 
S PO 

GO 
MSI 
$ SE 
ST 



END* 

SC»"*" 
$C* n O" 

BEGIN 
D$I»3CHRJ 
IF SC«"-" 
BEGIN 
DSinCHRJ 
IF SC«" 
BEGIN 
Slf«S|*il 
END> 
5(IF SC GEQ 
END> 
DSlsLlT"*") KTRlwSH 
ENDI 
Yl» TALLYI 

END STREAM STATEMENT) 
P([KTR]»STD) THEN 
BEGIN 

FORGETSPACECA"! )) GO TO FORGET* 
END! 
*A&AC 15f 33* 15 J I 
PEPURGECA)) 
TO PGAJ 



GO TO LLI 
THEN OSJsCHR ELSE JUMP OUT)! 



T OMIT • NOT(AUXMEM) 

AUXPRINTdF MIX*63 THEN -0 
P QMJT 

TO FORGET) 



ELSE MIX) THEN GO TO ERRORI 



LNl 



T OMIT * NQTCAUXMEM OR MONITOR) 
REAM(TYPEI»0 » KTR>) 
BEGIN 

SII»KTRI TALLYl"2l 

IF SC*"R M THEN TALLYi*l ELSE IF Sc* M S" THEN TALLYI*Q) 
L2I TYPE«*TALLY» 

END STREAM STATEMENT) 
IF (TYPE»»P) GTR 1 THEN GO TO ERROR* 

IF TYPE«0 AND CTABLE I 4 3 . [ 1 1 1 3 THEN GO TO ERROR) X MONITOR SET 
IF TYPE*! AND N0HCTABLEC43 , ( 1 1 1 J ) THEN GO TO ERRORJ 
SETMONITORFILECTYPE)) 
» POP OMIT 
GO TO FORGET; 

STREAM(AI«0 J KTR)I 
BEGIN 

SII»KTR) DH«LOC A) DI»*DI+6) 
0St«2 CHR) 

END STREAM STATEMENT) 
C I f«p>»**DK** THEN LOGDISK ELSE 
I, £36163*837 THEN LOGOUT ELSE 

In^ML" THEN F0RK(P(,LOG0UTMAINT)»0»0»12B»O) ELSE 
TO ERROR) 
TO FORGET) 



?DI 



IF 

IF 
IF 
GO 
GO 

TA 
GO 



BLEOFCONTENTSCKTR.TYPEMO)) 
TO FORGET) 



FEI 



I »« GETSPACEC35»9»5)*2) 



1669B000 

16699000 
16700000 
16701000 
16702000 
16703000 
16704000 
16705000 
16706000 
16707000 
16708000 
16709000 
16710000 
16711000 
16712000 
16713000 
16714000 
16715000 
16716000 
16717000 
16716000 
16719000 
16720000 
16721000 
16722000 
16723000 
16724000 
16725000 
16725001 
16726000 
16727000 
16726000 
16729000 
16730000 
16731000 
16732000 
16733000 
16734000 
16735000 
16736000 
16737000 
16738000 
16738001 
16739000 
16740000 
16741000 
16742000 
16743000 
16744000 
16745000 
16746000 
16747000 
16746000 
16749000 
16750000 
16751000 
16752000 
16753000 
16754Q00 
16755000 



STREAM(KTRlDI«I+2)> 16756000 

BEGIN 16757000 

SM»KTRI 16756000 

4C63C IF SC NE8 "«■" THEN DSl*CHR ELSE JUMP OUT 2 TO LL) ) I 16759000 

LLI DSI»LIT W * W I Dll'DI-1) KTRlsDl) 16760000 

END STREAM STATEMENT? 16761000 

Ks* P INX 01 16762000 

MtlJl» (K-I) DIV 5) 16763000 

STREAM(OATE# A»*U1)) 16764000 

BEGIN 16765000 

SII*L0C DATE! DS»*80CT) 16766000 

END STREAM STATEMENT) 16767000 

UINKUPC19. I)) 16768000 

GO TO FORGET; 16769000 

cU l 16770000 

COREPRINTCIf MIX LSS 63 THEN MIX ELSE NABS(O))) 16771000 

GO TO FORGET! 16772000 

SY » 16773000 

S SET OMIT 9 NOT(STATISTICS) 16774000 

SAVESTATISTICSJ 16775000 

$ POP OMJT 16775001 

GO TO FORGET) 16776000 

OCI 16777000 

STREAMCWl»li KTR I B)*BUFF)J 16778000 

BEGIN 16779000 

SlIPKTR) 16780000 

2C36CIF SC""»" THFN 16781000 

BEGIN 16782000 

W|*TALLY) DSIbCHR) JUMP OUT 2 To XT) 16783000 

END ELSE DS»*CHR))> 16784000 

SII»SI-1) DI»«DI-1) DSl*LlT M * n ) 16785000 

XTl KTRl*SI) 16786000 

END STREAM STATMENT) 16787000 

PCCKTR3.STD* ,I»STD)I 16788000 

MAKELOGCBUFF-liQCM}) 16789000 

IF I THEN GO TO OC ELSE GO TO FORGET) 16790000 

KWI 16791000 

REW1NDANDL0CKCKTR)) 16792000 

GO TO EXIT) 16793000 

2H 16794000 

CHANGEINTRINSICFILE(KTR)) 1679500ft 

GO TO EXIT) 16796000 

SMI 16797000 

Kl»KTR4CII»MIXx(MlX NEQ 63) ) [ 9) 42 J 6 J ) 16798000 

WHATSGOINGONCK)) 16799000 

GO TO EXIT) 16800000 

C T| 16801000 

TIMERELAXER(KTR»TYPE»MIX)) % CT«32» XT*33» TL*34 16802000 

GO TO EXIT) 16803000 

WUl 16804000 

II«KTR4(MlXx(MlX NEC 63) ) t 9 I 42 I 6 } ) 16805000 

WHATSITU)) 16806000 

GO EXIT) 16807000 

XDI 16808000 

IF TYPE«37 THEN KTR,tCF3l*0> % XD«36# MR*37 16609000 

DKBUSINESS(KTR)) 16610000 

GO TO EXIT) 16811000 

Nil 16812000 

WHAUNTRNSlCCBUFF-l)) 16613000 

SPOUTCBUFF-D) 16813100 



GO TO EXIT J 16814000 

MCJ 16815000 

NAMEIDUfKTFOl NAME 1 D( J» KTR) I NAME I DC J#KTH ) J 16816000 

IF J,[6l6]w w *" THEN GO TO ERROR) 16817000 

IF CAI«DlRECT0RYSEARCHUt-J»4)) GEQ 64 THEN 16618000 

BEGIN 16819000 

IF J NEQ "DISK « THEN 16820000 

IF(K?*DIRECTQRY$EARCHCI»"DISK "»5)) NEQ THEN 16821000 

BEGIN 16822000 

P(0IRECT0RYSEARCH(-I»J»14)»DEL)I 16823000 

FQRGETSPACECA)! 16824000 

FORGETSPACECK)] 16825000 

LBMeSSC I »J»*9» 29. 0.0.1)1 16826000 

GO FERGIT; 16827000 

END 16828000 

ELSE 16829000 

BEGIN 16830000 

M[A INX 4]|*C*PCDUPm2[l!46f2Hl[8!47iUJ 16831000 

A»»A&EUF(-l. M DISK "»A INX 0- 1 ) [ 18 I 33 1 15 1 1 16832000 

F0RGETSPACECDIRECT0RYSEARCHC1»J»8)); 16834000 

END ELSE M[A INX 43 I *( *P(DUP ) >&2tl I 46 I 2J& 1 [8 I 47 1 1 3 I 16835000 

HEADERUNLQCKC1»"DISK "»A)J 16836000 

LBMESS(I#J.54»I. M DISK "»0»1)J 16837000 

END 16838000 

ELSE LBMESSCI»J»-9»((A*l)x30m5»0»0»l)J 16839000 

FERGITI 16841600 

FORGETSPACE(BUFF-l); 16841800 

GO TO EXITJ 16842000 

HD1 16643000 

STREAM(EU»*"1*ERRTOG«*OJEULITI*P2564000000000000»CX»60» 16843100 

Kl«KTR); 16843200 

BEGIN 16843300 

SII*KJ GO TO LI! 16843400 

LOl IF SC** » THEN BEGIN SIfaSI + 1'J GO TO LO END> Cll»CX» 16843500 

Lit CXi«CU GO TO LOl 16643600 

IF SC*"* W THEN GO EXTJ 16643700 

Dli'LOC EULITl TALLYlsU 16843800 

IF 2 SCsDC THEN % AN EU SPECIFIED 16843900 

BEGIN 16844000 

CX|i«CII GO TO LOJ 16644100 

IF SC GEQ THEN IF SC<12 THEN 16844200 

BEGIN 16844300 

SH»SI + 1I Dl»»LOC EU; 16844400 

IF SC GEQ THEN IF Sc<12 THEN 16844500 

TALLYI*2 ELSE GO TO ERR* 16644600 

SlteSI-ll CXJsTALLYl 16844700 

DSIbCX OCTI GO EXTJ 16844800 

END ; 16644900 

END) 16645000 

ERRl ERRTQGI*TALLYJ 16845100 

EXT* 16645200 

END! 16645300 

IF P THEN GO TO ERROR» 16845400 

IF (HN1»»PM)>0 THEN IF HN1 LEQ NEUP.CFFJ THEN 16845500 

HN2|»HN1 ELSE GO TO ERROR ELSE 16845600 

BEGIN 16845700 

HN1J»1; 16645600 

HN2»»NEUP.[FF3l 16845900 

ENDI 16846000 

J SET OMIT » NOT SHAREDISK 16846100 



F!XARRAY(U»Rlf30)J 16846200 

D1SKWAIT(-RU30iUSERDISKB0TT0M)» 16846 300 

S POP OMIT 16846400 

FOR IiaHNl STEP i UNTIL HN2 DO 16846500 

IF NOT (NT2»*um>.EUNP THEN % NOT A DUMMY EU 16846600 

BEGIN 16846700 

INT4!s( INT1»*NT2,STARTWRD) M0D 30{ 16846800 

INT2l"30"(Kt«(NT2 AND NUMtNTM)+R4) MOD 30 + K; 16846900 

JlaNTl DIV 30*USERD1SKB0TT0M) 16847000 

fixarray(ut#r»a)» 16847100 

$ set omit m not shareoisk 16847200 

if j^usehdiskbottom then 16847300 

BEGIN 16847400 

IF A>30 THEN 01SKHAI T(-R*30t A"30» J+l } I 16847500 

M0VE(30»R1»R); 16847600 

END ELSE 16847700 

* POP OMIT 16847800 

DISKWAIT(-R»A#J); Jl«0j 16847900 

FOR NTll»K-2 STEP "1 UNTIL R4 DO I NT 3 I * J + UT t NT 1J , t 3 » 19 J J 16848000 

5TREAMC AI-I-1 «Bl*IF UUJ.SPEEDM THEN "F" ELSE "S M » 16848100 

C»wUCI3,t38»lO]-l.Dl»vl»EJ«UtI J.C1I203* 16848209 

FI>AfaSPACE(lO))I 16848300 

BEGIN 16848400 

SlIsLOC AJ DSl»4 LIT" EU n I DSl»2 DEC? 16848500 

A»*Di; DII«OI"?I [)S«»FILL> DH*A! 16848600 

DS«*LIT M ( M ; Sl»»Sl+7; DS»*CHRJ 16848700 

DSI'10 LlT")» NO, AV* W ; DS«*3 DEC* 16848800 

A»«DU D 1 I *DI -31 DS»*2 FlLLl OI»*A; 16848900 

DS««11 LIT% TOTAL AV* W * 0S»*6 DEC' 16849000 

A»aDi; DH*DI-61 DSl*5 FILL; DI»«A1 16849100 

DSI*14 LIT" SEGSt MAX AVb w ; DS|«6 DEC; 16849200 

A!«DU D1I»DI-6I DSJB5 FILL) DI«*AJ 16849300 

DSI*6 LIT" SEGS*"; 16849400 

END! 16849500 

FORGETSPACECR)! 16849550 

SPOUTCAH 16849600 

END! X ELSE IF HN1*HN2 THEN GO TO ERROR; 16849700 

* SET OMIT » NOT SHAREDISK 16849800 

FORGETSPACECRDJ 16849900 

$ POP OMIT 16850000 

HNl»*KTRX f [9»6J; % SET "MIX" BACK TO ORIGINAL VALUE 16850100 

GO TO FORGET; 16850200 

RAJ 16850300 

IF MEMROWtMIXJ^CF] LSS FENCE THEN AiaRUNNING ELSE 16850400 

IF CA«"STASUS[MlXn NEQ RUNNING THEN GO To RAENDJ 16850500 

IF NOT HALTED THEN 16850600 

IF MIX»P2MIX THEN 16850700 

BEGIN 16850800 

halt; halted »« true; go to ra; 168509oo 

END; 16851000 

SEGDICT t« PRTtMlX»4J| 16851100 

IF PC M[L0CNiaPRT[MIX»8J,tCF33i TOP* XCH» DEL ) THEN SEGl«A0Rf»0 16851200 

ELSE 16851300 

DO BEGIN 16851400 

IF P(M[LOCNJ* TOP. XCH» 0, INX» ,ADR# STD) THEN % OVERLAID RCW 16851500 

BEGIN 16851600 

IF NOT MCL0CN1.I33H3 THEN % NOT TYPE 13 INTRINSIC 16851700 

BEGIN 16851800 

SEGlaADR; % SEGNO IN RCW 16851900 

R!*0; % ADJUST FOR SUBSTRACTION BELOW 16852000 



ADRl»M[MlLOcN],MOM] f [CFJI * REL f ADR.IN MSCW 16852100 

E ND 16652200 

ELSE SEG I* (-1)1 16852300 

END 16852400 

ELSE 16852500 

BEGIN * PRESENT RCW» CHECK THE LINKS 16852600 

R»*!F AD« GTR FENCE THEN MEM[ M I X , ML INK 1] , [ CF 3 ELSE 0? 16852700 

WHILE (5EG»»M[R],[cn) LSS AD« DO 16852800 

IF SEG GTR R THEN Rl*SEG t LSE PUNT U PUNTERC 4 3 3 ) ! 16852900 

SEGI»IF M[R3, [3163*1 THEN M[R+lJ,tCF3 ELSE 01 16853000 

IF P(PRTROWtMIX)»0»INX,DUP) GTR R AND P(XCH) LSS M[R3.tCFJ THEN16853100 

R4 »» W PRT M ! 16853200 

Rl*R+2{ 16853300 

END! 16853400 

IF PRTCMIX.ft], CCF] NEQ LOCN OR M t LOCN-13 .MSFF THEN % MARKED 16853500 

00 L0CNI*MCL0CN3,M0M UNTIL NOT M [ LOCN J ,MSF F I % GET LAST MSCW 16853600 

LOCNl^MCLOCNitMOM) % POINT LOCN To NEXT RCWiJUST IN CASE, 16853700 

END 16853800 

UNTIL 16853900 

(IF SEG NEQ THEN IF SEG s (-1) THEN 16854000 

ELSE (SEGDICTtOj LSS SEG OR NOT SEGDI CT [ SEG] , PB I T ) 16854100 

ELSE P(M[R-23,C3»63» DUP) NEQ 7 AND PCXCH) NEQ 13) 16854200 

OR LOCNiOl 16854300 

ADR I" ADR-RJ 16854400 

RAENDI 16854500 

STREAM(MlXt NAM J *t JARt M IX » OH . T«*0» SEG* ADR. 16854600 

SYH«M[PRTCMIXf8Jl,[10l2J» TQGl!*(R4 NEQ 0). R4» 16654700 

T0G2I*(CSEG LEQ 0) OR (A NEQ RUNNING))* I *BUF F -1 ) I 16854600 

BEGIN 16854900 

DSl»LlT" "! 16655000 

SllwNAM; 2(SII«S1+1I DSl=7CHRJ DSl'LlT"/")! Dll«Dl-l* 16655100 

DS»*2LlT" *"; SI»=L0C M I XI 0S«s2DEC! 16855200 

T0Gl(Sli*L0C R4J SH«SI+ll DSl'LU" "I DS I *7CHRI JUMP OUT TO XX I T ) M6855300 

T0G2CDSIM4LIT* NOT AVAILABLE") JUMP OUT TO XXJT)! 16855400 

DSl»5LlT M SEG*") SH*L0C SEGJ DS»«4DEC! 16855500 

Tt»DI! DI?*DI-4; DSl»3FILL; Dl!»Ii 16855600 

0S|«5LIT" ADR*"! DS»*4DECI 16855700 

Tl*DII DII*DI"4; DS»»3FILL; Dl»«Tl 16855800 

DS I wLl T w I "I SH*Sl + 7! DSl»CHR) 16655900 

XXITI 0SI*UIT ,, * W I 16856000 

END STREAM STATEMENT! 16856100 

IF HALTED THEN NOPROCESSTOG t 9 NOPROCESSTOG -II 16856200 

GO TO ERROR! 16856300 

EORGET« 16944000 

STREAMCTl»BUFF-l)» DS ! *L I T"*" ! 16945000 

$ SET OMIT * NOTCPACKETS) 16945099 

UNITN0t*0l 16945100 

$ POP OMIT 16945101 

ERROR! 16946000 

SP0UTER(BUFF-1»UNITN0»1)J 16947000 

EXIT! 16948000 

IF <MIX*0) AND (MIX<63) THEN TABCNT [ M I X3 I «TABCNH M I X J-l 1 16948500 

KILLUKTRX] INX NOT 1)1 16949000 

END PROCEDURE KEYIN2I 16950000 

REAL PROCEDURE KEYIN(B)! VALUE BJ REAL Bl 16951000 

% THIS PROCEDURE FUNCTIONS AS A DRIVER FOR AUXILIARY PROCEDURES 16951100 

% M KEYlNQ"i"KEYINl" AND "KFYiN2", PROCEDURES "KEYINO" AND "KEYINl" 16951200 

% ARE CALLED DIRECTLY, AND PROCEDURE "KF.YIN2" IS FORKED AS AN 16951300 

* INDEPENDENT RUNNER, 16951400 

BEGIN 16951500 



REAL BUFF. MR» TYPE* MIX, A» I» J. K» 16951600 

MIXC0DEsA» KTRXbA* PR0CED*KJ 16951700 

S SET OMIT « NOT(PACKETS) 16951799 

DEFINE UNITNO * PSEUDOM J X t Ml X J#; 16951600 

4 POP OMIT 16951801 

LABEL SWITCHIT. STARTt ERROR* EXIT* FORGET. TBLERR* 16951900 

16952000 

IF B»0 THEN % WAIT TO GET EXCLUSIVE CONTROL OF KEYIN STACK 16952100 

BEGIN 16952200 

IF KEYBOARDCOUNTER NEC THEN COMPLEX$LEEP( KEYBOAKDCOUNTER*Q) I 16952300 

KEYB0ARDCQUNTER» s K£YB0ARDC0UNTER&Uin4nn; 16952400 

IF SPOWORD LSS THEN * GET INPUT FROM BACK UP SPO 16952500 

BEGIN 16952600 

STREAM(MlX|«MIX»«[KTR],tCFJ)> * SEND A 8UESTI0N MARK 16952700 

BEGIN 16952800 

DSI»LIT"*"; DS»*LIT MARK) 16952900 

END* 16953000 

TWX0UT(MIX,2»-0#ABS(SP0W0RD))> 16953100 

IF KEYBOARDCOUNTER. [FFJsO THEN * WAIT FOR INPUT 16953200 

SLEEP C [ KE YBOARDCOUNTER ]»?77 77 700000); 16953300 

Bl»0&KEYBOARDCOUNTER[FTFJ> 16953400 

KEYBOARDCOUNTER « «KE YBO ARDC OUNTER&M£B,tFF 1-2 J tCTF J I 16953500 

ENn 16953600 

ELSE KEYBOARDC0UNTER»*KEYB0ARDCOUNTER INX 1> 16953700 

END! 16953800 

START! 16953900 

IF ABSCB) GTR 1 THEN BUFF » *B , [ 18 I 1 5 J ELSE 16954000 

BEGIN 16954100 

BUFFmSPACEC60) + ll 16954200 

P(WAlTl0(BUFFM[24»47»n«0»25)»DEL); 16954 300 

END) 16954400 

KTRIbBUFFJ 16954500 

IF CPROCEDI»(TYPE»«KEYINSCAN(KTR»MlX)) f C1I53)«7 THEN GO TO TBLERRl 16954600 

KTR I* KTR&BUFF[15»33H5JJ 16954650 

MIXCOOE I* TYPE, HOt23x<MIX#63) I 16954700 

TYPE l» TYPE.ICF3I 16954750 

IF TYPE*0 OR MIX,IU2]#0 THEN * EMPTY OR ERROR 16954800 

BEGIN 16954900 

IF MIX, CIIU THEN X EMPTY BUFFER 16955000 

BEGIN 16955100 

KEYINIsTRUEJ GO TO FORGET; 16955200 

END 16955700 

ELSE GO TO ERROR; % TYPE«0 OR MlX,[2lU 16955800 

END; 16955900 

IF MIXCODEM OR MIXC0DE»2 THEN % MIX INDEX REQUIRED 16956000 

BEGIN 16956100 

IF MIX GTR MIXMAX THEN GO TO ERROR; 16956200 

IF JARROW[MIXJ«0 OR PRTROW t M I X ] »0 THEN GO TO ERROR; 16956300 

IF MIXC0DE«1 THEN * JOB SHOULD BE WAITING FOR THIS INPUT 16956400 

BEGIN 16956500 

JliREPLYCMlXJl 16956600 

WHILE J LSS DO 16956700 

BEGIN 16956600 

IF J»C42»6jaTYPE THEN GO TO SWITCHIT; 16956900 

J|p-J,[6I36]; % SHIFT RIGHT 16957000 

END; 16957100 

IF TYPE«VWY THEN % W WY"» NOT WAITING FOR IT 16957200 

BEGIN 16957300 

M[BUFF"Ui*FLAG<»"WY NOT"&Mj X(6 |42 » 6 J ) ; 16957400 

MtBUFFJ !»0&(P1437HH37H1 J; 16957500 



FNDJ 
GO TO ERROR? 

ENDi X IF MJXCODE * 1 OR 2 
SWITCHlTl 

TABCNT[MIX]»«TABCNTtMIX]+li 
$ SET OMIT * NOTCPACKETS) 



IF 



THEN 



THEN GO L2J SII«SI*1J GO lit 



PSEUDOMIX[MlX]/0 

BEGIN 

STREAM(II*0. BUFF)J 

BEGIN SI l*BUFFJ 

Lll IF SC«"*" 

L2> IlsSl; 

end; 

Il» P, CCF 3-BUFF + ll % NWDS 
M0VEU#BUFF#J»sSPACE( I))i 
SP0UTER(J«UNlTN0i64); 

ENOI 
* POP OMIT 

END* X IF MIX INDEX REQUIRED 
KTRX»bKTR & MIX[9S42|6] 4 T YPE C 2 . 4 1 I 7 i ; 
IF PR0CED*2 THEN F ORK C NT 1 I «P( , t KEY I N2) »KT RX* 0» 128t 0) ELSE 

IF PROCED-l THEN KEY INI <B» KTRX ) ELSE KEY I NOC B* KTRX ) > 
GO TO EXIT* 
TBLERRI 

STREAMCKTR#BJ*BUFF-t)> 
BEGIN 

SII«KTR; SII»SI-2J 0S««LIT"* W ; DSl*2CHR; 
DSl»21LIT" NOT COMPILED IN MCP* M > 
END* 
ERRORl 

SP0UT(BUFF-1)I 
KEYIN I* TRUE; 
GO TO exit; 
FORGETl 

STREAM(Tl*BUFF-l)» DSl*LIT "♦"; SPOUTC BUFF-1 ) i 
EXlTt 

ABSCB) LEQ 1 THEN KEYBOARDCOUNTERl «P( ( NOT 0) INX 
KEYB0ARDC0UNTER&0n7U7»l] GTR THEN 
BEGIN 

IF KEYBOARDCQUNTER.tCFJ NEC THEN Bl'BlOCCTF] ELSE 
BEGIN 

b.*b&keyboardcountercftfJ; 

keyboardcounter»»keyboardcounter&mtb,cff3-2]tctf 1) 

end; 
go to start; 
end; 

KEYB0AR0C0UNTER*U7»1 Ji*0; 
IF B THEN KILLCCB3 INX NOT 1)J 
END PROCEDURE KEYIN; 
PROCEDURE LBMESS(FN»SNi n»I2»E»UNITN0»X)J 
VALUE FN»SNtIl»I2iE»UNlTN0.X; 
REAL FN»SNtIl»I2»E»UNITN0»X; 
%>nnit ************************************************************ ****** 



IF 
IF 



% 
% 


p 

11 


aRaMeteRS 

12 E 


FORM OF MESSAGE 


% 

% 
% 
% 

% 


LSS 
LSS 
LSS 
GTR 



GTR 
GTR 






NEQ 



, FN/SN a 
, FN/SN NOT 11(12) 
, FN/SN NOT Il(,2)f 
FN/SN n 



16957600 
16957700 
16957750 
16957800 
16957810 
16957819 
16957820 
16957830 
16957840 
16957650 
16957860 
16957870 
16957880 
16957890 
16957900 
16957910 
16957920 
16957921 
16958000 
16958100 
16958200 
16958300 
16958400 
16968500 
16968600 
16968700 
16968600 
16968900 
16969000 
16969100 
16969200 
16969300 
16969400 
16969500 
16969600 
16969700 
KEYBOARDCQUNTERm 6969800 

16969900 
16970000 
16970100 
16970200 
16970300 
16970400 
16970500 
16970600 
16970700 
16970800 
16970900 
16971000 
17000000 
17000200 
17000400 
17000405 
17000410 
17000420 
17000430 
17000440 
17000450 
17000460 
17000470 



a 






p 




% GTR NEQ FN/SN Il» E 170004BO 

% GTR GTR FN/SN 11 12 17000490 

X 52 OR 34 FN/SN II I2/E 17000500 

XNOTEI IF II IS NEITHER 52 NOR 54 THEN II AND 12 ARE INDICES INTO TABL 17000510 

% ELSE 12 AND E ARE MFID AND FID, 17000520 

X********************************************************************** 17000530 

BEGIN 17000600 

REAL TtAJ ARRAY TABLt*3l 17000800 

IF L0r,LlNE,C33l7J«0 OR CANDYMeSS THEN 17002200 

BEGIN 17002400 

TABLl*[M[SPACEUl*MESSAG£TABLEUJ, [81103)33 & 17002600 

MESSAGETABLEI4U8I8H0]; 17002800 

DISKWAITC-(TABL,CCF3)»A»MESSAGETABLEC43,[22:263); 17003000 

STREAMCAI*[FNJ»II*I1 LSS 0» T BLl J *l TABLl ABS( 1 1 ) 3 J t E# 17003200 

LI*I1 LSS AND 12 NEC 0»Jl*ll«52 OR 11*54* 17003300 

B»»IF P(DUP) THEN E I 2 1 ELSE t TABLC I 23 3 » T » «T » *SPACE( 10 ) ) I 17003450 

BEGIN 1CDS!«L1T%")> DSl»LlT" "I SH*AI 17003500 

IF SC» W +" THEN BEGIN DSl«LlT"*"; SI|sSI+8> END 17003550 

ELSE BEGIN S!t»Si*ll DSWCHRi ENDI DS I sL I T"/ M I 17003600 

IF SC*"+" THEN BEGIN DS t *L I T W »"J Sli*SI*8| END 17003700 

ELSE BEGIN Sl«*Sl+l> DSl*7CHR| END* 17003710 

DStoLlT" "I L(DSl*4LlT"N0T " ) I SH»TBL1I 17003800 

63{SI»«SI+11 7(IF SO**" THEN JUMP OUT 2 TO LI ELSE DSI*CHR))I 170O3850 

Lll SlJsBI 17003900 

JC IF SC*"+" THEN BEGIN DSl*LlT n « w l SJJsSI+8; END 17003950 

ELSE BEGIN SI!=S1 + 1> DSI*7CHR END! OSl-LlT"/*! 17004000 

IF SC* M *" THEN BF GIN DSI«LIT"*"I SlJsSI+8; END 17004050 

ELSE BEGIN SH»5I + U DSI-7CHR END* JUMP OUT TO L3)l 17004100 

tCOS?*"LIT w C* , )* 17004150 

63CSI l»5I+l* 7CIF SC» W * W THEN JUMP OUT 2 TO L2 ELSE DSI*CHR))I 17004200 

L2t LCDSl-LIT")")* SI l*LOC EJ 51 • «Sl*b| 17004250 

IF SC NEO "0" THEN BEGIN DS»*2LIT«, "; DS«»3CHRI END; 17004300 

L3l DSl»LIT"«-"l 17004600 

ENDI XSTREAM 17005200 

SPOUTER(TfUNlTNO»X)> 17005400 

F0RGETSPACE(TABL,[CF1)> 17005600 

ENDI 17006800 

ENDI *LIBMSG 17007000 

PROCEDURE STOPMI 17900000 

BEGIN INTEGER PROTYl LABEL AROUNDI REAL B* XSU7901000 

PRQTY*PRY0R[P1MIX3I XSI17902000 

PRI0RTY*PRYORtPlMlX3*lO23l 17903000 

IF NOTERMSET(PIMIX) THEN PRTROW [ P1M I X 3 , [ PSF 3*01 17903500 

AROUNDI STREAM(J»*JaRR0W[P1MIXJiP1MIX»B»«BI*SPACEC10))I 17904000 

BEGIN DSM3LIT"f0PRTR ST'ED "I Sl*J| SI*SI*ll DS*7 CHRl SSST1790500Q 

S!*SI+lf DS*LIT"/"I DS*7 CHRl DS*LIT"»"I XST17906000 

SI*L0C P1MIXI DS*2DECI DS*LIT"*"I DI*DJ"3I DS*FILLl 17907000 

END! SP0UT(B)l XST17908000 

IF OUTWAIT(FALSE) THEN GO AROUND; 17909000 

PRI0RTY*PRY0R[P1MIX3*PR0TYI 17910000 

ENDI XSI17916000 

PROCEDURE FILEH0LDCA»B»T0G#L0C»H0LD)I 18000000 

VALUE L0C»H0LDI 18001000 

REAL A*B»T0G»L0C»H0LDI 18002000 

BEGIN 18003000 

REAL SZ.Y»T| 18004000 

S SET OMIT » NOT SHAREDISK 18004490 

REAL HOLDERiNEXTSLOTiBYPASSI X HOLDER MUST BE AT T*l 18004500 

* POP OMIT 18004510 

ARRAY H0LDLIST[*3I 18005000 



LABEL SLEPEJ 18006000 

DEFINE DSED*(TERMSETCP1MIX))#J 18007000 

IF HOLD THEN 18008000 

BEGIN 18009000 

IF TOG THEN T0G*T0G*1 ELSE 18010000 

BEGIN % MAKE AN ENTRY IN THE HOLDLIST 18011000 

t SET OMIT p NOT SHAREDISK 18011490 

DISKWAIT(-([H0LDERJ,tCFJ)i-3»DIRECT0RYSEG); * CLOBBERS T 18011500 

$ POP OMIT 18011510 

IF CSZI*(ytsHQLDER.tFF])*l) GTH HOLDMAX THEN 18012000 

BYBYCHOLD LIST OVERFLOW*"* 19 ) ? 18013000 

H0LDLISTlP[M[SPACE(SZ))HSit8l38ll0 3l 18014000 

IF Y/0 THEN 18014100 

DISKWAIT(-(H0LDLIST INX }» Y » HOLDER 1 1 CF ]) * 18015000 

HOLDER, CFF3l«SZ; 18016000 

H0LDLlSTCYJl»L0C«CFFJ8,[T0GUCTFHSYSN0t2t46*23 18017000 

&PlMjX[l0»40l8JJ 18017100 

DISKWAITCHOLDLIST INX 0, SZt HOLDER , t CF ]) i 18018000 

$ SET OMIT • NOT SHAREDISK 18018490 

DISKWAITUHOLDER], f CF 3 * -3, D I RECTORYSEG ) f % CLOBBERS T 16018500 

t POP OMiT 18018510 

FORGETSPACE(HOLDLIST)! 18019000 

ENDJ 18019500 

IF M[LQC*4J,C3ll] THEN 18020000 

S SET OMIT ■ NOT SHAREDISK 18020490 

UNL0CK(L0C,[FF3) 18020500 

S POP OMIT 18020510 

ELSE 18021000 

BEGIN M[L0C + 4],[3»n>*lJ 18021500 

DISKHAITaOC.CCF Jf30»L0C,[FFl>» 18022000 

END; 16022500 

t SET OMIT « SHAREDISK 18022990 

UNL0CKDIRECT0RY1 18023000 

* POP OMIT 18023010 

IF P1M!X#0 THEN 18024000 

BEGIN T|*VWYt(VIFxA,[3ll])C36ia2f6Jl 18025000 

IF TOG«0 THEN 18026000 

SLEPE« FILEMESSC* ".AtB*" IN USE"*0.0»0); 18027000 

REPLY[PlMlX]f*-Tl 18028000 

IF PCO»RDS)>FENCE THEN SWAP ( WA 1 TSWAP# 1 ) ELSE X029MB02900Q 

COMPLEXSLEEP(REPLYtPlMlXJ^O OR DSED OR T0G)l X029-18029500 

IF NOT WHYSLFEP(T) THEN GO TO SLEPE* 18030000 

ENO ELSE 18031000 

BEGIN LBMESS(ABS(A)tB»45»Q» , »MCP%0»l)J 18031500 

SLEEP(CT0G]»1)I 18032000 

ENDI 18032500 

$ SET OMJT ■ SHAREDISK 18032990 

LOCKDIRECTORYI 18033000 

$ POP OMIT 18033010 

T0Gt»TRUEJ 18033500 

IF PCCP1MIX NEQ AND DSED)*DUP) 18034000 

THEN FILEH0LD(A»B»T0GiLOC»2); 18035000 

P(RTN)l % I ON TOP OF STACK IF DSED 18037000 

ENDI 18045000 

$ SET OMIT « NOT SHAREDISK 18045490 

DlSKWAlT(-CtH0LDER],tCF])»-3»DlRECT0RYSEG)» * CLOBBERS T 18045500 

$ POP OMIT 18045510 

IF (SZl*HOLDERtCFF])*0 THEN 18046000 

$ SET OMIT » NOT SHAREDISK 18046490 

UNLOCKCDIRECTORYSEG) 18046500 



$ POP OMIT 

ELSE 

BEGIN IE H0LD*2 THEN I SKWA 1 T( -LOC . t CF 3 » »30»L0C , ( FF J ) I 
MOLDlISTt*[MtSPACE(SZ)]]&SZ[BI38ilOJ> 
DISKWAITCCHQLDLIST INX 0) #SZ*H0LDER. UF3 ) I 
IF TOG THEN FOR Tl*0 STEP 1 UNTIL SZM DO 
* SET OMIT * NOTCSHAREDISK) 

HOUOLISTITJ,[2I2]»SYSNO THEN 



S POP 



OMIT 
IF 

OMIT 
IF 
IF 
IF 



HOLDLlST[T3,[FF3«[TOG3.[CFJ THEN 
HOLDlISTm.UOtB^PlMtX THEN 

(SZl*SZ-l) t T THEN 
BEGIN 

M0VE(SZ-T»[H0LDLIST[T*1 JJ»IHQLPLIST[TJJ>> 
Tl«5Zl 
ENDI 

HOLDER, [FFJl*Y|»SZJ 
IF SZ#Q THEN 
BFf T N 

FOR Y*0 STEP 1 UNTIL SZ-1 00 
IF H0LDLIST[Y),CCF3«L0C,CFF3 THEN 
BEGIN 
$ SET OMIT * NOTCSHAREDISK) 

IF HOLDLIST[Y3.C2l23#SYSNO THEN 

HOLDLIST[YJl*P(DUP»LOD»SSN) ELSE 

t POP OMIT 

IF (Tl*H0LDLIST(Y)),[FF3 GEO FENCE THEN 

BRlNGBACK(T f tl0l81> ELSE M[T.[FF33l*tl 
YI«SZJ 

end; 

diskwaitcholdlist inx » sz » holder. t cf 3 ) i 

ENDI 
$ SET OMIT * NOT SHAREOISK 

DlSKWAlT(tHOLDER3.CCF3#-3.DlRECTORYSEG)l 
S POP OMIT 

IF SZ*Y THEN 
BEGIN 

M[LOC+43,[3»13»*OJ 

IF H0LD«2 THEN DI SKWAlT < LOC , [ CF 3 » "30» LOC , CFF 3 ) J 
S SET OMIT ■ NOT SHAREDISK 

END ELSE 
BEGIN 

IF HOLD-2 THEN UNLOCKCLOC . [F F 3 ) ) 
* POP OMIT 

ENDI 
FORGETSPACECHOLDLIST); 

END> 
END) % OF FILEHOLDER 

XCOMMENT THE DISK FILE HEADER CONTAINS THE FOLLOWING INFORMATION! 
% 

RECORD LENGTH 

BLOCK LENGTH 

RECORD/BLOCK 

SEGMENTS/BLOCK 

CREATION DATE FOR LOGGING 

CREATION TIME FOR LOGGING 

NUMBER OF LOGICAL RECORDS 

"0 FREE FILE 

■0 SOLE USER* PUBLIC OR PRIVATE FILE 

»1 SECURITY FILE 



% CLOBBERS T 



XHC03, [OH53 
% . C 151 153 

X ,(301123 
% ,[42163 

XHU3, [61183 
«... ,1251233 
* ,[11*73 
XH[23,[0I483 
% ,[1113 

% .[1113 



(WHEN ON DISK) 
(WHEN ON DISK) 
PER ROW (WHEN IN CORE) 



18046510 

18047000 

18047500 

18048000 

18049000 

18050000 

18051000 

18052000 

18052001 

18053000 

18053500 

18054000 

18055000 

18056000 

18057000 

18058000 

18059000 

18060000 

18061000 

18062000 

18063000 

16064000 

18065000 

16066000 

18067000 

18067001 

18068000 

18068100 

18069000 

18070000 

18071000 

18072000 

18072490 

18072500 

18072510 

18073000 

18074000 

16075000 

18075500 

18075990 

18076000 

18076500 

18077000 

18077010 

18077500 

18078000 

18079000 

18080000 

18081000 

18062000 

18063000 

16084000 

18085000 

18086000 

16087000 

18088000 

16089000 

18090000 

18091000 

18092000 



X 

XHC3 

X 

X 

% 

XHC4 

X 

X 

X 

% 

X 

% 

% 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

XH15 

X 

X 

XHC7 

XHC8 

XHI9 

X 

X 

X 

X 

X 

X "" 

X 

X 

X 

X 

X 

X 

X 

«Htl 

X 

X 

*THE 

X 



[61423 

tun 

C2I 103 
C 129 163 

C30I163 

11113 

C2U3 

[3113 

[4123 

[6113 

[7113 

C8I13 
[9*21 



[UU3 
[12143 
C16I53 
C2U53 
[26151 
[3H51 
(36161 



, [42111 
,[43123 
,[45113 
,[46123 
3, [01483 

,mn 

3 

1 

1,[1U1 
,[2»t3 
,[3113 
,[4U3 
,[5113 
,[6113 
,[7113 
,[6113 
,C9I5J 
,[14|53 
,[19151 
.[24151 
,[29fl43 
,[43153 

03-HC293 



PRIMARY U 
*1 NEW F 
SAVE FACT 
DATE OF L 
CREATION 
"1 FILE 
»1 FILE 
»1 A PR 
SYSTEM NU 
USED BY A 
USED TO M 
A IIMe-SH 
USED TO M 
*? FILE 
*3 FILE 
»0 DON"T 
FILE ACCE 
SYSTEM FI 
OPEN COUN 
OPEN COUN 
OPEN COUN 
OPEN COUN 
»0 TYPE I 
M BASIC 
ALGOL 
COBOL 
FORTR 
TSPOL 
XALGO 
SEQ 
DATA 
LOCK 



ISER"S 

ILE H 

OR (B 

.AST A 

DATE 

IS B 

IS 

IOGRAM 

IMBER 

iUTOPR 

1ARK P 

(ARING 
IARK S 

IS DA 

IS PR 

KNOW 

SSED 

LE TO 

IT 2 F 

2 F 

2 f 

2 F 

UNK 



CODE 

EADER FORMAT 

INARY) 

CCESS (BINARY) 

(BINARY) 

EINQ LOADED OR NAME IS BEING CHANGED 

PENED BY AN EXCLUSIVE USER 

IS WAITING TO USE THE FILE 
OF EXCLUSIVE USER 
INT TO MARK A PBD FILE 
SEUDO DECKS THAT WERE CHEATED ON 

SYSTEM BY A ZIP WITH FILE-ID 
PECIAL COMPILERS 
TA 
OGRAM 

IF DATA OR PROGRAM 
BIT 
GGLES 

OR SYSTEM (A) 
OR SYSTEM 1 (B) 
OR SYSTEM 2 (C) 
OR SYSTEM 3 (D) 
NOWN 



*2 
■3 
»4 
»5 
•6 
»7 
*B 
*9 



USED TO MA 
SENSITIVE 
COLD STAR 
NOT USED 
«0 SOLE 
M PRIVAT 
•12 IF H[ 
NUMBER OF 
NUMBER OF 
TOGGLE 1 
TOGGLE 1 
TOGGLE 1 
TOGGLE 1 
TOGGLE 
TOGGLE 
TOGGLE 
TOGGLE 
OPEN COUN 
OPEN COUN 
OPEN COUN 
OPEN COUN 
NOT USED 
MAXIMUM N 
DISK ADDR 



? 
2 
2 
2 



AN 
L 



RK FI 

DATA 

T FIL 

USER 

E FIL 

63*12 
LOGI 
SEGM 

FOR S 

FOR 

FOR 

FOR 

FOR 

FOR 

FOR 

FOR 

T 1 

T 1 

T 1 

T 1 



LES WHICH CANT BE 

- ZEROING BITS 
E 



MOVED 



FILE 
E 

THEN INFO FILE 
CAL RECORDS (EOF 
ENTS PER ROW 
YSTEM (A) 
YSTEM 1 (B) 
YSTEM 2 (C) 
YSTEM 3 (D) 
YSTEM (A) 
YSTEM 1 (B) 
YSTEM 2 (C) 
YSTEM 3 (D) 
OR SYSTEM (A) 
OR SYSTEM 1 (B) 
OR SYSTEM 2 (C) 
OR SYSTEM 3 (D) 



ELSE PUBLIC 
POINTER) 



FILE 



UMBER 
ESSES 



OF ROWS 
OF ROWS 



16093000 
16094000 
18095000 
18096000 
18097000 
18098000 
18099000 



(0 IF NOT ASSIGNED) 



OPEN COUNTS AND TOGGLES ARE USED IN THE FOLLOWING MANNERI 



18 
18 
16 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
16 
18 
18 
18 
18 
18 
18 
16 
18 
18 
18 
16 
18 
18 
18 
18 
18 
18 
18 
18 
16 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 



100000 
101000 
102000 
103000 
104000 
104100 
105000 
106000 
107000 
108000 
109000 
110000 
111000 
112000 
113000 
114000 
115000 
116000 
117000 
118000 
119000 
120000 
121000 
122000 
123000 
123100 
124000 
124100 
124200 
125000 
126000 
127000 
128000 
129000 
130000 
131000 
132000 
133000 
134000 
135000 
136000 
137000 
138000 
139000 
140000 
141000 
142000 
143000 
144000 
145000 
146000 
147000 
148000 



X TOGGLE 1 TOGGLE 2 OPEN COUNT 1 OPEN COUNT 2 18149000 

% INPUT ONLY INPUT 18150000 

X 1 (OUTPUT) NOT USED INPUT 18151000 

X 1 SHARED INPUT 18152000 

X 1 1 PROTECT INPUT 18152100 

% 16153000 

XENO COMMENT? 18154000 

REAL PROCEDURE D I RECTORYSEARCHC A »B» OPTN) I * 16155000 

VALUE A»B»OPTN) REAL A»B.OPTN;X 18156000 

X OPTNb OPENS FOR SHARED USE 18157000 

X OPTN* 1 OPENS FOR INPUT 18158000 

X OPTN* 2 OPENS FOR OUTPUT 18159000 

X OPTN» 3 OPENS FOR WRITELOCK 18160000 

X OPTN* 4 OPENS FOR EXCLUSIVE USE 18161000 

X OPTNb 5 RETURNS FILE HEADER (UNCHANGED) 18162000 

X OPTNb 6 REMOVES FILE FROM DISK UNCONDITIONALLY 18163000 

X OPTN» 7 REMOVES FILE FROM DISK AS SOON AS IT IS NOT IN USE 18164000 

X OPTN* 8 REMOVES FILE HEADER ONLY 18165000 

X OPTN* 9 HEADERUNLOCK--WRITES HEADER POINTED TO BY CF-4) , ICF3 18166000 

X BACK OUT ON CF-«)itFF)» TU«NS OFF INTERLOCK & DOES 18167000 

X FQRGETSPACE(F-4), 18168000 

X OPTNMO CLOSE SHARED 18169000 

X OPTNBll CLOSE INPUT 18170000 

X 0PTN*12 CLOSE OUTPUT 18171000 

X 0PTNM3 CLOSE WHITELOCK 18172000 

X QPTNM4 CLOSE EXCLUSIVE 18173000 

X 0PTN»15 LOGS THE FILE AND RESETS ITS CREATION DATE AND TIME 18174000 

X 0PTN*16 MAKES THE FILE NOT A SYSTEM FILE 18175000 

X 0PTNM7 MAKES THE FILE A SYSTEM FILE 18176000 

X OPTNsiS WILL INTERLOCK SYSTEM FILES 18177000 
% 0PTN«19 RETURNS FILE HEADER (UNCHANGED AND LOCKED,, .IT IS UP TO 18178000 

X THE CALLING ROUTINE TO CLEAN UP) 16178100 

X QPTN*20 UNUSED 18179000 

X 0PTNW21 OPENS PROTECT 18U9100 

X 0PTN« B 22 CLOSE PROTECT 16179200 

X 0PTN>512 FILECLOSE--ADDRESS OF HEADER IN QPTN.tCFJ 18180009 

X CLOSE 0PTI0N-10 IS IN OPTN.tFFJ 18181000 

X 0PTN< RETURNS AN AREA OF USER DISK AND UPDATES CORE COPY 18182000 

X OF FILE HEADER--ADDRESS OF HEADER IS IN OPTN,[CFJ — 18183000 

X NUMBER OF THE ROW TO BE FILLED IS IN OPTN.tFF) 18184000 

X IS IN 0PTN.ECF3 18185000 

X Attllll DIRECTORYSEARCH WILL FORGET THE MEMORY SPACE 18186000 

X OCCUPIED BY THE FILE HEADER 18187000 

X A, 12113 IS DIALED INTO FH[4J,tl«U WHEN 0PTN»4 18188000 

X A,t3in IF A CONFLICT OCCURS, AN "IF" WILL BE ENABLED, IF THE 18189000 
X OPERATOR ENTERS AN "IF". DIRECTORYSEARCH WILL RETURN A 18190000 
X VALUE OF -0, CURRENTLY. THIS IS USED ONLY BY LlBMAIN, 18191000 

X R.CIIU DIRECTORYSFARCH WILL RETURN A VALUE OF -0 IF THE 18192000 

X FILE 15 IN USE 18193000 

X B,C2m WILL NOT UPDATE DATE OF LAST ACCESS 18194000 

X B.C3in WILL SET FILE ACCESSED BIT FOR CLOSE 18195000 

BEGIN 18196000 

REAL 0LD0NE*"4| 18197000 

REAL TEMP.I.T.TOG.J.K.N.F.Xl 18198000 

INTEGER S» II. 12.131 18199000 

REAL UNITNOJ 16199100 

ARRAY FHC*]»NB[*]; 18200000 

$ SET OMIT » NOT SHAREDISK 18200490 

INTEGER Sll 18200500 

REAL KLUDGE«S1+1. H0LDER»KLUDGE* 1 » NEXT SLOTsHQLDER+1 » 18200600 



BYPASS«NEXTSLOT+l; * MUST BE TOP OF STACK , 1 6200700 

LABEL 0NE»T0Gl»T0G2iST0G»UNL0CKHDR»PR0CNT) 16200600 

t POP OMIT 16200810 

DEFINE DSED*CTERMSET(P1MIX))#1 18201000 

$ SET OMIT ■ SHAREDISK 18201490 

DEFINE UNLOCKHDR * EXITIJ 18201500 

t POP OMIT 18201510 

label ll»ext»check»lws; 18202000 

label opensharfd»openinput*openoutput»openwritelock» 18203000 

openexclusive »l6»l7t l8, ex i t »lwr i te» found* 18204000 

t hu » close »lw. bomb* get arow, ex » 18205000 

closesh ared » close i nputtcloseoutputi close write lock. 16206000 

cl0sexclusive»zer»unsys»sys. 18207000 

seeil0cksys,dontwalt,nofile»c0mplete»leavelkdiunusedi 18208000 

label logitj 18210000 

label openprotect.closeprotectj 18210300 

SWITCH Q*0PeNShARFD»0PfNINPUT»0PEN0UTPUT»OPENWKITEL0CK, 18211000 

0PENEXCLUSl\/F»EXIT»L6#L7»L8,EXITf 16212000 

CLOSESHAREDi CLOSE INPUT* 18213000 

CLOSE0UTPUT*CL0SEWRITELOCK#CL0SeXCLUSIVE 18214000 

.LOGIT 18216000 

tUNSYS»SYS 18219000 

»LOCKSYStLEAVELKD» UNUSED »0PENPROTECT»CLOSEPR0TECT 18220000 

; 18221000 

2************************************************* 1 8222000 

REAL SUBROUTINE SEARCH? 18223000 

BEGIN 18224000 

$ SET OMIT * NOT SHAREDISK 18224490 

SI l» 16224500 

$ POP OMIT 18224510 

Sl*SCRAMBLE(A»B)i 18225000 

DISKWAIT(-N»-60»S)J 18226000 

LLl FOR Xj«0 STEP 3 UNTIL 57 DO 18227000 

IF CNB[X] EQV A, 161423) * NOT THEN 18227500 

IF (NBCX+11 EQV B, [61423) * NOT THEN GO TO FOUND* 18228000 

IF (Sl»NBC2J.CFF])!'0 THEN 16228500 

BEGIN 0ISKWAIT(-N,60»S)J 18229000 

GO TO LLJ 18229500 

END ELSE 18230000 

I SET OMIT « NOT SHAREDISK 18230490 

UNLOCK(Sl)? 18230500 

S POP OMIT 18230510 

GO TO EXTl 16231000 

FOUND! I + CK«-NB[X + 2J l CCN-DIRECT0RYT0P»4),C44|4Jx2J 18232000 

J *(K AND NOT 15HD1RECT0RYT0P + 19I 18233000 

K * K+DIRECTQRYT0P+4) 18234000 

EXT | SEARCH * Sj 18235000 

ENDI 18236000 

************************************************** 16237000 

SUBROUTINE HEADER! 16238000 

BEGIN 18239000 

DISKWAITCF»30 18240000 

* SET OMIT • NOT SHAREDISK 18240090 

&(0PTN#5)tl 14711] 18240100 

$ POP OMIT 18240110 

»K); 18240200 

$ SET OMIT » NOT SHAREDISK 18240490 

IF 0PTN>8 OR 0PTN<6 THEN UNLOCK(Sl)) 18240500 

* POP OMIT 18240510 

TEMPIPF&KCCTFUH8I38U0JJ 18241000 






END; 

%*************************** 
SUBROUTINE REMOVER; % C 

BEGIN N8[X3*ei<M 

DISKWAIT<N»»60tS)J 
t SET OMIT 9 NOT SHAREDISK 

IF S1*S THEN UNLOCK(Sl) 
F(0#0»0#KbUDGt)> 
DlSKWAlTCUHOLDERJttCF 
$ POP OMIT 

OISKWAIT(-Nf30»j)l 
NB[I3*P1«I NB[I + U*NEXT 
DISKWAIT(N»-30»J)» 
I SET OMJT * NOT SHAREDISK 

OlSKWAlTCtHOLDERJttCFJ* 
UNLOCK(K); 
S POP OMIT 
END! 

%^*^*** ********************* 
SUBROUTINE HOLD; 
BEGIN 
$ SET OMIT * NOT SHAREDISK 

IF OPTN»7 THEN UNLOcKCS 

IF B.UJ1J THEN 

BEGIN TCMPI«1I % IN USE 

go unlockhdri 
end; 
$ set omit » sharedisk 

IF B.mil THEN GO DONT 
t POP OMIT OMIT 

FIL.EHOUUCA»B»TOG#TEMP»l 
IF P THEN * OR 1 IS I 
BEGIN TEMPl*3; A«*-l» 
ELSE 
IF P1MIX#0 THEN 
IF REPLYCP1MIX]«VIF THE 
BEGIN 

FILEHOLD(A»B»TOG»T 
DONTWAITl 

TEMPmil % IN USE 
GO TO EXIT! 

end; 

if search«0 then 

begin fjleholdca»b»tog» 

NOFILEI TEMPl«0| A»«-li GO 
ENDI 

header; 
end; * of hold 

%*************************** 

t SET omit ■ NOTCPACKETS) 

IF OPTN.CCF3 LSS 512 TH 
BEGIN UNITN0l«0PTN,t24| 

S POP OMIT 

S SET OMIT « SHAREDISK 
LOCKDIRECTORY; 

$ POP OMIT 

IF 0PTN»9 THEN 
BEGIN 

DlSKWAIT(-(NlwSPAC 
FH«*CMCFt80LD0NE,t 



4********************* 

ANT BE CALLED FROM OTHER SUBROUTINES, 



J 

% MAKE WAY FOR THE UNCLEAN 
])#-3»DlRECTORYSEG)J 

X BUT SAVE THE RETURN LITERAL, 



slot; nextslot«-k; 



•3.DIRECTORYSEG); 



********************** 



n; 



wait; 
); 

EFT ON TOP OF STACK IN FILEHOLD 
GO EXITJ END % DS-ED IN FILEHOLD 



N 



EMP»2); 



TEMP.O); 
exit; 



********************** 



EN 

6]| OPTNl»OPTN INX 0; END; 



EC3O)>i-3O*(Kl*0LDONE,[FFJ)>; 
CF1J1I30C8I36I10JI 



18242000 
16243000 
18244000 
18245000 
18245500 
18245990 
18246000 
18246500 
18247000 
18247010 
18247500 
18248000 
18248500 
18248990 
16249000 
16249500 
18249510 
18250000 
18251000 
18252000 
18253000 
18253490 
18253500 
18253600 
18253700 
18253800 
18253900 
18253950 
16254000 
16254010 
18255000 
18255100 
18255200 
18255300 
18256000 
16258000 
18259000 
16260000 
18260500 
18261000 
18262000 
18263000 
18264000 
18265000 
18266000 
18269000 
18270000 
18271000 
18272000 
18272199 
18272200 
18272300 
18272301 
18272990 
18273000 
18273010 
18274000 
18275000 
18276000 
18276500 



A)sNABS(A); 

FH[4Jl*C*PCDUP))&M[N + 4][3»3sn; 
GO TO CLOSEXCUUSIVEJ 
END? 

NBl»CMCNI«SPACEC60)]14 60Cfll38»10)l 
IF SEARCH*0 THEN 
BEGIN 

Al«0) 

GO TO EXIT? 
END) 
$ SET OMIT * NOT SHAREDISK 

TEMPMF OPTN«21 THEN 32 ELSE 30; 
FH*CMtF*SPACE(TEMP)3 3&TEMP[8l38llOJ; 
% POP OMIT 
t SET OMIT ■ SHAREDISK 

FHI*[M[FI«SPACEC30)3H30[8t38ll0]J 
t POP OMJT 

HEADERS 

IF OPTN<0 THEN GO GETAROWj 
IF 0PTN>512 THEN GO TO Q[ OPTN • [ FF H10 J ? 
S SET OMIT » SHAREDISK 

IF OPTN LSS 5 OR 0PTN*17 OR 0PTN»7 THEN 
S POP OMIT 
S SET OMIT a NOT SHAREDISK 

IF 0PTN<5 OR 0PTNM7 OR OPTN*7 OK OPTN*21 THEN 
$ POP OMIT 
CHECK! 

BEGIN 

IF FHC43 • C44I1J AND OPTN LSS 5 THEN 

BEGIN % TRYING TO OPEN WHILE FILE IS BEING BLANKED 
$ SET OMIT * NOT SHAREDISK 

UNLOCK(K)j 
$ POP OMIT 

GO nofile; 

END? 
$ SET OMIT s SHAREDISK 

IF NOT OPTN OR OPTN»7 THEN 
t POP OMIT 
S SET OMIT w NOT SHAREDISK 

IF NOT OPTN OR OPTN*7 OR 0PTN*21 THEN 
S POP OMIT 

IF FH[«],I12I*]#0 THEN 
BEGIN * IT IS A SYSTEM FILE 
TEMPts2J % SYSTEM FILE 
* SET OMIT m NOT SHAREDISK 

IF OPTN THEN UNLOCKCS1)? * OPTN • 7 
UNL0CKHDRI UNLOCK(K)! 

S POP OMIT 

GO TO EXITS 
ENDI 
SEE I 

IF CFHUJ»C2l2] AND CNOT TOG OR 2))#0 THEN 
BEGIN 

HOLD? 
GO CHECK? 
END? 
END? 
GO TO QtOPTNl? 

OPENSHAREDI 

IF FH£9J, [5I4J*0 THEN 



18277000 
18277500 
18278000 
18279000 
18280000 
18281000 
18282000 
18283000 
18284000 
18285000 
18285099 
18285100 
18285200 
18285201 
18285999 
18286009 
18286001 
18287000 
18288000 
18289000 
18289999 
18290006 
18290001 
18290099 
18290100 
18290101 
18291000 
18292000 
18292100 
18292200 
18292300 
18292400 
18292500 
18292600 
18292700 
18292999 
18293000 
18293001 
18293099 
18293100 
18293101 
18293200 
18294000 
18295000 
18295490 
18295500 
18295600 
18295610 
16296000 
18297000 
18298000 
18299000 
18300000 
16301000 
18302000 
18303000 
18305000 
18306000 
18307000 
18308000 



IF FH[93,[1 »4)*0 OR F H [ 9 J , [ 9 J 20 J *0 THEN 18309000 

BEGIN 18310000 

5 SET OMIT ■ NOT(SHAKEDISK) 18310999 

P(SYSNO)) »lPC.ONE>*»LOD)l T*Pl 18311000 

FH[9J,C 9»203*PCDUP).[ 9120 j+T? 18312000 

FCSYSNO); I »PC,T0G1» + »L0D)J T*Pl 18313000 

FH[93*PCDUP»LOD) OR T> 18314000 

t POP OMIT 18314001 

t SET OMIT ■ SHAREDISK 18314099 

FHC9], [9!5Jl«PCDUP).[9l5J+l! 18314100 

FH[93.[l!l3t*ll 18314200 

$ POP OMIT 18314201 

GO TO LWRITEI 18315000 

ENDl 18316000 

H0UD1 18317000 

GO TO OPENSHAREDI 18318000 

OPENINPUTI 18319000 

$ SET OMIT * NOTCSHAREDISK) 18319999 

P(SYSNO)l IIP(,0NE»+»L0D)I T*P{ 18320000 

FH[4]»[16l203*PCDUP).tl6«20)+T| 18321000 

6 POP OMIT 18321001 
$ SET OMIT * SHAREDISK 18321099 

FHC43, [ 16153 1 *PCDUP).[ 1615 3*11 1832110* 

$ POP OMIT 18321101 

GO TO LWRITEI 18322000 

OPENOUTPUTl 16323000 

IF FHC9).C5»243»0 THEN 18324000 

BEGIN 18325000 

t SET OMIT * NOTCSHAREDISK) 18325999 

PCSYSNO)! l »PC,T0G2.*»L0D)I T*Pl 18326000 

FH[9J«-P(DUP#10D) OR Tl 18327000 

$ POP OMIT 18327001 

$ SET OMIT * SHAREDISK 18327099 

FHC9J • C5l 1 3 i"l f 18327100 

* POP OMIT 18327101 

GO TO LWRITEI 18328000 

ENDI 18329000 

HOLDI 18330000 

GO TO OPENOUTPUTl 18331000 

OPENWRlTELOCKt 18332000 

IF FH[9J,(1 103*0 THEN 18333000 

BEGIN 18334000 

S SET OMIT * NOTCSHAREDISK) 18334999 

P(SYSNO)l I |PC,0NE» + »U0D)I T*P* 18335000 

FHC9J,t9l20J«-PCDUP),[9l20J + Tl 18336000 

$ POP OMIT 18336001 

$ SET OMIT * SHAREDISK 18336099 

FHC93 • C 91 51 *»PCOUP). [915 3*11 18336100 

$ POP OMIT 18336101 

GO TO LWRITEI 18337000 

END! 18336000 

HOLD* 18339000 

GO TO QPENHRITELOCKI 18340000 

OPENEXCLUSIVEI 18341000 

IF FH[93»C5I243*0 THEN 18342000 

IF FH[4J, [161203*0 THEN 18343000 

BEGIN 18344000 

COMPLETE I FH[43»*CP(DUP#L0D))&SYSN0[4146I23U [21471 13&A£U2» 131 18345000 

GO TO LWRITEI 16346000 

END! 18347000 



HOLD* 18348000 

GO TO OPENEXCLUSIVEJ 18349000 

OPENPROTECTl 16349100 

S SET OMIT • NOT SHAREDISK 18349149 

IF ■ FHC9J,til4J#0 AND FHC9 J , [ 5 I 4 3#0 18349150 

OR FH[9}»[9*203*0 THEN 18349200 

BEGIN 1834925© 

pcsvsnoj; iip(.togi#*»uod); t*p» 18349300 

pcsysno)* i »pc,t0g2» + »l0d)j t*p or t? 18349350 

fh[93*pcdup»l0d) or t; 18349400 

PROCNTl PCSYSNO); MPCiONE »+»LOD)l T*P! 18349450 

FHt9J,[9«20J*PCDUP),[9J20]+T; 18349500 

GO TO LWRITEI 18349550 

END! 18349600 

HOLD! 18349650 

GO TO OPENPROTECTl 18349700 

t POP OMIT 18349701 

S SET OMIT • SHAREDISK 16349799 

GO TO OPENEXCLUSIVE; 18349800 

$ POP OMIT 18349801 

CUOSESHAREDI 18350000 

t SET OMIT * NOT(SHAREDISK) 18350999 

PCSYSNO)! I lPC.ONE»+*LOD)i T*P! 18351000 

IF (CII*FHt9J,[9t20J-T) AND Tx31)»0 THEN 18352000 

BEGIN 18353000 

PCSYSNO); » lPC,TOGl»*#LOD»NOT)! T«-P> 18354000 

FH[9)*PCDUP»L0D) AND Tl 18355000 

ENDI 18356000 

FHC93,C9l203*l) 18357000 

$ POP OMIT 18357001 

$ SET OMIT s SHAREDISK 16357099 

IF CII*FH[9J,[9»5]-1)*0 THEN 18357100 

FH[93,[ltl)l«Ol 18357200 

FHt93,C9l53l*I* 18357300 

S POP OMIT 18357301 

GO TO CLOSE! 18358000 

CLOSEINPUTJ 16359000 

I SET QMJT * NQTCSHAREDISK) 18359999 

PCSYSNO); t lPC,QNE»+»LOD)l T*PI 18360000 

FHt43,C16l203*P(DUP),[16l203-T| 18361000 

$ POP OMIT 18361001 

I SET OMIT * SHAREDISK 18361099 

FH[4J,[16I53I*P(DUP).U6»5J-1J 18361100 

S POP OMIT 18361101 

FHC43,C6»13l»0| 18361200 

GO TO LWf 18362000 

CLOSEOUTPUTi 18363000 

S SET OMIT « NOTCSHAREOISK) 18363999 

PCSYSNO); llP(,TOG2»*tL0D»N0m T*P; 18364000 

FHC93*P(DUP#L0D) AND T; 18365000 

* POP OMIT 18365001 

S SET OMIT * SHAREDISK 18365019 

FHC93,t5»ni»0| 18365100 

S POP OMIT 18365101 

GO TO CLOSE! 18366000 

CLOSEWRJTELOCKI 18367000 

$ SET OMIT m NOT ( SHARED! SK ) 18367999 

PCSYSNO)! I lPC,ONEt + *LQD)! T*P* 18368000 

FHt9J.[9«20J*PCDUP),[9t2QJ-T! 18369000 

$ POP OMIT 18369001 



t SET 
S POP 

CL 

GO 

CL 

S SET 



OMIT * 
FHC9 

OMIT 
GO T 
OSEXCLU 
FHC4 

TO CIO 
05EPROT 

OMIT * 
PCSY 
IF C 
BEGI 



SHAREDISK 
J, C9»5)l»P(DUP). [9153*11 



lw; 

SIVE1 

J.UI 

SEI 

ECTI 
NOT 

SNO)J 

(I*FH 

N 

PCSY 
P(SY 
FH[9 



2J«-OJ 



SHAREDISK 

MPC.ONE »*»LOD); T*PJ 
[9] f [9l20)"T) AND Tx3i)»0 THEN 

SNO); llP(.TOGl»+tLOO»NOT)» T*P» 
SNO); ||P(|T0G2»*»L0D»N0T)I T*P AND 
]*P(DUPtLOD) AND Tl 



T> 



ENDI 
FH[9 



$ POP 
$ SET 

$ POP 
t SET 

ON 
TO 



3,[9»20J*n 
TO CLOSE! 

* sharedisk 

to closexclusive; 

s NOT SHAREDISK 

32766» 1024, 32, 11 

92000000000000000, 

9400000000000000» 

T0G2 lit eioooooooooooooo* 

920000000000000, 



GO 

OMIT 

OMIT 

GO 

OMIT 

OMIT 

E IK 

Gl I I I 



91000000000000000, 

9200000000000000) 

940000000000000* 

9100000000000001 



» POP OMIT 
SYSI 

IF F 

BEGI 

S SET OMIT • 



S POP 
$ SET 



OMIT 
OMIT 



$ POP OMIT 



ENDI 
HOLD 
GO T 
SYSI 

OMIT * 
PCSY 
FH[4 

OMIT 

OMIT • 
FHC4 

OMIT 
GO T 
CKSYSt 
OPTN 
GO S 

OMIT m 
OG ill 



H[93,ti«83»0 THEN 
N 

NOTCSHAREDISK) 

PCSYSNO)! J lPC,STOG»+»LOD)J Tl«P> 

FH[43j«PCDUP»LOD) OR Tl 

SHAREDISK 
FH[4J,[12ll]|slJ 

GO TO LWRITEI 



SYS; 



UN 
t SET 



S POP 
S SET 

S POP 

LO 



$ SET 

ST 

$ POP 

LO 



NOTCSHAREDISK) 
SNO)l UPC ,STOG»+tL0D»NOT)l 
] J*PCDUP»LOD) AND Tj 

SHAREDISK 
J.»(12lUl«0J 



LW* 

1 = 4; 

ee; 

NOTCSHAREDISK) 
9400000000000, 

eiooooooooooo* 



Tl«PJ 



9200000000000. 
940000000000) 



OMIT 
GITl 



18369099 

18369100 
18369101 
18370000 
18371000 
18372000 
18373000 
18374000 
18374001 
18374050 
18374100 
18374150 
18374200 
18374250 
18374300 
16374350 
18374400 
18374500 
18374501 
18374599 
18374600 
18374601 
18374999 
18375000 
18376000 
18377000 
18378000 
18379000 
18379001 
18388000 
18389000 
18390000 
18390999 
18391000 
18392000 
18392001 
18392099 
18392100 
18392101 
18393000 
18394000 
18395000 
18396000 
18397000 
18397999 
18398001 
16399000 
18399001 
18399099 
16399100 
18399101 
18400000 
18401000 
18402000 
18403000 
16403999 
18404000 
18405000 
18405001 
18412000 



IF FH[43.U2«43*0 THEN GO UNLOCKHDRJ 18413000 

IF FH[43,[2U3 THEN 18414000 

BEGIN 18415000 

HOLD) 18416000 

GO LOGIT) 18417000 

END1 18418000 

DISKLOG(A»B>FH)) 18419000 

GO TO LHI 18420000 

GETAROWl 18421000 

IF FHU2l*QPTN.[FF33«0 THEN 18422000 

BEGIN 18423000 

DISKL0GCA»B#FH>> 18425000 

IF (FH(I2)l*GETUSERDlSK(FH[83&3tll46»23))*0 THEN 18425100 

BEGIN 18425150 

* SET OMIT s SHAREDISK 18425175 

UNLOCKDI«ECTOHY> 18425200 

t SET OMIT * NOT SHAREDISK 18425225 

UNLQCKCK)» 18425250 

$ POP OMIT OMIT 18425275 

Ii»«GETUSERDISKC-FHl8J); 18425 300 

S SET OMIT * SHAREDISK 18425390 

LOCKDIRECTORYJ 18425400 

$ POP OMIT 18425410 

IF SEARCH*0 THEN 18425500 

BEGIN F0RGETUSERDI5K(I1»FHI83)I 18425600 

TEMP)*0) Al»-1* 18425700 

GO TO EXIT* 18425800 

END! 18425900 

HEADERI 18426000 

FHU23I-11I 18426100 

END; 18426200 

EMDI 18427000 

FOR I2)»FH[93, [43)53+9 STEP -1 UNTIL 10 DO 18428006 

MtOPTN INX I23l«FH[I23) 18429000 

GO TO LH) 18430000 

CLOSE! 18431000 

IF B.I3I13 THEN FM(43, [11)13 * II 18431050 

IF OPTN GTR 511 THEN 18431100 

BEGIN 18431200 

IF (FHC03 EQV MCOPTNJ >*NQT THEN 18431300 

IF (I1)*(((I1I«(((U2I»FH[73 + 1) DIV C I 3)«FH[ 03 ) , t 30 1 123 ) 18431400 

xI3.[42)63)x30)+(I2 MOD 13, [301123) 18431500 

x(JF CI2I«I3, [111433*0 THEN 30 ELSE 12)) DIV 30) 18431600 

DIV (I3l»M[0PTN3),[42l63)xl3, [301123 18431700 

♦((((11 DIV 30) MOD I3,[42l63)*30 18431800 

♦ II MOD 30+13, [11143-1) DIV I 3 , [ 1 i 14 3 )-l ) 18431900 

*M[0PTN+7J THEN GO TO LW) 18432000 

FH[0Ji«M[0PTN3) 18432100 

FM£43)«(*P(DUP)) OR (M[0PTN+43 AND 16)1 18432150 

FH[73)*M[0PTN+73> 18432200 

END) 18432300 

GO TO LHI 18432400 

LHX 18432500 

IF (FH[43 AND P1400777777770000 )*0 OR 18432600 

FH[93, Ul283#0 THEN 18433000 

BEGIN 18434000 

HOLD) 18435000 

GO TO L7I 18436000 

ENDJ 18437000 

L6IX 18438000 



IF FH[4],[43»2J NfO THEN X TEST FILF SENSITIVE 18438100 

BEGIN 18438110 

STREAM(A#B.Tt«TtsGETSPACEC 10,64 »0)+4); 18438120 

BEGIN 18438130 

DS»*1QLIT"CC REMOVE M J SjJsLOC A? SJHSUU DS««7CHR; 18438140 

DSI*LIT"/ ,, J SJ»=LOC Bl Sl»«Sl + i; DSl«7CHRI 18438150 

DSl«6llT"»END.*"J 18438155 

END! 18438160 

FHC43 f [43IS3 t«li 18438170 

CCARDCUCIF UNITNO NEQ THEN UNITNO ELSE 31 >C2i42l6 J 18438180 

IliaurilJJI 16438190 

$ SET OMIT - NOT(SHAREDISK) 18438202 

UNLOCK(Sl)! OPTN»*0) 18438204 

$ POP OMIT 18438206 

GO COMPLETE? 18438210 

ENDI 1843822© 

L8MESS(ABSCA)»ABS(BW»0»0»UNITN0»LIBMSG)* 184 39100 

IF NOT FHC4 J »[ 1 I 1 3 THEN D I SKLQGC A » Bt FH) I 18441000 

PBC0UNT»sPBC0UNT-((((A,[6;42] E«V "PBD ")*N01 0} OR 18442000 

C(Ai[6l42] EQV "PUD ")*NOT 0)) ANU B,tCFjM)l 18443000 

L6« REMOVER? 18444000 

IF PCCOPTN NEQ 8)»DUP) THEN 18444500 

FOR I * I STEP 1 UNTIL FHC9J DO* 18445000 

IF FH[9+U#0 THEN FORGETUSERD I SK ( FH[ I +9 J » FHl 8] ) ; % 18446000 

IF P THEN GO LW ELSE GO EXIT? 18447000 

LWRITE.I 18453500 

IF NOT B.I2I13 THEN 18454000 

STREAM(A*[DATEJ»B*tFHt3n»O0)J 18455000 

BEGIN SI*A?DI*L0C CJDS*8 OCTlSl*LOC C)Sl*Sl+5f 18456000 

di*bidi*di*2;ds*3 chri 18457000 

END? 18458000 

LW| 16459000 

IF FHC43,[3UJ OR TOG THEN F I LEHOLDC A »B» TOGf TEMP, ) ; 18460000 

S SET OMIT • NOT SHAREDISK 18460490 

IF (OPTN OR 1)*7 THEN 18460500 

* POP OMIT 18460510 

LWSl D!SKWAITCF»-30#K)J 18461000 

EX« FHt9J?*C*PCDUP)) AND 31J 18462000 

EXITIX 18463000 

IF A. tlllJ OR TEMP<64 AND TEMP>0 THEN FORGETSPACECF ) J 18465000 

S SET OMIT » SHAREDISK 18465990 

UNLOCKDIRECTORY? 18466000 

S POP OMIT 18466010 

LEAVELKD? 18466100 

UNUSEDI 18466101 

FORGETSPACECN)| 18466200 

DIRECTORYSEARCH«-TFMPJ 18467000 

END? % OF DIRECTORYSEARCH 18468000 

PROCEDURE C0MMUNICATL1I 18500000 

BEGIN REAL R4»»4 , R5b-5»R6»-6, R7«-7 , R8««6; 18500100 

INTEGER I4»-4»I5»-5M6»-6l 16500200 

ARRAY A4»-4[*J»A5p-5t*]»A6«"6t*]; 18500300 

ARRAY A7«»-7C<*3? 18500400 

NAME N4*-4#N5*"5#N6»-6; 18500500 

LABEL C0»Cl#C2tC3»C4»C5»C6»C7»C8#C9»C10tCll»C12»C13»Cl4»C15»C16t 18500600 

C17»C18*Ct9»C20«C21»C22#C23iC24#C25»C26l 18500700 

LABEL C27tC28»C29tC30»C31»C32; 18500800 

LABEL C33»C34#C35»C36»C37»C38»C39j X026-18500900 

LABEL C45»C49fC30A»C30B#C49A*INlT,CHANGENAMEl 18501000 

SWITCH CI=C0,lNlT,lNlT»lNlT»C4,lNlT,iNlT»lNlT,lNlTilNITflNlT» 18501100 



lNlTtlNn,lNlT,lNlTfCl5»Ci6.INlT»INlT»lNlT»INlT. 16501200 

lNlT.lNlT.lNlTflNlT»INlT»!NlT. I N I 1 » I N I T # INIT.C30. 18501300 

lNlT,lNlT.C33»lNir,lNlT,INlT»lNlT.lNlT.lNlT»INlT# 18501400 

INITI1N1T.INIT.INIT.IN1T.IN1TIINIT.INIT.C49 1 18501500 

t SET OMIT m NOT SHAREDISK 18501600 

DEFINE 18501700 

TIMeLIMiTM A X»15#» % MAX WAIT TIME FOR LOCKED ADDRESS 18501800 

TIMeLIMi TMiN*0# I % CAN BE ADJUSTED TO SUIT SITE 18501900 

% POP OMIT 16502000 

REAL RcWs+O.I.J.Tl 18502100 

ARRAY AC*]»FJB*A[*)»FPB[*}»HE*]J 18502200 

BOOLEAN DSJ 18502300 

GO TO CCPRTCP1MIX.93 J* 18502600 

INITl GO TO INITIATE? 16505000 

% COBOL INVALID EOJ 18510000 

COl TERMINATECP1MIX); TERM I NALMESSAGEC 26 ) t 18510100 

% GENERALIZED ZIP 18520000 

C4I IF CI*A4,[8«10])*0 THEN BEGIN 18520100 

t SET OMIT * PACKETS 18520200 

T»*GETSPACECI+4»64»5)+4) 18520300 

S POP OMIT 18520400 

$ SET OMIT * NOTCPACKETS) 18520500 

M[(T|BGETSPACECI*5»64»5>+4)-4j.C9i6l!*0; 18520600 

$ POP OMIT 18520700 

IF NOT A4,[2I1J THFN MAKEPRESENT CNFLAGC NOT 3 INX CRCW 3 ) ) J 18520800 

J I* USERC0DEIP1MIX]; 18520900 

STREAMtC*J»A4»Il*I,[36»6J» l»G*0»T)J 18521000 

BEGIN Sll*A4> SIlvSI-ll 18521100 

LI SII«SI+1! IF SC* H " THEN GO TO L> Ql*SU DII«QJ 18521200 

IF SC«P14 THEN DS»»LIT» " ELSE DS|»2LIT" W J DII*TJ 18521300 

DSl»8LlT"CC USER*"* SlJsLOC C; SII*SI+1J DSJ=7 CHRJ 18521400 

DSls LIT";" I SI**A41 18521500 

Il(DSI*32WDS» DS»«32WDS)t DS»* I WDSJ 18521600 

S SET OMJT b NOTCPACKETS) 18521700 

DS»»8 LlT"*»J 18521800 

S POP OMIT 18521900 

TALLY«»12; I»*TALLY) 18522000 

DI I*QJSI t«LOC IlSIl«bl+7»DSi«CHRJ 18522100 

END STREAM* 18522200 

U*IF USERC0DE[P1M1X]*MCP THEN 31 ELSE 26> 1852230ft 

$ SET OMIT * PACKETS 18522400 

CCAR0<T»P1MIX[ 181 42I6HJI 314315 J >! 18522500 

$ SET OMIT * NOT(PACKETS) 16522600 

IF PSEUD0MIXCP1MIXJ NEQ THEN NYLONZ 1 PPER I PlM I X ) , [ 2 1 13 I *0; 18522700 

CCARDCT&PlMlXt 18 I 42 I 6 J&JC3 143(5 i)i 18522800 

IF PSEUD0MIXCP1MIX] NEG THEN 18522820 

IF MEMR0W[P1MIX],CCF3 GEO FENCE THEN 18522640 

DO SWAPCWAITSWAP.1) UNTIL 18522860 

NYL0NZIPPERtPlMlX],[2lll ELSE 1852268* 

IF PSEUD0MIXCP1MIX3 NEQ THEN 18522900 

SLEEP ([ NYLONZ I PPER [PlM IX J J .31000000000000000) ; 1852 300* 

S RESET OMIT 18523100 

END ELSE 18523200 

BEGIN FIB*N4tN0T 21) 18523300 

FPB*PRT[P1MIX»3JJ 18523400 

IMF FlB[4],tl2«n THEN V I B[ 4 J f [ 1 3 1 1 1 J 18523500 

ELSE (FlB[4].U3lin-l)xETRLNGJ 18523600 

T*FPB[I+33,C«3I5]I 18523700 

IF T»10 OR T»12 OR T*13 OR T*26 THEN 18523800 

BEGIN IF F IB[5],C42il J THEN GO TO CHANGENAMEJ 18523900 



H-FI 

S SET OMIT ■ NOTCPACKE 

HC63 

S POP OMIT 

Ht53 

$ SET OMIT » NOTCSHARE 

HUJ 

* POP OMIT 

IF H 
BEGI 
CHANGENAMEI 



$ SET OMIT * NOTCSHAKE 

S POP OMIT 

t SET OMIT = NOTCPACKE 

S POP OMIT 



END 
BEGI 



END) 
IF R 
BEGI 
STRE 

BEGI 



PC 14] ; 

TS) 
*(*P(DUP))&3[2I42I6J; 

l*USERCODE[PiMlXj; 
DISK) 

,tnni«n 

[4] TMEN it 

N FILECLOSECN4,C33«l53>) 

IF (T*0IRLCT0RYSEARCH(FPBII3»FPB[I*1J»4)> 
LSS 64 

THEN GO TO INITIATE; 
H*-[MtT]3430[8J38ll03; 
DISK) 

HC«ll»C*PCDUP))ll[7l47iH OR 1) 

HC53t=USERC0DE[PlMjX3l 
TS) 

HC6J J*(*PCDUP))&3[2t42l6J; 

ENTERCONTROLDECK(H); 

PCDIRECTORYSEARCHC-FPBtlJ.FPBt I + 1 3 #8 ) » DEL) I 

J-HC 23 ? % SAVED LASlCDNUM 

FORGETSPACLCH)) 
ELSE 
N FILECL0SE(CN4,[33t 153)&6[1B»33U53)) 

ENTERCONTROLDECKCH)! 

J*Ht23) % SAVED LASTCDNUM 

FOR T*10 STEP 1 UNTIL 29 DO H[T3*01 

FILECL0SECN4, [33ll5J)J 

UNUMBER LEQ THEN 
N 



N 

AM(A*t JAR[P1M1X«0JJ» B*H*USERCODE [P t Ml X 3 » 

F-H*MCP AND H#0» P1MIX, J» T* 1 *SPACEC 1 0) ) ) 
N SI*A) DS*LlT"#"i 



GO 
C15I 



C16I 



END) 
SPOU 
END) 
ENDI 
END) 

TO INITIATE) 

DISPLAY(A4 INX 

GO TO INITIATE 

COBOL ACCEPT 

DJSPLAYCA4 INX 2) 

IF CMEM[P1MIX»MLI 

SWAP(WAITSW 

COMPLEXSLEEPCCTER 
IF TERMSETCP1MIX) 
IF NOT WHYSLEEP(V 
UREPLYCP1MIXJ,[1 
STREAM(T»S*A4 INX 




T(T)) 



1)) 



I REPLY[PlMlXI*-VWY8iVAXt36l42»6]J 

NK1]],[CFJSFENCE THEN 

APtl) ELSE 

MSETCP1MIX) OR REPLY! PlM I X 3>0 ) ) I 

THEN GO TO INITIATE) 
WY*VAX[36I42*6J) THEN GO TO C16I 
81153) REPLYtPlMlXj^O) 

2); 



18524000 
18524100 
18524200 
18524300 
18524400 
18524500 
18524600 
18524700 
18524800 
18524900 
18525000 
18525050 
18525100 
18525200 
18525300 
18525400 
18525500 
18525600 
18525700 
18525800 
18525900 
18526000 
18526100 
18526300 
18526400 
18526500 
18526600 
18526700 
18526800 
18526900 
18527000 
18527100 
18527200 
18527300 
18527400 
18527500 
18527600 
18527700 
18527800 
18527900 
18528000 
18528100 
18528200 
18528300 
18528400 
18528500 
18528600 
18528700 
18528800 
16530000 
18530100 
18540000 
18540100 
18540200 
16540300 
18540400 
18540500 
18540600 
18540700 
18540800 



BEGIN SW* 18540900 

LI IF SC/"X« THEN BEGIN SI*SI+1J GO TO L END! 18541000 

SI*SI+1I ?(DS*40 CHR)I 18541100 

END) 18541200 

F0RGETSPACECT-1>1 GO TO INITIATE! 18541300 

% DIRECTORYSEARCH AND UN-FILL FILE ID FOR NORMAL STATE PROGRAMS 18550000 

C30JI COMMENT SEARCHES DISK DIRECTORY AND RETURNS DATA IN ARRAY, 18550100 

[03 IS USER-TYPE OR NOT-PRESENT FLAG 18550200 

[1] IS MULTI-FILE ID 18550300 

[23 IS FILE ID 18550400 

IF NOT PRESENT. [33 •> [53 ARE -1 18550500 

IF INVALID USER* [3] «> 1 5 J ARE 18550600 

IF PRIMARY. SECONDARY. OR TERTIARY USERi 18550700 

C 3 J IS RECORD LENGTH 18550800 

143 IS BLOCK LENGTH 18550900 

[53 IS END OF FILE POINTER 18551000 

[63 IS OPEN COUNT 18551100 

IF ARRAY SIZE IS GREATER THAN 9l 18551200 

tn « FILETYPE (FROM HEADER) 18551300 

[8] * HEADER[33 (CREAT I ON/ACCESS DATE.SAVE FACTOR) 18551400 

[') m HEADERtlJ ( LOGGING DATES) 18551500 

IF ARRAY SIZE IS GREATER THAN 10» 18551600 

[IQ]» SYSTEM NUMBER (SHAREDISK) 18551700 

NOT-PRESENT FLAG IS "1 18551800 

INVALID USER FLAG IS 18551900 

PRIMARY USER FLAG IS 7 (LM. INPUT. AND OUTPUT BITS) 18552000 

SECONDARY USFR FLAG IS 3 (INPUT AND OUTPUT BITS) 18552100 

TERTIARY USER FLAG IS 2 (INPUT BIT ONLY) 18552200 

I 18552300 

IF A4,[8U0J<7 THEN BEGIN TERM I NATE(P 1M I X ) I % 18552400 

TERMINALMLSSAGE(7)I ZHQl% 18552500 

IF NOT A4,[2ll3 THEN MAKEPRESENT ( NFLAGCNOT 3 INX [RCWJ)>I* 18552600 

PUMCA4 INX NOT 1 ] I »DUP»DUP»L0D# XCH.CCX, , J. STD» I OR ) I % 18552700 

FIB * N5[N0T 2)1 FPB * PRTCP1M I X. 33 1 18552800 

I * IF FIBC43. 112113 THEN FIB[4] , [ 131 1 1 3* 18552900 

ELSE CFlB[4] t [13»113-l)xETRLNGJ 18553000 

A4I11 * FPBCUI A4E2J * FPB[I + iJl 18553100 

IF P<FPB(U33,[43»5J»DUP»DUP)slO ^RANDOM 18553200 

OR (P(XCH) OR 1)«13 OR P(XCH)*26 THEN XSER I AL. UPDATE .PROTECT 18553300 

BEGIN 18553400 

IF A4[13«0 THEN 18553500 

BEGIN A4C13«*A4[23; 18553600 

A4[2J»*USERC0DE[P1MIXJJ 18553700 

END* 18553800 

IF (Tl*DIRECT0RYSEARCHCA4U3»A4[23»5)) * THEN 18553900 

BEGIN IF <A4[03«"SECURITYCHECK(A4U3»A4C21»USERCODECP1MIX3.T)) 18554000 

1*0 AND M[T + 43,C12»4]*0 THEN 18554100 

BEGIN A4t3J|sM[T3.ClU43J 18554200 

A4[4) * M[T3, [151153; A4[53 • M[T+73>X 18554300 

i SET OMIT » SHAREDISK 18554400 

A4[63|*M[T+43,[16I53+M[T+93,[9|5)I 18554500 

t POP OMIT 18554600 

$ SET OMIT » NOTCSHAREDISK) 18554700 

A4[63I*0«CM*M[T + 4) I [16I203+M[T*93,[9*203H43I28|53 & 18554800 

II38133I53&U33J38I53&II28143I53I 18554900 

$ POP OMIT 18555000 

IF A4, [81103 GTR 9 THEN XR2218555100 

BEGIN A4[73l«M[T+4j,[36t63IA4[83l«M[T03l XR2218555200 

A4[93l»M[T+l3l XR2218555300 

END! XR2218555400 



IF A4. [81103 GTR 10 THEN A4 [ 1 03 I *SYSN0; 18b55500 

END ELSE A4[33l*A4t4j|=A4[53*wA4[63»*0; 18555600 

FORGETSPACECT)} 16555700 

GO TO C30B 16555800 

END ELSE GO TO C30A; 16555900 

END EUSE 18556000 

BEGIN 18556100 

T»«-1J 18556200 

IF (T|»FINDINPUTCA4[13»A4[23»FPB[1+23,UI173» 18556300 

FPB[J+23,U8»303#FPBU + 33,[1I53«CA4[333 INX Ot 18556400 

T>0»0>0>)*NABS(13 THEN GO TO C30A ELSE 18556500 

IF T GEO THEN 18556600 

BEGIN 18556700 

A4[0Jl*4; A4[3]I«CI I "RDCTABLEt T 3 ) . £1411031 18556800 

A4[4)|»I, [2411731 A4[ 53 » « I ♦ C 4H 73 J 18556900 

A4[63lsTINUCT3»t30l 183J IF T<16 THEN 18557000 

A4[63»*(*P(DUP))jPRNTABLEtT3tl2l30U83; GO C30B* 18557100 

END EUSE 18557200 

BEGIN 18557300 

A4[03$*5; A4t33»Ill53«*ABS(T)» GO C30B 18557400 

END! 18557500 

ENDI 18557600 

C30AJ A4t0]t«A4C3l!«>A4[4]|*A4[5]l*A4[6)l"»ll 18557700 

C30BI 16557800 

IF NOT J, [2113 THEN PC [ M[ J 3 3 t PRL) I * 18557900 

GO TO INITIATE** 16558000 

C33M STREAMCR4»A*CR4*0)tJ«-JARR0W[PlMlXj»PlMIX»* 18570000 

Tl«Tl«SPACE(10)>* 18570100 

BEGIN DSMQ LIT » PAUSE * 0"1X 18570200 

A(0I»0I-1I SI*LOC H4J SI*SI+2J DS*6 CHR); 18570300 

DS*5 LIT " FOR"; SI-JJ SI*SI + U DS*7 CHRJ* 18570400 

DS-LIT V"| SI*SJ*U DS*7 CHRJ DS*LIT "*"JX 16570500 

Sl*LOC P1MIXI DS*2 DEC* DS*LIT "#•"» DI*0l-3; DS*FILL>* 18570600 

ENDI* 18570700 

SPOUT(T)l* 18570600 

IF N0TERMSETCP1MIX) THEN PRTROW [ PlM I X 3 , [ PSF 3*2* 18570900 

GO TO INITIATE;* D0N"T KEEP COMMUNICATE AROUND NEEDLESSLY 18571000 

C49M 18590000 

S SET OMIT * NOT SHAREDISK 18590100 

IF 14 THEN GO TO C49A» 18590200 

IF CM[A63 AND P3000000000)«0 THEN 16590300 

SLEEP(CMCA6J3#P3000000000)J 18590400 

IF (M[A63 AND IOMASK)#0 THEN GO TO RETURN! 18590508 

IF (Il*I5 GTR TIMELIMITMAX) THEN I 5 « * T I MEL I M I TMAX i 18590600 

IF I5<TIMELIMITMIN THEN 1 5*T I MELIM1 TM1NI 18590700 

IF (MCA63 AND I0MASK>*0 THEN 18590800 

IF (I5*I5x60+CL0CK*P(RTR))>CL0CK+P(RTR) THEN 18590900 

COMPLEXSLEEP((Tf«(CLOCK+P(RTR)) GTR 15) OR * TIMELIMIT 18591000 

(TERMSETCP1MIX)) OR * DSED 18591100 

CCMU63 AND I0MASK)»»0))J X IOCOMPLETE 18591206 

IF (M[A63 AND IOMASK)#0 THEN GO TO RETURN) 16591300 

D S I • T *• 1 AND I«ll 18591350 

M[A6J*(*P(DUP))&3[19J46I2]1 R6*M[M[A6J3J 18591400 

C49AI R4*R5*0J 1859l50i 

FOR 1*0 STEP 1 UNTIL CLOAVAILM) DO 18591600 

IF (OLQUECI3), [81403 EQV R6, [ 8 » 403 )*N0T THEN 18591700 

IF LQCATQUE[vMll73],[3t53»PlMIX THEN 18591800 

BEGIN 16591900 

IF I < (L0AVAIL*LQAVAIL»1) THEN 18592000 

STREAMCA#-LQAVA!L-l»B*[LQUEl 13 3)1 18592100 



BEGIN Sl*B; S I -SI +81 DS*A WDS END; 18592200 

RETURNlOSPACf(J.tl»7j)i 18592300 

R4*l! 18592400 

END ELSE R5*ll 18592500 

IF NOT CR4 AND R5) THEN 18592600 

BEGIN 18592700 

IF NOT R4 THEN K6-CR6 OR P2Q60) ELSE * UNUOCK ADDRESS 18592800 

R6*CR6 OR P60)&SYSN0t3O:46«23! % CLEAR CONTENTION 18592900 

PCWAITIQUR61 INX PIOOOOOOOOp 0» 18) » DEL ) ! 18593000 

END* 18593100 

IF OS THEN BEGIN TERMINATf (PIMJX)J TERM I NALMESSAGEC 89) \ END1 18593150 

$ POP OMIT 1859320* 

GO INITIATE? 18593300 

END OF COMMUNICATED 18599000 

PROCEDURE COMMUNICATEOJ 18700000 

BEGIN REAL R4»-4 1 R5»<"5 * R6»-6» R7»»7 . R8*-8! 18700100 

INTEGER H«*4tl5*-5»I6«""6! 18/00200 

ARRAY A4»-4C*3»A5=-5t*3»A6*-6[*3! 18700300 

ARRAY A7«-7[*3! 18700400 

NAME N4«"4»N5«-5»N6*-6! 18700500 

LABEL C0»Cl»C2#C3»C4»C5»C6»C7»C8»C9»ClO»ClltCl2tC13»CUtC15»C16» 18 700600 

C17»C18»C19»C20»C21#C22»C23*C24»C25»C26> 18700700 

LABEL C27»C28»C29#C30»C31»C32I 18700800 

LABEL C33*C34»C35»C36»C37#C38»C39J X026-18700900 

LABEL C48,C3A»C2lA» INIT*IT»US#D»TD»PR»I0T»TMR»AD)»WD; 18701000 

SWITCH Sl*lT»US»D»TD#PR»lOT»TMR#AD»WDJ 18701100 

REAL I»J,TpK; 18701200 

ARRAY AIT[*]|REAL AI TL*AI Tl ARRAY A«AITC*3! 18701300 

NAME ADORI 18701400 

SWITCH Cl»INlT»Ct»INlTiC3»INlT#INlTfC6iC7»C8»INIT»INlT» 18701500 

INIT»INIT»INIT»INIT»INIT»INIT#C17»INIT»INIT»C20# 18701600 

C21»C22»IN1T»INIT«C25»C26»INIT»INIT»C29»INIT» 16701700 

INIT»INIT.INIT»INIT#INIT»INIT#INIT»C38#C39#INIT» 18701800 

INIT»INIT.INIT.INIT#INIT»INIT,INIT»C48#INITI 18701900 

DEFINE TIMELIMITMAX»15#; 18702100 

GO TO CtPRTCPlMlX,9331 18702200 

INI T I GO TO INITIATE) 18705000 

X TIME INTRINSIC 18710000 

Cll IF (14*14) GEO C2) AND 14 LEG 6 THEN 18710100 

BEGIN GO TO SU4 + 23! 18710200 

IT! J4»JARCP»MjX,2!,[5liJl 18710300 

JARtPlMlX#23* (*PCDUP)) & 2C4I46123! 18710400 

GO INITIATE) 18710500 

US! R4*USERC0DECP1MIX]J GO TO INITIATE! 18710600 

Dl I4*DATE» GO TO INITIATE! 18710700 

TDI I4*XCL0CK*P(RTR)! GO TO INITIATE! 16710800 

PRI l4*JAR(PlMIX.3]*PR0CTIMEtPlMIXJ+CLQCK+PCRTR)! 18710900 

GO TO INITIATE! 18711000 

IOTj I4*10TlMEtPlMlX]*JARIPlMIX»43; 18711100 

GO TO INITIATE! 18711200 

TMRI I4*P(RTR)! GO TO INITIATE! 18711300 

AD» I4«-ACTDATE! GO TO INITIATE! 18711400 

WD! I4*WEEKDAY1 18711500 

EN I 18711600 

GO TO INITIATE! 18711700 

* RETURN SPECIFIC ARRAY 18720000 

C3| ARTN(N4t03#l)! * RETURN 1 DIM ARRAY X026M8720100 

C3AH Tl»fAlTL3aCF3! * REMOVE FROM AIT X026-16720200 

IF N0T(AlT*PRTtPlMIX,63),[2ll3 THEN MaKePRES£NTCT ) ! 18720300 

J * AITC03! T «• N4 f [CF3! 18720400 



FOR 1*1 STEP 1 UNTIL *J"i DO 18720500 

IF AlT[IJ,tJ8U53»T THEN 18720600 

BEGIN M0VE(J-I#CAITU+I33t UITCI33)! J*0 END; 18720700 

IF J»0 OR AIT[JJ,[FFJ»I THEN AlTCO] * *PCDUP)-li 18720800 

N4[03*0» 18720900 

GO TO INITIATE; 18721000 

% WHEN 18730000 

C61 IF 14 GTR TIMELIMiTMAX THEN 18730100 

BEGIN TERMINATE(PIMIX)! TERMI NALMESSAGE ( 89) 1 END? 18730110 

I4l»60xI4*CLQCK*PCRTR)! 18730126 

WHILE N0TERMSETCP1MIX) AND CLOCK + PCRTRX 14 DO 18730200 

5LEEPCCCL0CK1.N0T CLOCK)) 18730300 

GO TO INITIATE; 18730400 

C7l IF NOT A5.C2U3 THEN MAKEPRESENT ( NFLAG( NOT INX (Hl}}| 18740000 

I*MU5 INX NOT Q3l J*M£A5 INX NOT 1)1 18740100 

PUMCA5 INX NOT 133.IOR)! 18740200 

IF (NT2*{NT1* + (I4 INX PRTCP1MI X » 4) ) ) , t IB « 15) ) >NT3*A5» t 8 1 10 ) THEN 18740300 

NT2*NT3! 18740400 

DISKWAIT(-A5.[CF)»NT2#I4*JAR[P1MIX.NT1»[CF 3 18740500 

DIV JAR[PlMlXt83 + l03*NTl,[33«l5J MOD JAR t P 1M I X, 8 3 ) ! 18740600 

M(A5 INX NOT 03**P(,I>! 18740700 

IF NOT (*P£,J)),C2lll THEN P([M[A5 INX NOT 133»PRD! 18740800 

GO TO INITIATE! 18740900 

C8l ZIPPER(R5»R4)J 18750000 

GO TO INITIATE! 18750100 

% COBOL I/O ERROR 18770000 

C17I A5**A5> A*PRTCP1M1X.33! 1**1/0 ERR"» 18770100 

IF A5C53,tlll3 THEN 18770200 

BEGIN II* *INVALID"!J»»" USER"! R6t»l END EL&E 18770300 

STREAM(R4»N*t J3)l BEGIN Sl*LOC R41 Dl+DIMI DS*7 DEC! 18770400 

DI -01 -71 D$*5 FILL! 18770500 

END! 16770600 

FlLEMES$U&R6£l«47ll3»J»A[T*A5[4) t U3lll3J»AtT+l3» 187 70 700 

IF R4*(R4«16 OR R4«17 OR R4«82) THEN R8 ELSE 0# 18770800 

IF R4 THEN R7 ELSE 0»0)! 18770900 

GO TO INITIATE! 18771000 

X TAPE SWAP FOR TAPF SORT 18780000 

C20I SLEEP([N4[33)iIOMASK)! SLEEPC [N4[4 J ) » IOMASK ) ! 18780100 

FOR 1*3 STEP 1 UNTIL 4 DO 18780200 

BEGIN N5Cl3iC33ll5)*N4tI3! 1878030ft 

MCN4UJ INX NOT 1 3*(*P( DUP ) )&N5[ 3 ) 1 14 I 31 4 )&[ N5 [ 3 3 3 t 33 I 33 1 15 3 1878040ft 

END! 18780500 

A*N4[0)! A[53,C39t43*2! Atl6)*0! A 1 183*NABSC *P( DUP ) ) I 18780600 

A*N5t03l AC53*0! At 163*NFLAGCN5[ 3) ) ! A 1 18 )*ABS( *P(DUP ) ) ! 18780700 

GO TO INITIATE! 18780600 

% SORT STORAGE ASSIGNMENT 16790000 

C2M A*lM[GETSPACE<R6+R5»2tl)+23)lR5[e«38il03l 18790100 

AC03*(R5 INX A)&(A)tCTF3&R6[8l38«lO)l 18790200 

N4[03*A! 18790300 

IF NOT C0NQUERC0»R5-1.(R6&(N0T J>[ 1 14711 ) )t I INX A»J) THEN 18790400 

BEGIN FORGETSPACE(A)! 1879050ft 

C21AI STREAM(PlMlX,T*R5xR6»A*I*SPACE(7))! 18790600 

BEGIN DS*LIT "I"! Sj*LOC P1MIX! 18790700 

DS*2 DEC! DS* 13 LIT " NO SORT MEM!") 18790800 

DS*5 DEC! DS*9 LIT " WDS ROD*"! 18790900 

END! 18791000 

5P0UTCI)! 18791100 

REPLYtPlMlX3*-VWYsV0Kt36l42|6 3&V0UC30l42«63! 18791200 

IF MEMROW[PlMlX3,tCF3 GEO FENCE THEN SWAP( WA JTSWAPt 1 ) ELSE 18791300 

COMPLEXSLEEP(REPLY[P1MIXJ>0 OR TERMSET(P1MI X ) ) | 1879140ft 



X 

C22l 



X 
C25JI 



X 

C26» I 



IF TER 
IF NOT 
J*REPL 
GO TO 
END) 
GO TO 
SORT S 
J*(A*F 
FOR I* 
IF T>( 
BEG 
FORGET 
GO TO 
RETURN 
ARTNU 
MU5.C 
IF At C2 
GO TO 
INVALI 
IF (I 
STREAM 
BEGIN 



UOGI 
ROOTl 
EXPI 
SI N I 
EXIT! 
ENDI 
IF 



MStT(PlM 

WHYSLEE 
YCP1MIX] 

C2U 

INITIATE 
TORAGE R 
LAGCN4C0 
1 STEP 1 

T-ACIM 
IN K*M[T 
SPACECN4 
INITIATE 
OLD COP 
5#R4)J 
FFJJ*A*P 
111 THEN 
INITIATE 
D ARGUME 
«- R4)>0 
( At«R4» 
SI*UOC I 
IF SC**3 
IF SC<P2 
DS*8 LIT 
CI*CI+AI 
GO LOG! 
DS*3 LIT 
DS*2 
DSM 
DS*3 
DS*3 
DSJ*2 



IX) THEN GO TO INITIATE! 

P(VWY&V0KC36l42»6HV0Ut30U2l6J) THEN GO TO C21AJ 
,[CF]«VOUJ 



; 

ETURN 

)}).[BllOJ-ll 

UNTIL J DO 
CF3) OR T>K THEN 
•*2] ( [CF)> FORGETSPACE(T) END; 
[OJ); N4[0J*0; 

I 

Y OF OWN ARRAY 

RT[P1M1X,17J4PC,A5#L0D)U6I18I15J| 

MCA f [CF3-l3|tCF]*A5ttFFJ) 
I 
NTS TO ALGOL INTRINSICS 

then 

II*M*SPACE(10))) 

I SI*SI-i; DS«-LIT "-"; 

THEN DS»4 LIT "MAXN" ELSE 

THEN DS*-5 LIT "NEGTV" ELSE DS*4 LIT "ZERO"; 

" ARGMNT "I 



LIT 
LIT 
LIT 
LIT 
LI 



I ■ CO 
BEGIN 
R4 * R 
ERRORF 
ENDI 
TERMINATECPIMI 



GO ROOTJ 
"COS"; 
"LN"I 
"SORT"; 
"EXP"! 
"SIN"; 
T "|*"l 

THEN 



5; R5 * R6J 
IXER(4)> 



GO LOGI GO EXPJ GO SIN; 

GO exit; 

GO EXIT! 

go exit; 

go exit; 



X COBOL INVALID INDEX 



X INVALID INDEX CHECK 
X); TERMINALMESSAGEC'I); 



XWF 



XWF 
XWF 
XWF 
XWF 
XWF 
XWF 
XWF 
XWF 
XWF 
XWF 
XWF 



XWF 



C29JI COMMENT THIS COMMUNICATE PROVIDES FOR DS-ING AN OBJECT 
AND/OR SPOUTING A MESSAGE ABOUT A PROGRAM, 
R4 IS USED TO SPECIFY THE MESSAGE REQUIRED, 
R5 SET TO TRUE SPECIFIES P1MJX IS TO BE DS-ED, 



PROGRAM 



t is the address of the 
Remaining variables may 



messagecwhich ends with 
be used as desired; 



T In SPACEU2); 
IF R4 1 2 THEN 

begin; 
STREAMcgm; 

BEGIN 
DSI*9 LIT 

<J «• di; 
end; 
J * pi 

IF R«»l THEN 

begin; 



X 29-1 
X 29-2 

"-dec err»"; 

X 29-2 



X 29-3 



18791500 
18791600 
18791700 
18791809 
18791900 
18792000 
18800000 
18800100 
18800200 
18800300 
18800400 
18600500 
18600600 
18810000 
16810100 
18810200 
18810300 
16610400 
18820000 
18820100 
18820200 
18620300 
18820400 
18820500 
18820600 
18820700 
16620600 
16620900 
18821000 
18821100 
18821200 
18821300 
16821400 
16821500 
18821600 
16821700 
18821800 
18821900 
18822000 
18822100 
16822200 
16822300 
18822400 
18830000 
16830100 
18830200 
16630300 
16830400 
18830500 
18830600 
18830700 
16830600 
16630900 
18831000 
18831100 
18831200 
18631300 
18631400 
18831500 
1663160V 




STREAM(Tl*CR6<0)»R6*ABS(R6)»J)) 
BEGIN % 29-4 
DS*17 LIT "ARRAY DIMENSION* 
SI ♦ LOC R6i 
DS * 8 DEC! J *DI) 
DI * DI-8) 
OS * 7 FILL) DI * 
DS»=2 LIT "l*"; 

% 29-4 

* 29-3 



")T1(DS* 1 LIT "-"))) 



j; 



END! 



END 



ELSE 



begin; 
stream(r6»j)i 

BEGIN 

DS 

SI 

DS 

DI 

DS 



X 29-5 



END* 
END) 

if R4*3 then 

BEGIN 

JSTREAM(T)! 
BEGIN 
DS* 18 
END) 



* 29-6 
*15 LIT "NO, DISK 
«■ LOC R6) 

* 8 DEC) J * DI) 

* DI-8) 

* 7 FILL) DI * J) 
DSl«2 LIT "I*") 

END) * 29-6 
29-5 



ROWS" "I 



% 
% 



29-1 



LIT "-MAXN ARGMNT EXP«*"> 



END) 
IF R4 • 4 



THEN STREAM(T)) BEGIN 
DSt«37 LIT"ILLEGAL PERFORM 



RETURN OK RELEASE!*") 



ELSE 



END)) 
IF R5 
BEGIN 



END 



THEN 

X 29-7 
TERMJNATE(PIMIX)) 
TERMINALMESSAGECT)) 

X 29-7 



SPOUT(T)) 
GO TO INITIATE) 
C38| X RETURN STORAGE ( AND AUXM£M ) FOR CODE OR DATA SEGMENT 
IF A4,C1U] THEN X DESCRIPTOR TO CODE SEGMENT 
BEGIN 

AI«PRTtPlMlXi*J) 
Tl«NFLAGCA4 & C I I »0 ) [5 I 47 I 1 ) ) ) 

X FIND LAST DESCRIPTOR LINKED INTO THIS CODE SEGMENT 
DO IF T.C5H1 THEN I i»T • C 1 8 1 1 5» J X SEG.NO.FROM PROG.DESC, 

II*T,[07I11J X SEG, NO, (STOPPER BIT ON) 
T|«NFLAG(A[T,[7lll]J> % UINK TO NEXT DESC, 



IF T,t6«l3 THEN 



ELSE 

ELSE 

UNTIL I NEQ 0) 

ADDRI* I INX AC4J) X DESCRIPTOR TO SEGMENT DICT, ENTRY 

IF ADDR[0J.t3)l] THEN C0MPLEXSLEEP( ( NOT ADDR(OM 31 1 J > ) I 

K|e(ADDRtO].t4l2] NEQ 0)) X AUXMEM FLAGS 

ADDRC0],I3l2]««2) X SET I NTERLOCK t RESET t4jlJ (AUXMEM FLAG) 

WAITSTORE(PIMIX)) STORED Y ( PI M I X ) I *0) 

IF (Ilw (T)*ADDRfO]),[FF3) GTR 1023 THEN 

X »T" IS SEG.DICT.ENTRYt"!" IS CORE ADDRESS IF GTR 1023 

BEGIN X PRESENT SEGMENT 

Jl»MtI-U) X SECOND MEMORY LINK 



XINTERLOCK 



18831700 
18831600 
18831900 
18832000 
18832100 
18832200 
18832300 
18832400 
18832500 
18832600 
18832700 
18832800 
18832900 
18833000 
18833100 
18833200 
16833300 
18833400 
18833500 
18833600 
18833700 
18633600 
18833900 
18834000 
18634100 
18834200 
16634300 
16634400 
18634500 
18834600 
18834700 
16834800 
18834900 
18835000 
1883510§ 
18635200 
18835300 
18835400 
16835500 
18635600 
18835700 
16640000 
16640100 
16640200 
18640300 
18840400 
16640500 
18840600 
18840700 
18840800 
18640900 
18641000 
18641100 
18841200 
18841300 
18641400 
18641500 
18641600 
18841700 
16641600 



^ 




\ 



P(0LaYCI-2»P1MIX)»DFL)» i sea 1900 

* QUY WILL NOT WRITE TO AUXMEM IF NOT [4lll IN SEG.DKT, 18642009 

S SET OMIT « NOT(AUXMEM) 18842100 

END X IF PRESENT SEGMENT 18842200 

ELSE IF T.CSllJ THEN I CODE SEGMENT ON AUXMEM 18842300 

D1SKWAI TC-C E J3 INX 1 ) » 0» CODEADDRESSC P1M t X , T ) ) ) 18842400 

X "J* IS MEM. LINK FROM AUXMEM WITH SIZE AND OR I G, D J SK , ADDR . 18842509 

IF T,(5tl] THEN * CODE SEGMENT ON AUXMEM (PRESENT OR NOT) 18842600 

BEGIN 1B842700 

ADDR[0]l*(*P(DUP))*J[33l3lt5JI X RESTORE ORIGINAL DISK ADDR 18842800 

rOHGETAUXlLlARVSPACE(J,tFFJ#T,[CF])l 18842900 

AUXC0DECP1MIX] J* *P(DUP) - J t t 23 16 J "U 16843000 

$ POP OMJT 18643106 

END) 18643200 

X RESET SEG.DICT.INTFRLOCK AND RESTORE AUXMEM FLAG IF IT WAS PRESENT 18843300 

ADDR(0Jl«<*PCDUPm0[3l47llUK[4t47llU0(bt47lU J 18843400 

&T0REDY(P1MIX)!MJ 18643500 

GO TO INITIATE) 18643600 

END) X CODE SEGMENTS 18643700 

WAITSTQRE(PIMIX)) STORED* (P1M I X ) l »0) 18843800 

IF <Tl*NFLAGCM[Jl*A4,[FFJJ)),[2«n THEN 18643900 

X W J" IS CORE AODRESS OF MOTHER* W T" IS MOTHER DESCRIPTOR 18844000 

BEGIN X PRESENT SEGMENT 18644100 

M[T INX NOT OJI"(*P(OUP))*((H»P(DUP)i[Ff J) OR lHCTFJJ 18844200 

X "I" IS OLAY ADDR»0F SEGMENT FROM SECOND MEMORY LINK 18644300 

X SET EFFJ OF 2ND»MEM,LINK NEQ SO OLAY WILL NOT GET DISK SPACE 18844400 

KibMCT INX NOT lJ f C2lU? X SAVE BIT FROM MEM,LINK 18644500 

M(J], [31311*71 X MARK "READ ONLY» WRI TTEN H SO OLAY WILL NOT WRITE SEG. 18844609 

P(0LAY(T t [CF]-2#PlMIX)»DEL)l X RELEASE CORE SPACE 18644700 

END X IF SEGMENT WAS PRESENT 18644800 

ELSE I l»T, CCF J I X OLAY ADDRESS FROM NON-PRESENT DATA DESC, 18844900 

ST0REDY(P1MIX)»*1J % FREE MEMORY TO ALLOW "ARTN" TO BE BROUGHT IN 18645000 

IF I GTR 511 THEN ARTNC C IlT[6l8l 10] )t"l > I X RETN OLAY STORAGE 16845100 

MtJJl»FLAGCU0C2l42l6]&KCCTCJ)> % MARK NOT PRESENT WITH "SAVE" ENTRY 18845200 

GO TO INITIATE) 18645300 

C39JI X BASIC ARRAY RETURN 18850000 

ARTNCN4[0)»R5)) X RETURN R5 DIM ARRAY 18850100 

GO TO C3A) X TO REMOVE FROM AIT 18850200 

X MEMORY DUMP OR TRACE FROM THE INTRINSICS 18870000 

C48t X 18870100 

$ SET OMJT « NOTCDUMP OR DEBUGGING) 18870200 

IF 14 NEO THEN 18870300 

$ SET OMIT » NOTCDEBUGGING) OR OMIT 18870400 

GO INITIATE X TRACE IS NOT INCLUDED IN THE TSS MCP, 18870500 

$ POP OMIT 18870600 

ELSE DUMPNOW(RS)) 16670700 

S POP OMIT 18870600 

GO' INITIATE** 18870900 

END OF COMMUNICATEO) 18872000 

PROCEDURE SHORTCOMMUNICATES) 19500000 

BEGIN REAL R4«»"4» R5«'5# R6«-6»H7*"7 »R8«-8» R9«"9) 19501000 

ARRAY A4*-4[*]tA5»-5[*]#A6»-6[*J#A7»"7[*]#A8»-et*J»A9*-9[*J) 19502000 

REAL I*T#T1«T+1) 19503000 

LABEL SL0W#INM.TW) 19504000 

LABEL C2»C5»C8»Cl0»Cll»Cl3»C14»C15tCl9»C23»C24#C34) 19505000 

LABEL CMl»CM2»CM3»CM4«CM5#CM6»CM7iCM8»CM9 19505100 

»CM21» CM20 19505150 

fCMl9»CMl8tCMl7»CM16»CM15»CMl4»CM13#CMl2iCMll.CMl0 19505200 

iC35»C36»C37»C40#C41 X 19505300 

i 19505499 



SWITCH S- 19505500 

CM21# CM20. 19505700 

CM19»CM18,CM17.CM16»CM15»CM14»CM13»CM12#CM11»CM10# 19505800 

CM9»CMe#CM7*CM6»CM5iCM4«CM3#CM2tCMl» 19505900 

SLQW,TW»C2»TW,$L0W,C5»TW»TW»TW» INITtClOt 19506000 

CUi INJT»C13»Cl4»SL0W»SL0W,TW»lNITj»C19»Tw,TW» 19507000 

TW,C23»C24»TW,TW,INIT» I N I T , T W , SLOW , INJT, 19508000 

INlT f SL0W»C34#C35»C36»C3/»TW,TW»C40»C4i»INlT» 19508100 

IN IT, I NIT, INIT,INIT»1NIT»TH»SL0HI 19508200 

DEFINE TIMELIMITMAX815#J 19506300 

GO TO S[PHT[P1MIX,9]+ 19508800 

21 19508900 

]) 19509000 

COMMENT YOU MUST ADO NEW LABELS TO THE FRONT OF THE 19509100 

SWITCH AND CHANGE THE LITERAL ABOVE TO CHANGE 19509200 

THE NUMBER OF "NEGATIVE" COMMUNICATES) 19509300 

♦Nin go to initiate; 19509500 

SLOW! PC, .COMMUNICATED; GO TO DIFFCOM; 19509600 

TWI P(,,COMMUNICATEO)J GO TO DIFFCOM; 19509700 

* ONLY ON TSS IF THE SLEEP CONDITION IS NOT MET IN 15 SECONDS* DS, 19509900 

C2l l!*TlMELIMlTMAXx60+CL0CK+P(RTR)J 19510000 

IF N0TCMU5) AND R4) * NOTCO) THEN 19510100 

COMPLEXSLEEP((Tl"(CL0CK+P(RTR)) GTR I) OR X TIMLIMIT 19510200 

(N0TCMU5J AND R4) * NOTCO))); X CONDITION MET 19510300 

IF T«l THEN BEGIN TERM I NATEC P1M I X ) ; TERM I NALMESSAGE( 89 ) ; END; 19510400 

GO TO RETURN? 19511000 

CSt PC.C0M5); GO TO DIFFCOM; 19512000 

ClOl PC.ASR); GO TO DIFFCOM; 19515000 

C1H X CSHMH9516000 

IF R4*0 THEN F I LEOPEN( 0» A5, [ CF 3 ) ; % ( SHM) 19516050 

IF R456 THEN X < SHM ) 19516100 

BEGIN FILECL0SECNFLAGCA5))J GO TO INITIATE END; X ( SHM ) 1 9516150 

IF R4s4 THEN * ( SHM» 19516200 

BEGIN % CSHMH9516250 

IF A5[43 THEN X FILE IS IN DIRECTORY % C SHM ) 1951 6300 

FORGE TSPACE(DIRECT0RYSEARCHCR8»R7#»(AS.tCF))4K6ICTFJ)) ELSE 19516350 

BEGIN X (SHMH9516400 

IF (T«=R9,[l8l53) GTR THEN X EU SPECIFIED * ( SHM ) 1 9516410 

T1«(IF T GTR 20 THEN ELSE -T) ELSE X ( SHM ) 19516420 

IF (Tl«R9,[16l2J) GTR THEN I SPEED SPECIFIED * C SHM ) 19516430 

TI«C1F T GTR 2 THEN ELSE T) ELSE X ( SHM ) 19516440 

TI»Q; X NO SPEED OR EU SPECIFIED * ( SHM ) 1 9516450 

A5[R6J»sPETUSERDlSK(A5[83»T); % ( SHM ) 19516460 

ENDI * CSHMM9516470 

GO TO INITIATE! X ( SHM ) 1 9516500 

END! X CSHMH9516600 

PCCOMU); GO TO DIFFCOM; X ( SHM ) 1951 6700 

C13| PC,C0M13)| GO TO DIFFCOM; 19517000 

C14» IF NOT R4,[2llJ THEN MAKEPREStNT C [ K4 J INX 0); 19518000 

MCR4 INX NOT 1] * ( *P( DUP) )4 ( NOT PtDUP) ) C2l2l i J I 19519000 

GO TO INITIATE; 19520000 

C19l P(,C0M19); GO TO DIFFCOM; 19523000 

C23I P(,C0M23); GO TO DIFFCOM; 19524000 

C24t T * A4[R5J; A4[R53 * 0> 19525000 

$ SET OMIT a SHAREDISK 19525999 

F0RGETUSERDISK(T,A4[8]); 19526000 

$ POP OMIT 19526001 

S SET OMIT » NQTCSHAREDISK) 19526499 

F0RGETUSERDISK(T»A4[8J&(N0T A4[ 4 } ) 1 1 » 47 ; 1 3 ) I 19526500 

$ POP OMIT 19526501 



GO TO INITIATE! 19527000 

C34M IF CT*R4) > THEN STHE AMCR4 f 1 «-T*SPACEC 1 7 } ) ! 19528000 

BEGIN SI*R4! DS*17 WPS END! 19529000 

TFRMINATE(PIMIX)! TERM 1 NALMESSAGECM > ! 19530000 

C35M IF R4.CFF3 LEG 33 THEN PC , LIBRARYDUMP ) 19530500 

ELSE IF R4.1FFJ LEQ 35 THEN PC . LI BRARYLOAD ) 19530505 

ELSE PC.UBRARYZERO); 19530510 

T*PC0UP»L0DfRFB)!T*T&SPACECT,[8«10J)tCTCJ! 19530520 

* SET OMIT « NOTCAUXMEM) 19530522 

IF T,[6lU THEN X STORED ON AUXMEM 19530524 

DlSKWAITC-T.[CF]»T i [8ll0J»-C0&T[32J2U12J)) 19530526 

ELSE 19530528 

$ POP OMIT 19530529 

DISKWAITC-T,CCFJ#T,C8U0j#T,lFTJ + MCPBASE); 19530540 

MtT13,CCFJl»TI 19530560 

GO TO DIFTCOMI 19530600 

C36« IF CMU5J AND R4)*0 THEN 19532000 

BEGIN 19532100 

T I* MIMCA5J INX 19532300 

CIF PCDUP),122«13 THEN 2 ELSE NOT l)J,[12l63! 19532400 

WAITORSWAPCT. A5.CCFJ)} 19532500 

ENOI 19532600 

GO TO RETURN! 19532700 

C37| NEXT1CP1MIX] I* R5! * SHM 19532800 

NEXT2[PlMIX3t*Ra> 19532900 

GO TO INITIATE! 19532910 

C40M IF R5. [81103*1023 THEN 19532930 

BEGIN MCR5,[CF]Jl*PRNTABLEtR5,tFFlJ!G0 INIT1ATEIEND ELSE 19532935 

IF R5,[CF3*0 THEN 19532940 

BEGIN LINKUPCR6»R5l*R5,[FFJ>l 19532945 

SLEEPC[M[R5]]»ei00O00OOOO0QO000)! GO RETURN! 19532950 

ENp ELSE 19532955 

IF R5»C15l 153-0 THFN 19532960 

BEGIN M[R53l*NOT 01 GO TO INITIATE! END ELSE 19532962 

IF R5 # [FF3*e77777 THEN BEGIN M[ R53 » »M0D3 I OS! GO INITJATEIEND ELSE 19532964 

DKBUSINESSCR5)! 19532966 

GO RETURNJ 19532968 

C4UI I0REQUESTCR7.R6,FLAGCR5))! GO INITIATE! 19532970 

CM2| PC.C0MM2)? GO TO DIFFCOMj 19533000 

CM1« PC.COMMDI GO TO DIFfCOMl 19534000 

CM18I GO TO RETURN! XINVALID COMMUNICATE 19539300 

CM4| F0RGETESPDISKCR5)! 19540000 

GO TO RETURN! 19541000 

CM3| R4*GETESPDISK1 19542000 

GO TO RETURNl 19543000 

CM5I PC,C0MM5)I 19544000 

GO TO DIFFCOM! 19544100 

CM6l R4*GETUSERDISKCR7)! 19545000 

GO TO RETURN! 19546000 

CM7| F0RGETUSERDISKCR6»R5)1 19547000 

GO TO RETURN! 19548000 

CM8| DISKWAITCCA8,CCF])&R9[1I47I13»R6#R5)| 19549000 

MtA8,tCFJ"U*0l 19549500 

GO TO RETURN! 19550000 

CM9I PC.C0MM9)! GO TO DIFFCOMl 19551000 

CM10»USERC0DECP1MIX]*R5! 19552000 

GO TO RETURN! 19553000 

CM12lL0GLINE*R8! 19554000 

IF FALSE THEN 19554800 

CM11JIF NOT DAT£P1MIX3,NDSABLE THEN R5l*R5 OR MEMORY) 19554900 



TWX0UT<A7,tCF]»R6iR5»L0GLINE)» 19555000 

R5l»BREAKtL0GtINE.t40»83); 19555100 

GO TO RETURN; 19556000 

CM13IPC.C0MM13); 19557000 

GO TO DIFFCOM; 19558000 

CH14IIF (R6»*R6,[40l8]) LEQ LMAX THEN 19559000 

IF SCHEDUNECR6J THEN GO TO RETURN! 19559020 

SEQARRAY[R6]J*R5! 19559050 

STREAM(AI*R5,t21t27]tT»«Tl»GETAREA(0))f XI 1019559100 

BEGIN SI t kLOC A» DSl*8 DECJ DS!»HT LEFTARROW; XI 101 9559120 

Dll*DI"9) DSl*8 FILL; AI"Dl; 111019559140 

DII«TJ S1I«AI 0SI«9 CHRJ X11Q19559160 

END) 111019559180 

THXOUTCT»8fO*l[CTF3*lI2t«7lU»R6}| 19559200 

FORGETAREACO.TH X11019559220 

GO TO RETURN; 19560000 

CM19tR5l«GETSPACE(30»64»5)*2; 19560100 

IF NOT A6,[2«l] THEN MAKEPRESENT ( [R7 J INX 1); 19560200 

M0VE(3O#A6»R5)> 19560300 

R6*6> 19560400 

CM15IPC.C0MM15); 19561000 

GO TO DIFFCOM; 19562000 

CM16I 19563000 

GO TO RETURN; 19564000 

CM17|P(,C0MM17)J 19565000 

GO TO DIFFCOM; 19566000 

CM20IIF (TI»DIRECT0RYSFARCH(R6,USERC0DEIP1MIX3»8),CCF]) LSS 64 19567000 

THEN GO RETURN; 19568000 

MtT*2]l*USERC0DEtPlMIXJ> M[T*5J»*R5; M[ T*6) I «R7; 1956900* 

MCT+27]t*R8! 19569100 

R5l«GETSPACEC30»64»5)*2l XGET SPACE BELOW THE FENCE 19570000 

M0VEC30»T#R5); 19571000 

FORKCP( t SCHEDIDLE).R5&l[2»47!lJ»0»160»0H 19572000 

GO TO RETURN; 19573000 

CM2H IF (Tl*DIRECT0RYSEARCHCR7»R6#5)) NEO THEN 19574000 

BEGIN 19574100 

DISKWAIT(-(A9,[CF1)# 30. T.tFF3)J 19574200 

MCA9,tCF3-ill»OI 19574300 

FORGETSPACE(T); 19574400 

END ELSE M[A9,[CF)]I« -II 19574500 

GO TO RETURN; 19574600 

END SHORTIES; 19900000 

PROCEDURE FRONTENO(MIX); XR7519991000 

VALUE MIX; XR751999U00 

REAL MIX; XR7519991200 

FORWARD! XR7519991300 

X THE FORMAT OF SEGMENT ZERO OF PROGRAMS* 20000000 

X StOJ * LOCATION OF SEGMENT DICTIONARY* 20001000 

X S[l] * SIZE OF SEGMENT DICTIONARY* 20002000 

X S[2] s LOCATION OF PRTX 20003000 

X SC3J * SIZE OF PRTX 20004000 

X SC4J * LOCATION OF FILE PARAMETER BLOCKX 20005000 

X 5C5J « SIZE OF FILE PARAMETER BLOCK* 20006000 

X S[6]<C1I1) * 1 FOR NEW FORMAT SEGMENT 0» ELSE 20006500 

X S[6J * STARTING SEGMENT NUMBERX 20007000 

X SC7],[?lt) * FORTRAN FAULT FLAG 20007100 

X SC7],t33»15J * NUMBER OF FILESX 20006000 

X St7J,tl8tl53 ■ CORE REQUIREMENT / 64X 20009000 

X IF SUJ < THEN THE JOB WAS COMPIUED BY COBOL* 20010000 

X S[153 s DISK ADDRESS OF LABEL E«UATI0N ENTRIES 20010100 



% 
% 
% 
% 
% 
% 
% 
% 



SE163 
SC17J 
StlB] 
SU9J 
S[20] 

scan 



PRESENTED WHEN PROGRAM WAS COMPILED AND 
APPLICABLE TO ALL EXECUTIONS 

* ESTIMATED PROCESSOR TIME (FROM 
s ESTIMATED I/O TIME (FROM 
9 PRIORITY (FROM 
■ COMMON VALUE (FROM 

* ESTIMATED CORE REQU I REMENTS( FROM 

* STACK SIZE (FROM 



PROCEDURE 
BEGIN 

REAL 



ARRAY 



REAL 



SELECTRUNU 



MSCW 
F 

MYMSCW 
RCW 

I 

T 

L 

DT 

MIX 

HDR 

LEVEL 

MCPJOB 

OLAYDISK 

THISLINK 

NEXTLINK 

PREVLINK 

TYPE 

STACKLOC 

SHEETLOCKED 

S 
SEGO 

TRP 
LBL 
SD 
TSKA 

BELOW 

SWAPDISK 

SWAPDISKS1ZE 

UVSPACE 

SVALUE 

RETURNMSCW 

RETURNRCW 



COMPILATN 
COMPILATN 
COMPILATN 
COMPILATN 
COMPILATN 
COMPILATN 



» -2* 
w ""It 

* -1» 

9 + 0* 

* +1* 

« + 2* 
*» + 3* 

SB 4-4* 

« + 5* 

* +6* 
» +7* 

8 4-6* 

■ +9. 

w + 10* 

* + 11* 
« +12* 
» + 13* 
s + 14* 

s +15; 

» +16[*]» 

s +17f*J» 

* +18[*J. 

* +190J» 

* NT2f*J» 
p N T 2 C * 3 * 

* LBL +1« 

» BELOW ♦ 1, 

« SWAPDISK + 1. 

« SWAPDISKSIZE + 

* UVSPACE* 

* UVSPACE + 1* 

s RETURNMSCW + U 



1* 



%%%% ***NOTE**** 

%%%% THE VARIABLES DECLARED ABOVE MUST CORRESPOND EXACTLY TO 

%%%% THOSE DECLARED IN PROCEDURE SELECTRUN, 



REAL EUVAL 
FBADRS 
FPBVERSION 
FT 

LINDX 
LINK 

SENSEVAL 
SPDVAL 



RETURNRCW ♦ 

EUVAL ♦ 

FBADRS + 
FPBVERSION+ 

FT + 

LINDX ♦ 

LINK ♦ 

SENSEVAL + 



200 
200 
)200 
)200 
)200 
)200 
)200 
)200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 



10200 
10300 
10400 
10500 
10600 
10700 
10600 
10900 
11000 
11 100 
11200 
11300 
11400 
11500 
11600 
11700 
11600 
11900 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12800 
12900 
13000 
13100 
13200 
13300 
13400 
13500 
13600 
13700 
13800 
13900 
14000 
14100 
15300 
15400 
15500 
15600 
15700 
15800 
15900 
16100 
16200 
16300 
16400 
16500 
16600 
16700 
16800 
16900 
17000 
17100 
17200 
17300 



S2 ■ SPDVAL + 1» 20017400 

FB « S2 + 1» 20017500 

FPB * FB * II 20017600 

20017700 

REAL FT1 * NT1» 20017800 

TYPEDISK w NT3I 20017900 

20018000 
COMMENT THE VALUE OF "TYPE" DETERMINES WHICH PORTIONS OF 20018100 

THIS PROCEDURE WILL BE EXECUTED. THIS PROCEDURE CAN ALSO 20018200 

DETERMINE WHICH PORTIONS OF PROCEDURE "SELECTRUN" WILL BE 20018300 

EXECUTED BY ASSIGNING A NEGATIVE VALUE TO "TYPE" BEFORE 20018400 

RETURNING TO THAT PROCEDURE, 20018500 

END OF COMMENTS 20018600 

20018700 
DEFINE STARTING m 1#. 20018800 

CONTINUEING « 2#» 20018900 

QUITTING « 3ff 20019000 

RUNING ■ 4#» 20019100 

PASSING » 5## 20019200 

EQUATING ■ 6#; 20019300 

20019400 

DEFINE XCLOCKTIME • 20019500 

C(CNT2I*(XCL0CK DIV 3600}) MOD 60 + (NT2 01 V 6Q)xiOQ + 20019600 

0,5 ) DIV 1)11 20019700 

20019800 

DEFINE ACTUALDISKADDRESS(ACTUALDISKADDRESSI) * 20019900 

CCJAR[MIX»((NT4I*ACTUALDISKADDRESS1) DIV (NT3I«*JAR[MIX»8J)) + 10J 20020000 

♦ (NT4 MOD NT3) ♦ 0,5) DIV 1)*J 20020100 

20020110 

S SET OMIT » NOTCPACKETS) 20020119 

DEFINE UNJTNO • S[ 23] , [ 2 « 6] # J % ORIGINATING UNIT 20020120 

$ POP OMJT 20020121 

20020200 
LABEL CONTlNUEf DLX» EXIT. LEM. RMSG> UNBLK. STOP) 20020300 

20020400 

SUBROUTINE DELINK; 20020500 

% DELINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 20020600 

BEGIN 20020700 

STREAM(AI»St33,t8tlO]»BI«P(,SCHEDULEIDS)); 20020800 

BEGIN % MARK SCHEDULE SLOT "OPEN" 20020900 

SKIP A DBJ DSt«RESET» 20021000 

end; 20021100 

IF F * THEN % SHEET ENTRY NOT PASSED AS PARAMETER 20021200 

BEGIN 20021300 

IF NeXTLINKbO THEN SHEET [LEVEL] , [FF ] I »PREVL INK; 20021400 

IF PREVLJNK«0 THEN 20021500 

BEGIN 20021600 

SHEEULEVELJ,tCF]|«NEXTLlNK; GO DLX; 20021700 

END; 20021800 

LBL»*CMtSPACE(30)m30[8l36U0]; 20021900 

DISKWAIT(-(LBL INX 0)» 30* PREVLINK); 20022000 

LBL[29]I«NEXTLINK; 20022100 

DISKWAITC CLBL INX 0)» 30. PREVLINK); 20022200 

DLXJ FORGETESPDISK(THISLINK); 20022300 

IF LBL NEQ THEN FORGETSPACE CLBL ) ; LBLl«0; 20022310 

ENDI % IF SHEET ENTRY NOT A PARAMETER 20022400 

END DELINK; 20022500 

20022600 
P(MYM$CWt STF)» 20022700 

20022800 



P(0» 0* 0* 0* 0* 0* 0* 0* 0* Of 0)1 X FOR VARIABLES LOCAL TO THIS 20022900 

* PROCEDURE. ONLY 20023000 

20023100 
IF TYPE*C0NTINUEING THEN GO TO CONTINUE* 20023200 

IF TYPE»STARTING THEN X SEARCH THE SHEET QUEUE TO FIND A CANDIDATE 20023300 

X FOR SELECTION 20023400 

BEGIN 20023500 

FOR LEVELl*0 STEP 1 UNTIL SHEETMAX DU % FOR ALL "SHEET PRIORITIES" 20024600 
BEGIN 20024700 

PREVLINK»«NEXTLINK|*0J X RESET FOR EACH "LEVEL" 20024800 

* IF THERE IS AN ENTRY IN THE SHEET* SEE IF IT WILL FIT 20024900 

IF(THISLINKI-SHEET[LEVEL],CCF3) N£Q THEN GO TO LEMJ 20025000 

20025100 
CONTINUE! 20025200 

20025300 
X "NEXTLINK" OBTAINED FROM "SHEEH29J" BELOW 20025400 

X IF THERE IS ANOTHER ENTRY AT THIS LEVEL* PROCESS IT NOW 20025500 
IFCTHISLINKI»NEXTLINK) NEQ THEN GO TO LEMJ 20025600 

END! 20025700 

TYPE »* -QUITTING; % END OF SHEET SEARCH 20025800 

GO TO EXIT* 20025900 

20026000 
LEMl 20026100 

20026200 

% AT THIS POINT* THERE IS A CANDIDATE FOR SELECTION 20026300 

IF S » THEN X NO SHEET SPACE OBTAINED YET 20026400 

BEGIN 20026500 

S I* tM[GETSPACEC31»2»0)+2m30[6t38ltOJl 20026600 

END) 20026700 

20026800 

X ,,,,,,,,,,,,., , , 20026900 

X READ SHEET ENTRY INTO CORE AT "S" 20027000 

X 20027100 

20027200 
DISKWAJH-CS INX 0)» 30* THISLINK)* 20027300 

NFXTLlNKj«St29]J X NEXT ENTRY IN SHEET QUEUE AT THIS LEVEL 20027400 

20027500 
% ***** *** * ***** * * **** ***** 20027600 

X* * ♦ * ****** 20027700 

X *** * * ***** ***** * * ***** 20027800 

X* ** * ****** 20027900 

X * *** ***** ***** * * * * * * 20028000 

20028100 
HDR I* GETSPaCEC30.0»0)+2| 20028700 

D1SKWAITC-HDR* 30, S[25])| X READ FILE HEADER INTO CORE AT "HDR" 20028900 
GO TO EXITI 20029000 

END! X IF TYPE * STARTING OR CONTINUEING 20029100 

20029200 

IF TYPEoPASSING THEN X PASS THIS ENTRY WITHOUT DELINKING 20029300 

BEGIN 20029400 

20029500 
X ***** ***** ***** ***** 20029600 

X * * * * * * 20029700 

% ***** ***** ***** ***** 20029800 

X * * * * * 20029900 

X * * * ***** ***** 20030000 

20030100 

IF S[3] GTR X SC33 «C 1 1 1 3»0 FIRST TIME THROUGH 20030200 

* SET OMIT • PACKETS 20030249 

AND SCHFDMSG 20030250 



S POP OMIT 20030251 

THEN BEGIN 20030300 

St3J»«NABS(S[3])> % MARK IT SCHEDULED 20030400 

IF F*0 THEN * SHEET ENTRY NOT PASSED AS PARAMETER 20030500 

X WRITE THE SHEET ENTRY BACK OUT WITH St 33 "MARKED" 20030600 

D1SKWAITCCS INX 0)» 30» THlSLlNK); 20030700 

STREAM(CI«LEVEU» A»*S[*]» I D I *S[ 33 , [8 » 1 3 » 20030800 

Q»*XCLOCKTlMEi B»*HDR)I 20031500 

BEGIN 20031600 

'SIlwLOC CJ DSie6DECJ DII«DI-6| DS|»5FILLJ X PRl ORI TH»20031 700 

DI I *B1 DIHDU6I DSI»U1T"I"I 20031800 

SIl*AJ SII»SI+lI DSI*7CHRI X MFID 20031900 

SI»*SI*1) DSl*LIT"/"J DSt«7CHR» X FID 20032000 

DSl«LIT"«"J SIIFUOC 101 Osmose* * SCH,N0, 20032100 

DS»»11 LIT" SCHEDULED "I SH«LOC Ql DSl«4DEC> X TIME 20032200 

OSl»HT w * t *; 20032900 

END STREAMJ 20033000 

SP0UTER(HDR»UNITN0#SCHEDMSG)» 20034000 

END X IF SCHEDMSG AND FIRST TIME THROUGH 20034100 

ELSE FORGETSPACECHDR)! 20034200 

IF F NFQ THEN X SHEET FNTRY PASSED AS A PARAMETER 20034300 

BEGIN 20034400 

DISKWAIT(F.[CF)i30iTI*GE7ESPDISK>; X WRITE SHEET ENTRY TO DISK 20034500 

FQRGETSPACECS[7])| % CORE ADDRESS OF SEGMENT ZERO IN S[7j 20034600 

IF NOT SHEETLOCKED THEN 20034700 

BEGIN 20034800 

SLEEPUTOGlEl»SHEETMASK)j 200 34900 

LOcKTOGCSHEFTMASK)! 20035000 

SHEETLOCKED t* II 20035100 

ENDJ 20035200 

IF (Ll«S[23.tCF3) GTR SHEETMAX THEN Ll»SHEETMAX> 20035300 

X SHEETt2J,CCF3 * "SHEET" PRIORITY 20035400 

IF SHEET[L3,tCF3 NEQ THEN X SHEET QUEUE ALREADY EXISTS 20035500 

BEGIN X LINK IN THIS ENTRY 20035600 

DlSKWAIT(-F.[CF]»30,U«SHEET[LJ.tFF])J XTAIL OF QUEUE 20035700 

S[29]t«TJ X LINK TO THIS ENTRY 20035800 

DISKWAITCF, tCF3«30»!)l X REPLACE ENTRY 20035900 

END 20036000 

ELSE SHEETCL3l»TJ X ESTABLISH NEW SHEET QUEUE 20036100 

SHEETCL3,CFF3l»TI X LINK IN AT END OF QUEUE 20036200 

TYPE «« "QUITTING* 20036300 

GO TO FXIT) X DONT PROCESS ANY MORE ENTRIES 20036400 

ENOJ 20036500 

PREVLINK|*THISLINK; 20037100 

IF MIX LEQ MIXMAX THEN 20037200 

BEGIN 20037300 

TYPE «* -C0NTINUE1NG* 20037400 

GO TO CONTINUE! 20037500 

END 20037600 

ELSE 20037700 

BEGIN 20037800 

TYPE »» "QUITTINGI 20037900 

GO TO EXIT* 20038000 

ENDI 20038100 

END) X IF TYPE » PASSING 20038200 

20038300 

20048000 

IF TYPE * EQUATING THEN 20048100 

BEGIN 20048200 

20048300 



% 
% 
% 

% 
% 



****** 

* 



***** 

* * 
***** 

* 



***** 

* + 
***** 

* * 

o ***** 



FPBl*GETSPACE(SEG0£5) 1NX l«0«0)+2l 

* SEGO[53 • SIZE OF THE FILE PARAMETER BLOCK ON DISK 

% SEGOE43 * RELATIVE DISK ADDRESS OF THE FILE PARAMETER BLOCK 
% SEGOE73 « NUMBER OF FILES IN THE F,P.B« 

* ETRLNG * NUMBER OF WORDS PER FILE USED IN THE F.P.Bi 

M[S£G0t5] INX FPB3t«0» * SET TO ZERO TO INSURE THAT STREAM STATEMEN? 

% USED TO BUILD "IN-CORE" FPB WILL NOT SKAN 
% PAST THE END OF THE COMPILER GENERATED FPBt 
FB»*GETSPACE(SEGO[7 3 (l [CF3xETRLNG»0»l)*2l 
% *FB" WILL BE "IN-CORF" FILE PARAMETER BLOCK LOCATION 

DISKWAIT(-FPB# SEG0C5J INX 0, ACTUALDISKADDRESS(SEG0[43,ECF3))J 



COMMENT FORMAT OF COMPILER GENERATED FPB» 

1 AND 2 * FILE NUMBER C 12 BIT BINARY) STARTING WITH 1 
3 * FILE TYPE 

10 » MFID 
17 * FID 

* LENGTH OF INTERNAL FILE NAME (6 BIT BINARY) 
N * INTERNAL NAME 
1 ( VERSION NUMBER IN SEG0E53 • E 1 » 8 J ) 
NEXT TWO CHARACTERS FOLLOWING INTERNAL NAME CONTAIN! 
£•0111 ■ SENSITIVE BIT 

£•1121 * DISK SPEED C1»FAST# 2*SL0W» 0»U5PEC I F I ED ) 

£•3151 » EU NUMBER * 1 

COMMENT FORMAT OF "IN-CORE" FPB ( 5 WORDS FOR EACH FILE ENTRY ) 



CHRS 

CHR, 

CHRS 

CHRS 

CHR 

CHRS 

FOR 



4 THRU 
11 THRU 
18 

19 THRU 
VERSION 



W0RDE03, 
W0RDE13, 
W0RD£23i 
WORDE23, 
WORDE33, 
WORDE33, 
WORDE 33i 
WORDE33, 



WQRDE3J.U8I5 3 
W0RDE33.E23U 3 
WQRDE33.E24U23 
W0RDE3J.£36>6 3 
W0RDE33.E43I5 3 
END OF COMMENTl 



£ 61421 * MFID 

t 61423 m FID 

C 11173 ■ REEL NUMBER (3 BCL DIGITS) 

£181303 * CREATION DATE (5 BCL DIGITS) 

£ 115 3 * CYCLE NUMBER (BINARY) 

£ 61173 p PRN (PHYSICAL REEL NUMBER) FOR NON-DISK FILES 

£1311 3 « SENSITIVE BIT (DISK FILES ONLY) 

£1612 3 ■ DISK SPEED (DISK FILES ONLY) 

* EU, NUMBER+1 (DISK FILES ONLY) 

* 10 CODE (INPUT*0#0UTPUT*1) 
« NUMBER OF ERRORS 

* LOGICAL UNIT NUMBER ♦ 1 

* UNIT TYPE 



LLI 



FPBVERSION»sSEGOE5J,EltB3; * NEWER VRSN , CONTA I NS EU>SPD»ETC, 
STREAM(T0G»«(FPBVERS10N*1)#T1I*0>T2!«Q»CI«0»FPB»FB)J 
BEGIN 
SII»FPBI 
IF SC»"0" THEN % FIRST DIGIT OF FILE NUMBER 

BEGIN 

SII»SI+1I IF SC«"0" THEN GO TO L2J X END OF FPB 

END ELSE SII»SI*1J 
SJI«SI+H Ttl»SI| S I l«SI +11 * FILE TYPE LOCATION 
2(DSl»LIT"0"J DS»«7CHR)I % MFIOtFIO 

T2I«D!I DH«LOC CI Dlt«DI+7l DSl«CHRJ DI l*T2l UNT.NAME SIZE 
DSl?15L!T"0") X ZERO OUT REEL»DATE»CYCLE»EU, 
T2l«Sll SII»T1I DS»«CHR» SI lwT2J % FILE TYPE 



20048400 
20048500 
20048600 
20048700 
20048800 
20048900 
20049000 
20049100 
20049200 
20049300 
20049400 
20049500 
20049600 
20049700 
20049800 
20049900 
20050000 
20050100 
20050200 
20050300 
20050400 
20050500 
20050600 
20050700 
20050800 
20030900 
20051000 
20051100 
20051200 
20031300 
20051400 
20051500 
20051600 
20051700 
20051800 
20051900 
20052000 
20052100 
20052200 
20052300 
20052400 
20052500 
20052600 
20052700 
20052800 
20052900 
20053000 
20053100 
20053200 
20053300 
20053400 
20053500 
20053600 
20053700 
20053800 
20053900 
20054000 
20054100 
20054200 
20054300 



XXJTI 



GO TO SKj Ll» GO TO LU L2l GO TO XXJT; SK» 
SIiaSl+CI * SKIP OVER INTERNAL NAME 
T0GCT2IBDII Dll«DI-6l SKIP 3DBI SKIP 4SBJ 

if sb then dsi»sft else ds»*reseti skip sb> * sensitive 

2(IF SB THEN DSJaSET ELSE DS»«RESETJ SKIP SB)> X SPEED 
5(IF SB THEN DSI*SET ELSE DSjaRESETJ SKIP SB); X EU 
DI l*T2)l 

DSt*6L,I T w O w ? % ZERO OUT FIFTH WORD OF FB 

GO TO III 

END STREAM STATEMENT) 



IF MCPJOB THEN GO TO STOP; % NO LABEL EQUATION FOR "SYSTEM" JOBS 

xxx label equation processing 

COMMENT LABEL EQUATION RECORD FORMATJ 



WORDC 
WORDC 
WORDC 



03 

11 
2 



( ZERO* IF NONE GIVEN ) 



,[18»30 



END 



,[42»1 
WORDC 33, [ 115 
•11516 
,[23»1 
, [42! 1 
,[43»5 
WORDC 43, [ 016 

.[6142 
WORDC 5] THROUGH 
W0R0[123,[15U 
•[1612 
•[1815 
W0RDC14J a START 
W0R0C293 » LINK 
OF COMMENTI 



BCL DIGITS ) 

5 BCL DIGITS ) 

OPEN ( 1 * CDATE GIVEN ) 



'1 



MFID 
FID 

REEL NUMBER < 3 

CREATION DATE ( 

MARKER FOR FILE 

CYCLE NUMBER 

NUMBER OF COPIES 

PACKETS 

"FORMS" REQUESTED 

UNIT TYPE 
s SIZE OF INTERNAL NAME 
a FIRST SEVEN CHARACTERS 
W0RDCU3 * REMAINDER OF 
- SENSITIVE BIT 

s DISK SPEED C1*FAST.2*SL0W»0*N0T SPECIFIED) 
* EU NUMBER + 1 

OF NEXT LBL, EQN, ENTRY (14 IF NO MORE ENTRIES) 
TO NEXT ESP SEGMENT FOR LABEL EQUATION 



S 



at 
n 



OF INTERNAL NAME 
INTERNAL NAME 



FOR L I* 
BEGIN 

LlNKfsIF L THE 
X St 153 « REL 
X 

X SC133 * ACT 
X 

S2 I* NOT LI X 
WHILE LINK NEQ 
BEGIN 

LBLI*[M[GET 

X IF LINK«S 

QISKWAITC-C 

IF 

I |a o; X S 

IF NOT L TH 

LINK |« LBL 

IF LBLC03 « 

UNBLKI LINDXiwIxH 

STREAMCFNia 

T0G»a 

BEGIN 

SI \m Ft 



1 STEP 1 UNTIL 2 DO 



N SC153 ELSE SC13JI X EQN FROM COMPILE/EXEC, 
ATIVE DISK ADDRESS IN CODE FILE FOR LABEL 
EQUATION ENTERED AT COMPILE TIME 
UAL ESP DISK ADDRESS OF LABEL EQUATION ENTERED 
AT RUN TIME, 

TRUE* IF LBL, EQN, ENTERED AT RUN TIME 

DO X IF LBL. EQN, EXISTS 

SPACE ( 30.0. 0) + 233&30[ 8 » 38 1103 1 

[153#READ FROM CODE FILE ELSE READ FROM ESP DISK 

LBL INX 0)# 30» 

L THEN ACTUALDISKADDRESS(LINK) ELSE LINK)! 
TART AT BEGINNING OF SEGMENT 
EN FORGETESPDISK(LINK)! 
[2931 X NEXT LINK 

14 THEN GO TO STOPI 
; X INDEX INTO LABEL EQUATION SEGMENT 
» FTl*[FT]» ZEROl«Q» T2I*Q» 
(FPBVERSIONal)i FPB» F ia[LBL [L INDX+43 3 » C«»0)? 

DIiaLOC CJ DH-DJ + 7 I DSl«CHR) X LBL. NAM, SIZE 



20054400 
20054500 
20054600 
20054700 
20054800 
20054900 
20055000 
20055100 
20055200 
20055300 
20055400 
20055500 
20055600 
20055700 
20055800 
20055900 
20056000 
20056100 
20056200 
20056300 
20056400 
20056500 
20056600 
20056700 
20056800 
20056900 
20057000 
20057100 
2005/200 
20057300 
20057400 
20057500 
20057600 
20057700 
20057800 
20057900 
20058000 
20058100 
20058200 
20058300 
20058400 
20058500 
20058600 
20058700 
20058800 
20058900 
20059000 
20059100 
20059200 
20059300 
20059400 
20059500 
20059600 
20059700 
20060600 
20060900 
20061000 
20061100 
20061200 
20061300 



SI |« FPBJ 20061400 

LI OlIsLOC FN; OJIbDI+61 DS»*2 CHR* * FILE NUMBER 20061500 

DI l« LOC ZERO; Sli»Sl-2; 20061600 

IF 2 SC « DC THEN GO TO XXI T* % FILE NUMBERbO 20061700 

D1»*FTJ DSl^CHRl SllwSI + HJ I! SAVE FILE TYPE FOR CHK BELOW 20061600 

DI I* Fi % SI AT FPB INT,NAM,0I AT LBL.EQN. 20061900 

IF SC * DC THEN % SAME STRING SIZE 20062000 

BEGIN 20062100 

IF C SC»DC THEN GO TO XXI T J * ALL CHARACTERS MATCH 20062200 

END 20062300 

ELSE 20062400 

BEGIN % NOT THE SAME SIZE 20062500 

SU*SI-1; DI«*LOC T2; 01 l"»DI*7l DS»*CHRi 20062600 

SIl»S!+T2l % SKJP OVER FPB ENTRY 20062700 

END; 20062800 

T0G(SII»SI*2)I % SPEED AND EU CHARACTERS IN FPBCVERSION 1) 20062900 

GO TO Li 20063000 

XX1TI END! 20063100 

20063200 

IF (Tl«P) NEQ THEN * VaUD LABEL EQUATION 20063300 

BFGIN 20063400 

FBADR5l*(TM)xETRLNG+FBI * ADRS OF FB FILE ENTRY 20063500 

% FT IS FILE TYPE FROM FPB OBTAINED ABOVE 20063600 

IF (FTH*LBLtLlNDX + 33,t / t3l5J) NEQ P37 THEN FTt*FTU*NEW TYP20063700 

FTI«F"T, [431511 % REMOVE "FORMS" BIT 20063800 

TYPEDISK «■ (FT*10) OR (FTM2) OR (FTM3) OR CFT*26)J 20063900 

STREAM(XJ*[LBL[LINDXJ3»T0G»«»(TYPEDISK AND C FPBVERS I ON»t ) ) » 20064000 

FBADRS)! 20064100 

BEGIN 20064200 

SIIbXj DSlc3WDS; DSI-CHR* X MF I D» F I Di REEL. DATE * CYCLE 20064300 

T0G(SI t«Sl+?» SKIP 5SBJ DH*DI*2I SKIP 5DB; 20064400 

IF SB THEN D5I*SET ELSE DS»*RESET; SKIP SB* 20064500 

JUMP OUT TO 1)1 % SAVE EU/SPEED SPECS FOR DISK 20064600 

DSI»3CHR> 20064700 

LJ DSi*3CHR; 20064800 

IF SC NfQ "* M THEN % NEW TYPE SPECIFIED 20064900 

IF SC NEQ ""* THEN DSl»CHR ELSE DSl=SETJ 20065000 

END STREAM STATEMENTl 20065100 

SENSEVAL is (EUVAL I* LBLC L I NDX+12 J , [ 15 » 8] ) , [ 40« U f 20065200 

SPDVAL l« EUVAL, E 41 (23 J 20065300 

EUVAL I* EUVAL AND P37J 20065400 

IF SPDVAL GTR THEN 20065500 

M[FBADRS+3 3«B(*PCDUP))&SPDVALtl6l46l23) 20065600 

IF SENSEVAL THEN % FILE SENSITIVE 20065700 

M[FBA0RS+3H»(*P(DUP))&SENSEVALt 151471 13; 20065800 

IF EUVAL GTR THEN % NEW EU NUMBER REQUESTED IN LBL.EQN, 20065900 

M[FBADRS+33l«(*P(DUP))&EUVAL [16l43l5Ji 20066000 

ENo» % IF VALID LABEL EQUATION 20066100 

IF (11*1+1) * 1 THEN IF LBL[143 NfcG 14 THEN GO TO UNBLK; 20066200 

END; % WHILE LINK NEQ 20066300 

STOPf END; % FOR L 20066400 

FORGETSPACECFPB); 20066500 

IF LBL NEQ THEN 20066510 

BEGIN 20066515 

forgetspaceclbd; lbl»*o; 20066520 

END; 20066525 

TRPC33 IB [M[FB33 & C SEGQ[73 , tCF JxETRLNG ) I 8| 38l 103 ; 20066600 

END; % IF TYPE » EQUATING 20066700 

20066800 

EXITI 20080000 



PURETURNRCWJ. STS, 0, RDS, 0, XCH# P&PlCTFJ* SIF); 20080100 

END PROCEDURE SELECTRUNU 20050200 

20060300 
20060400 
PROCEDURE SELECTRUN2I 20080500 

BEGIN 20060600 

REAL MSCW * -2* 20080700 

F • -l» 20080800 

MYMSCW * "1» 20080900 

RCW ■ +0t 20081000 

1 * +1* 20061100 

T * +2» 20081200 

L * *3i 20081300 

DT m + 4» 20061400 

MIX » + 5» 20081500 

HDR » +6t 20081600 

LEVEL * + 7» 20061700 

MCPJOB « +8# 20081800 

OLAYDISK * +9# 20081900 

THISLINK a +10» 20082000 

NEXTLINK ■ +11. 20082100 

PREVLINK « +12t 20082200 

TYPE * +13. 20062300 

STACKLOC * + 14. 20082400 

SHEETLOCKED * +15> 20082500 

20082600 
ARRAY S m ♦16f*)» 20082700 

SEGO * *17t*J» 20082806 

TRP ■ +18t*J» 20082900 

LBL * +19[*Jt 20083000 

SD ■ NT2[*3. 20083100 

TSKA * NT2[*}J 20083200 

20083300 
REAL BELOW » LBL +1» 20084500 

SWAPDISK ■ BELOW ♦ 1# 20084600 

SWAPDISKSIZE * SWAPDISK + 1» 20084700 

UVSPACE * SWAPDISKSIZE ♦ 1. 20084800 

SVALUE • UVSPACE» 20084900 

RETURNMSCW • UVSPACE + It 20085000 

RETURNRCW « RETURNMSCW ♦ 11 20085100 

20085300 
%%%% ***N0TE**** 20085400 

%%%% THE VARIABLES DECLARED ABOVE MUST CORRESPOND EXACTLY TO 20085500 
%%%% THOSE DECLARED IN PROCEDURE SELECTRUN, 20065600 

20085700 
LABEL DLXt 8MSG* NG» EXIT! 20085800 

20085900 

DEFINE "XCLOCKTIME • 20086000 

(CCNT2»«CXCL0CK DIV 3600)) MOD 60 ♦ (NT2 DIV 60)xl00 ♦ 20086100 

0.5 ) DIV l)ff 20086200 

20086300 

DEFINE ACTUALDISKADDRESS(ACTUALDISKADDRESSl) ■ 20066400 

((JARtMIX,((NT4l*ACTUALDlSKADDRESSl) DIV (NT 3 » »JAR[ M I X » 8] ) ) + 10 J 20086500 

4- (NT4 MOD NT3) ♦ 0,5) DIV \)*l 20066600 

20086700 

$ SET OMJT ■ NOTCPACKETS) 20086799 

DEFINE UNITNO • SC23 J , t 2 I 6 J#) * ORIGINATING UNIT 20086800 

S POP OMIT 20086801 

20066810 
DEFINE DALOCSIZF • 7*t 20086900 



% VALUES ASSOCIATED WITH "TYPE" : 



DEFINE 



STARTING 

CONTINUING 

QUITTING 

RUNING 

PASSING 

EQUATING 



NKi 



IB 

m 

SB 



1#» 

2#t 
3#» 

4*» 

5#» 

6#; 



.[3J,[8llO]»B»"P(,5CHEDULLIDS))J 

MARK SCHEDULE SLOT "OPEN" 
DBI DSl»RESETJ 



DLX| 



SUBROUTINE DELH 
* DELINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 
BEGIN 

STREAM(AI*S| 
BEGIN % 
SKIP A 

end; 
if f * then % sheet entry not passed as parameter 

BEGIN 

IF NEKTLINKsO THEN SHEET [ LEVEL J , t FF 3 J *PR£VL I NK; 

IF PREVLINKbO THEN 

BEGIN 

SHEET[LEVEL].CCni»NEXTLINKl GO DLXJ 

end; 

LBL««[M[SPACE(30)3H30t8J38»10j; 
DISKWAITC-(LBL INX 0)» 30* PREVLINK); 
LBLC29]J*NEXTLINK! 

DISKWAIK (LBL INX 0)» 30» PREVLINK); 
FORGETESPDISK(THISLINK)! 

IF LBL NEQ THEN FORGETSPACE CLBL) I LBL»«0> 
ENDI % IF SHEET ENTRY NOT A PARAMETER 
END DELINKI 



P(MYMSCW, STF)J 



X 

% 
% 

t 
% 



**** 

* * 
**** 

* * 

**** 



***** 

* * 

* * 

* * 
***** 



*** 

* 

* 

* * 

**** 



***** 

* * * 

* * * 

* * * 

* * * 



***** 

* 

***** 
* 
***** 



***** 

* 

***** 

* 

***** 



***** 
* 

* ** 

* * 
***** 



IF LOGLINE LSS THEN X NOT BY CANDE 

DJSKWAlTC-CT|*$PACEUO))» JO» SC6MCF1) ELSE 
BEGIN % VIA CANDE* BUILD A LOG MESSAGE 
1FCTI«$[2),C6|10»«0 OR T»2 OR T»5 THEN 
BEGIN X GO»EXECUTE OR RUN 

5TREAM(C«*12f A3 I «ABS( S[24 ) ) » »|l«S[0)» A2«eS[lJ, 
B I* T 1* SPACE(9))I 
BEGIN 

siiwlqc ci sn«si + 7i ds»*chr; 

DSl*5LIT"USER«"J SH"SI*l! DSl-7-CHRl 
DSI*10LIT"I EXECUTE "I 
2(SII«Sl*ll DS1*7CHR) DS»*LIT"/")I 
DI l*DI*l! DS»*34LIT" "1 
END! 



% 
% 



QUESTION MK 
USER CODE 



% JOB NAME 



ELSE 



END 

BEGIN % COMPILE PART 
STREAM(C»*12»A2I«SC13* 



A3l*SC243* A1I«SCQJ» B I *T | "SPACE C 9) ) 



20087400 

20087500 
20087600 
20087700 
20087800 
20087900 
20088000 
20088100 
20088200 
20088300 
20088400 
20068500 
20088600 
20088700 
20088800 
20088900 
20089000 
20089100 
20069200 
20089300 
20089400 
20089508 
20089600 
20089700 
20089809 
20089900 
20090000 
20090100 
20090200 
20090210 
20090300 
20090400 
20090500 
20094500 
20094600 
20094700 
20094600 
20094900 
20095000 
20095100 
20095200 
20095300 
20095500 
20095600 
20095700 
20095800 
20095900 
20096000 
20096100 
20096200 

,20096300 
20096400 
20096500 
20096600 
20096700 
20096800 
20096900 
20097000 
20097100 

!20097200 



BEGIN 20097300 

SI»*10C C» SIIbSI+7; DSi«CHRJ X QUESTION MARK20097400 

DSl«7LIT"C0MPlLE M > DSJs5L.IT" "J 20097500 

2(SU*SI+1| DSJ*7CHRI DS»«IIT"/")J X JOB NAME 20097600 

DII»DI-1I DS»«5UIT" "| 20097700 

SM«SI + 1; DSJ*7CHR| X USERCODE 20097800 

DS|*14UT" LIBRARY "J 20097900 

DSl*18lIT M "J 20098000 

ENDi 20098100 

END* 20098200 

OISKWAlT(T,[CF]f l0,JAR[MlX,6]l«S[6]i«GETESPDJ$K)J 20098300 

ENOJ 20098400 

MAKEL0G(T,tCF3-l» CNTRLCARD)! 20098500 

FORGETSPACE(T); 20098600 

U»1J 20100600 

IF BOJMESS THEN 20100700 

IF MCPJQB.Uin THEN X "SYSTEM" TYPE JOB 20100800 

IF NOT (AUTOMrSS) THEN X SUPPRESS BOJ/EOJ MESSAGE 20100900 

IF NOT <S[?),C2'U> THEN X NOT ES-ED 20101000 

IF St2].[4ll] THEN X SUPRESS BOJ/EOJ MESSAGE 20101100 

BEGIN 20101200 

STREAM(Nl«SCOJ# MIX. T i *T I *GETSPACE( 4#0» 0) + 2) i 20101300 

BEGIN 20101400 

0S»*6LIT M AUTO-"; 20101500 

S1»*L0C NJ SlOSUli DS«*7CHRJ 20101600 

DSI*2LIT M f"; SII-LOC MIX; DSl*2DECJ 20101700 

DS»*LIT"«> M J DI«*DI-3I DS«*F1LD 20101800 

ENDI 20101900 

SPOUTCT)! 20102000 

Il»0l 20102100 

ENDJ 20102200 

STREAM(C»«L0GLlNE,t40l8Jx(t0GLlNE,[33l7] NEQ 0)# 20102400 

PRI0R!TY|«SI18]» DAATl*DTt DTOG I *NOT ( MCPJOB ) AND TRUE* 20102500 

KT»w((NTl l*ABS(S[24])) NEO StU AND NTl NEO 0)+2# 20102600 

Al»*St03# A2l*Stn» A3i»NTl. MJX, 20102700 

Q »* XCLOCKTIME* SV»*0» B i »T l »SPACE( 1 ) } J 20102800 

BEGIN 20102900 

SII*L0C C; DSls4DEC? DS»*LIT" "; X STATION NO, 20103000 

DSI»4DEC* DSl«LIT"l"» X PRIORITY 20103100 

D! 1*01-5 J DSIS-3FILLJ DII»D!-ll DSl«UT"- w J 20103200 

DH«BI DS;»8FILLI 20103300 

I I *B I 01 I »DI + 10* SIlsLOC All 20103400 

KT(SII«»SI*ll DSI«7CHR> DSl*UT"/ H )l % NAMES 20103500 

SII»10C MIX) DI ••01*11 DS»*LIT"e M J DS«*2DECI X MIX INDEX 20103600 

SV»*DIJ D!I*DI"2I DSI»F1LU D1IpSV» 20103700 

DSl*5UT" BOJ "I DS»«4DEC? X TIME 20103800 

DT0GCDS!«L,IT" "I Sp»lOC DAATj Sl«*5i+2l 20103900 

3<DS»e2CHRl DS » *L I T"/" ) I DI»"DI»1)> DS » *L I T"*"> X CDATE 20104000 

END STREAM! 20104100 

SPOUTER<T«UNITNO 20104200 

»((NOT SCO]). (2111 OR CANDYMESS) AND BOJMESS AND I OR BOJK ) 1 20104300 

20108900 
20109000 

% ***** ***** ***** ***** ***** ***** ***** 20109100 

X* * * * * **** 20109200 

X ***** ***** * ** * ***** ***** * * 20109300 

X ** ** * * **** 20109400 

% ***** ***** ***** ***** ***** * * ***** 20109500 

20109600 

ir f neo o then x Sheet entry passed as a parameter 20109700 



% 
% 

% 
% 
% 



% 

% 
% 



BEGIN 

SEGOlBS&SmtCTcJ * SEGMENT ZE*0 PRESENT AT CORE ADDRESS "S[73" 

END 
ELSE 

BEGIN 

SEG0I«[M[SPACEC30)]U30[8S36» 10]) 

DISKWAITCCSEGO INX 0)»30»M[HDR INX 10 3); % READ SEGMENT ZERO 

ENDJ * IF SEGMENT ZERO WAS NOT PRESENT 
JAR[MlXt2J |b C*P(DUP>) & SEG0C2J[liil2J & 

SEG0C7H3I2111; 
% SEG0E2M1H) « JOB COMPILED BY COBOL < NO "OAT" ENTRY ) 
% SEG0[23.C2«33» SEGOt 71 ■ C 21 1 ) ■ USED FOR I NTER*PRQG, COMMUNI C AT I ON 



***** 

* 
***** 

* 
***** 

X 

SI 

(S 

% COMP 

T|»C(( 

IF (CI 

BEG 

MAI 

MIL 

Mtl 

M[S 

STO 

FOR 

END 

ZE 



***** 

* 
* 
* 
* 



***** 

* * 
***** 

* * 

* * 



***** 

* 
* 
* 
***** 



* * 

* * 
*** 

* * 

* * 



***** ***** ***** 

* * * * * • 
***** ***** ***** * 

* * * * * 

* * * * 



% 

MtSTAC 

MOVECT 



SC21J CONTA 
NF0[MIXJ.[C 
TACKLOCl*GE 
UTE THE ADD 
STACKLOC«*S 
t»M[STACKL0 
IN % RETURN 
TSTORECMIX) 
3 »» I & (S 
3.CFF3 
TACKLOC-23. 
REDY[MJX] I 

GETSPACECL+ 
I % IF PRT 
RO OUT STAC 
KL0C3 l« P3 
•STACKLOC-l 



INS STACK SIZE* SEG0133 CONTAINS PRT SIZE 

F3 i* 

TSPACE<SEG0[3] INX S[213 INX 64f 0» l))+2l 

RESS FOR THE PRT SUCH THAT PRTADRS . C 42 I 6 3«0 

TACKL0C*?) + S[213) OR 63) * It % S[ 21 ] "STACKS IZE 

C-23,[CF3)-(Ll*SEGO[33 INX T>) GTR 10 THEN 

REMAINDER OF PRT SPACE 
I ST0REDY[MIX]I*01 
TACKL0C-2HCTF3 & MIX[9l42l63l 

I* LI 
[CF3 I* LI 
* II 
2)1 

SPACE WAS TOO LARGE 

K TO EASE PROBLEMS OF CONGENITAL DUMP-READERS 
3333333333333331 
»STACKL0C»STACKL0C*1)I 



NEW LINK 
BACK LINK 
FORWARD LINK 



READ IN PRT FROM DISK* 



DISKWAIT(-T# SEGO[33,[CF3» ACTUALDI SKADDRESS( SEGO[ 2 3 , [ CF 3 ) ) i 
% SEG0f2) ■ RELATIVE DISK ADDRESS OF THE PRT IN THE CODE FILE 
% SEG0[3) * SIZE OF THE PRT 
TRPl«PRTROWtMIX3**tM[T)3*lOg3[8»38ll03l % DESCRIPTOR TO THE PRT 



X 
% 
% 
% 

% 



***** ***** ***** **** *** 

* * * * * * 

***** ***** * ** * * * 

* * * * * * * 

***** ***** ***** o **** *** 



***** ***** 

* * 

* * 

* * 
***** * 



SEGDLMIX3 I* 

TRP[4 3»»[M[T«*GETSPACE(SEGOCt3,tCF3»l»l)+23 3l 
DISKWAITC-Tt SEG0C13.CCF1* ACTUALD I SMDDRESS ( SEG0C03 , [ CF 3 ) ) I 
* SEG0[03« RELATIVE DISK ADDRESS OF SEGMENT DICTIONARY 
% SEG0U3* SIZE OF THE SEGMENT DICTIONARY 

M[TRP[433 »» SEGOtl3,[CF3 -II % SEGDICT t03*Sl ZE OF DICTIONARY 
f SET OMJT * NQTCAUXMEM) 

IF CODEOLAY THEN % MARK ALL CODE SEGMENTS "TO GO TO AUXMeM" 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



109800 
110000 
110100 
110200 
110300 
110400 
110500 
110600 
110700 
111100 
111200 
111300 
115200 
115300 
115400 
U5500 
115600 
115700 
U5800 
115900 
116100 
U6200 
118800 
118900 
119000 
119100 
119300 
119900 
120000 
120100 
120300 
120800 
120900 
121000 
121100 
121200 
121300 
121400 
121500 
121600 
121700 
121800 
121900 
122000 
122100 
122200 
122300 
122400 
122500 
122600 
122700 
122800 
124400 
124900 
125000 
125100 
125200 
125300 
125400 
125500 



BEGIN 20125600 

SDl«TRP[«J*(Il»SEG0tlJ,tCFJ)[»l3eil0J» * ENU OF SEG.DlCT, 20125700 

WHILEC I l«I*l J NEQ DO 20125800 

IF SDCn.Cll5J»0 THEN SQC I) . I 4 1 13 f « 1 J 20125900 

X [4tlJ» "TO GO TO AUXMEM ON FIRST OVERLAY" 20126000 

ENDJ 20126100 

$ POP OMIT X AUXMEM 20126200 

20126600 
% **** ***** * ***** ***** 20126700 

%***** * * * 20126800 

X * * ***** * * * * 20126900 

X***** * * * 20127000 

X **** * * ***** ***** ***** 20127100 

20127200 

STREAMC0»«DAI-0CR0WCMIXJ|«[MCGETSPACECDAL0C51ZE»0»0)+2J J & 20127 300 

DAL0CSIZEC8I38I10])J 20127400 

BEGIN 20127500 

SII«DJ SllsSI-81 DS»*DAL0CSIZE WDS» 20127600 

END* 20127700 

IF OLAYDISK NEQ THEN X OUT DISK OBTAINED ABOVE 20127800 

BEGIN 20127900 

DAlOCCMIXtOa f» 02000021 20128000 

DAUOCtMIXtU 1« OlAYDISKj 20128100 

OLAYOISK is 01 20128200 

END! 20128300 

OLAYMASK |» TWO(MlX) OR OLAYMASKJ % OLAYS NOW ALLOWABLE 20128400 

20128500 
% ***** ***** ***** ***** ***** * * 20128600 

X * * ******** * ** * 20126700 

X * * ******** **** 20128800 

X * * ******** **** 20126900 

X ***** ***** ****** ***** * ** 20129000 

20129100 

X PLACE "COMMON* VALUE IN FIRST SIMPLE VARIABLE IN THE PRT 20129200 

NT! »« SU9JI X COMMON VALUE IN SHEETU9J 20129300 

FOR !|« 025 STEP 1 WHILE NT1 NEQ AND I LSS SEG0C3J 00 20129400 

IF TRPCU»0 THEN X SIMPLE VARIABLE (NOT A DESCRIPTOR) 20129500 

BEGIN 20129600 

TRPCI3 ivNTl J 20129700 

NTll»0 20129800 

ENDI 20129900 

DELINKI X DELINK SHEET ENTRY FROM SHEET QUEUE 20130000 

20130100 
EXIT! 20140000 

20140100 
PURETURNRCWJ. STS# 0» RDS. 0. XCH» P&PtCTF) » STF)J 20140200 

END PROCEDURE SELECTRUN2J 20140300 

20140400 
X FOR ADDITIONAL INFORMATION CONCERNING THE SHEET* SEE THE 20140500 

X DOCUMENT AT SEQUENCE NUMBER 20512000 20140600 

20140700 

PROCEDURE SELECTRUN(F)! VALUE FJ REAL Fl 20140800 

BEGIN 20140900 

20141000 
REAL MSCW 9 "2* 20141100 

20141200 
20141300 
20141400 
20141500 
20141600 



MSCW 


8 


»2# 


F 


* 


-1* 


MYMSCW 


m 


-li 


RCW 


m 


4-0* 


I 


u 


♦1» 


T 


a 


♦ 2» 



L * *3» 20141700 

DT ■ + 4* 20141800 

MIX * + 5* 20141900 

HDR ■ +6. 20142000 

LEVEL * +7$ 20142100 

MCPJOB s + 8* 20142200 

0LAYD1SK a + 9* 20142300 

TH1SLINK a + 10* 20142400 

NEXTL1NK a + 11* 20142500 

PREVLINK * + 12* 20142600 

TYPE » +13. 20142700 

STACKLOC ■ *14i 20142800 

SHEETIOCKED » +151 20142900 

20143000 
ARRAY S * ♦I6f*]t 20143100 

SEGO » + 17{»*J» 20143200 

TRP » +18[*J» 20143300 

LBL a +19[*J» 20143400 

SO ■ NT2I*J» 20143500 

TSKA ■ NT2I*JI 20143600 

20143700 
REAL BELOW * LBL + 1* 20144900 

SWAPD1SK * BELOW ♦ It 20145000 

SWAPDISKMZE * SWAPDISK + It 20145100 

UVSPACE ■ SWAPDISKSIZE + 1* 20145200 

SVALUE ■ UVSPACE* 20145300 

RETURNMSCW » UVSPACE + 1» 20145400 

RETURNRCW « RETURNMSCW ♦ II 20145500 

20145700 
%%%% *»*NOTE»**» 20145800 

%%%% RETURNMSCW AND RFTURNRCW ***MUST*** BE THE LAST TWO 20145900 

%%%% VARIABLES DECLARED IN THIS PROCEDURE. 20146000 

20146100 

DEFINE XCLOCKTIME ■ 20146200 

C(CNT2l«(XCL0CK DIV 3600}) MOD 60 ♦ (NT2 01 V 60>xi00 + 20146300 

0.5 ) DIV 1)#J 20146400 

20146410 

$ SET OMIT a NOTCPACKETS) 20146419 

DEFINE UNITNO - 5[ 23 ] , [ 2 » 6 ]# i % ORIGINATING UNIT 20146420 

S POP OMIT 20146421 

20146500 
LABEL START* CONTINUE* LOAD* PASS* WINDUP* QUIT! 20146600 

LABEL JARSPACE* TRYAGAINI 20146700 

20146800 
SWITCH SW »« QUIT, START* CONTINUE* QUIT* QUIT* PASS? 20146900 

20147000 
COMMENT THE VALUE OF "TYPE" MAY DETERMINE WHICH PORTIONS OF 20147100 

PROCEDURES "SELECTRUN1" AND/OR "SEUeC TRUN2" WILL BE EXECUTED, 20147200 
PROCEDURE "SELECTRUNl" AND "SELECTKUN2" MAY* IN TURN, SPECIFY 20147300 
THE BRANCH POINT IN THIS PROCEDURE. 20147400 

THE FOLLOWING DEFINES ARE USED TO SPECIFY THE BRANCH POjNT 20147500 

IN SWITCH "SW", 20147600 

END OF COMMENTJ 20147700 

20147600 
DEFINE STARTING * 1#» 20147900 

20148000 
20148100 
20146200 
20146300 
20146400 



STARTING 


8 


1#» 


CONTINUEING 


» 


2#» 


QUITTING 


a 


3#» 


RUNING 


a 


4#» 


PASSING 


• 


5#» 


EQUATING 


a 


6*1 



20148500 
P{OtO.OtO*0»OtOtO#0»0#0»OiO»0»0»OtO,0»0»0#0»0.0)I 20 14 9000 

RCW I* RCW & P(,,SFLECTRUN#UOD)tCTCJI 20149200 

20149300 
TYPE 1« STARTING? 20149400 

20149500 
STARTl 20149600 

20149700 

P1MJX |« 0; 20149800 

IF F NEQ THEN % SHEET ENTRY PASSED AS A PARAMETER 20149900 

BEGIN 20150000 

S »= IOQUE & FCCTCD % SHEET ENTRY 20150100 

HDR I* F.tFFJJ % CORE ADDRESS OF OBJECT FILE HEADER 20150200 

END 20150300 

ELSE 20150400 

BEGIN 20150500 

IF TYPE»STARTJNG AND NOT SHEETLOCKED THEN 20150600 

BEGIN 20150700 

SLEEPUTOGLEJiSHEETMASK); 20150800 

LOCKTOGCSHEETMASK); 20150900 

SHEETLOCKED l» 1$ 20151000 

END* 20151100 

PUSVALUEJ* STS)I 20151200 

SELECTRUN11 20151300 

IF TYPE LSS THEN 20151400 

GO TO SWCTYPEI*ABS(TYPE)]I 20151500 

END! 20151600 

20151700 
CONTINUEI 20151800 

20151900 

P1MIX I* 01 20152000 

IF (MCPJOB I* 20152100 

USUI EQV "DISK ")*(NOT 0)) AND 20152200 

CCCSEOJ EQV "PRNPBT ")*CNOT 0)) OR 20152300 

(<SC03 EQV "LIBMAIN")«CNOT 0)) OR 20152400 

{(SCO] EQV "LDCNTRL")*CNOT 0)))) THEN 20152500 

IF (C(S[0] EQV "PRNPBT ")»<NOT 0)) AND AUTOPRINT) OR 20152600 

(((S[0] FQV "LDCNTRL")*(N0T 0)) AND CDONLY) THEN 20152700 

MCPJOB* C 1 1 1 J »■ II 20152800 

20152900 
% NOTEl A NEGATIVE SIGN FOR MCPJOB IMPLIES THAT THIS JOB 20153000 

% SHOULD BE STARTED REGARDLESS OF THE AVAILABILITY OF 20153100 

% SYSTEM CORE. 20153200 

20153300 
IF INTSIZE«0 THEN % NO INTRINSICS FILE 20153400 

IF NOTCMCPJOB) THEN X NOT "SYSTEM" PR0G8AM 20153500 

BEGIN 20153600 

STREAMCNT3»«NT3|*SPACEC4))J 2015 3700 

DS»»24 LIT"##NO INTRINSICS FlLE..i*"; 20153800 

SP0UTCNT3)* 20153900 

SLEEPUINTSIZE]»P1777)I 20154000 

ENDI 20154100 

20154200 
20154400 
% ***** * * * ***** ***** **** *** ***** * * 20154500 

X* ******* ** * * ** 20154600 

% ***** * * * ***** ***** * * * ***** *** 20154700 

% ******* *** *** 20154800 

% ***** ******* * * * **** *** ***** * * 20154900 

20155000 



IF S121,[8|101 NEQ 5 THEN % ABOVE THE FENCE* GET SWAP DISK 20155100 

IF SWAPD1SK s THEN * NO SWAP DISK OBTAINED YET 20155200 

IF CSWAPDISK !» 20155300 

GETUSERDISK(CSWAPDlSKSlZEts(NTll*NOT FENCE INX 1) DI V 30 + 20155400 

PCNTl DI V 1890#DUP# + ) + 6}&1 [21 47 I 1 ] ) ) m THEN 20155500 

BEGIN 20155600 

STREAM(Xt«S[*3» NTlli»NTH«SPACEC5))I 20155700 

BEGIN 20155800 

DSIB18 LIT"#NO SWAP DISK FOR "l 20155900 

SI»*XJ Sll»SI+lI DS«w7 CHR; DSi«LlT"/ ,f 1 20156000 

SII»SI + 1» DS«»7 CHRJ DS«*LlT"*"J 20156100 

END* 20156200 

SP0UTER(NT1»UNITN0»1)> 20156300 

GO TO PASSJ 20156400 

ENDJ 20156500 

IF UVSPACE m THEN 20156600 

BEGIN 20156700 

STREAMCD «= UVSPACE i« GETSPACE( UVS Hi * 0» ) +2 ) I 20156800 

BEGIN 20156900 

5H*DI Sl»aSl-8» DSI=UVSIZE WDSl 20157000 

ENDJ 20157100 

ENOI 20157200 

$ SET OMIT « NOTCSTATISTICS) 20157300 

JOBNUM I* JOBNUM + 1) 20157400 

$ POP OMIT 20157500 

HHILECNT2»*XCL0CK+PCRTR)) GEQ WJTCHINGHOUR DO MIDNIGHT? 20157700 

20157800 

% ***** * ***** * * **** *** ***** * * 20157900 

X*** * * * * * * * * * * 20158000 

% * * * ***** * * * * ***** *** 20156100 

% * * * * * * * * * * * * 20158200 

% ***** ***** * * * **** *** ***** * * 20158300 

20158400 

IF NOT McPJOB THEN % NOT "L I BMa I N" » "LDCNTRL". "PRNPBT" 20158500 

IF QlAYOISK*0 THEN % NO QUAY DISK OBTAINED YET 20158600 

0UYDISK|*PETUSERDISK(500 OR M,l)> 20158800 

20160200 

COMMENT JOB WILL BE RUN ONLY I F I 20160300 

1) AN XS OR ES MESSAGE HAS BEEN ENTERED FOR THIS JOB# (IN WHICH 20160400 

CASE SHEETDIDDLER TURNED ON Sl2J,tHU AND CALLED SELECT I ON ) 1 20160500 

OH 2) THE SUM OF THIS JOBS CORE REQUIREMENTS (SI203) PLUS THE SUM 20160600 

OF THE CORE REQUIREMENTS OF ALL OTHER JOBS ACTUALLY RUNNING 20160700 

(CORE.CFFJ) IS LESS THAN THE TOTAL AMOUNT OF CORE AVAILABLE 20160800 

FOR USER PROGRAMS (THE INITIAL SPACE AVAILABLE (CORF.UFl) 20160900 

TIMES THE MULTIPROCESSING FACTOR (CORE , t 4 114 1 ) ) » 20161000 

OR 3} "LDCNTRL/DISK" IS BEING TESTED AND THE "CDONLY" OPTION JS SET 20161100 

OR 20161200 

"PRNPBT/DISK" IS BEING TESTED AND THE "AUTOPRNT" OPTION IS SET20161300 

20161400 
IF THE JOB BEING TESTED IS A "SYSTEM" JOB (L IBMA I N.LDCNTRL. 20161500 
PRNPBT) AND THE ABOVE CONDITIONS ARE NOT SATISFIED* THE 20161600 
THE APPARENT AMOUNT OF AVAILABLE CORE (AS SHOWN IN THE "CORE" 20161700 
WORD) IS TESTED USING A FACTOR OF ill TIMES THE ACTUAL FACTOR 20161800 
IN ORDER TO ATTEMPT TO FORCE THESE JOBS IN, 20161900 

END OF COMMENT! 20162000 

20162100 

IF (8EL0Wl»(SC2J.t8U0]»5>) THEN % "RUN" REQUEST* 20163600 

BEGIN % RUN IT BELOW THE FENCE 20163700 

IF CS[2J LSS 0) OR (MCPJOB, [HI]) THEN GO TO JARSPACEJ 20164200 

% MCPJOB, [||]]Pl MEANS RUN IT REGARDLESS OF CORE AVAILABILITY 20164300 



X Sm,[l»2] ;»! (0«N0RMAL» 1*N0T USED* 2sXS-ED» 3*ES-ED3 20164400 

IF (ll*C0RE,C4«14J/100) GTR THEN % FACTOH GTR 20165300 

IF MCPJOB THEN H«1.10 x U % TRY AND FORCE IT IN 20165400 

IF COREiCFF] ♦ SI201 GTR CORE.UFJxI THEN GO TO PASS; 20165500 

END X IF "RUN" JOB 20165700 

ELSE 20165800 

BEGIN X NOT A "RUN" JOB 20165900 

IF SC2) LSS OR MCPJOB.tlMJ THEN GO TO JARSPACEf 20166000 

IF BACKGROUND THEN X "NOBATCH" OPTION NOT SET 20166100 

IF aOGUNE »« SI26J) LEQ X NOT FROM CANOE 20166200 

OR CIF LOGLINE, [40183 GTR LMAX THEN ELSE 20166300 

SCHEDLINECL0GLINE.C40J8] j) THEN * CANDE (TASK) SCHEDULE 20166400 

IF BATCHSELECTCF, S[203» BELOW* SHEETLOCKED) THEN GO TO PASSI 20166500 

END! 20166600 

20166600 

X *** ***** ***** ***** ***** ***** ***** ***** 20166900 

% ****** * * * * * * 20167000 

% * ***** ***** ***** ***** ***** * ***** 20167100 

%****** * * * * * * 20167200 

% ***** * * * * ***** * * * ***** ***** 20167300 

20167400 

JAR$PACE» 20167500 

20167600 

X FIND A MIX SLOT FOR THIS JOB 20167700 

FOR MIXtM STEP 1 UNTIL M1XMAX DO 20167800 

IF JARtMlXnJsO THEN GO LOAD* 20167900 

20168000 

X NO FREE SPACE IN JARl PASS ENTRY WITHOUT DELINKING AND CONTINUE 20168100 

NEEDSEUECT !« 1; X CAUL SELECTION NEXT EOJ 20168400 

GO TO PASSI 20168500 

20168700 

% * ***** ***** **** *** ***** ***** 20168600 

X * ****** * * * * * 20168900 

X * * * ***** * * * ***** ***** 20169000 

X * ****** ****** 20169100 

X ***** ***** * * **** **** * * * * 20169200 

20169300 

LOADI 20169400 

20169500 

JARROWCMIXJ |» IOQUE K HDRtCTCJl % FILE HEADER BECOMES JAR ROW 20169600 

PRTROHtMjXJ t« 0) 20170100 

UVR0WCMIX3 !■< UVROWtO) & UVSPACEUTcJ & BELOWl 7 « 1 1 1 J J 20170200 

UVSPACE I* 01 X MARK IT EMPTY (NO "FORGETSPACE" LATER) 20170300 

IF BELOW THEN 20170400 

COREiCFF) I" CORE.CFFl + S[2Q3J X ADD IN THE CORE ESTIMATE 20170600 

$ SET OMIT m NOT(PACKETS) 20170700 

IFCH»S[23J,[2I63) GEO 32 THEN PSEUDOM JX[M I X J t« J I X PSEUDO-ROR JOB 20170800 

t POP OMIT X PACKETS 20170900 

JAR[MlXiO] I* S[0]; 20171000 

JAR[MIX#U »« SU3J 20171100 
JAR[MlX»2]|*St2H(lF (NT1 t*S[23 , C8 »103 }«5 THEN 2 ELSE NT 1 H 8 I 38 1 10 3 1 2017 1200 

X IF THIS IS A "RUN" JOB* CHANGE IT TO SAY "EXECUTE" 20171300 

X JAR[MIX»2J, [81103 « SHEET t 2 J f [8 1 10 i » 20171400 

X m "GO" PART OF COMPILE AND GO 20171500 

X 1 * COMPILE AND GO 20171600 

X 2 * EXECUTE 20171700 

X 3 • COMPILE FOR SYNTAX 20171800 

X 4 m COMPILE TO LIBRARY 20171900 

X 5 • RUN JOB 20172000 

STREAM(A»*JAR[M1X»33, [3011831 D I <■ C D T 1 >l X CREATION DATE FROM HDR 20172100 



BEGIN 20172200 

sn«*L0c a; os«*8dec; 20172300 

ENDI 20172400 

GIMEDATEUDT3,[CF3» -DT)I X CONVERT DATE TO ""MMDDY Y"" FORMAT 20172500 

JAR£MJX.3] I* St 16 J I X PROCESS TIME L 1 M I T 20172600 

JAR[MlXi43 1 = St 173 i X I/O TIME LIMIT 20172700 

STREAMCDATE* AI*U3)I X CONVERT DATE TO OCTAL FOR LOGGING 20172600 

BEGIN 20172900 

SI»»L0C DATE! DSI»80CT> 20173000 

ENDI 20173100 

JaR£MiX»5J;«CXcL0cK+P(RTR)) « H1I251233* X DATE AND TIME 20173200 

JAR[MIX»6J Jp S[6]&S[23](2«2l6j; X CARD/PSEUDO RDR. UNITNO IN [2»63 20173300 

JAR[MIX»73 I- S(14J| X ACTUAL MFID OF OBJECT PROGRAM 20173500 

X JAR[MIX»83 THROUGH JAR[MIX»29j STILL CONTAIN CONTENTS OF 20174100 

X OBJECT FILE HEAOER AS OBTAINED ABOVE 20174200 

JAR[MIXi9] I* M[HDR INX 9J.ICFJ X McP JOB C 1 > 47 1 1 ) & 20174300 

(S[23,[4lll AND N0T(S£2],[2ll] OR AUTOMESS ) } [ 2l 47 1 1 3 I 20174400 

X SC2],C4tim MEANS SUPPRESS BOJ/EOJ MESSAGES 20174500 

X MARK JAR(93f[lll]"l FOR "I IBMA I N M » *PRNP8T W # "LDCN 1 RL" 20174600 

XXX SEE ALSO "SEGMENT ZERO" SECTION IN PROCEDURE "SELECT RUN2" FOR 20176200 

XXX FURTHER ALTERATIONS TO THE JAR, 20176300 

20176400 

% ***** ***** **** * ***** ***** 20176500 

X ****** * * 20176600 

X * ***** **** * ***** ***** 20176700 

% ****** * * 20176800 

X * * * *•** ***** ***** ***** 20176900 

20177000 

IF St23,[2jlJ OR C SC 21 3 LSS 128) THE* SC21 3 1-128> 20178100 

X SC2J,[2U3«1 WHEN ES"ED# 5(211 CONTAINS STACK SUE 20178200 
5INF0CMIX] l« «, S[203tCTFJ & C ( CLQCK+PC RTR > ) DIV 60 ) ( 1 1 31 1 1 7 ] J 20178400 

SQCMIX] |* -II 20178500 

OATtMIX] l« "II 20178600 

PRYORtMIXJ |« -II 20179100 

PROCTIMEtMlXjt" -SC163-CL0CK-P(RTR)I X PROCESS TIME LIMIT IN St 163 20179200 

$ SET OMIT * NOTCNEWLOGGING) 20179300 

LOGSTOPPEDtMlXJ t* 01 X LOGGING IS ALLOWABLE 20179400 

$ POP OMJT X NEWLOGGING 20179500 

IOTIMETMIX] l« -SC171I X I/O TIME LIMIT IN St 17 J 20179600 

20179700 

%%%%% X %%%%% XXX X X 20179600 

XX XX % % % % XX 20179900 

P1MIX»*M!XJ XXXXX X % % % % % 20180000 

X % % % % % XX 20180100 

X XXX X X X XXX X X 20160200 

20180300 

USERCQDECMJX]I»ABSC5[2AJ)I X USERCODE IN SC243 20180400 

IF SC2].[8tlO]»0 THEN FORGETESPD I SK( S[ 253 ) I X FORGET OBJ,SKELETON 20180800 

X S(2], [81103*0 FOR "GO" PART OF "COMPILE AND GO" 20180900 

IF (L0GLINE»»S[263) f [33173 NF.Q THEN X CANDE JOB 20181300 

BEGIN 20181400 

STATABLECLOGLINE, [401813, MJXFLAG »• I l» 20181500 

(IF UAR[MIX,03,tll23 NEQ THEN 32 ELSE 0) ♦ MIX; 20181600 

DAT[MIX3,NDSABLEt«JAR[MjX»03,[2in* 20181700 

X JAR(MIX»0),[2«11«J0B NOT DS-ABLE BY USER 20161800 

X JAR[MIX»03.tlU3 » COMPILE JOB 20181900 

IF I LSS 32 THEN TWX0UT( 0»0» 1 » LOGL I NE > I 20182000 

X SEND CARRIAGE RETURN/LINE FEED TO INDICATE BOJ 20182100 

ENQI 20182200 

REP0RTBACK(B0JW»MIX,0)I 20182300 



IF BELOW THEN 20182400 

BEGIN 20182500 

FKONTENDCMJX)! 20182600 

STASUS[MIX]|*SELECTINGI 20182700 

END 20182800 

ELSE 20182900 

BEGIN 20183000 

DI$K$T0RE[MIX3I*SWAPDISK> 20183100 

SWAPDISK «« 0; X MARK IT EMPTY 20183200 

INlTIAUSWAP(SC20],tCFJ)l 20183300 

IF SC20J.C2U3 THEN MAXCORE I M I X J I *1 J X "CANT EXPAND" BIT 20183400 

EN01 20183500 

HDR »* JARR0W[MlX3 t [CFJ) * "FRONTEND" MOVES THE JAR ROW 20183600 

STREAMCQI»FSR0W[MIX]I*[M[GETSPACEC4»0,1)+2JH4[8|3BI10J)? 2018 3610 

DS1*32LIT"0"> 20183620 

20183700 

IF (CStOJ EQV "CANDE H )*(NQT 0)) THEN 20183800 

IF CCSCU EQV "TSMARER")=CNQT 0)) THEN 20183900 

BEGIN 20184000 

I I* S[2] l [2lU> TI-SC163* 20184100 

STARTCANDYU* T)> 20184200 

S[23,C2IU I* II S[18J I* Tl 20184300 

Z HDI 20184400 

X Sm f [2ll3*l FOR ES-ED JOB* S[ 18 J*PR IOR I TY 20184500 

20184600 

NT1 «* IF BELOW THEN 518400000 ELSE 180? 20184700 

IOCOUNTIMIXJ Ib -11 20184800 

ELAPSEDLIMIT[MIX3 la IOT I MEIMJX j+NTl+NT 1 1 20184900 

PROCLIMITCMIX] J« PR0CTIMECMIX]+CL0CK+PCRTR)+NT1> 20185000 

QLAYCTRCMIXJ Is UPOLAYCNTjJI 20185100 

SET OMIT * NOTCAUXMEM) 20185300 
AUXC0DECMIXJ|«AUXDATA[MIXJ»«0I * AMOUNT OF AUXMEM USED FOR THJS JOB 20185400 
AUXERR0RT0Gl»(*P(DUP)) AND NOT ( TWOCM 1 X ) ) ; * MASK FOR AUXMEM REC0VERY2O16550Q 

POP OMIT X AUXMEM 20185600 

20185700 

TYPE I* CONTINUEINGJ 20185800 

20185900 

X SELECTRUN2 IS CONCERNED WITHl 20186000 

X BOJ MESSAGE 20186100 

X SEGMENT ZERO 20186200 

X STACK AND PRT 20186300 

X SEGMENT DICTIONARY 20186400 

X DALOC 20186500 

X COMMON 20186600 

20186700 

P(CSVALUE3»STS)» 20186800 

SELECTRUN2? 20186900 

IF TYPE LSS THEN 20187000 

GO TO S«CTYPE»»ABS(TYPE)JI 20187100 

20187200 

IF (SEG0C7],CCFJ«0) THEN X BUILD A DUMMY FILE PARAMETER BLOCK 20187300 

TRPmi»[MtGETSPACE(l#0»l)*2n ELSE 20187400 

BEGIN 20187500 

TYPE •• EQUATING; % BUILD FPB AND PROCESS LABEL EQUATION 20187600 

P(tSVALUE3*STS); 20187700 

SELECTRUN1I 20187800 

IF TYPEiClM) THEN GO TO SW[ TYPE I »ABS( TYPE ) J I 20187900 

ENDJ 20188000 

20188100 

FPBDIMIX] i« TRPC33) 20188300 



* TRPC3J VALUE SET BY SELECTRUN1 FOR NON-MCP TYPE JOB 20188800 

GO TO WJNDUPi 20188900 

20189000 

PASS! 20189100 

20189200 

TYPE l» PASSING; 20189300 

P(tSVALUE]»STS)l 20189400 

SElECTRUNU 20189500 

IF TYPE LSS THEN 20189600 
GO TO SW[TYPEI*ABSCTYPE)J* * SELECTRUN1 DETERMINES BRANCH POINT 20189700 

20189800 

WINDUPI 20189900 

20190000 

% *** ** * *** ***** *** ***** **** 20190100 

% * ** * * * * * * * * 20190200 

% * * * * * * * * * **** 20190300 

% ***** * ****** 20190400 

% *** * ** *** * **** ***** **** 20190500 

20190600 

X INITIALIZE OTHER PRT CELLS 20190700 

TRPCOJ t» WORDOFEASEI 20190800 

TRPC2J |« MEMORY? 20190900 

TRPtlO] I* TRP&CSTACKL0C + 1H18J33U5JI 20191000 

IE JAR[MIX»0J LSS THEN X COMPILE JOB 20191100 

BEGIN 20191200 

IF(NTl!«JAR[MIXf2],[eil0n»4 THEN X COMPILE TO LIBRARY 20191300 

TRPt?26J»*S[22] X SAVE FACTOR FOR OBJECT FILE IN SHEET[22] 20191400 

ELSE IF NT1«3 THEN X COMPILE FOR SYNTAX ONLY 20191500 

BEGIN 20191600 

TRP[?26]J«-1) X SAVE FACTOR * (-1) K DONT SAVE OBJECT 20191700 

JAR[MIX#2J,[8I10JI*2I X MARK IT AN "EXECUTE" JOB 20191800 

END! 20191900 

ENDI X COMPILE JOBS 20192000 

TRPt6jf*FLAG<0UTRPC6]HlBt33tl5H32E8»38li0J)* 20192100 

IF JARtMlX»21 GEO THEN X NOT COBOL 20192200 

TRP[ini-FLAG(0RtTRPLll]]ll8l33ll5]&8t8»38«103)l X "OAT" ENTRY 20192306 

X BRING IN STARTING SEGMENT&BU I LD CONTROL WORDS FOR INITIATE* 20192400 

MAKEPRESENTCTRP INX P0LISHCSEG0C6JtTRP[4JtINX#L0DMBll0))! 20192500 

X SEG0C6J * STARTING SEGMENT NUMBER 20192600 

% SEGDICT[SEG0C6]],C8I10] • PRT LOCN, OF DESC, FOR STARTING SEGMENT 20192700 

M[$TACK10C+2JI« -FLAGCPOLlSHCSEGOt 6] .TRPI4 J . JNX,L0D) , C 18»15J ) i 20192800 

MtSTACKLOC+131* -FLAGCOK TRP)£6t 3319] > I 20192900 

MCSTACKLOC] I* 02222222222222222; 20193000 

TRPC8J $« -FLAG(STACKL0C*2); X INITIATE CONTROL WORD 20193100 

IFCNTll«TRP[4],tl8»6]) NEC THEN 20193200 

INTABLEROWCMlXJ|*INTABLERQW|NTn 20193300 

ELSE IF NOT(JARtMIX,93,CllU) THEN X NOT SYSTEM TYPE JOB 20193400 

BEGIN 20193500 

IF BELOW THEN 1I*1NTSIZE ELSE 20193700 

J»*INT13SIZE+INT13STARTJ 20193800 

INTABLER0W[MIX]|»CM[GETSPACECI»l»l) + 2mitBl38ll0]; 20194300 

STREAM(AI*I»T|»INTABLER0W[MIXJ)I 20194400 

BEGIN 20194500 

S!I*TI SltuSI-ei DSl*A WDSJ 20194600 

END? 20194700 

ENDJ 20194800 

20194900 

FORGETSPACECSEGO); 20195000 

IF SI21 v C2f 11 THEN X SC23.C2H J«l WHEN ES-ED» CALL TERMINATE 20195100 

BEGIN 20195200 



TERMINATECM1X & 35CCTF3)! 

ENDI 
SET OMIT s NQTCNEWLOGGING) 

STQPLOG(MIX»0)J 8! STOP LOGGING TIME FOR THIS JOB 
POP OMIT % NEWLOGGING 
SAVEMIX(MIX.LOGLINE); 

PRYOFUMIX] I* SC 16 J I % PRIORITY IN SHEEU18JJ 
STASUS[MIXJ|»RUNNINGI 
SET OMIT s NOTCSTATISTICS) 

TlMlNGtMlX]l»ClOCK+p(RTR)l 
POP OMIT 
IF F«0 THEN % SHEET ENTRY NOT PASSED AS A PARAMETER 
BEGIN 

TYPE I* CIF S[2],[ltlJ THEN STARTING ELSE CONT I NUE I NG ) ) 
X IF ES-ED THEN RE-START SHEET SEARCH! OTHERW I SE» CONT I NUE ON 
GO TO START» 
END! 



QUITl 



IF 

IF 
IF 
IF 



ENTRY 



P1MIX |* Ol 

IF SHEETLOCKEO THEN UNLOCKTOGC SHEETMASK ) * 

S NEQ THEN F0RGET5PACEC S) J % SPACE FOR SHEET 

OLAYQISK NEQ THEN FOHGETUSERDISK(OLAYDISK,«50Q); 

SWAPDISK NEU THEN FORGETUSERD I SK ( SWAPD I SK # -SWAPD I SKS 1 ZE ) ; 

UVSPACE NEQ THEN FORGETSPACE(UVSPACE)» 
MLLCEFl INX NOT 1)J 
END SELECTION ROUTINEl 



DEFINE* 

COMMA 



$ SET OMIT * 



$ POP OMIT 



EQUAL 

PERIO 

SLASH 

QUEST 

POUND 

SPECI 

IOENT 

UNLOCKV 

USEV 

LOCKV 

FREE 

OPEN 

PACKET 

USER 

RUNV 

COMPI 

EXECU 

COPY 

UNLOAD 

ADDV 

ENTER 

REMOV 

CHANG 

ENDFI * 

NOT(PACKETS) 

WAITV • 

DATAV 
LABEV 
SETV 






m 



10# 

n# 

12* 
13# 

14# 
15# 
19# 
20# 
22# 
23# 
24# 
25# 
26# 
27* 
28# 
29# 
30# 
31# 
32# 
33# 
34* 
35# 
36# 
37# 
39# 

40# 

41# 

421 
43# 



«LP I 



A SWITCH LABEL (FUNC) IN 
SECURITYMAINT USES THE ORDER OF 
VALUES OF "UNLOCKV THROUGH "OPEN", 



20196000 
20197900 
20198000 
20198100 
20198200 
20198300 
20196500 
20198700 
20198800 
20198900 
20199000 
20199200 
20199300 
20199400 
20199500 
20199600 
20199700 
20199800 
20210000 
20210100 
20210200 
20210300 
20210400 
20210600 
20210900 
202U000 
20211100 
20211600 
20212000 
20213000 
20214000 
20215000 
20216000 
20217000 
20217500 
20218000 
20219000 
20219050 
20219060 
20219100 
20219200 
20219300 
20219310 
20219400 
20219500 
20220000 
20221000 
20222000 
20223000 
20224000 
20224500 
20225000 
20225500 
20226000 
20226099 
20226106 
20226101 
20226500 
20227000 
20228000 



RESETV 




= 44#»* 




20228100 


FILEV 




= 471. 




20228200 


EXPIRED 




*48## 




20228300 


ACCESSO 




*49#» 




20228400 


PROCE 




• 50#»X A STORE 


NEAR THE END OF PCC 


20229000 


10 




* 51#»* MAKES 


USE OF THE ORDER AND VALUES 


20230000 


PRIOR 




* 52#»* OF "PROCE" THRU "SAVEV", 


20231000 


COMMONV 




= 53#»S 




20232000 


COREV 




* 54#»X 




20232500 


STACK 




■ 55#tX 




20233000 


SAVEV 




« 56#t* (SAVE 


IDAYS ON COMPILE TO LIBRARY) 


20233500 


ALGOL 




s 60#»* 




20234000 


FORTRAN 




* 62#»* 




20235000 


TSPOL 




»63#» 




20235050 


BASIC * 


■ 64#» 




20235075 


C0B0L68 




»65#» 




20235080 


WITH 




* 66#f 




20235099 


COBOL 




■ 67#» 




20235100 


LIBRA 




b 68##* 




20236000 


SYNTA 




* 69#fX 




20237000 


FROM 




• 70#»* 




20238000 


TOV 




* 71#»* 




20239000 


FORM 




* 78#t XSWITCH DCPCC) "FORM"*"SPEC I AL"X 


20240000 


NO 




* 79#»* 




20241000 


DISK 




= 80#tX 




20242000 


TAPE 




* 81 #» X 




20243000 


PUNCH 




* 82#»X 




20244000 


PRINT 




* 83#»X 




20245000 


BACK 




* 65JUX 




20246000 


SPECIAL 


,«89#il 




20247000 


EU 




*91#» 




20247600 


SLOW 




*92#» 




20247700 


B6500 




*93#» 




20247800 


FAST 




« 94#» 




20247900 


COPYN 




*95#» 




20247910 


MAXV 




* 96## 




20247920 


FREEF 




s97#» 




20247930 


FIXED 




«= 98#» 




20247940 


SENSE 




* 100#» 




20247950 


LATEST\ 


1 


* 1Q1#» 




20247960 


PAPER 




« 84#J* 




20248000 


COMMENT RESWDS CONTAINS RFSERVED WORDS 


. FOR CONTROL CARDSJX 


20249000 


REAL MSCW 


C 


-2> 




20288100 


CARD 


K 


MSCW+1* 


MYMSCW * CARD* 


20288105 


RCW 


* 


♦ 0* 




20288110 


PROCVAL 


«f 


RCW+1* *1N CASE OF TYPED PROCEDURES 


20288115 


A 


S 


PROCVAL+l* 


T « A» 


20268120 


CADDR 


S 


A+l» 


SFID * CADDR. 


20288125 


CARDLOC 


s 


CADDR+1. 




20288130 


COEX 


= 


CARDL0C4U 


SDEX ■ CDF.Xt 


20288135 


CLOSET 


• 


CDEX^li 




20268141 


CMPLR 


« 


CLOSET+l* 




20268145 


CN 


= 


CMPLR+I* 




20288150 


INV 


* 


CN + lt 




20288155 


KOUNT 


C 


INV+1. 




20286160 


LASTSCAN 


m 


KOUNT+l* 




20288165 


LIBNO 


* 


LASTSCAN+1* 




20288170 


Nl 


m 


LIBNO+1* 




20288175 


N2 


m 


Ni + 1» 




20288185 


N3 


B 


N2+l» 




20288190 



N4 * N3+l» U * M» 2028819b 

OPTN *» N4 + lt 20288200 

OPTNN » OPTN+1* 2028820b 

PADDR * OPTNN+lt SFH * PADDR» 20288210 

POEX s PADDR+li SMID * PDEXi 20288215 

PPCPROCtSS » PDEX+1* 20288220 

SFO ■ PPCPROCESS+lt 20268225 

SMD ■ SFD+1* 20288230 

SOURCE ■ SMD+1* 20288235 

SPOUTUNJT * SOURCE+l* 20288240 

ST m SPOUTUNlHl* 20288245 

Tl « ST+1» 20286250 

UNITNO * Tl+t» 20288255 

USERID » UNITNO+U 2028826© 

ARRAY ACCUM * USER ID + 1 1* 3 » 20268265 

CEQN * ACCUM*U*Ji 20288270 

CMM * CEON+tt*]t 20288275 

DIRECT « CMM+1[*3» 20288280 

N8 * DlRECT+4t*J» 20288285 

PEON ' NB+1[*3» 20288290 

PROG * PF_0N*ir*]l 20288295 

NAME AOOR * PROG+il 20288300 

BOOLEAN ABORT * ADDR+1* 20288305 

TOG - ABORT+i; 20288310 
REAL RETURNMSCW * TOG+l* * THESE LOCALS MUST BE THE LAST 20288315 
RETURNRCW » RETURNMSCW* 1 » % THREE LOCALS OF CONTROLCARD 20288320 

RETURNVAL * RETURNRCW+U 20288325 

20289000 

$ SET OMIT « NOTCPACKETS) 20289009 

PROCEDURE PRINTTHECOVER(CARD»UNITNO»PS)J 20289010 

VALUE CARDiUNITNO»PSl REAL CARD » UN I TNO# PS; 20289020 

* TO ALTER SIZE OF ONE*AREA PACKET PAGE CHANGE DEFINE AT 02113091 20289025 

BEGIN LABEL L»TRYAGAIN| 20289010 

REAL BUF.T»TP»XI 20289035 

INTEGER I»PAGEADDR) ARRAY H£ADERC*3J 20289040 

SUBROUTINE 8UILDHEADER? 20289045 

BEGIN 20289050 

HEADERJ»I08UE & BUFtCTCJ; 20289055 

M[BUF3l«0J 20289060 

M0VEC29fBUF»BUF+l)) 20289065 

STREAM(DATE»H3|*HEADER INX 3)1 20289080 

BEGIN SI1*L0C DATEI DSl«80CTJ % CREATION 20289085 

DI»*H3> DSl»2LIT"*#"r % SAVE 10 20289090 

SII*H3J SH*S1+5J DSl*3CHR; % ACCESSED 20289095 

END! 20289100 

HEAOER[O)I»0OO132OO132OOO1O3J % 90t90#l»3 20289105 

HEADERU)l»<XCLOCK + P(RTR)) & HEADERC 3) [ 6 » 30! 183 I 20289110 

HEADERt23!»MCP; 20289113 

HEADER[4ll«0 & ( PI 001 ) I 2 I 38 I 10 3 ; 20289115 

HEAOERE53l*"PACKET "l 20289116 

HEADER[/3|*(PAGESIZE 01 V 33-11 20289120 

HEADERE8J|»PAGESIZE; 20289125 

HEADERt9J|»U 20289130 

HEADER[10]I«PAGEADDR» 20289135 

END BUILDHEADER! 20289140 

TRYAGAINJ 20289142 

ClDTABLE£UNITN0-32.63l«TPl» 001 & NeXTCDNUMU M 6 I 24 ? 24 3 J 20289144 

IF DIRECT0RYSEARCHC M PBD ",TP>5)#0 THEN GO TRYAGAINJ 20289146 

BUFI*GETSPACEC90»64,5)+2l 20289148 

PAGEADDRI*GETUSERDISKCPAGESIZE)J 20289150 



PS|* 20289152 

IF PS*Q THEN M CRA M ELSE. IF PSM THEN "CRB" ELSE 20289153 

IF PS*2 THEN TJNULUNITN03, [301181 ELSE 2028915ft 

IF PS«3 THEN "ZIP" ELSE 20289155 

" "j 20289159 

STREAM(CARD»TP|SC1DTABLE[UNITN0-32»23»PS 20289160 

# NI»C1DTABLE[UNlTN0-32»7J+liBUF)l 20289163 

BEGIN DS»*8L!T" "1 SII»BUF* 2(DSl*44 WDS)i 20289165 

SII*L0C NJ DII'LOC NJ 0SI-8DEC* DI»*LOC N> 0Sl*8FlLLJ 20289170 

sn»uoc n; si»*si+3j dii«buf> dij«oi+i2; 20289175 

DSI»7LIT"INPUT "» DS»»5CHRJ DSIM2LJT" CARDS FROM "; 20289189 

S1UL0C PS; SllsSl+5; DSts3CHRJ 20289185 

DI»*BUF> 4(DII«DI+34)» DS I *8L I T M I x>i4000" I BUFI*DI* 20289190 

S1»»L0C TPI SH»S1+2I DI»*DI+12; 20289195 

0SI*8LIT"PACKET "J DSl*4CMR* 20289200 

DM»BUFI 4(01 l«DI+34)> DS I »8L I T" I x>l 4000 w » BUFI"DU 20289205 

Sll«CARDI 0SI*9WDS> 20289210 

DI IWBUFI 4(DH»DI+34)J DS J *8L I T" » x>12000" J BUF»"DII 20289215 

54CDSI*LIT"#*)I DSi*liLlT w ABORTED "J 55C DS I *Ll T w #" ) ; 20289220 

DIIsBUF; 4(DH*DI + 34)I DS»*8LIT H lxM2000 M ; BUF«»Di; 20289225 

DSi*16UT" + AB0RTED0PAGE n l DS I «9L I T"OPACKET 0"; 20289230 

$II*L0C TP» Stl«SI+2l DSIB4CHR; DH»DI + 3I 20289235 

SIIpCARD; DS««8WDS) DS*«8L1T"QPACKET »i 20289240 

40(DSi*LlT"0")l 20289245 

E NDI 20289250 

DISKWAIT(BUF»90*PAGEADDR)» 20289255 

STREAMCAI»1I«(CNT1I*C(XCL0CK+P(RTR)) DI V 3600)) MOD 60 20289260 

+CNT1 DIV 60)xl00)»ACTDATE»WEEKDAY#BUF)l 20289265 

BEGIN 20289270 

3(4(011*01+34)1 DSI»8LIT"IX0X2000")J BUF»"DU 20289275 

DS|»BLIT" "J SII»BUF) DSl = 34 WDSJ DH*BUF» 20289280 

SI»»L0C WEEKDAY! DI»«D1+12J DS ! • AL. I T W DATE"* DII'DI+41 20289285 

Sli»S!+2f 6(IF SO" " THEN Sll*SUl ELSE DS»«CHR)> 20289290 

SII»L0C ACTDATFI DS « *5L I T"DAY » " I 20289295 

SI«»SI+2I 2(DSl*2CHR> DSl *Ll TV") i DSl«2 CHRI 20289300 

DII*BUFI 4(DH«DI+34)| DS J *8Ll T M J x> 1 4000" J BUFI*DU 20289305 

SI»*LOC A» DIl*DI+12* DSl«4LIT M TIME w > DIS*DI+4J DSIMDEC* 20289310 

DII»BUF1 4(DH*DI+34)J DS I *8L I T" J x>l 4000"; 20289315 

END! 2028932* 

DISKWAIT(BUF»»0#PAGEADDR+3)J 20289 325 

GO TO Ll 20289330 

Lt Xj«6; MCBUF+171t»=0; 20289335 

IF <Tl*DlRECT0RYSEARCH("MESSAGE ,, »"QTHEDAY w i5))#Q THEN 20289340 

BEGIN 20289345 

FOR lt»0 STEP 1 WHILE (I<6) AND NOT M[BUF+17J DO 20289350 

BEGIN 20289355 

DlSKWAlTeBUFi90tM[T + 10 J*3xl)> 2028936* 

DlSKWAlT(BUFt90tPAGEADDR+6+3xI)l 20289 365 

Xt«X+3; 20289370 

END> 20289375 

FORGETSPACE(T)! 20289380 

ENOI 20289385 

STREAM(MLI»MARKLEVEL#PH«PATCHLEVEL»LU*LQCALEVEL 20289390 

#lLlsM[3]»BUFI«BUF+54)| 20289395 

BEGIN DS>*8LIT" "! SII«BUFI DS»*34 WDS> DH'BUF; 20289400 

DI»*DI-8» DSl*8LlT"»xOQ0803"; 20289405 

DI«»DI+12J DSl*18lIT w #N0 MESSAGES TODAY"; 20289410 

DH»BUF; 4(DII*DI+34)I OS t *8LI T" I xil2002"l BUFl*DII 20289415 

D!l«0!*6| DSl«31LlT"*** BURROUGHS B*700 TSMCP MARK "! 20289420 

SH«LOC Mil IF SC GEQ " " THEN; 20289425 



6C IF TOGGLE THEN IF SC* 

ELSE DS»*CHR)J DSi«Ll 
SII*LOC PL* IF SC GEO " 
6(IF TOGGLE THEN IF SC* 

ELSE DS!*CHR)> DSl«2C 
SI »=LOC LLi IF SC GEO " 
8(IF TOGGLE THEN IF SC* 

ELSE DS»«CHR)» DS»*2l 
Sl»«LOC MLI IF SC GE« " 
SC IF TOGGLE THFN IF SC» 

ELSE DSl*CHR)J DSI«LI 
SU*LOC il; SII*Sl*tl 1 
SII«SI+1» DSl*2CHRJ DSl 
DI»«BUFJ 4(DH»Dl + 34); 

ENOI 
DISKWAIT(BUF»90.PAGFADDR*X)J 

BUILDHEADERI 

ENTERUSERFILECPBD "tTP»B 

PSEUD0tUNITN0-32]»*(*P(DUP)J 

11 C8I 381 1 
(IF T#0 T 
lt21»47ll 
(PAGEADOR 

FORGETSPACE(BUF)» 
END PRINTTHECOVERJ 
£ POP OMIT 

comment fetch reads the next contr 

of card • sets last word 

procedure fetch(unitno»cardloc# 

value unjtn0»cardlqci 

real unjtno.caRdloc, 

BEGIN* 

REAL T»EI 

El"*l4*UNITN0[45ili! 
IF (UNITNO OR 1>*31 
M[SOURCE«*CARDLOCJl3 
BEGIN 
S SET OMIT * PACKETS 

IF UNlTNO£32 THEN T* 



"0" THEN SH»Sl + l ELSE DS»*CHR 

T","; 
" Then; 

"0" THEN SH*SI + l ELSE DSl«CHR 
HR? 

" THENI 
"0" THEN SI*«SI+1 ELSE DSl»CHR 
LIT" AND INTRINSICS MARK »J 

n THENI 
"0" THEN SI>*SI*1 ELSE DSt«CHR 

T"."; 

F SC>"0" THEN DSl*CH« ELSE 
«4LIT" ***"; 
DSl*BLlT*|x*l2001"l 



UF-DJ 

& 

OH X PACKETPBD 

HEN 3 ELSE 2)C18t45l3J| X PACKETREC 

JS X PACKETFREE 

+X)C22l22t26j; X PACKETPAGE 



OL CARD t SETS SOURCE TO BEGINNING 

F CARD TO PERIOD, t% 

SOURCE)* 



SOURCE I 



)t UNITNOl»ABSCUNITNO); 
THEN XDATACOM OR ZIP 
P1425452432373737 ELSE 



POP 
SET 



OMIT 
OMIT 



t POP OMIT 



NOTCPACKETS) 
IF UNITNO GEO 32 THEN 
DO UNTIL NOT E,C45>n OK T| 



READEMFROMDISKCC 
£M[CARDL0C3 



IDR0W[UNITN0-323#X 
U101BI38U0]) ELSEX 



DO 

BEGIN 



ELSE 
»40000000»E»UNITNO)J 
113 THEN 



T I « I F UNITN0*30 THEN 
WAITIOCCARDLOC INX 
IF UNITN0«30 OR T,[45 
STREAM(CARDLOC)! 

BEGIN DSlwLlT MARKIDSI«4 LIT "END," END* 
IF UNJTN0«25 THEN 
BEGIN 

STREAM(T*0lCARDL0C)IX 

BEGIN SI*CARDLOC?DI*L 

D1*CARDL0C»DI*DI 

BEGIN DS*CHRfJUM 

. BEGIN DI*DI-1MF 

DS*CHR))» 



OC TlDI*DI+6lSI*Sl-i;DS*2CHR»Sl*Sl-l 
-1IDS«-LIT"<">8(60(IF SC"*" THEN 
P OUT 2 TO L ENDMF SC»"<" THEN 
SCi'OC THEN DI*DI-1 END ELSE 



20289430 
20289433 
20289440 
20289445 
20289450 
20289455 
20289460 
20289465 
20289470 
20289475 
20289480 
20289485 
20289490 
20289495 
20289500 
20289510 
20289520 
20289530 
20289540 
20289550 
20289560 
20269570 
20289580 
20289590 
20289608 
20289601 
20290000 
20291000 
20292000 
20292100 
20292200 
20293000 
20294000 
20294600 
20295000 
20295100 
20295200 
20295999 
20296000 
20296001 
20296099 
20296100 
20296200 
20296201 
20297000 
20298000 
20298100 
20298200 
20299000 
20299029 
20299039 
20299040 
20299110 
20299111 
20300000 
J20301000 
20301100 
20301200 
20301300 
20301400 



Ll Dl»CARDLOCJDI*DI*l!Sj*LOc T J S I *S I +61 DS*CHR> 20301500 

ENDI 20301600 

MaKeL0G((CARDL0C,CCF3)"1»SPIN)J 20301650 

END ELSE P(0)> 20301700 

END UNTIU P,C42l6]#31> 20302000 

M[(S0URCE * CARDL0C)+9]*0& H t "[ll43l5)l* 20303000 

END; 20303900 

END J* 20304000 

COMMENT THE SCAN ROUTINE IS USED FOR CONTROL CARD SCANNING,* 20305000 

SCAN RETURNS THE FOLLOWING RESULTS U 20306000 

4 FOR IDENTIFIERS WHICH ARE NOT RESERVED* 20307000 

FOR PERIOD* 20308000 

1 FOR SLASH* 20309000 

2 FOR QUESTION MARK* 20310000 
5,., FOR IDENTIFIERS IN DIRECT,* 20311000 

3 FOR OTHER SPECIAL CHARACTERS,* 20312000 
13 FOR "PRIORITY" ;* 20313000 

REAL PROCEDURE SCNC UNI TNOi CARDLOC* SOURCE » ACCUM. KOUNT»LASTSC AN» 20314000 

DIRECT)! 20314050 

VALUE UNITN0#CARDL0C ) 20314100 

REAL UNITNO,CARDL0CiSOURCE» KOUNT »LASTSC AN I 20314200 

ARRAY ACCUM[*3#DIRECT[*]J 20314300 

BEGIN* 20315000 

label gogo. typeo»typei»i ype2;« 20316000 

SWITCH TYPE * TYPE0iTYPEl»TYPE2 ?* 20317000 

REAL lit 20319000 

LABEL PERPERJ* 20320000 

GOGOl* 20321000 

IF LASTSCAN THEN* 20322000 

BEGIN IF LASTSCAN < OR UNITNO * 31 THEN* 20323000 

BEGIN I ♦ QUEST; LASTSCAN * OJ GO TO TYPE1 END; 20324000 

FETCH(UNITNO#CARDLOCtSOURCE>; 20325000 

LASTSCANI«0 20325100 

S SET OMIT * NOTCPACKETS) 20325109 

MC2U7I11I 20325111 

$ POP OMIT 20325111 

ENDI* 20326000 

I * IDENTi* 20327000 

STREAM (J*Q,K*0#SOURCE J ACCUM);* 20326000 

BEGIN* 20329000 

SI •• SOURCE t DI * ACCUM ; DI*DI + 1*X 20330000 

LI IF SC * " " THEN BEGIN ST*S1+1» GO L END;* 20331000 

IF SC « ALPHA THEN* 20332000 

BEGIN* 20333000 

IF SC **14 THEN GO TO L3JX 20334000 

DS * CHR I TALLY * l!» 20335000 

lll 63cif sc«alpha then begin ds*chri* 20336000 

tally*tally+1 end else jump out);* 20337000 

k-tally; tally*oi j*tally; ds*s lit" ";* 20338000 

END* 20339000 

ELSE IF SC « """ THEN* 20340000 

BEGIN SI * SI+1J* 20341000 

30(IF SC*""" THEN JUMP OUTl 20342000 

dsibchri tallyi«tally+i); 20342250 
if toggle then * found closing quote 20342500 

BEGIN DSl«s8 LIT" "; SH*SI + 1I 20342750 

KiwTALLYl TALLY»"ll J|»TALLY| 20343000 

END 20343250 

ELSE * INVALID STRING 20343500 

BEGIN 20343750 



SI*S1-31) GO L3) 20344000 

END) 20344250 

END* 20345000 

ELSE BEGINS* 20346000 

L3lX 20347000 

TALLY * 2; J*TALLY) DI*LOC K) Dl»Dl+7l DS*CHR )X 20348000 

END)X 20349000 

SOURCE * SI IX 20350000 

END)X 20351000 

COMMENT STACK NOW CONTAINS I FOH IDENTIFIER & NO, Of- CHRSX 20352000 

1 FOR "ID" & NO, OF CHRSX 20353000 

2 FOR SPECIAL CHR & ACTUAL CHR )X 20354000 
P<tSOURCEl»*)l 20355000 
P([K0UNTJ»*)) 20356000 
GO TO TYPECP0LISHJ1* 20357000 

TYPEOlX 20358000 

BEGIN 20361000 

!«--2) WHILE DIRECT! I*U21#0 DOX 20362000 

IF (DIRECT!!] EQV ACCUM10])» NOT THENX 20363000 

BEGIN IF DIRECTU+1J*QUEST OR (UNITN0*25 OR UNlTNO>30) 20364000 

AND CARDLOC,[CF]*SOURCE,CCFJ THEN 20364500 

BEGIN I*0!RECTU*iJlGO TO TYPEl END END)X 20365000 

I * IDENT ) ENDJX 20366000 

GO TO TYPEl )X 20367000 

TYPE21X 20368000 

IF KOUNT# M * H THEN ACCUM[OJ* " 0" OR KOUNT) 20368100 

IF KOUNT*"*" ORX 20369000 

KOUNT ■"»" THENX 20370000 

BEGIN LASTSCAN ♦ 1)X 20371000 

PERPERl I * PERIOJ GO TO TYPEDX 20372000 

END)X 20373000 

IF KOUNT« H -" THEN BEGIN IF UNITN0>32 THEN 20374000 

IF CIDTABLECUNITN0-32*3]X 20374100 

CIDTABLttUNlTN0-32»7] THEN 20374200 

BEGIN I*ENDFI) GO TO TYPEl END* 20374300 

IF UNITNO * 31 THEN 20374310 

BEGIN I'PERIO? GO TO TYPEl END* 20374320 

FETCH (UN I TNO»CARDLOC» SOURCE)) 20374400 

$ SET OMIT a NOT(PACKETS) 20374409 

IF UNJTNO GE« 32 AND NOT LASTSC AN, t 2) 1} THEN 20374410 

BEGIN STREAMCCARDLQCt !*I *SPACE( 10) ) ) 20374415 

BEGIN DS*5LlT">") 20374420 

SI«-CARDL0C) 2(DS*36 CHR)) DS*LIT"* W ) 20374425 

END) SP0UTER(I»UNITN0#64)) 20374430 

END) 20374435 

S POP OMIT 20374436 

GO TO GOGO) 20374500 

END) 20374600 

IF KOUNT ■ M J" THENX 20375000 

BEGIN LASTSCAN * -1) GO TO PERPEB END)X 20376000 

I * IF KOUNT *"/" THEN SLASH ELSEX 20377000 

(IF KOUNT ■ ?14 THEN QUEST ELSEX 20378000 

(IF KOUNT *"»" THEN COMMA ELSEX 20379000 

(IF KOUNT*"»" THEN EOUAL ELSE X XLP 1 20380000 

(IF KQUNT«"#" THEN POUND ELSE SPECl))))) XLP 1 20380500 

TYPED SCN*I) 20381000 

END SCAN )X 20382000 

PROCEDURE SEEKNAM(A#B»C#D»EtN)) VALUE A»B) REAL A»B»C»DtE#N) 20382010 

BEGIN 20382020 

LABEL FIND.L) 20382030 



ARRAY NB[*J* 20382040 

REAL I»T; INTEGER J) X10420382050 

INTEGER J1»J2.J3»K1»K2; X10420382052 

LABEL RESTART; X10420382054 

IF C»0 THEN X10420382056 

BEGIN NI«SPACE(60)-1J X10420382058 

Jl l*J3 t»0l Kl»*K2l«M0DULUS-i; 110420382060 

IF A GEQ THEN J 1 l*K 1 I »(A , £6 I 18 J +A . 1 24 » 24 J ) MOO MODULUS; 20362062 

IF B GEQ THEN J3 l«K2 I *CB . [6 I 18 3 + Bt C24 I 24 3 ) MOD MODULUS; 20382064 

END ELSE X10420382066 

BEGIN I!*(Tf»M[N]),[42l6Jl X10420382068 

J1I«T, [36I6JI J2I«T,C30I6]« J3» »T . [ 121 6 3 ; X1Q420382070 

Kl I »T . [2/i «63 1 K2l*T, [ 18*6 Jl X10420382072 

END; J10420382074 

NBI»tMtN*lJ]*60t8l 38 11031 XI 04 20382076 

IF C NEQ THEN GO TO RESTARTI X10420382095 

FOR Jll»Jl STEP 1 UNTIL Kl DO X1042038210Q 

FOR U2l»U3 STEP 1 UNTIL K2 DO X1042038211Q 

BEGIN J|*SCRAMBLECU1»U2)I X10420382120 

DO BEGIN X10420382130 

DISKWAIT(-NM»60»J)I I 10420382 140 

FOR 1I«0 STEP 3 UNTIL 57 DO X10420382150 

BEGIN X10420382160 

IF CTI wNBC 13) NEC H4 THEN X10420382165 

IF (T EOV A)sNOT OR A<0 THEN 20382170 

IF CNBC 1*13 EOV B)*NOT OR B<0 THEN GO FIND! 20382189 

RESTART* ENDI X10420382190 

END UNTIL (Jl*NB[23,[FF3)*0; X10420362195 

ENDI 20382200 

FORGETSPACE(NB)! X10420382202 

IF C«0 THEN N|«0 ELSE C»«0; 20382204 

GO TO LI X10420382206 

FIND! 20382210 

d*nbu3;e*nbu + i3; 20382220 

C»*NB[I*23,tCF3l X10420382225 

M[N3l*I&Jl[36f42l63SvJ2[30t42l63&Kl[24t42l63&K2[16i42l63& XI 04 20 38 2226 

J3U2J42I63! X10420382227 

LI 20382230 

ENDI % SEEKNAME 20382240 

REAL PROCEDURE PPC 20383000 

( ADDR* EQN* X » DEX. TYPE* UN I TN0»CARDL0C» SOURCE* ACCUM* LASTSC AN* 20384000 

DIRECT); 20384100 

VALUE TYPE»UNlTNOtCARDLOC I 20385000 

REAL ADDR* DEX.TYPE»UN1TN0,CARDL0c»S0URCE» LASTSCAN I 20386000 

ARRAY EQN[*3#X[*3,ACCUM[*3»DlRECT[*3i 20386100 

BEGINX 20387000 

RCAL I0D»K0UNT| 20388000 

LABEL EXIT .ERROR. NEXT. LFORM.LNO.LD I SK.LTAPE.LPUNCH.LPAPER.X 20389000 

ROUNDfPROTECTt 20390000 

SERIAL»UPDATE»SPO»DSKCHECK» X ( SHM320391000 

DOWN.X 20392000 

lspecial*lprint»lback»lcopy»lfree; 20393000 

SWITCH D * LFORM»LNO»LDISK»LTaPE.LPUNCH»LPRINT.LPAPER»X 20394000 

LBACK .SERIAL* UPDATE »SPO»X 20395000 

LSPEC I AL # ERROR » ERROR. ERROR* ERROR. ERROR *LCOPY» ERROR i 20396000 

LFREE#ERROR»PROTECTl 20396010 

REAL N0LBL»TPN0 1% 20397000 

BOOLEAN FAROUT; 20397050 

REAL SUBROUTINE SCAN; 20397JOO 

BEGIN SC AN*SC N ( UN I TNO » C ARDLOC » SOURCE* AC CUM.KOUNT. LAST SCAN. 20 397200 



DIRECT) 



IF 



end; 
type * f ilev then* 

BEGINS 



IF 
IF 



IF 

IF 
IF 



ADDR 
DEX 

BEGI 

EON 

DISK 

ADDR 

DEX 

END? 

IF (TYPE! 

EON * (14 

EQNC123i« 

STREAMC K 

BEGI 

SI * 

SI * 

END 

XCOJ<0 

THEN 

SCAN # 

SCAN < 

E9NC23 * 

EQNCQJ-O; 

IF (TYPE 

BEGIN IF 

BEGI 

i END 

IF TYPE * 
BEGI 

IF(TYPE*S 
STRE 
BEGI 

end; 

IF(TYPE*S 
BEGI 
IF(T 



IF C T 

IF(T 



• T 

* 2 
NX 

[293 
WAIT( 

♦ EQ 

* 01% 
% 

■ SCAN 
x DE 

o; x 

OUNTi 

NX 
LOC 
ACCU 

1% 
THEN 
FARO 
EQUA 
IDEN 

EQNC3 
EQN 

♦ SCAN 
SCAN 

N E 

EL 

TYPE 

COMM 

NX 

CAN)# 

AM ( 

N SI 

X 

CAN)« 

NX 

YPE*S 
STRE 
BEGI 
ENDI 

YPE*S 
BEGI 

YPE*S 
STRE 
BEGI 
END) 
ENDX 
CREA 

XREEL 

X 

;x 



HEN ADDR*XC133*GETESPDISK it 

THEN* 

* GETESPDlSKiX 

EQN,tCFi»30»ADDK); 

N[29];X 



) < IDENT THEN GO TO ERROR* 

x> inx eon ;x 

ZERO OUT EU/SPEED CELL 

ACCUMt Z * tEQNum;* 

KOUNT 1 SI--S1 +71 DI -Z> DS*CHR|X 
M ; SI*SI+l; DS* KOUNT CHR JX 

IF K0UNT*4 AND ACCUMl 0] , I 6 I 24 J *"CARD' 

UT * true; 

L THEN GO 
T THEN GO 
] + X 

[11 * ACCI 
)« SLASH 
SIDENT Tl 
QNtOJ*EON| 
SE GO T< 

+ SCAN 
A THENX 



X (SHM 



TO error; 
to error; 

:UM[OJ;X 

THENX 
"HENX 
1113* EGNCU*ACCUMCOJ ;X 

o error;x 
end;x 



IDENT OR KOUNT >3 THEN GO TO ERRORjX 
S * 3-K0UNTiK0UNT»ACCUM» T«-l EQN[ 2 3 3 ) ; X 

•■accum; Si*sui; d»di + si ds*kount num;x 

COMMA THENX 



CAN)* IDE 
AM( S*8-K 
N SI*ACCU 
X 

CAN)s COM 
NX 

CAN)#IDEN 

AM(S*1-K0 

N SI*ACCU 

TYPE 

CYCLE ;x 

tion date 
number; 



ENDX 

end; 

TPNQ*P37; 
NOLBL ♦ 
ROUNDlX 

while type#perio and (type l 
type«*scan; 
if type • peri 
go to dctype-f 
nexti type*sc 



NT OR K0UNT>5 THEN GO TO ERRORIX 
OUNTtKOUNT#ACCUM# T*[ EON[ 2 3 3 ) ; X 

m; si*si+i; di*di+s;ds*kount numx 

MA THENX 

t or kqunt»1 then go to error; 
unt# kqunt »accum»t*teqn[ 33 3); 
m; si*si+i; di*di+s;ds*kount numsx 
* scan;x 



;x 



THEN GO TO E 
•QRM3*X 
:ani GO TO RO 



ss form or type gtr freef) do 

xjt;x 

und;x 



20397300 

20397400 
20398000 
20399000 
20400000 
20401000 
20402000 
20403000 
20404000 
20405000 
20406000 
20408000 
20409000 
20410000 
)20410100 
20411000 
20412000 
20413000 
20414000 
2041b000 
20415100 
20415200 
20416000 
20416500 
20417000 
20418000 
20419000 
20420000 
20421000 
20422000 
20423000 
20424000 
20425000 
20426000 
20427000 
20428000 
20429000 
20430000 
20431000 
20432000 
20433000 
20434000 
20435000 
20436000 
20437000 
20438000 
20439000 
20440000 
20441000 
20442000 
20443000 
20444000 
20445000 
20446000 
20447000 
20448000 
20448100 
20449000 
20450000 
20451000 



LFORMl* 20452000 

EQNt3J,I42U]*ll GO TO NEXTiX 20453000 

LNO|X 20454000 

NOLBL * U GO TO NEXTH 20455000 

LDlSKf X 20456000 

TPN0>»10* GO TO DSKCHECK; % CSHM)20457000 

LTAPElX 20458000 

TPNO * 21 GO TO NEXTJX 20459000 

LPUNCHIX 20460000 

TPNOl*0» 20460100 

IF (TYPEI*SCAN)sPERlO THEN GO TO EXIT! 20461000 

IF TYPE»FREEF THEN GO TO UFREE ELSE 20461050 

IF TYPE*BACK THEN 20461100 

TPN0*20 ELSE 20461200 

BEGIN TPN0*21* IF SCAN*BACK THEN GO ERROR END? 20461300 

IF SCAN«PERJ0 THEN GO ERROR) 20461400 

IF (TYPE*SCAN)»PERIO THEN 20461500 

TPN0*TPN0+4 ELSE 20461600 

IF TYPE'FREEF THEN GO TO LFREE ELSE 20461650 

IF TYPE*D15K THEN 20461700 

TPN0*TPN0+2 ELSE 20461600 

IF TYPE*TAPE THEN GO ERR0R1 20461900 

IF TYPE*PERI0 THEN GO NEXT ELSE GO EXIT* 20461950 

LPAPERIX 20462000 

TYPE * SCAN* TPNO «■ 71 GO TO NE*Tl* 20463000 

LSPECULlX 20464000 

TPNO * 3* GO TO NEXTtX 20465000 

LPRINTlX 20466000 

TPN0l*ll 20466100 

IF CTYPE!«SCAN)*PER10 THEN GO TO EXITI 20467000 

IF TYPE«FREEF THEN GO TO LFREE ELSE 20467100 

IF TYPE-BACK THEN XP 20468000 

LBACKI TPN0*6 ELSE XP 20469000 

BEGIN TPNQ*4* IF SCAN*BACK THEN GO ER80R END* XP 20470000 

IF SCAN«PERI0 THEN GO ERROR! XP 20471000 

IF (TYPE*SCAN)«:PFRIO THEN *P 20472000 

TPN0»22-TPN0 ELSE XP 20473000 

IF TYPE*FREEF THEN GO TO LFREE ELSE 20473100 

IF TYPE*DISK THEN XP 20474000 

TPN0*21»TPN0 ELSE XP 20475000 

IF TYPE#TAPE THEN GO ERROR* XP 20476000 

IF TYPE #PERI0 THEN GO NEXT ELSE GO EXJT* 20477000 

XP 20478000 

LFREE' 20478500 

SET OMIT * NOTCPACKETS) 20478504 

EQNC31, [23*13*1* 2047850& 

POP OMIT 20478506 

GO TO NEXT! 20478508 

LCOPYJ IF (TYPEI«SCAN) NEC IDENT OR KOUNT GTR 3 THEN GO TO ERROR > 20478510 

STREAM(AI«*0|KOUNT»ACCUM)* 20478520 

BEGIN SI »«ACCUM|S1 I«S1+1*DI l»LOC A*DSt«KOUNT OCT END* 20478530 

IF(TYPE»«P(OUP)) GTR 256 OR P(XCH)LSS 1 THEN GO ERROR* 20478540 

rQNC3J v [15l6]i*TYPE-llG0 TO NEXT* 20478550 

ERRORlX 20479000 

PPC*TRUE*GO DOWNlX 20480000 

SPOl TPN0*11JG0 TO NEXT** 20481000 

SERIAL! TPN0IH2J GO TO DSKCHECK* X (SHM)20482000 

UPDATE! TPN0M3I GO TO DSKCHECK* 20483000 

PROTECT! TPN0*26J 20483100 

DSKCHECK! X (SHM520484000 



IF CTYPE»«*SCAN)sCOMMA THEN GO TO DSKCHECK* * ( SHM ) 20484050 

IF TYPE*EU THEN X ( SHM320484 100 

BEGIN * (SHM320484150 

IF SCAN NEC EQUAL THEN GO TO ERROR ELSE X £ SHM>20464200 

IF CTYPEI»SCAN) NEC IDENT OR KOUNT GTR 2 THEN GO ERRORI 20484250 

STREAM(K0UNT»ACCUM»T|*£TYPE3)* * ( SHM)20484300 

BEGIN * (SHM)20484350 

SlIsACCUMJ Sll*SI*lJ DI»*T* D$»*KOUNT OCT) X ( SHM )20484400 

ENDI X C5HMJ20484450 

EQNtl2],C18l5Jl»TYPE*ll * £ SHM )20484500 

GO TO DSKCHECK* X ( SHM )2048455l 

END X IF FU * CSHM)20484600 

ELSE IF TYPECAST OR TYPEsSLOW THEN X ( SHM ) 20484656 

BEGIN X CSHMJ20484700 

EGNU2J,[16t2]l*W(TYPE 8 *SLQW)J X ( SHM320484750 

GO TO DSKCHFCKJ X C SHM )20484800 

END 20484850 

ELSE IF TYPE » SENSE THEN 20484855 

BEGIN 20484860 

EQN£12],tl5llJl«ll 20464865 

GO TO DSKCHECKI 20464870 

END* 20484875 

GO TO ROUND* X ( SHM&20484900 

EXITlX 20485000 

IF NOLBL THEN TPNO * IF TPN0*2 THEN V ELSEX 20486000 

(IF TPNO *3 THEN 5 ELSEX 20487000 

(IF TPN0«7 THEN 8 ELSEX 20468000 

(IF TPN0*P37 THEN 9 ELSE TPNO)))JX 20489000 

IF FAROUT THEN IF UNITN0J32 THEN C I DROW£UN I TNO-323 , [ 3 I 5] * 20489100 

ELSE IF UNITN0»23 THEN READERA.EFF3 * 20489200 

ELSE IF UNITN0«24 THEN READERS, IFF] ♦ 01 20489300 

EQN£33,[43»53*TPN0*X 20490000 

DEX * DEX+1JX 20491000 

ENDX 20492000 

ELSEX 20493000 

BEGINX 20494000 

DO UNTIL (IOD ♦ SCAN) * EQUAL OR IOD * PERIOJX 20495000 

IF IOD » PERIO THEN GO TO ERRORiX 20496000 

IOD * SCANIX 2049700i 

STREAM (K*0l A •• £ ACCUMt 03 i t KOUNT ) * X 20498000 

BEGINX 20499000 

SI * A I SI*SI+U DI-LOC K|X 20500000 

KOUNTdF SC<"0 w THEN BEGIN DS*L I T"*" * 20500100 

JUMP OUT TO ERR* ENDI S!*SI+1)J 20500200 

SI*SI-K0UNT> 20500300 

DS ♦ KOUNT OCT *X 20501000 

ERRI 20501100 

END** 20502000 

IF CTPN0*P),£1U3 THEN GO TO ERROR* 20503000 

JF TYPE*PROCE OR TYPE-IO THEN X£ 16*T YPfPROCE 3*TPN0x3600 20504000 

ELSE IF TYPE*C0REV THEN X[203 ♦ TPNO 01 V 64 20504500 

ELSE IF TYPEJPRIOR AND TYPE<SAVEV THEN X£ 18 + TYPE-PR10R3«-T PNQ* 20505000 

20506000 

IF TYPE « COREV THEN 20507000 

BEGIN DO UNTIL ( I OD I »SCAN)*MAXV OR IOD*PERlO) 20507100 

IF IODbMAXV THEN P( [ X[20 33 » I OR ) ELSE GO TO DOWN* 20507200 

END* 20507300 

DO UNTIL SCAN * PERIOlX 20508000 

END** 20509000 

DOWN»X 20510000 



ENO;X 
PROCEDURE SECURITYMAINK TYPE* SM 1D» SF I Dt CMM» SFH. C ARO ) I 
VALUE TYPE»SMID#SnO»SFH»CARO; 
REAL TYPE»SMID#SFID»SFH»CARDJ 
ARRAY CMMC*]J 
BEGIN 
% 

REAL N4iQPTN»Tl; 
REAL T«TYPEI 

LABEL SEC3»FUNCOiFUNCl»FUNC2»FUNC3>SE 
LABEL ERR#ERROR#FUNCJJX 
SWITCH FUNC*FUNCJ»FUNC0»FUNC1»FUNC2»F 
LABEL EXJTI % 

N4ls ABSCCMMC5])! 

IF (CCMM[OJEQV "DECK ")«NO 
(((CMMCUAND P7700000OOO7 

OR SYSTEMFILE(CMM[0]»CMMC1 J) 

IF TYPE • USEV AND 

((CMM[OJEQV SMJD)*NOT AND 

ELSE 

IF COPTN»*DIRFCTORYSEARCH(CM 

BEGIN 

IF TYPE»USEV AND M[OPTN+23<0 

IF <T1*((N4 EQV MCP)' s NOT 0) 
(MtOPTN*23>0 ANDCN4 EOV AB 

GO TO SEC3 ELSE 

BEGIN ERRj FORGETSPACECOPTN) 
FORGETSPACECDI 
END! 

END* 



C4,EXYT; 
UNC3J* 

T 0) AND 

777)EQV ei200O00OOO3714)*N0T 0) 
THEN GO TO ERROR* 

(CMMIUEQV SFID)«NOT 0) THEN 

M[03#CMMlil»4)) GE« 64 THEN 

THEN GO TO ERR? 
OR (CMM[53*NQT 0)) OR 
S(MtOP7N+23))eNOT 0)THEN 

> 

RECTORYSEARCH(CMMt03»CMM[13»14))l 



ERR0R« 



$TREAM<A»«[CMM£0]J»B*»(OPTN« 

BEGIN SII'AI SltwSUH DS|*L 
SII-SI + 1I DSJ«L1T"/"J 
DSI*24 LIT " SECURITY 

END STREAM; 

SP0UTER(0PTN»CARD»1)J 

GO TO exyt; 
SEC3I 

GO TO FUNCCTYPE-UNLOCKVJI 

FUNCJIMCOPTN INX 53*MtOPTN INX 63* 
CMMI23 I* » UNLOCK"; CMMC3J 
GO TO SEC4;« 

FUNCOI 

MtOPTN INX 5 J Isb-SMID* MIOpTN 
CMMC2JI« " SECURE"; CMM[3]t» 
M[SFH+23 I* P(DUP#LOD»SSB); 
GO TO SEC4; 

FUNQll 

IF CT1*T1 AND (M[0PTN+2J«0)) 
SMIDI*M£0PTN+5]) SFIOl»M[OPT 
MCOPTN INX 53 1* MCOPTN INX 6 
CMMC23*" L0CKED M JCMM[3]* M FR 

FUNC2I 



*SPACE(10))); 
IT" "; DSJ»7 CHR; 
DS««7 CHRJ 
MAINT IGNORED*"; 



FUNC3I 



M[OPTN INX 
CMM[23l« " 

M[OPTN INX 
CMM[23l» " 



2Jl*MtOPTN INX 5] 
FREE F"l CMM[3J»« 

531* P14* M[OP 
PUBL1C";CMM[33»* 



eu;% 

I s "ED** "1* 



INX 631* sfid; 
"D WITH "J 



THEN MtOPTN+23*CMM[63> 
N + 631 
31*0; 
OM w ;CMMt43* M WITH i";go TO SEC4; 

l*M[OPTN INX 63>*0> 
"1LE** w ; GO TO SEC4; 



TN INX 6] t 

" file**"; 



01 



2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 
2051 



000 

100 
110 
120 
130 
140 
145 
150 
155 
160 
165 
170 
171 
181 
182 
164 
188 
295 
300 
305 
306 
311 
312 
315 
320 
330 
340 
350 
360 
363 
365 
370 
380 
390 
400 
410 
420 
430 
440 
445 
450 
455 
457 
459 
460 
470 
480 
490 
500 
510 
515 
520 
525 
530 
540 
550 
560 
570 
580 
590 



SEC4I 20511600 

DlSKHAlT(OPTN,tCF3>30iOPTN,[FPJ)l 20511610 

P(OI«ECTORYSEARCH(-CMMtOJ.CMMtlJ»lft)»DEU)> 20511620 

STREAH(Al«AB8(SMio)fBI»SFlD»CI"CMM,Q|«(T LSS FREE)* 20511660 

AND (T#UNL0CKV) AND ( ABS< SMI D )*\2 ) » 20511662 

XJ*(SFID«0 OR ABS( SF JO )*12) % 20511663 

AND T LSS FREE AND T#UNLOCKVi 20511664 

Y*T»LOCKV AND(((N4 E^V McP)*NOT ) AND C (CMM[ 6 3 EQV MCP)# 205U665 

NOT 0)) AND T1»D*0PTN«-0PTN INX 0)1 20511666 

BEGIN Sll»CJ SIlsSl+ll DSl»LlT M "I DS»*7 CHRJ DS I *t I T M / W ; 20511670 

3(SII*Sl+ll DSl»7 CHR)I 20511680 

X(DH*DI-7J DS»»2 Lll"**")l 20511685 

Q(DSl»LIT" ">SIl«LQC Al S I I »S I Ml DS I "7 CHRJ DS | »L I TV" f 20511690 

SI*SI+ll DS*7 CHR)> 20511700 

Y(XCDI*DIM8)J SI*Cl4(SI*Sl+8)JSl*Sl*DDS#-7 CHRJ 20511702 

SI»SI*9I DS*7 CHR)J DS* LIT "**J 20511704 

END STREAM/ 205U710 

SPOUTER(OPTNtCARD#SECMSG)J 20511720 

EXYTJ 20511800 

END SECUTITYMAINTJ 20511810 

COMMENT THE PRT CELL "SHEET" GIVES DISK ADDRESS OF 1ST SHEET ENTRY 20512000 

*** ENTRIES IN THE SHEET ARE AS FOLLOWS! 20512400 

St OJ * 1ST NAME {7 CHRS) 20512800 

,t 2ll 3 * "CANDE" JOB CTSS ONLY) 20513200 

St 11 * 2ND NAME (7 CHRS) 20513600 

St 2JiC II ?J - NORMAL 20514000 

2 JOB HAS BEEN XS-ED (FORCED RUN) 20514400 

3 JOB HAS BEEN ES-ED (FORCED RUN AND DS) 20514800 
St 23.C 411 ) s SUPPRESS BOJ/EOJ MESSAGES FOR SYSTEM JOBS 20515200 
St 23, t 8110) * GO JOB (FROM COMPILE & GO) 20515600 

■ 1 COMPILER (FOR COMPILE & GO) 20516000 

* 2 EXECUTE JOB 205J6400 

* 3 COMPILER (FOR SYNTAX CHECK)(SET TO 2 LATER) 20516800 

■ 4 COMPILER (FOR COMPILE TO LIBRARY) 20517200 
» 5 RUN JOB 20517600 

St 23ai8U5) * SKELETONS DISK ADDRESS (IF SC2 J , C8 1 10 3 * l»2»4 20518000 

St 2),t33U5J « PRIORITY* SAME AS St 183 20518400 

St 33 1 C 111 3 b SET BY SELECTRUN WHEN "SCHEDULED" MESSAGE 20518800 

IS SENT (IF SCHEDULED) 20519200 

St 33. t 21 13 u 1 RESTART JOB 20519600 

St 33, t 8110) * SCHEDULE«1D FOR THIS JOB 20520000 

St 53 ■ STARTING TIME FOR LOG 20520400 

St 6) ■ LOCATION OF LAST PART OF LOG 20520800 

St 7) * CORE ADDRESS OF SEGMENT ZERO (WHEN THE 20521200 

SHEET IS PASSED TO SELECTRUN AS A PARAMETER) 20521600 

SC 133 * DISK ADDRESS OF LABEL EQUATION ENTRIES 20522000 

APPLICABLE TO THIS EXECUTION ONLY (SEE BELOW) 20522400 

SC 143 * ACTUAL MFID OF JOB (TSS ONLY), THIS MAY BE 20522800 

BE DIFFERENT FROM S[03 FOR SOME JOBS 20523200 

WHICH ARE STARTED BY CANDE, 20523600 

SC 153 » DISK ADDRESS OF LABEL EQUATION ENTRIES 20524000 

PRESENTED WHEN PROGRAM WAS COMPILED AND 20524400 

APPLICABLE TO ALL EXECUTIONS 20524600 

St 16 3 * ESTIMATED PROCESSOR TIME 20525200 

SC 173 * ESTIMATED I/O TIME 20525600 

St 183 ■ PRIORITY 20526000 

SC 193 * COMMON VALUE 20526400 

SC203 9 ESTIMATED CORE REQUIREMENTS 20526800 

S£203,t 211 3 » "CAN-T EXPAND" BIT (TSS) 20527200 

,133115) * ESTIMATED CORE REQUIREMENT 20527600 



*** 



sc?n 

S[223 
SC233 

S[233 
S[233 
S[243 
S[253 
SC26J 
St273 
SC293 
ENTRIE 
FC03 
Ft 13 
F[2], 
FC23, 
F[33. 
FC33. 
F[33, 
FC33, 
F[3). 



•C2f 63 
,[9193 
•C24I2 



43 



S FOR 



[OH83 
[18130 
CO I 63 
C 15163 

[23113 
[42113 
[43153 



3 






F[43, 

F[43. 

FC 123 

FC123 

FC 123 

F C 14 3 

F[293 

ALSO SE 

FURTHER 

PARAMET 



[0163 
[6142] 

.11511 
.[1612 
»U8l5 
- F[25 

E PROC 

INFOR 

ER BLO 



S 
S 

U 
R 
T 

» U 

■ D 
« L 
» F 

* D 

LABEL 
= M 

m F 

■ R 

* C 
« C 
» N 

* 1 

* 1 

* 
1 
2 
3 
4 
5 
6 
7 
8 
9 

10 

* N 

* I 
w 



« 

* D 

« E 

SAM 

■ D 

EOURE 

MATION 

CK, 



TACK SUE 
AVE FACTO 
NITNO OF 
EMOTE STA 
IME JOB P 
SER CODE 
ISK ADDRE 
OGLJNE (T 
ID FOR CO 
ISK ADDRE 
EQAT, ARE 
ULTI-FILE 
ILE ID 
EEL NO 
REATION D 
YCLE ( 
UM COPIES 
» IF "FRE 
FOR FOR 
FOR CP 
FOR LP 
FOR MT 
FOR SPE 
FOR LP 
FOR SPE 
FOR LP 
FOR PT 
FOR PT 
FOR MT 
FOR DIS 
OF CHAR 
NTERNAL N 
SENSITIVE 
ISK SPEED 
U NUMBER 
E AS ABOV 
ISK ADRS. 
"SELECTRU 
ON LABEL 



R FOR OBJEC 
CARD/PSEUDO 
TION ADORES 
UT IN SHEET 



T FILE (COMPILATIONS) 

READER IN CONTROLCARD, 
St ELSE 
(FOR TS MS6) 



SS OF 
SS) 
MPILE 
SS OF 

AS F 

ID ( 
(7 

(3 C 
ATE 
1 CHR 

OF P 
EF" P 
MS RE 

(FIL 



F ILE HEADER FOR THE JOB 



S.TAPE 

NEXT 
OLLOKS 
7 CHRS 
CHRS) 
HR5) 
(5 CHR 
) 

BD OR 
BD PAC 
QUIRED 
E TYPE 



NAME FOR LIBMAIN. 
SHEET ENTRY (*0 IF LAST 
I 

) 



S) 



CIFIC UNIT 
(MAY BACKU 

CIFIC (UNLA 
(MUST BACK 

(UNLABLED) 

(UNLABLED) 

K 

S IN INTERN 

AME (MAY CO 

" BIT 

♦ 1 

E FOR NEXT 
OF NXT.IBL, 
Nl" (SEQ,NO 
EQUATION A 



PUD FILE 
KET FILE 

S ) 



P) 

BLED) 

UP) 



AL NAME 
NTINUE TO 



F [ 1 1 3 ) 



FILE (FI143M4 IF 
EQUAT.ENTRY(bO IF 
.20055600) FOR 
NO THE FILE 



NO NE 
NONE) 



**** CONTENTS OF THE JAR* 



JAR[03 



JARC1J 



JAR[23 



JAR [33 
JAR[43 



111 
2l 1 

6142 

111 

211 

6142 

HI 

2»1 

311 

411 

511 

611 

711 

811 

C18I15 

[33115 






COMPILE JOB 
"CANDE* JOB (TSS ONLY) 
MFID OF THE JOB 
JOB IS BEING DS'ED 
JOB IS BEING ES-ED 
FID OF THE JOB 
COBOL JOB 

DECLARED SOFTWARD INTERRUPTS 
JOB HAS MAINTENANCE LOG ENTRY 
INTER*PR0GRAM COMMUNICATION 
DECLARED SOFTWARE INTERRUPTS 
INVOKED OR INVOKING IPC PROG, FILE 
INVOKED IPC PROGRAM FILE 
INTER-PROGRAM COMMUNICATION 

DISK ADDRESS FOR THE SKELETON SHEET (COMPILATI 
PRIORITY 

PROCESS TIME LIMIT 
10 TIME LIMIT 



20528000 
20528400 
20528800 
20529200 
20529600 
20530000 
20530400 
20530800 
20531200 

) 20531600 
20532000 
20532400 
20532800 
20533200 
20533600 
20534000 
20534400 
20534800 
20535200 
20535600 
20536000 
20536400 
20536800 
20537200 
20537600 
20538000 
20538400 
20538800 
20539200 
20539600 
20540000 
20540406 
20540800 
20541200 
20541600 

XT)20542000 
20542400 
20542800 
20543200 
20543600 
20544000 
20544400 
20544800 
20545200 
20545600 
20546000 
20546400 
20546800 
20547200 
20547600 
20548000 
20548400 
20548800 
20549200 
20549600 
20550000 

0NS20550400 
20550800 
20551200 
20551600 



JAR(53,C U23J ■ STARTING DATE (OCTAL) 20552000 

,[241243 9 STARTING TIME. (OCTAL) 20552*00 

JARC63.C Hi 3 ■ JOB IS SD-ED 20552800 

,t 216 3 • PSEUDO-READER NUMBER 20553200 

,tl8ll5J * SIZE OF LOG INFORMATION (BATCH) 20553600 

.[331153 * DISK ADDRESS OF FIRST RECORD FOR THF LOG 20554000 

JARC7J * IDLFTIME ENTRY (BATCH) 20554400 

JAR[7) » HF1D OF JOB (TSS ONLY), THIS MAY BE DIFFERENT 20554800 

FROM JARCO] FOR SOME JOBS STARTED BY CANDE, 20555200 

JAR[83 « LENGTH OF CODE FILE ROW 20555600 

JARt93,C 1»1 3 * "SYSTEM- JOB (LIBMAIN»LDCNTRL»PRNPBT ) 20556000 

,1 211 3 * SUPPRESS PRINTING OF BOJ/EOJ MESSAGES 20556400 

,U8>153 «= DISK ADDRESS FOR "CHAIN" IF NON-ZERO 20556800 

,[331153 « NUMBER FOR DISK ROWS IN CODE FILE 20557200 

JARC101 THROUGH JAR[293 * DISK ADDRESS OF CODE FILE ROWS 20557600 

JAR[303 * FID OF OBJECT FILE (BATCH COMPILES ONLY) 20558000 

END OF COMMENT) 20558400 

REAL PROCEDURE LIBCCJ 20566000 

BEGIN LABEL NEXTtLOOP; 20566011 

REAL CNTSENS * RETURNVAL+1, % BEGIN LOCALS TO LIBCC 20566245 

HOLDl ■ CNTSENS+lt 20566247 

H0LD2 a H0LD1+1* 20566250 

H0L03 * H0LD2+lt 20566255 

REPEAT * H0LD3+1* 20566260 

TYM ■ REPEAT+ll 20566265 

BOOLEAN FIRSTIME ■ TYM+11 20566270 

LABEL CCA*OUIT»POWlF»CHAN»REMO»INCSC»GETEM»ENTE»LCOPY#SEEK#INIT* 20566600 

LABEL D0WNR»0UTR) 20566610 

SWITCH SH*LcOPY»LCOPYtENTEiENTE»REMOtCHAN; 20566700 

DEFINE ZlPMlX«CARD,tl8l6]#J 20566740 

SUBROUTINE BOTH? 20566750 

BEGIN CMM[03«» M LIBMAIN"> CMMC 1 j t «"D I SK "> 20566^55 

CMM[23t«042C8l38U03j CMM[133|»0; 20566760 

£ SET OMIT • PACKETS 20566765 

CMMt233««0&CARD[9J9l9)l 20566770 

S POP OMIT 20566775 

$ SET OMIT * NOT(PACKETS) 20566780 

CMM[233l=0&CARD[9l9*9]&(IF ZIPMIX NEQ THEN PSEUDOM I X[ Z I PMI X 320566785 

ELSE UN1TN0H2I42I6J* 20566790 

t POP OMIT 20566795 

END OF BOTH; 20566797 

SUBROUTINE GETEMFORREM) XSTORE NAMES OF SENSITIVE FILES IN ESPDISK 20566800 

BEGIN CNTSENS»»CNTSFNS+2) 20566805 

IF CNTSENS GTR 26 20566810 

THEN BEGIN PR0G[ 29) I*GETESPD I SK J 20566815 

DISKWAIT(PR0G INX 0#30tLIBN0)J 20566820 

LIBN0l*PR0Gt293l 20566825 

CNTSENSJ-2; 20566830 

E ND; 20566835 

PROGCCNTSENS3?«CMM[2J; 20566640 

PR0G[CNTSENSM3t«CMM[33; 20566845 

END OF GETEMFORREM; 20566850 

REAL SUBROUTINE SCAN; 20566875 

SCAN*SCN(UNlTNO»CARDLOC»SOURCE»ACCUM»KOUNT»LASTSCAN# 20566900 

DIRECT); 20566902 

REAL SUBROUTINE SKAN; 20566905 

BEGIN 20566910 

STREAM(X|«0ICN1"0#ACCUM); 20566915 

BEGIN 20566920 

SI»«ACCUM;SH*SI + 1; 20566925 



8(IF SC GEO "0" THEN BEGIN S I I *S I + 1 ; T ALLY I »T ALLY* 1 i END ELSE 20566930 

IF SC*" " THEN JUMP OUT ELSE BEGIN T ALLY I sQ t JUMP OUT END); 20566935 

CNI»TALLY|SM«SI»CNID|I*L0C X;DSI«CN OCT; 20566940 

END! 20566945 

SKANJ«P) 20566950 

END OF SKAN; 20566955 

PCRCWiMYMSCW»STF); 20567000 

RCWl«RCW & P(XCH)[CTC)I 20567010 

P(0#0»0t0t0«0#0); % ZERO LOCALS OF LlBCC 20567015 

LIBCC»*0| 20567020 

FIR5TIME«»TRUEJ 20567025 

UNI TNO*(CARDt[ 3153*28) , [43151*4; 20567100 

CARDLOC*CARD I NX 01 20567200 

GO TO SWC T-COPY j ; 20567300 

UCOPYI 20567400 

ENTEt 20567500 

IF (CNlwSCAN)MDENT THEN 20567600 

BEGIN! 20567700 

IFCPR0G[0]J»SKAN)B0 THEN PRQG[03l*511 ELSE CNl»SCANl 20567800 

IF PROG[03>511 THEN PROGC 3 « *51 1 ; 20567900 

END ELSE PR0GC03 *»51 1 J 20568000 

CMM[19]|»0J 20568050 

$ SET OMIT • N0TCB6500L0AD) 20568059 

IF CNBB6500 THEN BEGIN CMM[ 19 J . 1 15 » 1] ; *1 J CN t *SC AN END* 20568060 

$ POP OMIT 20568061 

IF CNsTOV AND T GTR UNLOAD THEN 20568100 

BEGIN 20568200 

IF (CN«»SCAN)«EU THEN 20568300 

BEGIN 20568400 

IF(CNI«SCAN)i'IDENT THEN GO TO INCSC* 20568500 

IF PCSKAN»DUP)>19 THEN BEGIN P(DEL)JG0 INCSC END* 20568600 

CN*P+l?CMM[19J,[9l6J*CN| X022-2056861Q 

IF CN>NEUP.NEUF THEN GO TO JNCSCJ 20568611 

END 20566620 

ELSE IF CN-SLOW THEN CMM[ 19 ]*P( DUP.LOD ) OR M ELSE 20568630 

IF CN«FAST THEN CMMC 1 9 ] , I 3 1 13*1 ELSE GO TO INCSC* 20568640 

CNIpSCAN; 20568650 

END; 20568700 

IF CNsLATESTV AND T GTR UNLOAD THEN 20568710 

BEGIN 20568712 

CN»»SCAN) 20568714 

CMMC193 1 [41 1 3 I"*1X 20568716 

END; 20568718 

IF CN»EXPIRED THEN 20568728 

BEGIN 20568729 

PR0GC0].[9I1JI"1I 20568730 

CN!«SCANI 20568740 

END; 2056875* 

IF CN*ACCESSD THEN 20568760 

BEGIN 20568770 

PROGtOl.CBll ll»ll 20568780 

CNi-SCAN; 20568790 

END; 20568795 

IF UNITN0«23 OR UNITN0s24 OR UNITN0S32 THEN 20568900 

PR0G[03,C2l63*UNITN0; 20569000 

IF SCAN*IDENT THEN GO TO INCSC; 20569100 

PR0Gmt»CMM[27]t*ACCUM[0]; 20569200 

PR0Gt28)*0; 20569250 

BOTHI 20569300 

LIBN0*GETESPDISK;CMMtl9],CCFJ*LIBN0; 20569800 



CMM[19],[FF3*T; 20569810 

GETEMI % SCAN FILE NAMES AMD STOHE THEM IN ESPDISK 20569900 

FOR CN*2 STEP 2 UNTIL 26 DO 20570000 

BEGIN 20570100 

if <optn*scan)*equal then pr0g[cn3*-1 20570200 

else if optn>ident then prog[ cn]*accum[ 3 else go powiej 20570300 

ie scamslash then go powiej 20570400 

if coptn*scan)«eQual then progicn+ij*-i 20570500 

else if optnildent then pr0g[cn+1 j«-accum[ 3 else go pow i ej 20570600 

if c0ptn*scan)«peri0 or optnupound then go to quitxlp 1 20570700 

else if 0ptn*c0mma then go powiej 20570800 

END* 20570900 

PR0G[29]*GETESPDISK; 20571000 

DISKWAIHPROG INX 0»30tLIBNO)J 20571100 

LIBN0*PR0G[293j 20571300 

GO GETEMI 20571400 

QUITI 20571500 

PR0GC293-0J 20571600 

PR0G[CN*23*P14J 20571700 

DISKWAITCPROG INX 0»30tLIBN0)J 20571800 

LIBN0*ABS(CMMtl9])J 20572000 

GO IN1TI 20572100 

POWIEJ 20572200 

IF CMM[19J,[CF]#LIBN0 THEN J! MORE THAN ONE SEGMENT USED 20572300 

BEGIN 20572400 

DISKWAIT(-PR0G«[CF3#30»CMMtl9J,[CF ))J 20572500 

FORGETESPDISK(CMMC19 3.tCF3); 20572700 

CMMC19J*PR0G[29)I 20572800 * 

GO POWIEJ 20572900 

ENDJ 20573000 

F0RGETESPDISK(LIBN0)J 20573100 

GO INCSCJ 20573200 

REMOt 20573300 

IF (CN*SCAN)*EQUAL THEN CMM[03«-«*1 ELSE 20573400 5 

IF CNfclDENT THEN CMMl OJ*ACCUMl J ELSE GO INCSCJ 20573500 

IF SCAN#SLA5H THEN GO INCSCJ 20573600 

IF (CN*SCAN)«EQUAL THEN CMM[13*M ELSE 20573700 

IF CN^IDENT THEN CMM[ U*ACCUM [ 03 ELSE GO INCSCJ 20573800 

CNtnTlsOJ 20573850 

IF CCMMC03 OR CMM[1J) LSS THEN 20573900 

SEEKl 20574000 

SEEKNAM(CMMtOJ#CMMC13#CN#CMM[23»CMMC3J.OPTN) ELSE 20574100 

BEGIN 20571200 

CMM[23I«CMM[0)J 20574300 

CMMUJl«CMMtl3J 20574400 

CN!*tl 20574500 

ENDJ 20574600 

IF CN NEO 20574700 

THEN TlMF SYSTEMFILE(CMM[2J»CMMC33) 20574750 

THEN ? 20574800 

ELSE D!RECT0RYSEARCH(CMMC2J»CMM[33#5) 20574850 

ELSE IF OPTN NEO THEN GO OUTRJ 20574875 

IF T GEO 64 THEN 20574900 

BEGIN IF H0LD3i«NOT(M[T + 4],[44tl3) THEN BEGIN FORGETSPACE< T ) J 20574905 G 

T»*DIRECT0RYSEARCHCCMM[23»CMM[33&CUNITN0*25 OR UN I TN0»30 320574910 • 

Cll47U3f4)J ENDJ 20574915 
IF M[T*4], [43123*3 THEN BEGIN FORGETSPACEC T ) J T!*U ENDJ 20574920 

ENDJ 20574922 I 

IFCARDiCSlUTHENGODOWNRJ 20574925 _ 

IF T LSS 2 20574950 



THEN IF T»l 20575000 

THEN LBMLSSCABSCCMM[2J)»CMMC3J#-7#45»0fSP0UTUNlT»l) 20575050 

ELSE LBMESS(CMM[O3tCMMll]»-7«lS»O»SP0UTUNITtl> 20575100 

ELSE IK T*2 20575150 

THEN LBMfSS<CMM[2l»CMM[3]»-7t25»0»SPQUTUNlTtl> 20575200 

ELSE IF T GEQ 64 20575250 

THEN BEGIN 20575300 

IF M£ 1 +2 J NEQ AND (USEKID EQV MCP) NEQ 20575350 

NOT AND CUSERID EQV ABS(MtT+23)) NEQ 20575400 

NOT 20575450 

THEN BEGIN 20575500 

lbmess(cmm12j»cmm[3]»-7»41» 20575550 

o»spoutunit»d; 20575600 

f0rgetspace(direct0rysearchccmmt2]»20575650 

CMM[3J»14)); 20575700 

LND 20575750 

ELSE IF M[T+4J, [43123 NEQ 20575800 

THEN BEGIN 20575850 

DOWNRJ IF FIRSTIME 20575900 

THEN BEGIN 20575950 

FlRSTlMEIaOl 20576000 

CMMU9]lB(LIBN0t* 20576050 

GETESPDISK)&36tCTF3; 20576100 

END* 20576150 

M[T*4J,t43|2Jl*ll 20576200 

DISKWAITCT.UF3»30#T,[FFJ); 20576210 

IF H0L03 THEN FQRGETSPACEC 20576215 

DIRECTORYSEARCH(CMM[23» 20576216 

CMM[33»14))1 20576217 

GETEMFORREMJ 20576220 

END 20576250 

ELSE F ORGE TSPACECDI RECTOR YSE ARCH (20576 300 

CMM[23»CMM[33»6 20576350 

t SET OMIT s NOT (PACKETS) 20576395 

&SP0UTUNIU9I9I9J 20576400 

&SP0UTUNITt24«42l6J 20576405 

$ POP OMIT 20576410 

)); 20576415 

FQRGITSPACE(T)* 20576450 

END» 20576475 

IF CN NEQ AND (CMM[03 OR CMM[13) LSS THEN GO SEEKI 20576500 

OUTRl IF (CN!«SCAN)*C0MMA THEN GO REMOJ 20576600 

IF CN*PERI0 THEN 20576700 

IF NOT FIRSTJME THEN 20576710 

BEGIN OPTNl«CN» PR0Gt29JI*0l 20576780 

PR0G[CNTSENS*23l«ei4l 20576730 

DISKWAJTCPRQG INX Q*30»LIBN0)J 20576740 

LIBN0l*ABS(CMMtl9J)l 20576750 

BOTHI 20576752 

GO INITJ 20576770 

END 20576780 

ELSE GO CCA 20576790 

ELSE GO IN6SCI 20576800 

CHAN! 20576850 

Tl»OJ % T USED AS BIT MASK FOR SYNTAX CHECK 20576900 

FOR CN»»0 STEP 1 UNTIL 3 DO % SCAN INPUT REQUEST 20576925 

BEGIN 20576950 

OPTN i» SCANI 20576975 

T l« (OPTN»fQUAL) * T£43l44j43J % SHIFT PREVIOUS VALUE LEFT 20577000 

IF T THEN CMM[CN3 t» (-1) ELSE 20577025 



IF OPTN GEO IDENT THEN CMMCCN3 |« ACCUM[0] ELSE 20577050 

GO TO INCSC) % INCORRECT REQUEST 20577075 

OPTN la SCAN! X SKIP "/"»"»" OR ")" 20577100 

END) * SCANNING INPUT REQUEST 20577125 

IT (T NEQ 0) AND (T NE« 5) AND (T NEQ 10) THEN GO INCSC) 20577150 

% T»5 FOR */<NAMEl> TO */<NaMe2> 205/7175 

% T«10 FOR <NAMEl>/« TO <NAME2>/» 20577200 

% T*0 FOR <NAME1>/<NAME2> TO <NAME3>/<NAME4> 20577225 

IF <REPEATl«(T GTR 0)) THEN 20577250 

BEGIN 20577275 

H0LD1 t« CMM(OJ) H0LD2 l« CMM[U) TYMIM) CNl»0f 20577300 

LOOPI SEEKNAMCH0LD1* H0LD2* CN» CMM[0J» CMMCU* H0LD3)) 20577325 

IF CN » THEN % NOT FOUND IN DIRECTORY 20577350 

BEGIN 20577375 

IF TYM ■ 1 THEN % FIRST PASS* NULL SEARCH 20577400 

BEGIN 20577425 

LBMfSSCHOlOlt H0LD2» •»» 15* XNOT CHANGED. NOT ON DISK20577450 

0, SPOUTUNlTtlJI 20577475 

END; 20577500 

GO TO NEXT! 20577525 

END! 20577550 

TYM |* 2; 20577575 

IF H0LD1 LSS THEN CMM12J I* CMMCO] ELSE 20577600 

IF H0LD2 LSS THEN CMMC3J I* CMM[1J| % USE NAME "FOUND" 20577625 

END; 20577650 

IF CTl»DlRECT0RYSEARCH<CMM[2]»CMM[3]»5)> NEQ THEN 20577675 

BEGIN 20577700 

FORGETSPACE(T)) 20577725 

LBMESS(CMM[03» CMMUJ* *5* 29» % NOT CHANGED* DUP FILE 20577750 

Of SPOUTUNIT* 1)} 20577775 

END ELSE 20577600 

BEGIN 20577805 

TIMF SYSTEMFILE(CMMtOJ.CMMCU) THEN 2 ELSE 20577810 

DlRECT0KYSEARCH(CMMt0JtCMMtn»5); 20577815 

IF T GE9 64 THEN 20577820 

BEGIN IF N0T(M[T*4J,U4»1 J) THEN BEGIN t ORGETSPACEC 7 ) ; 20577823 

Tl«DIRFCT0RYSEARCH(CMMt0].CMMtlJ&CUNITN0s25)t 11471 U» 20577826 

4)) ENDI 20577827 

IF M[T+4],[43l2J»3 THEN BEGIN FORGETSPACE( T ) ) Tl»l) 20577829 

END) 20577832 

END) 20577833 

IF T LSS 2 THEN 20577835 

LBMESS(CMM[0]»CMM[l].-5.15+<(TM>x30)» % NOT CHANGED 20577875 

% 45 * IN USE* 15 * NOT ON DISK 20577900 

0. SPOUTUNIT* 1) 20577925 

ELSE IF Tp2 THEN 20577950 

LBMESS(CMM[Q1» CMMm* *5* 25* * NOT CHANGED* SYSTEM FILE 20577975 

0* SPOUTUNIT* 1) 20578000 

ELSE IF MCT+2J NEQ AND * NOT FREE FILE 20578025 

(USERID EflV MCP) NEQ NOT AND % NOT MCP 20578050 

(USERID EQV ABS(M[T + 2J)} N£Q tiOT THEN * NOT CREATOR 20578075 

BEGIN 20576100 

LBMESSCCMM[0]* CMMUJ* -5. 41* * NOT CHANGED* INVALID USER 20578125 

0* SPOUTUNIT* 1)) 20578150 

IF M[T*4J,[43«21 NEQ 1 THEN 20578175 

FORGETSPACEC D IRFCTORYSEARCHC CMM[ J » CMMtlJ* 14 ) )J 20578200 

FORGETSPACECT)! 20578210 

END 20578225 

ELSE 20578250 

BEGIN % CHANGE OK 20578275 



M[T + 4]»*(*P(DUPm2[ 1»46»23; 20578300 

DlSKLQGCCMM[OJ»CMM[U«IOQUl&HCTCJ)» *U2 20576325 

TtsT&EUF(*CMM[2JtCMM[3J»T INX 0-1) C IB J 33 1 15 J 1 20578375 

F0RGETSPACE(DlRtCT0HVSEAHCH(CMM[0]#CMM[n#8))l 20578400 

HEA0ERUNL0CK(CMMt2JiCMM[3JiT)l 20578425 

LBMESSCCMMfO]. CMM[U» 52. * CHANGED TO 20578525 

CMM[2J, CMM[3J» SPOUTUNlT. LIBMSG); 20578550 

PBCOUNT»wPBCOUNT-(CC(CMMLO] E«V M PBD ")*N0T 0) OR 20578575 

CCCMMCQJ EQV "PUD ")*N0T 0)) AND ( CMM[ 1 3 . UF 3*1 ) > 20578600 

♦(((CCMMC23 EQV "PBD ")«N0T 0) OR 20578625 

CCCMMC23 EQV "PUD ")*N0T 0)) AND ( CMMt 3 J , [ CF 3 *1 ) ) J 20578658 

END; 20578675 

ENDI 20578685 

IF REPEAT THEN GO TO LOOP; * FIND REMAINING FILES 20578700 

NEXTI 20578725 

IF OPTN*COMMA THEN GO CHANI 20579900 

IF 0PTN*PERI0 THEN GO TO CCA ELSt GO INCSC; 20580000 

*N I T I LIBCC'LIBNO; GO TO CCA; 20580100 

incsc i libccm; 20580200 

CCA« CADDR»*CDEX««0; 20580300 

IF (LlBN0l*PR0cVAL) GTR 1 THEN PR0CVALl«2 ELSE 20580305 

IF LIBNO THEN PR0CVAL»*6 ELSE PROCVALl»0; 20580310 

RETURNVAUl«PROcVALl 20580330 

P(tRETURNRCW]»STS»0#RDS»0»XCH*P&PCCTFl#STF); 20580340 

eND> * LIBCC PROCEDURE 20580350 

REAL PROCEDURE CCSET; FORWARD; 20580400 

PROCEDURE CCFINISH; 20580808 

BEGIN 20580852 

REAL TEMP « RETURNRCW+i; X BEGIN LOCALS OF CCFINISH 20581080 

P(RCW*MYMSCW»STF)J 20581125 

RCW»»RCW & PCXCHHCTCll 20581130 

P(0); % ZERO LOCAL OF CCFINISH 20581140 

PPCPR0CESSt*0) 20581150 

CNI»T» 20581200 

IF OPTN * PERIO OR OPTN * LIBRA THEN 20581250 

BEGIN 20581300 

CMM[223»* PR0GC223; 20581350 

PR0GC23,£CF3l* IF PR0GC18J > 32767 THEN 32767 20581400 

ELSE PR0GC18J; 20581458 

IF PR0GC2QJ > 512 THEN PR0G[20)I* 512; 20581500 

IF PADDR NEC THEN 20581550 

BEGIN 20581600 

PE8Nt29]|s OS 20581650 

IF PDEXwO THEN PEQN[0)l«HJ 20581700 

IF PDEXwl THEN PE0N[14J»p 141 20581750 

DISKWAITCPEQN, CCF3»30»PADDR); 20581800 

END; 20581850 

PR0GC29J|» 0; 20581900 

CMM£2J,C18I153»« CLOSET** GETESPDISK; 20581950 

DlSKWAlT(PROG f tCF3»30»CLOSET); 20582000 

END! 20582050 

IF CADDR NE« THEN 20582100 

BEGIN 20582150 

CE0N[293l» 0; 20582200 

IF CDFX*0 THEN C£QN[03»* 14; 20582250 

IF CDEXM THEN CE«N[14}»* 14; 20582300 

DISKWAIT(CE0N,CCF3»30»CADDR); 20582350 

END; 20582400 

SLEEP<tT0GLE3#SHEETMASK)j LOCKTOGC SHEETMASK ) ; 20582450 

CDEXl» GETESPDISKI 20582500 



CMMC2J,CCFJ* S IF CMM[i8j > 3276? THEN 32767 ELSE CMM[18]| 20582350 

PDEX'IF CMMtl8]>SHEFTMAX THEN SHEETMAX ELSE CMMU8JJ 20582600 

IF L1BN0 NEQ THEN CMM119JI* LlBNOl 20582650 

IF CMM[20J > 512 THEN CMMC203 t» 512? 20562700 

STREAMCAI»OlS»*P(,SCHEDULElDS))l 20582750 

BEGIN SllsSJ 20582800 

47CSKJP SB! SKIP DBI 7 ALLY I *T ALLY* II 20582850 

IF SB THEN BEGIN END ELSE JUMP OUT)* 20582900 

DSl« SET! Al* TALLY! 20582950 

END STREAM) 20583000 

TEMP** Pi CMMt3]j« 0&TEMP[8l38llO]l 20583050 

CMM[23],I2«|241*CCL0CK*PCRTR))DIV 60? 20583100 

IF SHEET[PDEX],tCF] NEO THEN 20583150 

BEGIN 20583200 

DISKWAlT(*PR0G,tCF]»30»PAD0Rl»SHEET[PDEXl f IFF 3)1 2058 3250 

PR0GC29JJ* CDEXI 20583300 

DISKWAIT(PR0G.[CFJ»30»PADDR); 20583350 

END 20583400 

ELSE SHEET[PDEX]1* CDEXI 20583450 

SHEET[PDEX3, (1811531* CDEXI 20583500 

CMM[29Jl» 0> 20583550 

OlSKWAlT(CMM,tCFJ»30»GDEX)l 20583600 F 

UNLOCKTQGCSHEETMASKJJ 20583650 

TJ» CN1 20583700 

P(CRETURNRCW]»STS#OtRDS»Of XCH » P&P [ CTF 3 » STF )l 2056 3710 

END CCFINISHI 20583750 

REAL PROCEDURE CCCOMPILFI 20583600 

BEGIN COMMENT SETUP Of COMPILER LABEL EQUATION CODE! PN1/PN2I 20583860 

REAL SUBROUTINE SCAN! 20584150 

SCAN«-SCNCUNlTNO.CARDLOC#SOuRCE»ACCUM.KOUNT,LASTSCAN,DlRECT)? 20584200 

LABEL SKN.EXIT! 20564250 

DEFINE ZlPMlX«CARD,tl8!63#l 20584275 

HEFINE DISKTYPE * 10#|X 20584300 

P(RCW»MYMSCW»STF)! 20584325 

RCWl»RCW & P(XCH)tCTCJ! 20584330 

TUSCAN!* 20584350 

CEQNCOJI«ACCUMtO]jX 20584400 

T|«SCANl* 2058445B 

T|*SCANI* 20564500 

CEQNC13l»ACCUM[03lS 20584550 

CEQN[23»«0lX 20584600 

CEQNC3J»*DISKTYPEJX 20584650 

CE9N[4JI"«»423462425606060lX 20584700 

CEQNU23»*0! % EU/SPEED CELL * ( SHM )205847l0 

CDEX l»ll* 20584750 

IF ((UNITNO+DAND 24)»24 OR UNlTNO GEO 32 THEN* 20584800 

BEGIN CEQNU4jl«CE0NU6]l*CEGNU7JI»0!X 20584850 

CEQNC153I* "CARD 00" OR CUF UNITNO GEO 32 THEN* 20584900 

"C/" ELSE P5772) ♦ UNJTNQ)!* 2058495d 

CEQN[183t«P423215124000000! CDEXl*2IX 20585000 

IF UNITNO GEO 32 THEN C 1DR0W t UN I7NO-323 . ( 3 1 53 1 »1 ELSE* 20585050 

IF UNITNO-23 THEN READERA,tFF3 * 1 ELSE 20585100 

IF UNITN0»24 THEN READERB f [FF3 * II 20585125 

END! 20585150 

WHILE (CNl«SCAN) LSS ALGOL OR CN G1R COBOL DO 20585200 

IF CNePERIO THEN BEGIN CCCOMPI LE I «1 I GO EXIT END! 20585250 

IF CN«WITH THEN 20565300 
IF (CN*SCAN)*PERI0 THEN BEGIN CCCQMP I LE*i I GO EXIT END! 20585350 

IFCN<ALG0L0RCN>C0BOLTHEN 20585355 _ _ 

IF(T»"DIRECTORYSEARCH(ACCUM[03. W DISK %5))#0 THEN 20585360 f 



# 



"»-22>0»0» 



GO EXIT* 



BEGIN IF NOT M[T+4] f [8llJ THEN 

BFGIN LBMESS(ACCUMt01# M DlSK 

sp0utunit»1)> 
forgetspacect)» cccompil£*u 
end; forgetspace(T); 

END! 
COMMENT SET UP NOMINAL VALUES FOR PROGRAM PaRAMeTERSjX 
CMMC03>»-(CMPLRl*ACCUM[OJ)J CMM[ 1 J l»CEQNtO J I 
CMMC2J I»0J 

CMMC13JI* CADDRl* GETESPDISK? 
S SET OMIT * PACKETS 

CMM[23 3*0&UNITN0[2J42I6J! 
$ POP OMIT 
t SET OMIT » NOTCPACKETS3 

CMM[233I»0&( IF ZIPMJX#0 THEN 

ELSE 
S POP OMIT 

CMMC27] l*CEQNC 1 3 * XF ID FOR SCHED MESS, 
% GET OPTION (GO»SYNTAX CHECK* OR LIBRARY) 

SKN| DO OPTNl*SCAN UNTIL QPTN*PERIO OR OPTN«SYNTA OR OPTN*LlBRA 
OR OPTNwOUESTl % IN CASE OF HYPHEN IN COMMENT PORTION 
IF OPTN»QUESl THEN 

IF SQURCE*CCARDLOC&U30l45l3l) THEN 
BEGIN 

OPTNl»PERIO> S0URCE»«CARDLOC* 
END ELSE GO TO SKNJ 
CMM[2J,[6tlO] l* IF 0PTN*PERIG THEN 1 ELSE 

IF OPTN*SYNTA THEN 3 ELSE 
IF OPTN NE« SYNTA THEN 
% SET UP PROG ARRAY FOR COMPILE AND GO OR COMPILE TO LIBRARY 



PSEUOOMIXUIPMIXJ 
UNITN0H2U2I6J; 



4JXC0PTN»LIBRA> 



JOBS 



BEGIN 



PROGCOit* CEONC03J 
PROGtUl* CEONtn» 
PR0GC23|» 01 

MOVE(27#CPROGt2J]#[PROG[33 J)J 
PR0Gtl6J|cPROGC17 3|s 93777777777771 
PR0Gtl8Jt= SHEETMAX D IV 2; 



XVOID 



PRQGC20JJ* 
PR0G[21)I» 
PRQG[223 t» 
PR0GC233I* 
PR0GC243 I* 
PR0GI263J* 



"II 

5121 

10> 
CMMC233 ; 

USERIDJ 
IF LOGLINE 



GTR THEN -31 ELSE LOGLINE* 



END) 
EXjTt RETURNVALl»PROCVALJ % ADJUST RESULT OF TYPED PROC 

P(CRETURNRCW]#STS»0,RDS#0,XCH»P8iPtCTFJ»STF)» 
END CCCOMPlLEJ 

REAL PROCEDURE 1 Nl T I ALI ZF I Tl 
BEGIN LABEL TRYAGAlN»LS»SPLAT»SPOTiEXITJ 



REAL 
REAL 



■ RETURNVAL+U % BEGIN tOCAL TO INITIALIZEIT 



CMM1 

SUBROUTINE SCAN) 

SCAN*SCNCUNITN0»CARDL0C» SOURCE* ACCUM»KOUNTtLASTSCAN»DIRECT)l 

P(RCW»MYMSCW»STF)> 
RCKI»RCW & PCXCHHCTCJl 
PCO)l X ZERO LOCAL TO INITIALIZEIT 

PRQGU3Jl«PADDRl"PDEXl«0» % IN CASE PROGRAM NOT IN DIRECTORY 
TRYAGAINI 

IF (Tl»DlRECT0RYSEARCH(ABS(CMMC03)»CMMH*IF CMM[OJ LSS THEN 
"DISK " ELSE CMM[13»3))»0 THEN 



20585365 

20585370 

20585375 

20585380 

20585385 

20585390 

20585400 

20585450 

20585500 

20585550 

20585599 

20585600 

20585601 

20585609 

20585611 

20585620 

20585621 

20585630 

20585650 

20585700 

20585705 

20585710 

20585715 

20585720 

20565725 

20585730 

20585750 

20585800 

20585850 

20585900 

20585950 

20586000 

20586050 

20586100 

20586110 

20586150 

20586200 

20586250 

20586300 

20586350 

20586400 

20586450 

20586500 

20586510 

20586550 

20586600 

20586625 

20586656 

20586700 

20586715 

20586950 

20587050 

20587100 

20587110 

20587120 

20587130 

20587150 

20587170 

20587200 

20587250 



BEGIN 20587300 

IF CCMM£QJ EQV "LIBMAIN")*N0T THEN 20587310 

IF (CMMC1J EOV "DISK ")*N0T THEN 20587320 

BEGIN 20587330 

ENTERSYSFILEC1)) 20587340 

GO TRYAGAIN) 20587350 

END; 20587360 

BEGIN 20587500 

LSI UBMESS<ABS(CMM[0J)»CMMl#-l5»0»0»SP0UTUNIT»l); 20587550 

REP0RTBACK(N0TIN»0#O)J 20587610 

SPLATl 20587650 

IF UNITNO GFQ 32 THEN BEGIN I N I T I AL I ZE I H *5) GO EXIT END; 20587700 

END? 20587750 

DO Tl*SCAN UNTIU T GEQ UNLOCKV AND T LEQ RESETV) 20587800 

IF UNITN0*31 AND NTl GEQ THEN BEGIN IN JT I ALlZEI T l»7l 2058785* 

GO EXIT END* 20587900 

NT1I»0| INITI ALlZElTt«lf GO EXIT ) 20587950 

END ELSE IF M[T INX 43, [9123*2 THEN 20588000 

BEGIN FORGETSPACE(T)J 20588010 

GO TO SPOT) 20588020 

END) 20588030 

IF SECURITYCHECK(ABS(CMM[03). 20588050 

CMM1, 20588100 

USERID»T)*0 20588150 

THEN BEGIN OPTNl*0) CMMC23 l«T; 20588200 

REPQRTBACKC SECURED* 0»0)) 20568210 

FORGET SPACECDIREC TOR YSEARCHCABSCCMMt 03 )» 20588250 

CMM[13l*CMMl» 20588300 

13))* INITIALlZEIT)»4) GO EXIT ENDI 2058835* 

DISKJ0CN1»-(PEQN INX 0-1) * 30»M[ T+l 3 ) ) 20588400 

P(M[T INX 43,[9l?3*3>) 2058841© 

FORGETSPACE(T)> 20588450 

CMMt24]|* USERIDI 20568500 

CMMC253IP T,tFF3> 20588550 

CMMt263«*IF LOGLINE GTR THEN -31 ELSE LOGLINE) 20588560 

CMM[143»* ABS(CMMtOI)) 20588570 

SLEEPUN13»10MASK)» 20588600 

FOR Tl«l STEP 1 UNTIU 4 DO 20588650 

IF (NOT ABS(PEQNtT3&0[CTC3)) NEQ NOT THEN Tl* 7» 20588700 

IF NOT T THEN 20588750 

BEGIN 20588800 

IF P AND PEQNt23,t3ll3 THEN 20588810 

LBMESSCABS(CMMt03)»CMMl#-46»0»0»SPOUTUNIT»l) ELSE 20588850 

SPOTt LBMESS(ABS(CMMt03)#CMHl»-19»0»0#SPOUTUNIT»lH 20588900 

FORGETSPACECD!RECTORYSEARCH(ABS(CMM[OJ)» 20589001 

CMM1.13))! 20589050 

R£PORTBACK(NOTX#0»0)» 20589110 

GO TO SPLAT) 20589150 

END) 20589200 

IF PE8N[63 LSS THEN FOR Tl*15 STEP 1 UNTIL 22 DO 20589250 

CMMtT]l»PEQN[T] ELSE 20589300 

BEGIN 2058935* 

CMM[153l* 0) 20589400 

CMMU63I* CMMU73I* $3777777777771 2058945* 

CMMtl83l«SHEETMAX DIV 2) 20589460 

CMMU93I* 0) 2058947* 

CMMC203I* PEQN[7J, £FF3) 20589460 

CMM12UI* 512) 20589490 

END) 20589500 

♦NITIALIZEITI-3) 20589550 



EX I T I RETURNVALtsPROCVALJ * ADJUST RESULT OF TYPED PROC 20589600 

P([RETUKNRCH3»STS»0iR0S»0tXCH»P*P[CTFJt STF3I 20589610 

END INITIALIZEIT; 20589658 

REAL PROCEDURE CCUNITJ 20589700 

BEGIN LABEL Ul t ERROR t EX I T I 20589720 

REAL SUBROUTINE SCAN) 2058995ft 

SCAN*SCN(UNITNOtCARDLOC»SOURC£»ACCUM.KOUNT»LASTSCAN.DlRECT)J 20590000 

P.(KCHiMYMSCHtSTF)I 20590010 

RCWI1RCW & P(XCHHCTcJ) 20590021 

Tl« SCANI CNl* ACCUM[03> 20590050 

T*SCAN> IF T#E8UAL THEN GO ERROR* 20590100 

FOR TJs STEP 1 UNTIL 31 DO 2059015Q 

IF CN,[6»18]«TINUm,[30ll8J THEN GO TO Ull 20590200 

GO ERROR? 20590250 

Ull IF LABELTABLECT) NEO P314 THEN BEGIN CCUNlTt*6| GO EXIT END) 20590300 

CN|« SCANI 20590350 

MULT1TABLECTJ|*RDCTABLE[T]|*0) 20590400 

LABELTABLEITJJ* ACCUMCO]) 20590450 

IF <CNl» SCAN) * SLASH THEN 20590500 

BEGIN MULTITABLE[TJ1* LABELTABLEt T J 1 20590550 

CN*SCANI LABFLTABLEtTl*ACCUMtO]l CN*SCAN) 20590600 

END! 20590610 

IF CN*CQMMA THEN 20590658 

BEGIN IFCCN*SCAN>#1DENT OR K0UNT>3 THEN GO ERROR) 20590655 

STREAM(R*OlKOUNT*ACCUM)) 20590668 

BEGIN SI«-ACCUMISI«.SI + 1IDI«-L0C R)DS*K0UNT OCT ENO) 20590665 

RDCTABLEtT]*PCXCH»R0CTABUE[T])*P(XCH)tUl38U0JI 20590668 

IFCCN*SCAN)*COMMA THEN 20590670 

BEGIN IFCCN»SCAN)fIDENT OR K0UNT>5 THEN GO ERROR) 20590675 

STREAM (R*0 I KOUNT.ACCUM)) 20590680 

BEGIN SI*ACCUM)SI*S1*1)DI*L0C R)DS*K0UNT OCT END) 20590685 

RDCTABLE[T3*P(XCH»RDCTABLE[TJ)&P(XCH)[24|31U7]I 20590688 

IF(CN«-SCAN)«fCOMMA THEN 20590690 

BEGIN IF(CN*SCAN)i«IDENT OR K0UNT>2 THEN GO ERROR) 20590695 

STREAM(R*0|KOUNT.ACCUM)) 20590700 

BEGIN SI*ACCUM)SI*-SI + 1)DI*L0C R)DS*-KOUNT OCT END) 20590705 

RDCTABLEtT]*P(XCH.RDCTABLEtT])&PCXCH)[4H41l73) 20590710 

END XCYCLE 20590715 

END ^CREATION DATE 20590720 

END) XREEL NUMBER 20590725 

IF CN# PERIO THEN DO CN*SCAN UNTIL CN*PER I 01 CCUN J T*0) GO EXIT) 20590738 

ERROR! CCUNIT*6) 20590740 

EXITI RETURNVALl-PROCVAL) * ADJUST RESULT OF TYPED PROC 20590750 

PCCRETURNRcMfSTS»0»RDS#0#XCH»P&PtCTF3»STF)) 20590751 

END CCUNITI 20590800 

REAL PROCEDURE CCSECMAINT) 20590850 

BEGIN LABEL EXIT.CCC) 20590910 

REAL SUBROUTINE SCAN) 20591350 

SCAN*SCN (UN I TNOtCARDLOCt SOURCE »ACCUM,KOUNT»LASTSCAN# DIRECT)) 20591400 

20591458 

LABEL 0PTN0 ( 0PTNl»0PTN2fSECl»SEC2#SECBiSTl» 20591500 

ST2»LS) 20591550 

SWITCH SW|»0PTN0»0PTNli0PTN2l 20591600 

P(RCWtMYMSCW»STF)) 2059161Q 

RCW|»RCW & PCXCHHCTUl 20591620 

GO TO SW[0PTNN3) 20591650 

OPTNOI USERIDH* ABS(USERID)) 20591700 

IF SCAN LSS IDENT THEN BEGIN CCSECMA I NT 1*61 GO EXIT END) 20591750 

SMiQU CMM[0]l« ACCUM[0J) CNIwSCAN) 2059J800 

IF SCAN LSS IDENT THEN BEGIN CCSECMA I NT I *6 ) GO EXIT END) 20591850 



SFIDI* CMMUJj« ACCUMC03; CDFXI« 0; 20591900 

IF CSFM»«DIRECT0RYSEARCHCSMID»SF ID#4))«0 THEN GO TO LSf 20591950 

IF N0T((SMID EQV "PBD ")*NOT 0) AND <M[SFH*53*Q 20592050 

AND MtSFH+23 NEQ 0) THEN 20592106 

% INHIBIT USE ON PUBLIC SECURE FILES 20592150 

BEGIN CNl«SCAN; GO TO 0PTN2 END; 20592200 

0PTN|*0I CMMt2ll* SFHI 20592250 

F0RGETSPACE(DIRECT0RYSEARCHCCMM[0)»CMMtU»14)); 20592300 

20592350 

OPTNH STREAM(USERlD»Qt»USERID>0#BJ»tCMM3iD»*CN»«SPACE(10))l 20592400 

BEGIN QCS1I*L0C USERIOJ Si l«SI*l»DSl«LlT " "I DS«» 7CHRf)J 20592150 

DS»* 17LIT " INVALID USER OF "f SU*BJ 20592500 

SI «*S I ♦ 1 f DS»* 7CHRI DS«»LIT "/ M J SII*SI+1J DSl* 7CHRJ 20592550 

DSl s LIT"«-"f 20592600 

END STREAM} 20592656 

SP0UTER(CN#SP0UTUNIT#1)J 20592700 

F0RGETSPACECCMM[23)J 20592725 

IF OPTN NEG THEN GO TO SEC5; 20592750 

IF UNITNO GEO 32 THEN BEGIN CCSECMA I NT I *5J GO UlT END> 20592800 

GO TO CCCf 20592850 

0PTN2I CMMt51|i»USERlD» 20592900 

ST t * CDEXj* 01 20592950 

SEC1I FOR OPTN«»0 STEP t UNTIL 1 DO 20593000 

BEGIN CNI* SCAN, IF TsOPEN AND CN«UNL0CKV AMD OPTN«0 THEN 20593050 

BEGIN Tl* UN1.0CKVJ GO TO SECU END 20593100 

ELSE IF CN LSS IDENT AND CN NEQ EQUAL THEN GO TO STll 20593156 

CMM[0PTN3l* IF CN«EOUAL THEN *t ELSE ACCUM[03f 20593200 

CN»*SCANJ 20593256 

ENDI 20593300 

IF CN«WITH THEN BEGIN CN*SC AN? CMMt 6 3 *l f CNiJDENT THEN ACCUMC03 20593310 

ELSE USERIDI CN*SCAN END ELSE CMMt 6 3*USER 1 01 20593326 

IF CMM[0J GEO AND CMM[1J GEQ THEN GO TO SEC2J 20593350 

Nil* CMM[0]» N2t» CMMI1JJ N31* 0; STI* If 20593400 

ST2I SEEKNAM (Nl>N2>N3fCMH(0J>CMH[U»Tl}> 20593456 

IF N3 NEQ THEN GO TO SEC2f 20593500 

ST|s 0? GO TO SECSf 20593550 

SEC2I IF (ABS(USERID)EGV MCP) NEQ NOT THEN 20593600 

IF (CMMC03 EQV "PBD ") * NOT THEN GO TO SEC5? 20593650 

SECURITYMAINT(T,SMIDtSFlD»CMM»SFH»SPOUTUNlT )t 2059 3756 

SEC5I IF ST THEN GO TO ST2> 20593800 

IF CN*C0MMA THEN GO SEClf 20593850 

IF T*USEV THEN 20593900 

BEGIN DlSKWAIT(SFH.[CF3»30iSFH,lFF3)f 20593950 

PCDIRECT0RYSEARCH("-SM1D»SFID»14).DED; 20593960 

ENDI 20593970 

GO TO CCCf 20594000 

20594050 

LSI LBMESS(CMM[03»CMMU3#-15»0.0,SP0UTUN1T.1); 20594356 

REPORTBACK(NOTIN#0»0)l 20594360 

IF UNITNO GEQ 32 THEN BEGIN CCSECMA I NT l »5 J GO EXIT tNDf 20594400 

CCC I DO T*SCAN UNTIL TMDENT AND TSRESETVf 20594450 

IF UNITN0«3t AND NT1 GEQ THEN BEGIN CCSECMA INT I «7 J GO EXIT ENDf 20594500 

NTllw OJ CCSECMAINTI»1I GO EXJTI 20594550 

STll IF T«USEV THEN 20594600 

F0RGeTSPACE<DIRECT0RYSEARCH(SMID»SFID»SFH&1 [21 47UJ))I 20594656 

CCSECMAlNTl«6f 20594700 

EXITI RETURNVALI*PR0CVALJ X ADJUST RESULT OF TYPED PROC 20594750 

PC[RETURNRCW3»STS»0#RDS»0#XCH»P&PCCTFJ»STF)f 20594751 

END CCSECMAINTl 20594800 

REAL PROCEDURE CCLABELf 20594850 



BEGIN LABEL EXIT; 20594670 

PCRCWiMYMSCWiSTm 20595080 

RCWiwRCW & P(XCHHCTC]| 20595090 

CN|*0I 20595150 

UNJTCOOEtUNlTNO"233l» USERID; 20595200 

MULTITABLE[UNITN0]|« 01 20595251 

RDCTABLECUNjTNOJt* It 1 ( HI 381 10] J 20595300 

JF UNITN0*23 THEN BEGIN CN * *Rfc ADERA . IFF ] I REAOERA I »C AROLOC END 20595358 
ELSE IF UNITNQ*24 THEN BEGIN CN « sREADERB , [ FF ] I READERB I *C AROLOC END 20595400 

ELSE IF UNITNO GEO 32 THEN BEGIN CN»* C I DRQWCUN I TN0-32 i , t 3 » 5 ) I 20595450 

CIDR0WIUNlTN0-32]|s(*PCUUP))&0t3|43«5]& 20595500 

CARDLO v CtCTF]> 20595550 

ENDJ 20595600 

IF CN THEN BEGIN LABELTABLECUNI TNOJ I « "CARD 00 M OR 2059565P 

((IF UNITNO GEO 32 THEN "C/ H ELSE 05772) ♦ UNITNO)! 20595700 

CCLABEL««8l GO EXIT) 20595750 

END? 20595800 

IF T * LABEV THEN BEGIN 20595650 

HULTlTABLECUNITN0ll«MCCARDL0C*lJiC6»423l 20595900 

STREAK A l«0»Bt*OiC?*Q*DJ*CARDL0C + 3)* 20595950 

BEGIN DItoLOC A> Si t «D10S l*30CTI 20596000 

DS!«50CTJ DSl«20CTl ENDI 20596050 

P(P(XCHHP[24|31U7HP(XCH)U4»3aU03, 20596100 

[RDCTABLEtUNITNO] J » *- ) J X 20596150 

LABELTABLEtUNITN0J«*MtCARDL0C+2J ( [6l42 3i 20596200 

END 20596250 

ELSE IF SCN(UNITNO»CARDLOC»SOURCE»ACCUM»KOUNT#LASTSCAN»DIRECT) 20596300 

GEO IDENT THEN LABELTABLEI UNI TNO J » *ACCUM[ 0] 20596350 

ELSE BEGIN IF UNITNO GE« 32 THEN 20596400 

C1DR0W[UNITN0-32KU8»15JI*0J 20596450 

CCLABELls6; GO EXITl 20596500 

ENDi 20596550 

CCLABEL»w8* 20596600 

EXITl RETURNVALlsPROCVALJ % ADJUST RESULT OF TYPED PROC 20596658 

P(CRFTURNRCW],STS»0»RDS»0»XCH»P&P[CTF3»STF)J 20596651 

END CCLABELl 20596700 

PROCEDURE CONTROLCARD(CARD); VALUE CARDJ REAL CARD* 20597550 

BEGIN 20597600 

LABEL CC»CCTYPE»CJM|'ILE»INI?IAHZATlOH#BEFORETi<YNEXT»TRYNEXT. 20597650 

CONTROLER ♦ CONTROLA. COMPILE JOB. COM JOB. EXEC .EXRUN. RUN. 20597700 

USERS. USES#SECBOMBtUNLOX,LOX» FREES t OPENS #£NTE» 20597750 

LCOPY.CHANGEiREMOVEiUNITl,lNCSC»ENDF»ENDECK,SAVENDi 20597800 

LABE#FlNlS»ZIPEXlTiEXlT»SET,RSET»DOWNj 20597850 

LABEL CCC»PACKiPACKg,WAlT»ZlPLlST> 2059788* 

SWITCH TYPE* UNLOX,USeS»LOX,FREES#OPENS»PACK»USERS» 20597900 

RUN. COMP I LE f EXEC LCOPYfLCOPY»ENTE#ENTE» REMOVE* 20597950 

CHANGF»UNIT1,ENDF.NAIT,LABE»LABE»SET»RSET» 20598000 

SWITCH SW* CCCCTYPF, INITIALIZATION. BEFORETRYNEXT.SECBOMB.ENDECK. 20599009 

INCSC,Z1PEXIT,EXIT,PACK2» 20599100 

DEFINE ZlPMlX«CARD,n8l6]#. PSoURCEbC ARD , [ 24 I 6 J * I 20600000 

REAL SUBROUTINE SCANI 20600020 

SCANI«SCN(UNITNO,CARDLOC»SOURCE»ACCUM,KOUNT.LASTSCAN,D1RECT)I 20600040 

* SET QMjT » NOT(PACKETS) 20600099 

SUBROUTINE LlSTHECARD! 20600100 

IF LASTSCAN.C2U] ThEN 20600110 

if spoutunjt geq 32 then 20600120 

if t*packet then 20600130 

BEGIN 20600140 

LASTSCAN I [2U]»»0J ABORTUOI 20600150 

IF UNITN0-31 THEN 20600160 



STREAMCEl^END,..,"* CARDLOOI 20600170 

BEGIN SI«*CARDL0CI DII*L0c El DJl»DJ*ll 20600180 

LI I IF SC* M " THFN BEGIN Sll*Sl+lJ GO LI; END! 20600190 

IF SC""*" THEN GO FINII 20600200 

IF SC»AUPHA THEN 20600210 

IF SC* M E" THEN 20600220 

BEGIN 20600230 

If 3 SC»DC THEN IF SC*ALPHA THEN ELSE 20600240 

BEGIN 20600250 

CARDLOCI«SIJ Dlt*CARDLOCI DSl *L1 T W * H » 20600260 

GO FINII 20600270 

END! 20600280 

siibsi-3; oh»di-3; go L2i 20600290 

END ELSE X ALPHANUMERIC 20600300 

BEGIN 20600310 

L2t SII»SI*1I IF SC*ALPHA THEN GO L21 20600320 

END ELSE X SPECIAL CHR 20600330 

SII«SI*1I 20600340 

GO LI I 20600350 

FINU 20600360 

ENDI 20600370 

ZIPLISTl 20600380 

STREAM(ZLl«Ol CARDLQC* ABORT* PPC J »PPCPROCESS» 20600390 

ZZP|*UNITN0*31» DI«NTll»SPACE(tO))l 20600400 

BEGIN SH'CARDLOCJ ABORTC S I » *S I +36 ) I 20600410 

DSl«LIT">"l PPC(DS|s4LIT"> H )l ZZPCDS|»2L.IT W > W )I 20600420 

2C36CIF SC« ,, «- , ' THEN JUMP OUT 2 TO ZERl DSt*CHR))l 20600430 

TALLYl*tl ZLI«TALLY; 20600440 

ZERl DS l»LI T"*"l 20600450 

ENDI 20600460 

SP0UTER(NTltSP0UTUNlT.64); 20600470 

IF P AND CUNITN0»31) THEN 20600480 

IF CAB0RT|*AB0RT*2) < 30 THEN GO ZIPLISTl 20600490 

ABORTjbO; 20600500 

END LISTHECARDJ 20600510 

$ POP OMIT 20600511 

PCOfO>0»O»Ot0»0t0t0»O)|X 20600600 

p<o»o»o»o»o»o#o»o»o»o)i* 20600650 

P(OiO»0»O»O»0»0»O#0fO)|X 20600700 

P(0»0»0»0»0»Q»0*0»0)l 20600750 

X DO NOT ZERO THE LAST THREE LOCALS (RETURN-MSCW, RCW# & VAL) 20600755 

RCW»*RCW & PC, t CONTROLCARD»LOD)LCTCJI 20600760 

UNlTNOt* (CARD, [ 3 I 53 + 28 ) , C 43 » 53 + 4 I 20600850 

IF CARD.C33U53 « THEN 20600900 

BEGIN CARD, t 331 15] $« SPACE(13)*2l 20600950 

IF WAITIOCCARD INX P40000000i P15» UN I TNO) , [ 45 I 33 NEQ OX 20601000 

THEN 20601050 

BEGIN LABELTABLECUNITNOJ |« *>114|* 20601100 

RRRMECH I* NOT TWO (UN1TN0) AND RRRMECHlX 20601150 

FORGETSPACECCARD INX NOT 1)|X 20601200 

KILLCCCARD) INX NOT 1)U 20601260 

ENDI 20601300 

ENDI 20601350 

IF SWAPEND*0 THEN SLEEPC C SWAPEND 3 * 63) I 20601360 

COMMENT SET UP ACCUM ARRAY FOR SCANlX 20601450 

ACCUMl«CMCSPACECl0)3m0[8i38U0m 20601500 

ACCUMC03 l» 0|X 20601550 

IF (CCTBLW0RDI*P(CCTBLW0RD»DUP)&(P,[FF3+l)tCTFJ),[FF3>l THEN 20601600 

BEGIN 20601620 

IF CCTBLADDR«0 THEN SLEEP U CCTBLW0RD3 f P77777 ) I 20601640 



END E 
BEGIN 



DIRECT l«[M[CCTBLW0R03J»CCTABLSZ[8l 381 10 Jl 
LSE 



$ SET 



end; 

CMMl* 
PEQNt 
% PL 
CAROL 
IF UN 
SOURC 
M[(SO 
IF UN 
UN 
IF UN 
BEGIN 
USERI 
END!* 
SPOUT 
OMIT ■ 



DIRECTI*[M[ 
DISKWAITC-T 
CCTBLADDRl* 

• IOQUE&SPAC 
«C31 INX (C 
ACE %" IN 
OC I* CARD 
ITN0*25 OR 
ElwCARDLOC 
UHCElsCARDL 
ITNO GEO 32 
ITCODECUNIT 
ITN0*25 OR 

IF UNITNO* 
D!*UN1TC0DE 



UNI T I *C 

NOTCPACKETS 
IF Z 
PSEU 
IF U 



S POP OMIT 



UN 
PS 



0)» 
NOTCPACKETS 
ITNO GEO 32 
EUDOCUNITNO 
THECOVERCCA 
CANt*0UI2» 



Tl«SPACECCCTABlSZ)JHCCTABlSZC8l38»10JJ 
»CCTABLSZ> MESSAGE TABLE I 33. [22! 263)! 
TJ 

EC 130J tCTC J > 

EQN!*C3i I NXCPROG J *» C 3 1 INX CMM)))));X 

COL 73 1% 

INX 0>X 

UNITN0*26 OR UNITN0*30 OR UNITN0»31 THEN 

ELSE 

00 + 93 •■ 03277320000000000! * ,% 2B XTKA SAF 

AND UNITCODECUNI rNO-233»tllU THEN 
NO-231 UMtCARDLOC + tO]J 

UNITN0#30 OR UNITN0-31 THEN USERIDI«MCP ELSE 
26 THEN UNITN0JS3UX 
[UNITN0-23J)X 



) 

IPMIX#0 AND PSEUDOMIXIZIPMIX] GEO 32 THEN 

DOMIXCZIPMIX] ELSE 

NITNO GEQ 32 THEN UNpNO ELSE 



) 



t SET OMIT 
IF 
IF 

PRINT- 
LASTS! 

$ POP OMIT 
COMMENT SCAN FOR CARD WITH QUESTION MARK IN COL, l!* 



THEN 
-323*0 THEN 

RDLOC»UNITN0»PS0URCE}> 
«7tlJJ 



CCJ 



IF SCAN NEO 
TUSCAN! 



QUEST THEN GO TO INCSC!* 



CCTYPEJ IF (T LSS UNLOCKV) OR CT GTR RESETV) THENX 
GO TO INCSCJX 
$ SET OMJT * NOTCPACKETS) 

LISTHECARDI 
S POP OMIT 
X BRANCH ON 1ST WORD ON CONTROL CARD* 
CMPLRl« "il 
LIBNOtsO) 
T0G!» FALSE! 

IF CT LEQ ENTER) AND CT GEQ RUNV) THEN 
BEGIN 

M[CARDLOC-23 !■ 0; 

DISKWAITCCARDL0C#10,CMM[63|«GETESPDISK); 
END! 
GO TO TVPEl T - UNLOCKV 3JX 



% COMPILER CALL OUT CARD* 
COMPILE! IF CCCOMPILE THEN GO INCSC; 
INITIALIZATION! OPTNN t »! N I T I ALIZE I T J GO 
IEF0RETRYNEXT1 IF OPTN*PERIO THEN GO TO 
TRYNEXTl IF K0UNT»P14 THEN 

IF SOURCE«CCARDLOCU[30l45«33) 



DOWN! 
CONTROLER! 



THEN 



20601660 
20601680 
20601700 
20601720 
20601740 
20601760 
20601780 
20601850 
20601900 
20601950 
20602000 
20602050 
20602100 
E20602150 
20602200 
20602250 
20602300 
20602350 
20602400 
20602450 
20602460 
20602469 
20602470 
20602480 
20602490 
20602491 
20602500 
20602509 
20602510 
20602520 
20602530 
20602540 
20602541 
20602550 
20602600 
20602650 
20602700 
20602750 
20602800 
20602850 
20603359 
20603360 
20603361 
20603450 
20603460 
20603500 
20603550 
20603555 
20603560 
20603565 
20603570 
20603575 
20603600 
20603650 
20603700 
20603750 
20603900 
20604050 
20604100 
20604105 



BEGIN 20604110 

PPCPROCESSlMJ TUSCAN? GO C0NTR0LA1 20604115 

END) 20604120 

IF SCAN NEQ PERIO THEN GO TRYNEXT* 20604125 

CONTROUERI PPCPROCESSl* 1J 20604150 

IF SCAN NEQ QUEST THEN GO TO INCSCJ 20604200 

T»» SCANJ 20604250 

CONTROLAI IF CT LSS SETV OR T>COBQL) AND ACCUMIQ] NEQ CMPLR THEN 20604300 

IF T GEQ UNLOCKV AND T LEQ LABEV THEN GO TO FINIS 20604350 

ELSE GO TO INCSC; 20604360 

$ SET OMIT * NOTCPACKETS) 20604479 

LISTHECARD; 20604480 

S POP OMIT 20604481 

IF T GEQ ALGOL OR ACCUMC J*CMPLR THEN 20604500 

IF 0PTN«EXECU OR 0PTN*RUNV THEN 20604550 

GO TO TRYNEXT 20604600 

ELSE GO TO COMPILEJOB; 20604650 

IF OPTN*SYNTA THEN GO TO TRYNEXT; 20604700 

IF 0PTN*EXECU OR OPTN«RUNV THEN GO TO COMJQBJ 20604750 

* CALL PPC FOR COMPILE AND GO JOB* 20604800 

IF PPC(PADDR»PEQN#PROG>PDEX»T»UNITNOiCARDL0C»SOURCE>ACCUMt 20604650 

LASTSCAN»DIRECT) THEN GO TO 1NCSC; 20604900 

GO TO CONTROLERI 20604950 

COMPILEJOBI TI»SCANJ 20605000 

80MJ0B» IF PPC(CADDR#CF.QN.CMMfCDEX»T»UNlTNO»CARDLOC#SOURCE»ACCUM, 20605050 

LASTSCAN»DIRECT) THEN GO TO 1NCSC* 20605100 

GO TO CONTROLERJ 20605150 

20605200 

COMMENT EXECUTE CARD;* 20605250 

EXECJ P(EXECU)I 20605300 

EXRUN: OPTNiaPl 20605320 

CMM[133|»CADDR« c CDEXj*0; 20605340 

Tl»SCAN) CMM[0]|«ACCUM[03; 20605360 

T)»SCANI Tl»SCANj 20605380 

IF CCCMM[1J«»»ACCUM[0J) EQV "DISK ") s NOT THEN 20605400 

IF CCTi*CMM[03) EQV M LDCNTRL M ) « NOT THEN 0PTNl=RUNV ELSE 20605420 

IF (T EQV "PRNPBT ") u NOT OK CT EQV "LIBMAIN") s NOT THEN 20605440 

IF UNITN0#31 THEN GO TO INCSC* 20605460 

CMM[23l*0&CIF 0PTN»RUNV THEN 5 ELSE 2H8i38ilO]I 20605480 

CMM[233l*0&C 20605500 

$ SET OMIT •» NOTCPACKETS) 20605509 

IF ZIPMIX#0 THEN PSEUDOM I X[ Z I PM I X 3 ELSE 20605510 

$ POP OMIT 20605511 

UNITN0)[2»42»6J l 20605520 

GO TO INITIALIZATION! 20605550 

RUNt PCRUNV); 20605600 

GO TO EXRUN) 20605650 

USERSJ Tt*SCANj T»*SCAN> 20605700 

IF CUSERID* till J AND USERID*McP) 20605750 

THEN BEGIN 20605800 

USERIDt«ACCUM[03» 20605810 

t SET OMIT » NOTCPACKETS) 20605819 

IF UNITNO GEQ 32 THEN UNIHODEt UNI TNQ-23 3 1 «USER I D J 20605820 

$ POP OMIT 20605821 

END) 20605830 

CCC * *COME HERE TO FLUSH TO NEXT INITIAL WORD 20605870 

t SET OMIT « NOTCPACKETS) 20605879 

DO Tl*SCAN UNTIL T*QUESTJ T » *SCAN> 20605880 

S POP OMIT 20605861 

$ set omit e packets 20605699 



DO TUSCAN UNTIL TMDEN7 AND T<RESETV; 20605900 

$ POP OMIT 20605901 

GO TO CCTYPEI 20606000 

USES! 0PTNNl«0» 0PTNNJ»CCSECMAINTI GO DQWNJ 20606050 

SEC80MBI OPTNN»*lJ OPTNN I »CCSECMA I NT J GO DOWN! 20606100 

UNLOXi 20606150 

LOX| 20606200 

FREES! 20606250 

OPENS! 20606300 

0PTNN!*2l OPTNNlsCCSECMAINT; GO DOWN? 20606350 

ENT£tl 20606400 

LCOPYl 20606450 

CHANGE! 20606500 

REMQVEI 20606550 

OPTNN|«LIBCCJ 20606600 

DOWN! GO SWCOPTNN]; 20606610 

5ET 1 TQGI* TRUEJ 20606650 

RSETl IF CCSET THEN GO CC ELSE GO INCSC; 20606700 

UNlTIt OPTNNlsCCUNlT; GO DOWNJ 20606800 

INCSC! 20606650 

IF PPCPROCESS THEN 20606660 

P(DIRECT0RYSEARCH(-CMM[0]»IF CMM[0] LSS THEN "DISK » ELSE 20606865 

CMMtlJ. 13)#DEL)> 20606870 

$ SET OMIT ■ NOTCPACKETS) 20606874 

LISTHECARD! 20606875 

$ POP OMIT 20606876 

LASTSCAN I* 0» 20607000 

STREAM(CARDLOC» UI*TINUE UNI TNO] » ACCUMt M 1 X I «Z I PH 1 X> 20607020 

ZZP!»UNITN0»31» CRD»»SP0UTUNIT»0» 20607040 

Di*Tl*SPACEC15))l 20607060 

BEGIN 20607080 

DSI*20LIT M #C0NTR0L CARD ERROR " I 20607100 

SI«»L0C U> SI I VSI4-5I DSI«3 CHRl 20607120 

ZZPCDl!»DI*22l DSl*24LlT"ZIP ERROR* IGNORED* MIX*»J 20607140 

SH«L0C MIX; DSI»2 DEC? DSI»UIT"I"1 20607160 

D!«DI* 01 t»D I -31 DSI*FILL> Dl!»D); 20607180 

DSI»4LIT H AT -I 20607200 

SJIsACCUMJ SHoSl + U 20607220 

7CIF SC* n " THEN SJ!«SI+1 ELSE DSl«CHR)J 20607240 

CRD(DSI«LIT"I H I SII«CARDL0CJ 2CDSl*36 CHR>)> 20607260 

DS!*LIT"*"» 20607280 

ENDI 20607300 

IF UNITN0#25 THEN 20607500 

BEGIN IF UNITN0»30 THEN TWXOUTC J » 1 00 * 1 OR H« ABSC SPOWORD ) ) ELSE20607550 

SPOUTER(TiSPOUTUNITil)! 20607600 

IF UNITN0»31 THEN REPORTBACK (Z I PER* 0* 0) J 20607650 

IF UNITN0«30 OR UNJTN0*3l THEN GO ZIPEXJT* 20607700 

IF UNJTNO GEO 32 THEN GO ENDECK; 20607750 

END ELSE 20607800 

BEGIN PCWAITI0(T»0»25)#DEL)J 20608000 

FORGETSPACE(T)! 20608050 

* SET OMIT « PACKETS 20608059 

GO TO ENDFI 20608060 

t POP OMIT 20608061 

S SET OMIT * NOTCPACKETS) 20608069 

FETCH(UNITNO»CARDLOC»SOURCE)J 20608070 

IF SCAN NEQ QUEST THEN GO TO INCSC; 20608072 

Tl«SCAN> 20608074 

IF PPCPROCESS THEN GO TO CONTROLAI 20608076 
IFCT GEO PACKEDANDCT LEQ LABEV)AND(T NEO RUNV) THEN 20608076 



GO TO CCTYPE) GO TO INCSC) 20606080 

$ POP OMIT 20608081 

ENDS 20608100 

t SET OMIT * NOTCPACKETS) 20608109 

ENDECKf 20608110 

IF UNITNO GEO 32 THEN 20608120 

BEGIN ABQRTl-TRUEJ 20608130 

PACKETERR[UNITN0-32Ji*TRUEJ 20608 HO 

GO TO PACK2J 20608142 

END! 20608144 

$ POP OMIT 20608146 

DO DO 20608130 

rETCHC-UNITNO»CARDLOC*SOURCE) 20606200 

UNTIL SCAN*QUEST 20608250 

UNTIL, SCAN-ENDFI; 20608300 

ENDFU 20608450 

$ SET OMIT m NOT(PACKETS) 20608459 

IF UNITNO LSS 32 THEN 20608460 

* POP OMIT 20608461 

IF UNITNO NEO 30 THEN UN I TCODEI UNI TNO-233 J *-0; 20608500 

IF UNITN0*23 THEN READERAI a Q ELSE 20608510 

IF UNITN0»24 THEN READERB»«0 ELSE 20608520 

IF UNITNO GEO 25 THEN 20608550 

IF UNITNO GEO 32 THEN 20608600 

PACK2U XPACKET CARDS END HERE FROM PSEUDO-READERS 20608610 

IF CIDTABLECUNITN0»32»3J LSS C I DTABLE t UN I TNO-32* 7 JTHEN 20608650 

BEGIN FETCH(-UNITNOtCARDLOC»SOURCE)> 20608700 

t SET OMIT « NOTCPACKETS) 20608709 

IF ABORT THEN 20608710 

BEGIN 20608720 

IF (Tl*SCAN)*QUEST THEN 20608730 

IF (T««SCAN)*ENDFI OR T«WAITV THEN 20608740 

AB0RTl»FALSEi 20608750 

IF T#WA1TV THEN GO PACK2» 20608760 

END ELSE T l«OJ 20608770 

LASTSCANl*0&U2l47ll]J 20608780 

PACKETERR[UNITN0-32 3«»FALSEJ 20608790 

IF TbWAITV THEN GO WAIT; 20608800 

S POP OMIT 20608601 

GO CCI 20608810 

END ELSE 20608820 

BEGIN 20608830 

I SET OMIT * NOTCPACKETS) 20608839 

LABELTABLEtUNlTN0J|wP114J 20608840 

IF PACKETACTIUNITN0"32J«0 THEN 20608850 

$ POP OMIT 20608851 

* SET OMIT *» PACKETS 20608859 
eNDECKl 20608860 

S POP OMIT 20608861 

END0FDECK((UNlTN0-32)&CARDCin»lJ); 20608870 

GO ZIPEXITI 20608880 

END ELSE 20606890 

GO ZIPEXITJ 20608900 

IFCTWOCUNITNO) AND SAVEWORD) N£Q THEN GO TO SAVEND* 20608950 

IF WAlTlQ(CARDL0C&400[18i33«l5]#ei5»UNlTNQ), [45133 NEQ THEN20609000 

BEGIN 20609050 

SAVENDI LABELTABLECUNITNO]!* 0114* 20609100 

RRRMECH»» NOT (NTll» TWO(UNITNO)) AND RRRMECH OK 20609150 

NT1 AND SAVEWORD) 20609200 

GO TO ZIPEXIT; 20609250 



ENDJ 20609300 

MCCSOURCEI* CARDL0C) + 9]»« OS" , M [ 1 » 43 J 5 J J 20609350 

USERIDJ* UNITC0DECUNITN0-23JJ 20609400 

GO TO CCI 20609410 

PACKl IF UNITN0O2 THEN GO INCSCI 20609420 

GO PACK2I 20609450 

LAB£» OPTNN»*CCLABEL> GO DOWNJ 20609500 

WAIT? 20609555 

S SET OMIT m NOT(PACKETS) 20609559 

IF UNITN0O2 THEN GO TO CCCJ 20609560 

IF PACKETACT[UNITNO-323»0 THEN GO TO CCCJ 20609570 

UBEUTABLE[UNlTN0]»*t»2i4J GO TO ZlPEXITj 20609580 

t POP OMIT 20609581 

FINISH CCFINISHJ 20609600 

S SET OMIT « NOTCPACKETS) 20609659 

IF (NTUIF ZIPMIX#0 THEN PSEUDOMI X [ Z I PM I X J ELSE UNITNO) 20609660 

GEO 32 THEN PACKETACTC NT 1-32 J J »PACKETACTCNT J -32 3 + U 20609670 

$ POP OMIT 20609671 

SELECTION* 20609700 

IF UNITNO NEC 31 THEN 20609750 

BEGIN 20609760 

t SET OMIT * PACKETS 20609799 

IF LIBNO NEQ AND CUNITN0»23 OR UNITNQ»24 OR UNITNO GEO 32920609800 

AND T NEQ ENDFI THEN 20609850 

BEGIN 20609900 

LABELTABLEtUNlTN0 3l"P2l4» 20609950 

SLEEP(tLABELTABLECUNlTNOn*PlOO); 20610000 

LABELTABLEtUNITN0 3««-Pl4i 20610050 

ENDJ 20610060 

$ POP OMIT 20610061 

GO CCTYPEJ 20610100 

END; 20610150 

ZlPEXITj F0RGETSPACE(CARDL0C-2)J 20610200 

EXITM 20610250 

$ SET OMIT * NOTCPACKETS) 20610259 

IF Z1PMIX NEQ THEN 20610260 

BEGIN NYLONZIPPER[ZIPMlXj,[2»13l»i; 20610265 

IF PSEUD0MIX[ZIPMIX] NEQ THEN 20610270 

IF MEMRQW[ZIPMIXJ,[CF1 GEO FENCE THEN 20610275 

BRINGBACK(ZIPMIX); 20610280 

ENDI 20610285 

* POP OMIT 20610286 

FORGETSPACECACCUM INX 0);% 20610300 

FORGETSPACECCMM INX 0)lX 20610350 

IF (CCTBLW0RDI»P(CCTBLW0RD»DUP)&CP f [FF3-l)tCTFJ),[FF]a0 THEN 20610400 

BEGIN 20610410 

FORGETSPACE(CCTBLADDR)! 20610420 

CCTBLADDRl*Ol 20610430 

ENDI 20610440 

KJLLUCARDJ INX NOT 1)11 20610600 

END CONTROLCARDJ 20610650 

REAL PROCEDURE CCSETl 20700000 

IE.6.1N LABEL M0RE»SEEK#SKIP.CCERR»L1 #L2I 20701000 

REAL FXTOG » RETURNVAL+ 1 » * BEGIN LOCALS OF CCSET 20702000 

LOK * FXTOG+lt 20702100 

N * LOK+l. 20703000 

SENSETOG » N+1J 20704000 

REAL SUBROUTINE SCANI 20705000 

SCAN*SCN(UNlTNO»CARDLOCiSOURCE»ACCUM»KOUNT»LASTSCAN#DlRECT)l 20706000 

PCRCW.MYMSCWfSTF)> 20707000 



RCWieRCW & PCXCHHCTCJJ 20708000 

P(0»0«0»0)I * ZERO LOCALS Or CCSET 20709000 

UNlTN0l*CAR0.C2l6]| 20710000 

CARDL0Cl*CARD INX 01 20711000 

IF NOT (FXTQGJ»CCN|«SCAN)«FIXED> THEN 20712000 

IF NOT CSENSET0GJ«(CN*SENS£)) THEN 20713000 

IF CN * ACCESSO THFN GO TO CCERR; 20714000 

MORE! 20715000 

IF CCNt»SCAN)*E8UAL THEN CMMCOll«M ELSE 20716000 

IF CN GEO IDENT THEN CMMC03 «»ACCUMI 3 ELSE GO CCERR; 20717000 

IF SCAN NEQ SLASH THEN GO TO CCERR; 20718000 

IF CCNl«SCAN)«EQUAL THEN CMM[lJl»-l ELSE 20719000 

IF CN GEQ IDENT THEN CMMC1 3 »*ACCUM[ ] ELSE 20720000 

GO TO CCERR1 20721000 

CN|«Tl»0J 20722000 

SEEK! 20723000 

IF CCMM[03 OR CMMIU) LSS THEN 2072*000 

SEEKNAM(CMMI0J»CMM[13#CN»CMMC2J»CMMI3]»N) ELSE 20725000 

BEGIN CNI»ll CMM[23l*CMM[03; CMM[ 3] t-CMM( U £ND; 20726000 

IF CN NEQ THEN 20727000 

BEGIN 20728000 

IF NOT FXTOG THEN IF SYSTEMF ILE ( CMM[ 2 3 » CMMC 3 3 ) THEN 20729000 

BEGIN TJ*2J GO SKIP; END; 20730000 

TI»DIRECT0RYSFARCH(CMM[2J»CMM[3J#19); 20731000 
END ELSE IF N«0 THEN BEGIN CMM[ 2 3 » *CMM[ 3 ; CMMt 3 J I «CMM[ 1 3 J GO LI I 20732000 

END 20733000 

ELSE GO L2; 20734000 

SKIP! 20735000 

IF T GEO 64 THEN 20736000 

BEGIN 20737000 

IF M[T+43it43»23»3 THEN 20738000 

BEGIN DISKWAIT(T,[CF3»-30.T»[FF3); Tl»U GO lit END; 20739000 

IF CUSERID EQV MCP)» NOT OR 20740000 

CUSERID EOV ABS(MtT+2J))s NOT OR 20741000 

(NOT SENSETOG AND (M[T*2J«0)) THEN 20742000 

BEGIN 20743000 

LOKibO; 20744000 

IF FXTOG 20745000 

THEN M[T + 43,[42U3l*T0G 20746000 

ELSE IF SENSETOG 20747000 

THEN IF 10K|»((M£T+4J,C43I23*1) AND NOT TOG) 20748000 

THfcN MCT+43iC43J23«sO 20749000 

ELSE IF MCT*4),C43I2J«1 20750000 

THEN ELSE M[T*4J,[43l23»»T0Gx2 20751000 

ELSE BEGIN 20752000 

M[T+43,rilll3!»T0G; 20753000 

STREAM(DATE»j;*5); 20754000 

BEGIN SUsLOC DATE; DS»=80CT; END; 20755000 

M[T+33,[12«183»*JUNK; 20756000 

END; 20757000 

DlSKWAlT(T,tCFJ»"30»T,[FFJ)l 20758000 

$ set omit • sharedisk 20759000 

unlockdirectory; 20760000 

j pop omit 20761000 

s set omit ■ packets 20762000 

if rstog then 20763000 

$ POP OMIT 20764000 

IF LOK THEN PC D I RECTORYSEARCHC "CMMt 23 »CMM [ 33 »6) »DEL) 20765000 

ELSE LBMESS(CMM[23«CMM[3J»IF TOG THEN 12 ELSE Hi 207660QQ 

13+(SENSET0Gx47)-(FXT0Gx3)»0»SP0UTUNIT»RST0G) 20767000 



END 20768000 

ELSE LBMESSCCMM[2JtCMM[3J#-(ll+T0G)»41>0»SP0UTUNIT>l) 20769000 

END 20770000 

ELSE 20771000 

Ll» LBMESS<CMM[2J»CMh[3J.-Cli*TQG)»l5*{CTnUx30)*<<T-2)xl0>»20mi00 

0#SFCUTUNIT»1 )I 20772000 

S SET OMJT * SHAREOISK 20772100 

UNLOCKQIRECTORYJ 20772200 

$ POP OMIT 20772300 

IF CN NEO AND CCMM[03 OR CMMCU) LSS THEN GO SEEK; 20779000 

L.2I IF <CNl»SCAN)»COMMA THEN GO MORE? 20780000 

IF CN*PERIO THEN CCSET 1*11 20781000 

8CERRI RETURNVALl»PROCVALl % ADJUST RESULT OF TYPED PROC 20782000 

P(tRETURNRCW]»STS»0»RDS»0#XCH»P&PtCTF3»STF); 20783000 

BND CCSET; 2078400Q 

SAVE PROCEDURE SWAPC STATE »B ) ; VALUE STaTE»B; REAL STATE»B; 21000100 

BEGIN IF 8*1 THEN 21001000 

IF TERMSETCP1M1X) THEN PCXJT); 21001100 

$ SET OMIT a NOT(STATISTJCS) 21001109 

IF (STATEsTlMEND) OR C ST ATE«WA I TSWAP ) OR 21001110 

CSTATE*FORCESWAP) THEN 21001120 

C0RETIMEtPlMlX]l»(*P(DUP))+CL0CK+P(RTR)-TIMING[PlMIX3; 21001130 

$ POP OMIT 21001131 

stasusipimix]*state; 21001200 

if stasus[03»readystate then 21001300 

BEGIN STASUSE0J*RUNNING; 21001400 

FORK(P(,SWAPPER)»0»-2»128il); 21001500 

END; 21001600 

LINKtSWAPENDJ-PlMIXj 21002000 

LINK[SHAPEND*P1MIXJ*0; 21002100 

IF B THEN SLEEP([SQ[P1MIX]]»0&RUNNINGU6I42S6])J 21003000 

ENO; 21004000 

PROCEDURE REENTERCSTUFFJi VALUE STUFF? REAL STUFF; 21005000 

BEGIN REAL L0G«+5; 21005100 

PlMlX*STUFF.[3l5J; 21005500 

STARTL0G(P1MIX,0); 21006000 

PRI0RTY*PRY0RtPlMlX3) 21006100 

MCSTUFF.CFF J3*i; 21007000 

PCSTUFFiSTS); 21008000 

P(0&STUFFCCTF3»STF); 21009000 

LOGLINE * LOG) 21009100 

STACKUSE * TRUFJ 21010000 

GO TO P(,SLEEP»L0D); 21011000 

END; 21012000 

PROCEDURE BRINGBACKCMIX); VALUE MJX; REAL MIX; 21012100 

* SET OMIT * NOTCSTATISTICS) 21012109 

BEGIN REAL T; 21012110 

Tl*CLOCK+P(RTR); 21012120 

S POP OMIT 21012121 

BEGIN IF (STASUStMIXJ AND STABLE)*0 THEN 21012200 

SLEEPCtSQ(MIXn*0&STABLE[18U2l6]); 21012300 

If STASUStMlX3*WAlTSTATE THEN 21012400 

BEGIN STASUStMIXJ*SATISFY; 21012500 

$ SET OMJT s NOTCSTATISTICS) 21012504 

swapdelay[mixji*t; 21012505 

t POP OMIT 21012506 

IF STASUS[Oi»READYSTATE THEN 21012510 

BEGIN STASUS[OJ*RUNNING; 21012520 

FORKC PC, SWAPPER ) »0»*2» 12B» 1 > I 21012530 

END; 21012540 



S SET OMIT * NOT 

END 
$ POP OMIT 

END BRIN 
SAVE PROCEDURF M 

BEGIN RE 
IF 



LINK[SWAPENDJ*MIX; 

LINK[SWAPEND*MIX3«-0; 
END 
(STATISTICS) 



GBACKJ 

CPIN(S); VALUE S* REAL Sj 

AL TtX,Y»Zl 

NOT M[S3,[7ll3 THEN 

StCEP([M[Sn>0ftH7t«7n J)| 
IF (Y*NFLAG£MtS))),[cn»(*P<iESPBIT)),tCFJ THEN 
BEGIN 2*Y, [8*1031 M[ S3 , C 7 » 1 3«-0» 
T*GETSPACE(Z»65»0)+2; 
$ SET OMIT s NOT(AUXMEM) 

if Y,[6in then % stored on auxmem 

DISKWAITC-T.Z.-CO&YC 32121 112])) 
ELSE 
$ POP OMIT 

DISKWAlTC-T»/:#Y,tFFJ*MCPBASE); 
MlT-23,[2ll3*01 
M[T-l3*S&Z[CTFJJ 

MtS3 I* (*PCDUP)) & TCCTC3 & U7U7I13J 
$ SET OMIT * MONITOR OR NOT(AUXMEM) 

AUXTRACE(0»S3) 
I POP OMIT 

END 

ENDI 

PROCEDURE EXPAND 

VALUE Ml 

REAL MIX 

FORWARD? 

BOOLEAN PROCEDUR 

BEGIN REAL I* 

ARRAY A» 

ARRAY LI 

LABEL FO 

IF IOCOU 

BEGIN 

S SET OMIT m SHA 

CM 

$ POP OMIT 

SLE 

IF 

BEG 



I 

ER<MIX,R)» 

X»R> 
,Rl 

e unh00kandwait(mix*mcp)» value mix.mcp* real mjx,mcp) 

j#k»l»n»mstart»mendi 

mendc*3j * inta8le row 

nkrs»mend[*3# li nkor*mend[ * # * j ; * bed descriptor 

und; 

ntcmixj geo then 



REDISK 
CK*CL0CK+P(RTR)+900» 



X GIVE HIM 15 SECS, 



END END 

WAITSTOR 

STOREDYC 

LINKR*BE 

WHILE TR 

IF 

ELS 

FOUND! J*T0PSK 



Ll«LlNKR 
MSTARTl* 



EPUIO 

IOCOUN 

IN ST A 

IF N 

PRTR 

PC1» 

* 

ECO); 

03*0) 
Dl J 
UE DO 
LINKRC 
E LINK 
CMIX3* 
LINK 
LINK 
C4J1 
CII»ME 



C0UNT[MIX]3t-0)l 

TfMjX) GEO THEN 

SUS[MIX3»*RUNN1NGI 

OTERMSET(MIX) THEN PRTROW t MI X J , [FF ] 

0WtMlX],CPSF3 >* II 
RTN)» 



I* 191 



23«MIX THEN GO TO FOUND 
R*MNKHCni 
LINKRtFREG3,lFF3; 
0R[0il3 ♦ LINKRC1); 
ORtl»03,tCF3 * LINKR[03J 

M[0#MLINKlJ),tCF3i 



21012600 
21012610 
21012700 
21012709 
21012710 
21012711 
21012B00 
21013000 
21015000 
21016000 
21017000 
21018000 
21019000 
21020000 
21020010 
21020020 
21020030 
21020040 
21020041 
21021000 
21022000 
21023000 
21024000 
21024100 
21024200 
21024201 
21025000 
21026000 
21026500 
21026600 
21026700 
21026800 
21027000 
21028000 
21028500 
21028600 
21029000 
21029100 
21029200 
21029249 
21029250 
21029251 
21029300 
21029400 
21029500 
21029700 
21029750 
21029800 
21029900 
21031000 
21032000 
21034000 
21034500 
21035000 
21035500 
21036000 
21037000 
21038000 
21039000 
21039500 



MEND»*M[ I,[FF J3«[FF3> 
DO IF (N*MtJJ),tCF J>MSTART THEN 
IF N f [CF3 LSS MEND THEN 
BEGIN K«-MSTARTI 

DO BEGIN I*K» 

K»M[I J,[CF3I 
EKD UNTIL N,[CF3<K1 
M[N.[FF33,[CF3*MCI+13J 
M[J]#- NFLAG((NOTCI + l))INX 
END UNTIL CJ*N,[FF])<641 
* HERE BEE DRAGONS , , , 



N)J 



N * MtK «- P 

IF N<FENCE 
DO J * M[I 
IF P(M[I3,[ 
BEGIN M[K3 
N»*REE 
STREAM 
BEGIN 

D 
N * PO 
END ELSE N 
END ELSE N 
MCKM3 ♦ (* 
N * JNTRNSC 
IF A*0 THEN 
BEGIN 

I 1*21 DO BE 
U>»REE 
STREAM 
BEGIN 

I 

END ST 

IF POL 

IFCC 

J 

IF 1*2 

END UNTIL I 

ENDI 

DATCMIX]*-* 

% THERE BEE 

STOREDY[OJ* 

IF L. [33173 

BEGIN CLEAR 

STATAB 

ENDI 

END UNHOOKANDWAI 

PROCEDURE HOOKUPMCP 

BEGIN REAL I.J.N 

FORK(P(,REE 

IF CN*MCJ*5 

if (statabl 

then 

if tankscn, 

THEN I 
B 



kT[MlX.8].Ce 

THEN BEGIN 

* J3,[CF3 UN 
31123. DUP)**» 

* NFLAG(*P(D 
NTRANTINTABL 
(N*N AND 3» 
SI«-LOC Tl S 
I*LOC Nl 01 

lish; 

«- Oj 

* 0) 

PCDUP))&N[18 
[03-11 I * 



GINJ % STEP 
NTRANTINTABL 
C I ;»J AND 3t 
SI*L0C 1; D 
F 2 SC#DC TH 
REAM! 
I5H THEN 
J«»INTRNSC[ I 
♦ OLAYCJitC 
THEN H»18 
GTR 201 



FJJ.CCF]* J *M[ 03 . E CF J ; 

TIL J>n; 

700 OR P(XCH)*P1500 THEN 

UP))&(N-I-2HCTC3; 

EMAPCMtI*13. [81103)1 

T*INTABLE[MIX.N, [3611033)1 

I«-Sl+N! SI*-SI+N1 

♦01*61 DS*2 CHR1 END STREAM! 



t 3d 1 10 J 1 

J * 0) A ♦ INTABLER0W[MJX3l 



THRU REENTRANT INTRINSICS 

EMAP(I)1 

T»*[A[J,[36J10333)1 

l*DI+Il DI*DI + H 

EN TALLYM1 I*TALLYl 



3),[CF3 GTR 1023) AND J LSS THEN 

F3-2.MIX)! 

ELSE M*l + ll 



P(DUP); 

A SLAIER OF DRAGONS . , , 
11 

#0 THEN 
TANKCLiMCP)! 
LEU,C40|83 3J»(*PCDUP)H3[2*46l23l 



Tl 

CMIX)1 VALUE 

.S.T.U1 

NTER)i(J*TOP 

3>.[33l73#0 

E[N, [4018331 



[40l833,[SOU 

F SLN[MlX)#0 

EGIN S*TW0(C 

TWXOUT([ 

ENDI 

SLEEPC[T3»1)1 



MI Xf REAL MIX; 

SK[MlX3)&tT3[CTF3&MIX[3U3l53.-2»0.0)l 

THEN 

»(*P(DUP))S2[2U6»23),STAT10NTYPE»TWX 

SE3*0 
THEN 
L0CK.[40123x6)xw*Q0 H l 
S3,tCF3»8.U3[U46l23*N); 



1039750 
1040000 
1040100 
1041000 
1042000 
1043000 
1044000 
1045000 
1046000 
1047000 
1048000 
1049000 
1050000 
1050100 
1051000 
1052000 
1053000 
1054000 
1054100 
1054200 
1054300 
1054400 
1055000 
1055100 
1056000 
1057000 
1057100 
1057200 
1058000 
1058500 
1059000 
1060000 
1061000 
1062000 
1063000 
1064000 
1065000 
1065500 
1066000 
1066500 
1067000 
1068000 
1093000 
1094000 
1095000 
1096000 
1097000 
1099000 
1100000 
1101000 
1102000 
1103000 
1103050 
1103100 
1103150 
U03200 
1103300 
1103500 
1103600 
1104000 



DO IF P(N+M[ J3#T0P»XCH»DEL) THEN 
BEGIN S»M[N,[FF31.1CF]I 
M[N,tFFJJ,[CF]*OI 
MCPIN(S)I 

M[J]*FLAG(M[SJ INX N)J 
END UNTIL CJ*N I [FF])<64I 
IF (J «• Mt(S * PRTIMlX.8J,lCF3)-n,H8ll0j)#0 THEN 
BEGIN N * J INX PRT[MIX»4]| 

MAKEPRESENT(P(MIX,PRTR0WCMIX] I NX N.t8ll0l>)l 
M[SJ *■ FLAG(*P(DUP))&CP(DUP) INX (N t IFF] ) ) [CTC ] I 
MCS-13 • E18t 101 »0| 
END! 

DAT[M!XJ*"*P(DUP)J 
FOR J*0 STEP 1 UNTIL 29 DO 
IF J<16 OR J>19 THEN 
IF RDCTABLEtJ3,[8»63*MlX THEN 
IF UNITC J3 • t 13151*31 THEN 
IF C(T*TWQ(J)) AND P(RRR>>#0 THEN 
BEGIN UNITE JJ. C 1 3 t 5 3 «• 1 6 I 

READY*READY AND NOT Tl 
RRRMECH*RRRMECH AND NOT Tl 
ENDI 

IF (NTI*PR0CLIMIT[MIXJ) LEO OR 
(NT2*ELAPSFDLIMIT[MIX1) LEQ OR 
OLAYCTRCMIX] LEG THEN 
BEGIN IF (NT1*PRY0R[MIX1J>10 THEN NT 1*10* 

NTl*<5LNtMlXJx4+C0UNTCMIXJ-NTl)x8*2Q8J 

NT2*2xNTll 

0LAYCTR[MIX)*UPOLAY<NTl)+ 

D0NTEXPAND8ITS£MlX]xPl0000000000; 
END) 

PR0CLIMIT[MIXJ*PR0CTIMEIMIX]+NT1I 
ELAPSEDLIMIT[MIX]*I0TIMECMIXJ*NT2J 
STASUSCMIX]*RUNNING) 
$ SET OMIT » NOT(STATISTICS) 

TIMING[MIX]*CL0CK+PCRTR)) 
S POP OMIT 
$ SET OMIT m NOT(SHAREDISK) 

FOR 1*0 STEP 1 UNTIL LQAVAJL-t DO 
IF LOUECI 3.C12I 1 3 THEN 

IF L0CAT0UEtS*L0UE[I)»tll7JliC3l53»MlX THEN X 10 TO DO 
BEGIN 
S SET OMIT a DFX OR OMJT 

U*(L0CATOUEtS]*(*P(DUP))&(NOT 0) CCTF J ) , [ 12 I 6 J I 

I0C0UNT[MlXJ**P<DUPmi 

IF UNITIU3,tFF3>1023 THEN 

BEGIN 

UNIT[U]*(*PCDUP))&S[CTF J&SCCTC3J 
STAHTI0(U)J 
END ELSE 
BEGIN 

L0CATQUECUN!TCU3.[CFJJ,CFFJ*S! 
UNIT[UJ,tCF3*Sl 
ENDI 






POP 
SET 



OMIT 
OMJT 



NOT(DFX) OR OMJT 

T*lOQUE[SH6[3»43l5J| 

RETURNIOSPACE(S)! 

P1MIX*MIX| 

I0REaUEST(FINAL0UE[S3tTfL0CATQUECS3&18I12U2»6])l 



21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 

21 

21 



105000 

106000 

107000 

108000 

109000 

110000 

110100 

110200 

110300 

110400 

110500 

110600 

110700 

111000 

111100 

111200 

111300 

111400 

111410 

111420 

111430 

111440 

111500 

111510 

111520 

111530 

111540 

111550 

111560 

111570 

111580 

111590 

111600 

111610 

U1619 

111620 

111621 

1U629 

111630 

111640 

111650 

111660 

111669 

111670 

111680 

111690 

111700 

111710 

111720 

111730 

111740 

111750 

111760 

111770 

111771 

111779 

111780 

111800 

1U810 

111820 



J 



P1MIX*0) 

$ POP OMIT 

IF I LSS CLQAVAIL*L0AVAIL»1) THEN 

BEGIN 

STREAM(A*LQAVAU-I»B*tLQUEtm)l 
BEGIN SI*B) SIfSI»8l DS*A WDS) END) 
1*1-1) 
END) 
END) 
$ POP OMIT 

END MOOKUPMCP) 
PROCEDURE SWAPlNGIOCMIX»R)) VALUE MIX.R) REAL MIX#R) 
BEGIN INTEGER SJ 

REAL I»J»KiF»TQ»Tl»T2»T3tB>D>MSTARTJ 
ARRAY A«Bt*J) 
NAME N) 
STREAM PROCEDURE MOVE(N»H»T)) VALUE N»H»T) 
BEGIN LOCAL I»J) 

Sl«-LOC N) SI*Sl+5) DI*LOC I) DI*DI+7) DS*CHR) 
DI*LOC J) DI*DI+7l DS*CHR) 
SI*H) DI*T) 

I(32CDS*32 WDS) DS*32 WDS) DS*32 WDS) DS*32 WDS))) 
sKDS*32 NDSI DS*32 WOS)) 
DS*N WDS) 
END SUPERMOVE) 
SUBROUTINE DODISK) 

BEGIN) STREAM(B.J)) BEGIN St*-LGC B) DS*8DEC END) 
B*B+S+2) 

D*J»StCTF)«3C5l46|23»RC24|47ll Jj 
N)*K INX CTOJ) 

IF (NI03 AND I0MASK)«0 THEN SLEEPC [ N[ 3 J * I OMASK ) ) 
N£03*0) 

I0RE«UEST(NABS(D)»P377C25l40l8]»D»CNC0]]4lBC12l42l6J 
S SET OMIT * NOT(STATISTICS) 

C0UNTUP(15»S)) 
S POP OMIT 

J*30xS+J+l) 
Kj«CK+l), £46)23) 
END) 
SUBROUTINE SWAP) 

BEGIN TOl*Tl|sT2J*T3l*JQMASK) 
B*DlSKSTORE£M!Xj) 
K*0)S*63) 

WHILE J+1890<I DO DODISK) 
IF CSM-JM)>1023 THEN 

BEGIN S*S DIV 30) DODISK) S-I-J-l END) 
IF S>0 THEN 
BEGIN 
$ SET OMIT * NOT STATISTICS 

C0UNTUPU5>(S + 29) DIV 30)) 
$ POP OMIT 

D1SKWAIT((J+1)&RUI47I1]>S»B)) 
ENDI 

N|»tTOJ) 
FOR K)*0 STEP 1 UNTIL 3 DO 

IF CNEKJ AND IOMASK)«0 THEN SLEEPC I Nt K ] J » I OMASK ) ) 

END) 
J*MSTART*[MEM[MIX»MLINK1]J,CCF)1 

IF SQ[MjXJiO THEN SLEEPC £ SG£ M I X 3 ] . -0) ) 

SQtMlX3*-*P(DUP)) 



)) 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

XR022 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

XR022 
2 
2 
2 
2 
2 
2 
2 

SR022 
2 
2 

XR022 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



111830 
111831 
111840 
111850 
111860 
111670 
111880 
111690 
111900 
111901 
111950 
112000 
113000 
114000 
115000 
116000 
116100 
116200 
116300 
116400 
116500 
116600 
116700 
116800 
116900 
117000 
118000 
119000 
120000 
121000 
122000 
122500 
123000 
123099 
123100 
123101 
124000 
125000 
126000 
127000 
126000 
129000 
130000 
131000 
132000 
133000 
134000 
134500 
134900 
135000 
135100 
135500 
136000 
136500 
137000 
137500 
136000 
139000 
139100 
139200 



if R then 

BEGIN F»J*(I*CLCtMlXJ + (EXPAN0tM!X3#l))KCHUNKZIZE + FENCE.)' 

ACTIENCMIX); 
SWAP1 

A*F"MSTART INX MC F+ADDRESSES J I K*Q) 
FOR J*F STEP 1891 UNTIL 1-1 DO 
BEGIN MtJ3*A[KJ; K*K+1 END* 
IF I*J THEN 
IF (S*I-J*1890)>1023 AND (S*S MOD 30)1*0 THEN 

M(I«S!*A[KJ! 
J*S*FI 
I*MSTARTl 
WHILE I*J DO 
BEGIN WHILE (K*M[J])>0 DO J*K, [CFJ + S-I * 

J*J+3* 

MOVE(J*S»S»I )J 

s*j> 

I»K,ICF3I 



END 



END> 
INPUT 



ELSE 



BEGIN 



BEGIN DO IF CK*M[J]}<0 OR (K*K , [ CF J X J THEN 
BEGIN J+J+3; 

IF I#F THEN MOVE(J-F»F»I)> 
I*I+J-FJ 

f*k; 
end until cj*k)*mstart; 

A*MEMtMlX,ADDRESSESJI K»0> 

FOR J + MSTART STEP 1891 UNTIL I"l DO 

BEGIN A[K]+M[J]! K*K*1 END? 

IF I#J THEN 

IF (S*J-Jf 1890)>1023 AND (S*S MOD 30)#0 THEN 

ACKJ*MtI-SJ) 
J*MSTART> 
SWAP* 
ACTLEN[MIX]»I-MSTARTI 



end; 



E 

PROC 
B 



END OUTPUT! 

IF EXPANDCMIXJ#0 THEN EXPANDERC M I X»R) J 

SQ[MIX]*-*P(DUP)I 
ND SWAPINGIO» 
EDURE SWAPPER! 
EG IN LABEL START i T IMENDL»RDY » LI . L2» WA I TSWAPL »E0 JL»B0JL» SAT I SF YL» 

COMM0N»BUMP»FORCEL»RR« 

SWITCH STATE*TlMENDL»WAITSWAPL»BOJL*SATlSFYL»EOJL»FORCEL» 

REAL ItJ»K#TA»TT»MIXfRCW«+OI 

REAL S.LI 

REAL BJOBJ 
TARTl 

IF (MIX*LJNK[313)*0 THEN 

BEGIN STASUStO]*READYSTATE) KiLLURCWJ INX NOT 2) END* 

LlNK[3i)*LINK[MIXj; 

IF MIXbSWAPEND THEN SWAPEND*3U 
S*SCCMIXj; L*LC[MIX3I 
BJ0B»*BATCHJ0B[MIX] j 

GO TO STATEISTASUStMlXlJl 
IMENDLI 
T OMIT m NOT(STATISTICS) 

SWAPSCMIX]|**P(DUP)+1J 
$ POP OMIT 



T 
I SE 



1140000 
1141000 
1141100 
1142000 
1143000 
1144000 
1145000 
1146000 
1147000 
1148000 
1149000 
1150000 
1151000 
1152000 
1153000 
1154000 
1155000 
1156000 
1157000 
1158000 
1158100 
1159000 
1160000 
1161000 
1162000 
1163000 
1164000 
1165000 
1166000 
1167000 
1168000 
1169000 
1170000 
1171000 
1172000 
1173000 
1173100 
U74000 
1174400 
1174500 
1175000 
1200000 
1201000 
1202000 
1203000 
1204000 
1205000 
1205100 
1206000 
1207000 
1208000 
1209000 
1210000 
1210100 
1210200 
1211000 
1212000 
1212099 
1212100 
1212101 



k*rdyrptendj 21213000 

rdyrptend*mix| 21214000 

SLNtM!XJ»SLNlMlX]*(SLNCMIXJ#7)l 21215000 

RR» IF UNHOOKANDWAIT(MIX.I) THEN GO TO START; 21215100 
ELAPSEDLIMlTtM!X]|B*P(DUP)-10TlMEtMIXJl XR5921215200 

PROCLIMITCMIX3**P(DUP)-PHOCTIMEIMIX3; 21215300 

IF D0NTEXPANDBITS[MIXJ a THEN 2121535ft 
IF OLAYCTRtMIXJ LSS THEN EXPANDCM I X J I *3 J XR3821215400 

TA*TT*Ol 21216000 

I*RDYRPTI 21216100 

RDY« LINK[MIX]«>LINK[K]I 21216200 

IINK[KJ*MIX| 21216300 

NUS[MIX3*SLN[MlX]+2> 21216400 

IF TA»0 THEN 21217000 

Lit BEGIN STASUS[MIXJ*TRANSITJ 21218000 

SWAPINGIOCMIX.O)! 21218100 

END? 21218300 

GO TO COMMONl 21219000 

WAITSHAPLI 21220000 

IF UNHOOKANDWAIT(MIX^O) THEN GO 10 START! 21221000 

ELAPSEDLIMIT[MIX3*--0I 21221100 

TA*MlTT*Ql 21222000 

I*WAITSTATE? 21223000 

GO TO HI 21224000 

FORCEH 21224100 

$ SET OMIT » NOTCSTATISTICS) 21224109 
SWAP0UTS[M1XJ:»*PCDUP)+U XR6321224110 

S POP OMIT 2122411$ 

IF (K*FORCEND)«RDYRPTENO THEN RDYRPTEND*M I Xj 21224200 

PRTR0WtF0RCEND*MlX],[PSF3*0l 21224300 

SUNtMIX)*I*(SLNtMlX3).[45l23; 21224400 
IF 1*0 THEN ELAPSEDUMIT[MIX]I*I0TIME[MIXJ; XR5921224500 

GO TO RRI 21224900 

EOJLITA+TT*" II 21225000 

I*STABLEI 21225100 

GO TO COMMONl 21225300 

BOJLl TT*ll 21226000 

I*READYBOJJ 21227000 

L2l TA*1I 21228000 

J*MIX| 21229000 

IF (K*LINKtREADYEND3)»»0 THEN 21229100 

IF NLS[KJ»0 THEN J*K ELSE NLS[K J*NLS[K ] -1 1 21229110 

IF (K*READYEND)aFORCEND THEN FORCENO*JI 21229120 

IF RDYRPTENDeREADYEND THEN RDYRPTEND*Jl 21229130 

SUN[MJXJ#.Ql 21229200 

READYEND*Jl 21230000 

J*MIX| 21230100 

GO TO RDYI 21231000 

SATISFYLI 21232000 

TT*0l 21233000 

I*READVSTATEJ 21234000 

GO TO L2I 21235000 

COMMONl 21236000 

C0UNT[MIXJ*63I 21237000 

STASUSCMIX J»I J 21237100 

S SET OMIT » NOTCSTATISTICS) 21237199 

IF (1»READYSTATE) OR U*RDYRPT) OR (I*READYBOJ) THEN 21237200 

QUETIMING[MIX]|«CU0CK4.PCRTR)I 21237300 

* POP OMIT 21237301 

I*S-1I 21238000 



BUMP I 21239000 

IF (I*1*1)>L THEN 212a000t> 

IF (TA*£XPAN0IMIX])«0 THEN GO TO START 21240100 

ELSE IF S<0 THEN GO TO START 21240200 

ELSE BEGIN L*I*IF TA THEN Ul ELSE S-l> 21240300 

S*-CTA«-TT*1)J 21240400 

J*MIX; 21240500 

ENDI 21240600 

ACT1VCC I J*ACTIVEC 1 3 + TAI 21241000 

TOTALtl3*TOTAL[I3*TTJ 21242000 

IF BJOB THEN BATCHEDU 3 » »TT GEO 01 21242100 

IF TA#1 THEN 21243000 

BEGIN POSSESSt I ]*J*0; 21244000 

00 IF CJ*LINK[K*JJ)»0 THEN GO TO BUMP 21245000 

UNTIL SCtJJ<I AND LCCJ12H 21246000 

END ELSE IF (NT1*P0SSESS[ IJ )#0 THEN 21246100 

IF STASUSCNT1]*RUNNING THEN 21246200 

BEGIN IF SLN|NTU*0 OR NLSCNT13*0 THEN GO TO BUMPl 21246300 

IF PRTRQW[NTl J.[PSF3*0 THEN 21246400 

PRTROWtNTllf [PSF)*3I 21246500 

GO TO BUMP; 21246600 

END ELSE 21247000 

IF STASUS[NTi]#RDYRPT THEN GO TO BUMP 21247100 

ELSE 21247110 

BEGIN NT2*0> 21247120 

WHILE (NT2*LINK[NT2))*J DO 21247200 

IF NT1*NT2 THEN GO TO BUMP; 21247300 

C0UNTCNT1 J+C0UNTCNT11+63J 21247400 

END1 21247500 

P0SSESStIJ*J) 21248000 

C0UNT[J3*NTl«-C0UNTt J3 + 1 AND 63; 21249000 

IF SC[J3+NTU*LCtJ3 THEN GO BUMPl 21250000 

IF STASUSCJ]#READYBOJ THEN 21252000 

BEGIN STASUS[J]*TRANS!T; 21253000 

* SET OMIT * NOTCSTATISTICS) 21253009 

READYQUETlMEt J]»»(*P(DUP))+CLOCK+PCRTR)-QUETlMlNGt Jj; 21253010 

S POP OMIT 21253011 

SWAPINGI0CJ»1>; 21253100 

HOOKUPMCP(J)! 21254000 

END ELSE STASU5CJ3*SELECTING| 21259000 

$ SET OMIT « NOT(STATISTICS) 21259099 

IF STASUSUJ = SELECTING THEN 21259100 

BEGIN 21259200 

INITIALRQTlMnjJt»READYQUETlMEtJ3+CL0CK+PCRTR)- 21259 300 

GUETlMlNGtJH 21259400 

READYQUETlMEtJ3»*eUETlMINGtJ3l«0; 21259500 

ENDI 21259600 

IF SWAPDELAYU3 NEQ THEN 21259650 

BEGIN COUNTUPBY(33#CLOCK+P(RTR)-SWAPDELAYCJ3); 21259700 

SWAPDELAY[JJJ*0; COUNTUPB Y ( 34 # 1 ) ; 21259800 

ENDI 21259900 

$ POP OMIT 21259901 

LINKtKJ«-LINK[J3; 21260000 

if jsforcend then forcend*k| 21260800 

if j«rdyrptend then rdyrptend'k i 21260900 

if j#readyend then go to bump; 21261000 

readyend*ki 21262000 

go to bumpi 21263000 

end swapper* 21264000 

procedure initialswap(n)! value hi real hi 21265000 



BEGIN REAL I»J#K 
LABEL Li 
IF N LSS 
BEGIN K»«N, 
ELSE BEGIN 
IF (N*(64xN 
N * (N=Q)+N 
U»*N+N LSS 

LI Sls>A096l 

FOR I * CHU 
BEGIN T*0; 
FOR J 

IF 
IF T-U 
ENDI 

IF S GEO 40 
ENDI 

SCCP1MIX)*K 
LC£PIMIX]*K 

CANTEXPANOC 
$ SET OMIT ■ NOTCST 
SWAPDELAYtP 
t POP OMIT 

SWAP(BOJSTA 
SLEEPQSQCP 
MEMR0WCP1MI 
Ul»T+4| 
MtS*(l*(N*l 
P1MIXC 
M[T]*K&UCCT 
MCU]*K&SCCT 
M[MEM[P1MIX 

M[S+n*s; 

MEM[P1M1X»L 

FORGETSPACE 

FR0NTEN0CP1 

IF LOGLINE, 

BEGIN 

TANKStLOGLI 

M[J]*0? 

ENOI 

END INTTI ALSWAP; 
PROCEDURE FRONTENDC 
VALUE MIX? 
REAL MIXI 

BEGIN REAL I>JI 
J*(I*NOT FE 
IF MEMROWCM 
MEM[M1X#ADD 
UGETSPACEC 
MOVEOOtJAR 
FORGETSPACE 
JARROWfMIX] 
I*GETSPACE( 
MOVECUVSIZE 
FORGETSPACE 
UVR0WCMIX3, 

END FRONTENDI 
PROCEDURE EXPANDERCM 
VALUE MIX#R 



»S»T*UI 

THEN 

E 27 « 6 3 1 Nl«N,[21l6J END 

-CN*0)) D IV CHUNKZUE)>CHUNKMAX THEN N* 

I 

CHUNKMAXI 

NKMAX STEP -1 UNTIL N DO 

* STEP 1 UNTIL N DO 
(NT1 !«ACTIVEU-J3x64*T0TALU-J]) GTR T 
LSS S THEN BEGIN Sl=T? K I ■ I END! 

95 THEN BEGIN Nl«N"U GO TO L ENDi 

-N? 

I 

P1MIX]|»(N*CHUNKMAX); 

ATISTICS) 

1MIX]|bCL0CK+P(RTR)I 

TE»0)l 

1MIX] ] »0J SELECTING 11814216 J )l 

X]i*MEMROW[OU((Tl»CK-N)xCHUNKZIZE+FENC 

}KCHUNKZI2E)*T"3]*K*HUlCTFJilI2i47ll J* 

9I42I6K 

CJ&S[CTF3UU7l47»13J 

CJ8T[CTF3I 

» AVA I L]*S*S*1 J 'S&07777 7 CCTFJ? 

I.FTLITJi«Tl 

(U+2)l 
MIX)? 
[33»7)*0 THEN 

NE.[40»8]],[CF]*I*GETSPACE(30»0#l)+2? 



MIX)? 



NCE INX 1) DIV 1890+2? 
IXJ.CCFJ NEQ THEN 
RESSES3*[M[GETSPACE(J»0&MlXtCTF]»l ) + U3 

30»0&MIX[CTF3M>*2> 

ROW[M]XJ»I)l 

( JARR0W[MIX])J 

,tCFl*H 

UVSlZE»OSMIXtCTf ]»l)+2l 
»UVR0W[MIX]» I)? 
CUVROWtMlX])? 
tCF3*II 

JX»R)I 
I 



2 
2 
2 
2 
2 
CHUNKMAX? 2 
2 

JSR112 

XR112 

2 

2 

2 

THEN T I «NT1 J 2 

XR112 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
E))[CTC3l 2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

XR7S2 
&64[8i38ilO)l2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



1266000 

1266100 
1266200 
1266300 
1266400 
1267000 
1267100 
1267200 
1268000 
1269000 
1270000 
1271000 
1272000 
1273000 
1274000 
1274100 
1274200 
1273000 
1276000 
1276050 
1276099 
1276100 
1276101 
1277000 
1278000 
1279000 
1279500 
1280000 
1281000 
1281500 
1281600 
1282000 
1283000 
1283500 
1284000 
1285000 
1291100 
1291200 
1291300 
1291400 
1291500 
1292000 
1293000 
1294000 
1295000 
1296000 
1297000 
1299900 
1302000 
1304000 
1305000 
1306000 
1307000 
1308000 
1309000 
1310000 
1311000 
1312000 
1313000 
1314000 



real mix#r> 21315000 

begin real i»jj 21316000 

label l»li»sol; 2131/000 

IF R THEN 21318000 

BEGIN 21319000 

IF EXPANDCMIX] THEN 21320000 

BEGIN MEM[MIX»0],CFF3*I*(J*MEMtMIX»AVAILJ-l)+CHUNK2lZE* 21321000 

M[N*M[JHJ[CTFJI 21322000 

M[J3*(*P(DUP))&l[CTC)J 21323000 

M[(M[ 1*1*1 J*MCJ*n)*J J* 1 1 21324 000 

M[MCI*n*M[J+21J,[CFJ»MEM[MlXtAVAIUl*II 21325000 

END ELSE 21327000 

BEGIN I*(J*tMEMtMlX»on,tCf ])-CHUNKZl2El 21328000 

M[(M[IJ*M[J)*(I*a)tCTCl),lFFJ) f [Cn*n 21329000 

MtsJ3*(*P(DUP))&(I*4)tCTF]J 21330000 

M[I+43*Mtl3&JtCTC34I[CTF3» 21331000 

M[I*13*MtJ+UJ M[I+2J*Mf J + 231 21332000 

MEMROWtM|X]*MEMROH[OJ4HCTC3l 21333000 

F0RGETSPACE(I*6)J 21334000 

FORGETSPACECJ+6); 21335000 

FRONTENDCMIX)! 21337000 

ENOI 21338000 

FORGETSPACE(J+?)I 21338100 

EXPAND[MIXJ»0J 21339000 

END ELSE 21340000 

BEGIN vlfi»LC[MIX3; 21340500 

IF CH«SC[MIX3)«0 THEN 21341000 

IF TOTALtJ+lJ LSS 63 THEN 21341500 

LI BEGIN LCIMIXJ*ICCMIX)*1I 1*1 ENO 21342000 

ELSE GO TO SOL 21342500 

ELSE BEGIN 21343000 

IF J*CHUNKMAX THEN 21343500 

IF T0TALU-13 GTR TOTALtJ+13 THEN GO TO LJ 21344000 

IF T0TALCI-13 » 63 THEN 21344500 

SOLI BEGIN CANTEXPAN0[MIX3»*1; l*sOJ GO TO LI END! 21345000 

SC[MIX3*I-1J 1*2; 21346000 

ENO; 21347000 

IF COUNTtMlX] GEQ CHUNKMAX-1 THEN C AN TEXPAND t Ml X 3 « *\l 21347500 

Lit EXPANDCMIXlmll 21348000 

IF MAXCQRECMJX3 THEN 21349000 

BEGIN STREAM<JI*JARR0W[MIX3» MIX* D I »H *SPACE( 10) ) ; 21350000 

BEGIN DSl*LlT" *J S I » ■ J? S I I *S 1 + 1 ; DS|»7 CHRJ 21351000 

SllvSI+U DSl«LlT"/"> 0S»«7 CHR* DSl*LlT"s"> 21352000 

SH*LQC MIXI DS»»2 DEO J»»DIJ 21353000 

DII«D!"2J DS»»FILL* DI«*J1 21354000 

0SI»19 LIT" EXPANDED (NO MEM)*"; 21355000 

END* 21356000 

SP0UTER(I#PSEUD0MIX[MIX3#1)» 21357000 

END* 21359000 

END> 21360000 

END EXPANDERl 21361000 

REAL SECONDCTR» LASTSCHEDSF.LECTl 22000000 

$ SET OMIT m NOT ( SHARED I SK ) 22000499 

PROCEDURE FINDFREEADDRESS(N)IVALUE NJREAL NIFORWARD* 22000500 

REAL FINDFREECTRJ % USED TO DETERMINE HOW FREQUENTLY 22000600 

% FINOFREEAODRESS IS BEING CALLED 22000700 

S POP OMIT 22000701 

PROCEDURE NSEC0ND1* 22001000 

BEGIN REAL RCW»*0» I»J»JJ»Sl % J MUST BE AT F+2 (SEE 22049400)22002000 

ARRAY At*3l 22003000 



S SET 

S POP 

S SET 

I POP 

S SET 

S POP 



OMIT 
OMIT 

OMJT 
OMIT 

OMIT 
OMIT 



S SET 
S POP 



OMJT 
OMIT 



$ SET OMIT 
£ POP OMIT 



s NOT SHAREDISK 

REAL KLUDGE»H0UDEH»NEXTSL0T»8YHA 

BOOLEAN W; 
LABEL TRYWYtDOITl 
5 TWXONLY 
LABEL LOOPJ 

IF (J?*TOGLE.NOMEM)»'0 THEN 
TOGLE.NOMEMlwIK J THEN 6 
J|*NEUP,NEUF I 
* NOTCSHAREDISK ) 

DISKWA1T(-(EUI0 I NX 0)#-(J+EUI0F 



ss; 



ELSE J-21 
ESETJtEUIOHOLDER)^ 



FOR I t»J-l STEP -1 UNTIL DO 
BEGIN 
EUIO[I*eUIOFFSETH«*P(OUP)xeUTAPER*PEUIO(1 Jl 
PEUlOt I 3»*0> 
END! 
NOTCSHAREDISK ) 
OISKMAI TCEUIO I NX 0, -( J + EU I OFFSE 



WHILE XCLOCK+PCRTR) 

CHANGEDATF(0)> 

FOR I ♦ 20 STEP 1 UNTIL 21 DO* 

BEGIN IF NOT UNITt I 3 , 1 161 1 3 
UNlTtlliCinil * 
STARTI0CD5X 
ENDII 
NOTCDFX) 

DISK0UNT«-(PCRRR),[29|13 AND (UNI 
CPCRRR). C28» 1 ] AND (UNI 

IF SYSD1SKADR NEO THEN 
BEGIN 

AI"IOQUE*SPACE(iOMCTC]» 
SYSDISKI0(1.0»A)I 

FOR Il«l STEP 1 UNTIL STATIONMAX 
BEGIN SYSDISKI0(1»I#A)> 
IF SCHCA) THEN 
BEGIN IF STATABLEtn.DIALEDUP 
BFGIN IF (WJ«SEQARRAY[I3 
IF (Wl»MtH*371«M[W+ 
BEGIN AC33*«W; SYSD 
END ELSE 

IF NOT SCHEDBUSYtl) THEN 
END ELSE 
IF REMOTE THEN 
BEGIN 

WI«FALSEI 

IF AC 1 3»»0 OR AtOl.DULEDUP 
BEGIN IF (JJl-STATABLEtl J), 
THEN WI-TRUE ELSE 
IF AUJ#0 THEN 
BEGIN 

IF A[23+A[3J<CL0CK THE 

BEGIN IF (JI«JU,MIXNR) 

TERMINATED* 

ELSE BEGIN M[J*GE 

OS 



T)»EU10H0LDER 
GEQ WITCHINGHOUR DO MIDNI 



) I 

ght; 



the:nx 



T[18J,[FFJ>1Q 
T[19],[FFJ>10 



23)) + 
23))) 



DO 



THEN 
,CCF3) GTR 51 
773CCTF3) NE« 
ISKI0(0»I#A) 



1 THE 
AC 33 

ENDJ 



S«*S*1» 



THEN 

ACTIVITY OR I»ABSC 



N 

+ CANDEMIX[I3 THE 
15CCTF3) 
TAREACOH * 
ICCTF3&10C 181 Al 173 



22003990 
22004000 
22004010 
22005000 
22005100 
22005199 
22005200 
22005201 
22010000 
22011000 
22011100 
22011190 
22011200 
220U201 
22011300 
22011400 
22011500 
22011600 
22011700 
22011790 
22011800 
22011801 
22012000 
22013000 
22032000 
22033000 
22034000 
22035000 
22036000 
22036099 
XDFX22036100 
XDFX220362Q0 
22036201 
22036300 
22036400 
22037000 
22037500 
22038000 
22039000 
22039100 
22039150 

N 22039200 
THEN 22039250 
22039300 
22039350 
22039400 
22039450 
22039470 
22039500 
22039550 
22040000 

SP0W0RD)22040500 
22041000 
22042500 
22042600 
22043000 

N 22044000 
22045000 
22045100 

I 22045200 



M[J+U * 54; 24045300 

QUEVLNT(J»CANDEMlXt l))i 22045400 

ENDI 22045500 

MCJl«GE'TARE.ACO) J|«0*IE25U0I8M54[18|AH7]J 2204 7000 

IF JJ,STAT10NTYPE*TWX THEN 22047050 

SEQARRAYUJI*0J XR27220471 00 

QUEVENT(J#CANDEMlXt I))i 22048000 

W*TRUEJ ' 22048100 

END ELSE 22048200 

IF PAPERTAPEtU THEN * END THE TAPE IF STA 22048300 

IF AC23+AL3J/4 LSS CLOCK THEN % IS IDLE, 22048350 

BEGIN M[JisGETAREAC0)]:=(+P(DUP))&I[10l40»8J 22046400 

&H5»4fMJ; 22048450 

STREAM 22048500 

$ SET OMIT ■ TWXONLY 22048545 

AJ'LINEDISCUF I LEQ LMAX THEN I ELSE 22048550 

STATABLEUJ t LEENKER3 * TWX, 22048560 

t POP OMIT 22048565 

J»*J+1)J 22048600 

BEGIN 22048650 

$ SET OMIT * TWXONLY 22048695 

ACDSi-LlT"""; DSi*LjT"#")J 22046700 

$ POP OMIT 22048705 

DS!*LJT MARK) 22048750 

$ SET OMIT * TWXONLY 22048795 

ACDSJ*2 LIT"**")) 22048800 

S POP OMIT 22048805 

DSl*LlT"*"l 22048850 

ENDJ 22048900 

GIVEAWAYCJ)J 22048950 

ENDJ 22049000 

END ELSE 22049100 

IF AC2J+360Q<CL0CK THEN 22049200 

BEGIN 22049250 

IF BLASTREAD(It7) THEN 22049300 

BEGIN STREAM(J?sJJ|a([RCW] INX 2))) 22049350 

DSIb6 LlT"#BYE#-*S"J 22049400 

TWX0UT(J%I»8»-1»I)> 22049450 

END ELSE A[03,0IALEDUPJ*0; 22049500 

WJ»TRUEJ 22049550 

ENDJ 22049600 

IF W THEN 22049700 

BEGIN AI2i«*CL0CK) 22049800 

SYSDI SKIOCOt 1 t A); 22049900 

END! 22049950 

P(tSTATABLECUJ»PRL)l 22050000 

END) 22050100 

ENDJ 22050150 

ENDJ 22050200 

SYSDISKI0C1»STAMAX+1#A)J 22050250 

FORGETSPACE(A)l 22050300 

ENDJ 22050302 

t SET OMJT » TWXONLY 22050304 

IF REMOTE THEN 22050305 

IF Cll«CL0CK+P(RTR)) GTR LlNETABLEtO) THEN 22050310 

BEGIN XUPDATF TIMER TO CHECK AGAIN IN A MINUTE 22050315 

LINETABLEC0J»*I+1800J 22050320 

FOR Il»l STEP 1 UNTIL LMAX DO 22050325 

IF LlNEDISCni»MULTI THEN 22050330 

BEGIN JJlwLlNETABLEtU.DIRECTLINEJ 22050335 



LOOPI Jl*IJ Wl*FALSt; 22050340 

DO IF PCSEUARRAYCJJ»DUP),C3iniJJ THEN 22050345 

BEGIN JF JJ THEN 22050350 

PCPtO(3l47il]«(SEQARRAY[J]]«SND}l 22050355 

W»«TRUE1 22050360 

END UNTIL (JI»P,UNELINK>"ll 22050365 

IF CJJ»«JJ«W) THEN IF N THEN ENTEREADYQC I ) ELSE 22050370 

GO TO LOOP) X IF DIAL"UP AND NO ONE ON LINE 22050375 

END! END? 22050360 

* POP OMIT 22050381 

IF CXCLOCK-LASTSCHEDS£LECT)GE0 54000 THEN 22050400 

BEGIN LASTSCHEDSELECT»»(XCLOCK DIV 54000 ) *54000; 22050500 

IF S GTR THEN 22050600 

IF SCHEDNUH NEC FRSTSCHED THEN 22050700 

FORKCPC ,SCHEDIDLE)#0»0» 160*0); 22050800 

END) 22050900 

$ SET OMIT * NOT(STATISTICS) 22Q50V09 

COUNTARRAYUJisCLQCK; 22050910 

IF SYSTATBASE GTR THEN BEGIN 22050915 

DISKIO([JUNK]»COUNTARRAY.[Cf ]• 1 # 60# SYST ATBASE ) I 22050920 

IF XCLOCK GEO COUNTARRAY £29 J THEN 22050930 

BEGIN 22050940 

COUNTARRA Yt 29 ]»*XCLOCK+ INTERVAL J 22050960 

F0RK(P(,FILLS¥STAT)»0»0»128»1)J 22050970 

END END? 22050980 

* POP OMIT 22050981 
S SET OMJT * NOHSHAREDtSK) 220509JV 

DISKWA ITC-Ct HOLDER ].tCF3)f "3 fDIREC TOR YSEG); 22051100 

$ SET OMIT * NOT STATISTICS OR OMIT 22051140 

BYPASSBOTTOMl«BYPASS,[CFJ; 22051150 

S POP OMIT 22051160 

IF CJl*HOLDER.rFF]>*0 THEN % HOLD LIST IS NOT EMPTY 22051200 

BEGIN 22051250 

A»*CMtSPACECJ>n&JC8»36llQj; 22051300 

DISKWAITC-CA INX ) »J» HOLDER f t CF 3 > ; 22051400 

FOR Il»JJl*0 STEP 1 UNTIL J"l DO 22051500 

IF ATM LSS THEN 22051600 

IF AU].m2J=SYSN0 THEN 22051700 

BEGIN IF (JJl*A(n)tCFF) GEO FENCE THEN 22051800 

BRINGBACK(JJ,C10|8]) ELSE MC JU. [ FF 3 3 I «4 I 22051900 

A[I3I*P(DUP»L0D#SSP); 22052000 

END; 22052100 

IF JJ*0 THEN DISKWAITU INX 0» J» HOLDER , C CF 3 ) ; 22052200 

FORGETSPACECA); 22052300 

END; 22052350 

UNLOCK(DIRECTORYSEG); 22052400 

IF NOT FINDINGADDRESS THEN 22052700 

IF LQAVAIL*0 THEN 22052800 

BEGIN 22052900 

FINDINGAODRESSI *1 I 22053000 

FINDFRFFADDRESS(O); 22053100 

END; 22053200 

IF FINDFREECTR LSS 32 THEN* IT IS NOT GETTING CALLED OF TEN22053300 

IF(Jl*(*P(,,FINDFREEADDRESS>)INX 0)>M[03.[CF3 THEN 22053400 

M[J-2],[2I1JI««0J 22053500 

FINDFREECTRt»0; 22053600 

IF RUNUMBER GTR THEN STARTADECK ( ) ; 22053650 

t POP OMIT 22053651 

IF CLOCK, [35»73«0 THEN 22053660 

FOR Sl«MIXMAX"l STEP -1 UNTIL 1 DO 22053670 



IF JARROW[S]#0 THEN 22053672 

BEGIN TABCNT[SJI»TA8CNT[S)*l* 22053674 

IF (I l»REPLY[S3) LSS THEN 22053680 

BEGIN 22053690 

IF PUTORTAKECS»[PRV0R[SJJ»i»O) LSS 1023 THEN 22053715 

BEGIN 22053720 

JUl»VFM> 22053725 

TRYWYJ STREAMCIUJI«LJJ])I 22053730 

BEGIN SII*L0C II Slt»Sl*ll DII-DI+71 22053735 

7(IF SC*DC THEN 22053740 

BEGIN H»TALLYI JUMP OUT ENDI 22053745 

DIl*DI-l)> 22053750 

END; 22053753 

IF JJ*VFM THEN * FIRST TIME THRU 22053754 

IF P»0 THEN * FM 22053755 

BEGIN JJIsVWYj 22053756 

GO DOIT 22053757 

END ELSE X NO F'M 22053758 

BEGIN JJIsVQK* 22053759 

GO TRYWY 22053760 

END ELSE % NOT FI5ST TIME THRU 22053761 

IF P NEQ THEN % IMPROPER MSG 22053762 

IF JJ«VOK THEN * TRY WY IF OK IS NOT 22053765 

BEGIN JJlaVWYI 22053770 

GO TRYWYI 22053775 

END 22053780 

ELSE ELSE % MSG IS OK 22053785 

DOITl 22053788 

BEGIN REPLYCSJJ«UJl 22053790 

BRINGBACK(S)> 22053795 

END END END? 22053800 

TABCNT[S3l«TABCNT[S3-ll 22053820 

ENDI 22053830 

NSECQNDREADYl*TRUEJ 22053850 

SEC0NDCTRl*0J 22053900 

KILLURCW3 INX NOT 2)1 22053950 

ENDI* 22054000 

PROCEDURE STATUS!* 22055000 

BEGIN REAL U«+1»X 22056000 

T»U+1»* 22057000 

Tl-T+llK 22058000 

INTEGER* 22059000 

I*Tl+lt* 22060000 

ARRAY AREA»I+1[*3JI 22061000 

REAL HDR « AREA+1. 22061100 

SEGOs HDR ♦ 1» 22061110 

F » SEGO+ll 22061120 

ARRAY SHEAT m F + U*3l 22061130 

LABEL TRYAGAIN.LDCNTRL»DISKJ 22061200 

LABEL L»EL»N0TREADY» DIE. ACCEPT » SCRATCH* I NPUT » TESTBACKUP* 22062000 

COMMON! 22063000 

LABEL CARD»PRINTER.TAPE#DRUM»DISC»SPO»PUNCH»UNLDi 22064000 

PAPERPUNCH.PAPERtDATACOMl 22064500 

SWITCH S »* CARD»PRlNTER»TAPE»DRUM»DISC»SPO»PUNCH»UNLDt 22065000 

PAPERPUNCH. PAPER* DAT ACOMlX 22066000 

REAL RCW«*0JX 22067000 

SUBROUTINE SPACEAI* 22068000 

BEGIN AREA t« CMC SPACE( 12) 3 3&10C8I 38| 103 » ENDI 22069000 

SUBROUTINE AUTOLOADER! 22069010 

BEGIN 22069020 



TRYAGAINI 22069025 

IF CHDR«*DIRECT0RYSEARCHCPCLDCNTRL)'P(DISK)»3)) * THEN 22069030 

BEGIN 22069040 

SHEAT t» [M[F»s>GETSPACE(31*64»0)+233 & 30 1 8 f 38 1 1 ) J 22069050 

STREAMCSI»FM» Ds-F)I % ZERO OUT THE SHEAT ENTRY 22069060 

BEGIN 220690fQ 

S I I «S I DSl = 30 WDS; 22069080 

END! 22069090 

SEGO »» GETSPACE(30»64.0)+2; 22069100 

OISKWAITC-SEGO* 30. MfHDR INX 1 03 > ; 22069110 

F.tFFJ l« HDR» % CORE ADDRESS OF HEADER IN IFF i OF PARAM. 22069120 

SHEATI7J l» SEGOl % CORE ADRS.OF SEGMENT ZERO IN SHEAT[7] 22069130 

SHEATtOJ I* SHEAT[14] I* PCLDCNTRD? 22069140 

SHEATUJ »* PCDISKJJ 22069150 

SHEATt23 I* & 5C8t 38* 10 j & I[4i47ll3l 22069160 

X £411] IN SHEEH2J MEANS SUPRESS BOJ/EOJ MESSAGES 22069170 

SHEATU6J »* SHEATU7] l» §37777/7777771 % TIME LIMITS 22069180 

SHEATU9] »* UJ It COMMON VALUE 22069190 

SHEAH20J is 4; % CORE ESTIMATE 22069200 

SHEATC2U !■ 150; 1 STACK SIZE 22069210 

22069220 

STREAM(A»«0 : S I* P(, SCHEDULERS))! 22069230 

BEGIN 22069240 

SI I *Si 22069250 

47CSMP SB! SKIP DBI TALLY l«TALLY+ ll 22069260 

IF SB THEN ELSE JUMP OUT)? 22069270 

DSl»SET? AI»TALLYJ 22069280 

END STREAM STATEMENT; 22069290 

22069300 

I I* PI 22069310 

5HEATC3M8U0] l« I! % SCHEDULE NUMBER 22069320 

SHEATI233 !« (CLOCK ♦ P(RTR)) DI V 60> 22069330 

SHEAT[24] !■ MCPI 22069335 

SHEAT[25J I* HDR,[FF3; % DISK ADDRESS OF FILE HEADER 22069340 

SHEATI263 »*= -3U * LOGLINE 22069350 

STREAM(U» IUII"GETSPACE(10»0»0)*2)J 22069360 

BEGIN 22069370 

DSI*27L1T H CC RUN LDCNTRL/D I SK| COMMON'"! 22069380 

SIieLOC U; DSl*8DEC; 22069390 

DSM6LIT";EN0.*"J 22069400 

END STREAM STATEMENT; 22069410 

SHEATI6J l« GETESPDISK; 22069420 

DISKWAIT(I» 10» SHEATC6J)! 22069430 

FORGETSPACE(I); 22069440 

MULTITABLECU1 I* "C0NTR0L"J 22069450 

LABELTABLECUJ ts (-"DECK " ) J 22069460 

ROCTABLECU] t« 1 & mOlSBUOlJ 22069470 

IF U THEN READERAJaO ELSE READERB««0| 22069480 

FORKCP(.SELECTRUN). F» 0, 160* 0)1 22069490 

END ELSE * IF IN DIRECTORY 22069510 

BEGIN 22069520 

ENTERSY5FILEC2)J 22069530 

GO TRYAGAINI 22069540 

LDCNTRLlll "LDCNTRL"! 22069550 

DISKin "DISK "| 22069560 

ENDI 22069570 

END SUBROUTINE AUTOLOADER} 22069600 

22070000 

P(Q#0»0#O»0»0f 0#0»0)1X 22071000 

22072000 



SPACEA;* 22073000 

WHILE (T * P(RRR) OR RRRMECH) * READY DO* 22074000 

BEGIN I * O&TINUtU ♦ (P(T EQV NOT READY » DUP» DUH»x» x ) % 22075000 

xeioooooooooooo),* 22076000 

[3|6]H5illl7)/*10000000Q0000f S 220 77000 

IF T < READY THEN* 22078000 

BEGIN COMMENT SOMETHING WENT NOT READY;* 22079000 

READY * READY AND NOT \l% 22080000 

IF LABELTABLE[U3 > THEN* 22081000 

BEGIN* 22082000 

LI LABELTABLE[U3 * 0114;* 22083000 

IF (U AND 0774) NEQ 16 THEN 22084000 

MULTlTABLECUJ:*OJ 22084500 

END;* 22085000 

ELI RRRMECH ♦ RRRMECH AND NOT 11% 22086000 

END OF NOT READY* 22087000 

ELSE BEGIN COMMENT SOMETHING WENT READY;* 22088000 

READY «- READY OR \i% 22089000 

UNITCU3.C13I1] •• 0;* 22090000 

IF LABELTABLE[U]#eil4 OR UN I T [ U i , [ 1 3 I 5 J* 1 5 THEN 22091000 

BEGIN RRRMECH * RRRMECH OR lt% 22092000 

IF LABELTABLE[U3 « 0214 THEN* 22093000 

BEGIN I ♦ I AND NOT SAVEWORD;* 22094000 

GO TO LI* 22095000 

END; 22096000 

IF STASUSCT*RDCTABLECUJ,[8|6J]a 22096100 

RUNNING OR T«0 THEN 22096200 

BEGIN Tl*UNlT[U3,tFF3; 22096300 

WHILE TK1023 22096310 

DO BEGIN TULOCATttUECTH.CFFj; 22096400 

IOC0UNT[T3**P(DUP)<U) 22096500 

END; 22096600 

UNITCU] , [13153*01 22096610 

STARTIOCU); 22096700 

END ELSE 22096800 

BEGIN IF HEPLY[T3»(-VQK) THEN 22096900 

BEGIN REPLYCTJ*Ol 22097000 

BRINGBACK(T); 22097100 

ENDI 22097200 

UNITCU], [13153*311 22097300 

END? 22097400 

GO TO COMMON;* 22096000 

END;* 22099000 

IF (U AND 0774) NEO 16 THEN 22100000 

MULTITABLE[UJl»RDCTABLECUl!»OJ 22100500 

IF (I AND SAVEWORD) t THEN* 22101000 

BEGIN RRRMECH * I AND SAVEWORD OR RRRMECH; 22102000 

GO TO COMMON;* 22103000 

END;* 22104000 

GO S[UNIT[UJ, [11433;* 22105000 

TAPEI P(WAIT10(P4200000000»5»U)»DEL)>* 22106000 

IF CT * WAITI0(AR|A INX 0l2O54OOOOOOO»075OOO45»U ) ) , * 22107000 

[4513] * THEN* 22108000 

NOTREADYI BEGIN READY * READY AND NOT H* 22109000 

GO TO LU 22110000 

end;* 22111000 

IF M0D3I0S AND NOT T,[42llJ THEN BEGIN XAI22111500 

DO UNTIL (T1*WAITI0CAREA INX 034OQOOO12»055f U) )#0| *A I 221 12000 

END ELSE T1*WAITIO(?4200000000#5»U); *AI22112500 

IF Tl,[45l33#0 THEN GO TO NOTREADY; *AI22113000 



DO UNTIL. N 

(THAN 

IF T1.U2: 

BEGIN) STR 

BEG 

END 
SPOUTCAREA 
END) 

IF Tl , C45* 
PRNTABLEtl 
IF T.[43»l 

BEGIN 



OT (Tl«-WAITIO(?500000000»Pl6b»U)) OR 

SACTION[UJ«-0)l* 

13 THEN 

EAM(T«-TINU[U3»A< 

IN SI«-LOC t; SI*i 

DS*3 CHRJ DS< 
{ 

I nx 0)1 spacea; 



AREA); 

•Sj+5) DS*LIT"#") 
10 LIT "-BAD LOAD*-"! 



1J THEN GO TO NO 
)*0&(NOT T1H1I4 
] THEN* 

i;STREAM(T*TlNUlU 
BEGIN SI * 
DS * L 

ns * i 

END)* 
DIE* SPOUTITCAREA I NX O.HRDWREK)) SPA 

UABELTABLEtU] * 
GO TO EL)* 



IF 



END)* 

T t [42»l 

BEGIN 



END I* 

STREAM(Y*0 

BEGIN 



] THEN* 

>STREAM(T«-TINUIU 
BEGIN SI «■ 
DS ♦ L 
DS * 1 
END)* 
GO TO DIEI* 

IAREA»X*[T1>I* 

DS * 8 LIT " LA 
SI •• AREA* DI * 
IF 8 SC * DC THE 
AREA * TALLY)* 
SI * SI+45) DI * 
SI * LOC AREAI D 



GO TO LI 

TREADYI* 
3»13l* 

J'AREA))* 

LOC T; SI - SI *i>;* 

IT "*") DS * 3 CHRIS 

4 LIT " PARITY. RW/L* M * 

CEAI XPARtRW/L, 
P314JX 



3.AREA))* 

LOC T) SI - SI+5)X 

IT "#"I DS ♦ 3 CHRJ* 

5 LIT " TAPE MK» RW/L* W )X 



BEL W J* 

DI-8IX 

N TALLY * 1)* 



LOC Y) DS 
I ♦ X) OS - 



• 5 OCT)* 
WDSI* 



END!* 
NT1 «■ PI* 
IF T THEN 
BEGIN 



PRNTABLEtU3,C30t 

STREAM(Y«*OlAREA 
BEGIN DSI»4 LIT 
Sll-AREAI 
IF 4 SC»DC 
AREAl«TALL 
DII»LOC Yl 
SII«LQC AR 



NTll 
IF T 



ENDI 
■PI 
THEN 



BEGIN PRNT 
USASITAPE( 
ENDI 



18J$«NTl ELSE 
tXl*[T3)) 

"voli"; 

DI !»DI"4» 

THEN TALLYl*i; 
Yl SJ|*SI+1J 

DS)*5 OCT) 
EAI DII*X| DSlvWDS) 



ABLEtU3iC30U8]l*NTll 
UREA3,[CFJ»T»1»U»1)I 



IF 



END) 
NOT Tl, 

BEGIN 



[43113 THEN* 
IF T THEN* 
BEGIN 

IF PCA 
PCXCH) 
IF ARE 
BEGIN 



REAC13»DUP)*"PBTMCP " OR 
•"PUTMCP M THEN GO INPUT) 
A14J, [121303 > DATE THEN* 
IF RETMSG THEN 
STREAM(T*TINU[UJ*A*[AREA[63 3)) 



22114000 
22115000 
22115020 
22115030 
22115040 
22115050 
22115060 
22115070 
22115075 
22116000 
22117000 
22118000 
22119000 
22120000 
22121000 
22122000 
22123000 
22124000 
22125000 
22126000 
22127000 
22128000 
22129000 
22130000 
22131000 
22132000 
22133000 
22134000 
22135000 
22136000 
22137000 
22138009 
22139000 
22140000 
22141000 
22142000 
22143000 
22144000 
22145000 
22145050 
22145100 
22145150 
22145200 
22145250 
22145300 
22145350 
221*5400 
22145450 
22145500 
22145550 
22145600 
22145650 
22146000 
22147000 
22148000 
22156000 
22156100 
22157000 
22158000 
22159000 



BEGIN SI«-L0C TJSI*SI + 5*DS*3 CHRI22160000 

DS*5 LIT " HET "; 22161000 

END ELSE GO TO INPUT; 22162000 

ACCEPT; Tl !■ SPACEC4); 22163000 

STREAMCA*[AREA[1JJ»T1)J* 22164000 

BEGIN SI * A; SI * Sj+401* 22165000 

DS «• LIT "# W |X 22166000 

DS «• 8 CHHI SI ♦ A>* 22167000 

2C0S «■ LIT » ";* 22168000 

SI * SI+ll DS * 7 CHR)I22169000 

DS ♦ LIT "*";* 22170000 

END;* 22171000 

SPQUTCT1);* 22172000 

GO TO INPUT;* 22173000 

END ELSE* 22174000 

SCRATCH! LABELTABLEEU] * 0;* 22175000 

END ELSE GO 10 UNLD; 22176000 

END* 22177000 

ELSE IF T THEN BEGIN* 22178000 

INPUT? LABELTABLELU] * AREA[2JI* 22179000 

MULTlTABLEtU] «• AREA[1UX 22180000 

STREAM(A*tAREAt3J]#B*.[TJ);* 22181000 

BEGIN SI * A; DS * 3 OCT;* 22182000 

DS * 5 OCT; DS «• 2 OCT* 22183000 

END;* 22184000 

RDCTABLECUJ * UTlt24»3U17J&T[14|38;i0J;* 22185000 

IF (MULTITABLEtUJ»"PBTMCP * OR 22188000 

MULT1TABLECU1»"PUTMCP ") AND 22188100 

LABELTABLECUJ •■ "BACK-UP" THEN* 22189000 

BEGIN LABELTABLECU} * P32221234254644 71 * 22190000 

STREAM(A*TINU[UJ»PN*MULTITABLE[UJ* W PUTMCP " » 22191000 

AREA); 2219U00 

BEGIN SI ♦ LOC A; SI «■ SI+5;* 22192000 

PN(DS*3 LIT"#CP"I JUMP OUT TO L);22192100 

DS»3 UIT"ILP"I L« 22192200 

DS*1Z LIT" BACK-UP ON "| 22193000 

DS ♦ 3 CHR; DS * LIT "*"J* 22194000 

END;* 22195000 

SPOUTCAREA INX 0); SPACEA; 22196000 

END;* 22197000 

END ELSE* 22198000 

PAPERJ* 22199000 

UNLDI LABELTABLECU] * 0314;% 22200000 

GO TO COMMON;* 22201000 

PRINTER!* 22202000 

T * WAlTIO(P6000000000t4»U),[45;l J;* 22203000 

UNJTCUM16»23 ♦ O;* 22204000 

IF T THEN GO TO NOTREADY;* 22205000 

TESTBACKUP; 22205500 

IF AUTOPRINT THEN 22206000 

IF PRINTORPUNCHWAIT(-U»0) THEN GO TO COMMON; 22207000 

GO TO SCRATCHI 22208000 

CARD!* 22209000 

RRRMECHI*RRRMECH OR II 22209200 

IF CDONLY THEN 22209400 

BEGIN 22209500 

AUTOLOADER; 22209600 

GO TO COMMON! 22209700 

ENDI 22209800 

LABELTABLF[U]I*-PHI 22212200 



CCARD(0&U[3l43i5J); 22212400 

GO TO COMMONU 22213000 

PUNCH! 22213500 

STARTI0(U)> 22213600 

IF UNIHU], [15133*0 THEN GO TESTBACKUP ELSE GO TO SCRATCH! 2221 3700 

DRUMS* 22214000 

DISCI 22215000 

SPOj* 22216000 

PAPERPUNCHl* 22218000 

DATACOMlX 22219000 

STARTIOCUHX 22220000 

GO TO SCRATCH** 22221000 

COMMON! END OF READY!* 22222000 

ENQ!X 22223000 

STATUSBIT * TRUE!* 22224000 

F0RGETSPACE(AREA.[33H5J);X 22225000 

KJLL([RCW] INX NOT ?)! 22226000 

END STATUS!* 22227000 

BOOLEAN PROCEDURE OLAY C LOC » M I XX ) ; 22228000 

VALUE L0C»MJXX! REAL LOC.MIXX; 22229000 

BEGIN REAL LINK* MOM* FRONT* BACK* CHAR* BS* STACK* S» SB.* 22230000 

T» X. DESC* DISK, IOD* MIX. JOBKJLLED* MIXUP* SEGNO!* 22231000 

ARRAY NAME SEGDICT!* 22232000 

REAL RESULTs+l;* 22233000 

array sprt[*j! 22234000 

real core* cued! real i ni tcw=mi xup; 22235000 

Real typeu* rslt. noaux; 22235500 

s set omit * notcnewlogging) 22235599 

real mcproctemp! 22235600 

$ POP OMIT 22235601 

LABEL EXIT! * ALL AVENUES MUST LEAD TO HERE 22235700 

LABEL AROUND* CODE* BACKAGAIN* MCP* INTRINSIC!* 22236000 

LABEL ZAP!* XR4222236100 

LABEL RETRY* AGAIN! 22236110 

LABEL SKIPIT! 22236120 

BOOLEAN SUBROUTINE AWAKEN!* 22237000 

BEGIN COMMENT AWAKEN CHECKS TO SEE IF WE HAVF HALTED 22238000 

THE JOB ON PROCESSOR 2, IF SO. IT RESTARTS THE 22239000 

TIMING FOR HIM* AND CALLS "HALT" TO CHECK INTERRUPTS!* 22240000 

IF JOBKILLED THEN* 22241000 

BEGIN 22242000 

$ SET OMIT * NEWLOGGING 22242099 

STARTL0GCP2MIX.0)! 22242100 

S POP OMIT 22242101 

JOBKILLED * FALSE! OLAY * RESULT OR 2;* 22243000 

HALT; NOPROCESSTOG * N0PR0CESST0G»1 ! * 22244000 

END!* 22245000 

AWAKEN * RESULT END!* 22246000 

SUBROUTINE STOP!* 22247000 

IF NOT JOBKILLED THEN 22247100 

BEGIN COMMENT STOP HALTS THE JOB ON PROCESSOR 2. AND 22248000 

CLOCKS HIM OFF, IT SETS JOBKJLLED SO THAT AWAKEN 22249000 

CAN DO ITS DIRTY WORK BEFORE RETURNING!* 22250000 

JOBKILLED * TRUE! PCHP2)!* 22251000 

ST0PL0G(P2MIX,0)! 22252000 

END STOPPER!* 22253000 

SUBROUTINE CODEOVERLAY; X 22254000 

BEGIN COMMENT CODEOVERLAY HANDLES ALL CASES OF MARKING 22255000 

A NORMAL-STATE SEGMENT AS NOT-PRESENT, IT DOES THIS 22256000 

A SINGLE PRT AND STACK AT A TIME* AND IS ONLY CALLED 22257000 



REPEATEDLY FOR RE-ENTRANT CODE OR INTRINSICSIX 22258000 

IF CHAR THEN S * M[SB * M[ S } , [ \ F ] } , [ FF ] ELSE S * S-ll* 22259000 

SPRT * PRTtMlXt 10] IX 22260000 

IF SPRTtX]„C2lU THEN BEGINX 22261000 

X NEED TO DO PRT AND STACK SEARCH ONLY IF PRESENT IN THIS PRT 22262000 

DO UNTIL CX * (SPRTCXJ * ( *P( DUP ) )&0t 2l 2 % l)% 22263000 

*CSPRT[XJ,tCH-FR0NT)lCTCJ)i[6U2J)i2048lX 22264 000 

AROUNDllX XR4222265000 

WHILE (STACK l« HUNT ( BS ) , [CF ] ) LSS S DO 22266000 

BEGIN CORE * CDESC - NF LAGC MC STACK J ) ) , [ CF J I % 22267000 

IF COREJFKONT AND CORE<BACK THEN* 22268000 

IF DESC LSS THENIPROG, DtSC OR RCW, 22269000 

IF DESC, [3tl] THENXDESC 22270000 

IF DESC, [2111 THENHPRESENT 22270050 

IF DESC,(6«23»1 THEN XTYPE 13 INTRINSIC DESC 22270100 

M[STACK]»*FLAGCDESC & 0C2«2«1] 22270200 

& CM0M,[8|10mCTCJ) ELSE 22270300 

X DESCRIPTOR •- INSFRT OFFSET AND RESET P-B I T 22271000 

MtSTACKJ * FLAG(DESC&0[2l2tlJX 22272000 

«(C0RETR0NT)UTC])8 22273000 

ELSE 22273100 

ELSE BEGINS 22274000 

X CONTROL WORD (RCW) -•» UNFLAG IN STACK* PUT OFFSET INTO 22275000 

X CORRESPONDING MSCW. AND MOM INTO RCW,[CFJ 22276000 

MtX * DESC, [FFJ] *X 22277000 

C *P( DUP)U( CORE-FRONT HCTC J IX 22278000 

M[STACKI *■ DESC&SEGNQCCTCJSX 22279000 

ENDIX 22280000 

BS * STACK + 1U 22281000 

ENDIX 22282000 

IF CHAR AND (STACK<SB) THEN* 22283000 

BEGIN BS ♦ SB) S * HUNT CBS + 1 ) ♦ I CF 3 J GO AROUND END* 22284000 

IF P(SPRTC19J,T0P> THEN P(DEL) ELSE XDS2228410Q 

BEGIN COREt»POLlSH,tCFJl XDS22284200 

IF CORE LSS FRONT OR CORE GTR BACK THEN XDS22284300 

ELSE SPRTtl9JI«(»P(DUP))40t2l2lH XDS22284400 

&(C0RE-FR0NT)[CTC3I XD522284500 

END! XDS22284609 

SET OMIT ■ NOT(STATISTICS) 22284699 

C0DE0LAYS[MlXJ«w*P(0UP)+tl XR6122284 700 

POP OMIT 22284701 

END OF PRESENT IN PR! CASEI* 22285000 

END OF CODEOVERLAYJX 22286000 

SUBROUTINE 1NT13I XSTACK SEARCH FOR TYPE 13 INTRINSIC CALLS 22286010 

BEGIN CHARI*P<PRTCMlX»B)»DUP)«[32tl]l 22286021 

Sl«P INX 01 BSI»PRT[MIX»103,IFF]I 22286030 

IF CHAR THEN S |»M[ SB l»M[S] , t FF J J ,CFF 3 ELSE Sl«S-H 22286040 

AGAIN! WHILE (STACK Is HUNT(BS) , [CF ) > LSS S DO 22286050 

BEGIN cOREl«CDESC'*NFLAG(M[STACK])),CCPm 22286060 

IF CORF GEO FRONT AND CORE LSS BACK THENX 22286070 

IF DESC. 11121 NE« THEN 22286075 

IF DESC,[1I3]*7 THENX 22286080 
Mt$TACKJl«FLAG(DESC«.0C2l2lU4(M0M l [8ll0))tCTCj>22286090 

ELSE 22286100 

BEGIN MtDESC, L FF J J i*C*P( DUP) >&( CORE-FRONT HCTC3 I 22286 HO 

MtSTACK3l*DESC&(MOM f [8|10])[CTC3& 22286128 

1C33I47U1I 22286130 

ENDI 22286140 

BS»«STACK+1I 22286150 

ENDI 22286160 



IF CHAR AND (STACK LSS SB) THENX 22266170 

BEGIN BSfsSBJ S IwHUNT CBS + l ) , [CF] 1 GO AGAIN; END; 22286180 

end of type 13 intrinsic stack search? 22286190 

comment olay handles overlays, there are 3 classes 22287000 

of things which may be overlaid! 22288000 

1) object program data segments 22289000 

2) object program code segments 22290000 
and 3) mcp (non-save) procedures, 22291000 

each of these classes gets special handling, 22292000 

WHICH WILL BE DESCRIBED AS WE COMe TO IT; 22293000 

x This code is common to all classes and all cases 22294000 

$ set omit m not(newlogging) 22294099 

if pimix>o then 22294100 

if not logstoppedtptmlxj then 22294200 

if not mcpr0ctimf[p1mix],[uu then 22294300 

BEGIN 22294400 

MCPROCTEMP*PROCT1ME[P1MIX)+CLOCK*P(RTR); 22294500 

MCPROCTIMf CP1MIX}*NA6S(*P(DUP)); 22294600 

ENDI 22294700 

£ POP OMIT 22294701 

LINK * M[L0C3l MOM * M[L0C + U;X 22295000 

FRONT » L0C+2J BACK * LINK, CCF )"1 I* 22296000 

IF (MIX * LINK.[9I6]>"0 THEN GO TO MCPJX 22297000 

% <MIX>*0 AND NON-SAVE MEANS MCP PROCEDURE OR INTRINSIC 22298000 

IF MIX.P2MIX THEN ST0P1X 22299000 

CHAR •■ (INJTCW * PRTtMlX#8j),l32»l )i% 22300000 

S * !N1TCN,[CF]I BS * PRTCM I X, 10 3 , C FF 3 I % 22301000 

X CHAR IS CWMF» S IS TOP-OF-STACK » BS IS BASE OF STACK 22302000 

IF P(LINK,[3»6J»DLP)*1 OR P(XCH>*13 THEN GO TO CODE* 22303000 

X TYPE'l MEANS PROGRAM, 13 MEANS TYPE 13 INTRNSC* OTHERWISE DATA, 22304000 

IF TERMSET(MIX) THEN GO TO ZAP»X XR4222304100 

IF M[M0MJ t [CF] NEO FRONT THEN XBAD MOM DESC, % 10722304200 

BEGINX TERMINATE THIS GUY, X10722304300 

PRTROWfMlXJ, CFF3 l»32l XMEMORY ERROR, X10722304400 

PRTROW[MIX3,CPSF3t*l; Xl0722304b00 

GO TO ZAP; X10722304600 

END BAD MOM; X10722304700 

IF CHAR THENX 22305000 

X SPECIAL CHECKS FOR ADDRESS SAVED IN CHARACTER MODE 22306000 

BEGIN CHAR * (((T * MC SM3 , t CFmFRQNT AND TSBACK) ORX 22307000 

X M-REGISTER FROM ICH (SOURCE ADDRESS) 22308000 

((T * M[S-23,[FF3m-RONT AND T<BACK));X 22309000 

X S-REGISTER FROM ILCW (DESTINATION ADDRESS) 22310000 

IF NOT CHAR THENX 22311000 

BEGIN X * MIS ♦ M[S3.tFF33,lFF3*l|X 22312000 

X MISJ.CFF3 IS ADDRESS OF RCW. M£RcW3,[FF3 IS ADDRESS OF MSCW 22313000 

DO CHAR * ((T * MCS * S" 1 3 , 1 CF 3 CFRONT 22314000 

AND T<BACK) UNTIL (S<X) OR CHARJX 22315000 

X SEARCH THROUGH STREAM LOCALS AND PARAMETERS FOR ADDRESSES 22316000 

S * X;X 22317000 

ENDJX 22318000 

END;X 22319000 

IF CHAR THEN 22320000 

BEGIN PUWAKEN)! GO EXIT; 22320100 

END; 22320200 

X CANNOT OVERLAY IF MAY BE ADDRESSES IN CHAR MODE STACK 22321000 

lOD*McMOM3,t8U03l 22322000 

IF (DISKl«M0M,[FF3) NEO THEN X OLAY ADDRESS PRESENT 22323000 

BEGIN 22323200 

* SET OMIT * NOT(AUXMEM) 22323400 



IF DISK, C331 33 ■ 7 THEN % AUXMEM ADDRESS 

IP UNITtl6*DI5K,[36iUJ«CHllJ THEN % PREVIOUS ERROR 
BEGIN 
DISKteOl NOAUXt«CO)| % DONT USE AUXMEM 

end; 

* POP OMIT 

MOM,[FFll»OI 

ENOJ 
IF D1SK*0 THEN D I SK »»D I SKSPACEC I OD» M I X» NOAUX ) i 
IF DISK USS THFN % NO OLAY DISK 

begin p(awaken)! go exit; 
end; 

t SET OMIT 8 NOT(STATISTICS) 

DATAQUAYS[MIXJ|«*P(DUP) + It 

C0UNTUPC2U(FR0NT GTR FENCE ) » ( I 00 + 29 ) DIV 30); 
£ POP OMIT 

IF (Sl»S-l) GTR MOM THEN IF MOM GTR BS THEN 8Sl*M0M+i; 
% IF MOTHER IS IN STACK. ONLY SEARCH ABOVE IT 
WHILE CSTACKI»HUNT(BS),[CFJ) LSS S DO 
BEGIN 

IF (DESCI«NFLAG(M[STACK])),llt2J*l THEN 
X ONLY WORRY ABOUT DATA DESCRIPTORS WHICH ARE PRESENT 

IF DESC.tFn»MOM THEN 
X THIS ONE DEMANDS ACTION -- IT POINTS INTO OUR ARRAY 

IF DESC«[6f 10J«0 THEN 
% NAME DESCRIPTOR -- PUT IN OFFSET AND RESET P-BIT 

MtSTACKJisFLAGCCDESC.lCFJ-FRQNTHMOMtCTFl) 
ELSE 
% NORMAL ROW DESCRIPTOR — ZERO CORE FIELD AND RESET P-BIT 

m[stack3»»flagc04desc[8;8»253); 
bsi«stack41> 

end; 
if m[m0mj.[3»3] neo 7 then * not read onlyi already written 

BEGIN 
$ SET OMIT * NOTCAUXMEM) 

MCFRONT-1) |= MIX & I0DECTF3; % AUXMEM LINK 
% POP OMIT 
RETRYl DISKIOtRSLTiFRONT«1.10D*lt3U7li3»DATADDRESS(MIX»01SK))l 

% [3111 IN SIZE MARKS I/O AS ORIGINATING FROM OLAY 
MtM0MjHi(*P(DUP))*0t2U7llH5tCTCJI 
PCAWAKENtDEL); 

* CF»5 IN MOTHER IS INTERLOCK FOR MAKEPRESENT 
SLEEP(tRSLT]»!OMASK); 

IF RSLT,t26l7J N£0 THEN % I/O ERROR 
BEGIN 
$ SET OMIT • NOT(AUXMEM) 

IF DISK,C33l3]»7 THEN % AUXMEM ADDRESS 

AUXDATA[MIX]|*(*P(DUP)) - IOD, [38163 -U 



S POP OMIT 



IF (DISK|«DISKSPACEC I 0D« M J Xt-0 ) ) LSS THEN 
BEGIN % NO OLAY DISK 

MlM0MJl«(*PCDUP))«6tCTC3l % TERMINATE MARKER 
GO TO zap; 

end; 

GO TO RETRY; * TRY AGAIN WITH ANOTHER ADDRESS 

END; % IF I/O ERROR 
MCM0M]»»(*P(DUP)HDJ5KCCTCJ; % PUT DISK ADDRESS IN MOTHER 
END % IF READ ONLY* NOT YET WRITTEN 
ELSE 

BEGIN 



22323600 
22323600 
22324000 
22324200 
22324400 
22324600 
22324800 
22325000 
22325200 
22325400 
22325410 
22325430 
22325600 
22325800 
22326000 
22326200 
22326400 
22326600 
22326800 
22327000 
22327200 
22327400 
22327600 
22327800 
22328000 
22328200 
22328400 
22328600 
22328800 
22329000 
22329200 
22329400 
22329600 
22330600 
22330800 
22331000 
22331200 
22331400 
22331600 
22331800 
22332000 
22332200 
22332400 
22332600 
22332800 
22333000 
22333200 
22333400 
22333600 
22333800 
22334000 
22334200 
22334400 
22334600 
22334800 
22335000 
22335200 
22335400 
22335600 
22335800 



M [ MOM J I "<»P COUP ))*()[ 2 I 47 I I J & D I SK C C T C J ; 22336000 

P(AHAKEN»DEL)J 22336200 

END! 22336400 

IF MCMOMJ, C 31 33*6 THEN Mt M0M3 , [ 5 1 1 3 j« U 22349108 

ZAPlI FORGETSPACE(FRONT)!* XR4222350000 

P(TRUE)! GO EX1TI 22351000 

COOEIIX SIR4222352000 

% OBJECT PROGRAM CODE TO BE OVERLAID 22353000 

IF (T * M[S3,(CF])>FR0NT AND T<BACK THEN* 22354000 

% CANNOT OVERLAY NORMAL STATE SEGMENT HE WILL RETURN TO 22355000 

BEGIN P(AWAKEN)| GO E X I T I 22356000 

END* 22356020 

IF L1NK,[3|6]«13 THEN XTYPE 13 INTRNSC 22356100 

BEGIN 22356200 

INT13I 22356300 

TYPE13»«INTABLER0W[MIX],[8I10J»11 S » »MOM , C8 ; 10 3 I 22356400 

FOR X|*INT13START STEP 1 UNTIL TYPE13 DO 22356500 

IF INTABLECMlX.XJ.lFFJeS THEN % ZERO OUT TYPE 13 ENTRY 22356600 

BEGIN INTABLECMlXiXj!*Ol TYPE13l»0J END* XJUMP OUT 22356700 

FORGETSPACECFRONT); 22356800 

P(AWAKENtDEL.TRUE)> GO EXjT; 22356810 

END) 22356900 

IF (MIXUP * (SEGDICT * PRT t M I X. 4 3 ) , t FF J ) *0 THENX 22357000 

% RE-ENTRANT CODE TO BE OVERLAID -" CHECK OTHER USERS. TOO 22358000 

BEGIN MIXUP * MIXUP. [39»6JJ* 22359000 

DO BEGINS 22360000 

IF MIXUP»P2MIX THEN STOPlX 22361000 

* STOP OTHER USER OF THIS CODE IF RUNNING ON PROCESSOR 2 22362000 

IF (T ♦ M[PRT(MlXUPt8n,tCFJ)2FR0NT AND TSBACKX 22363000 

THEN BEGIN P(AWAKEN)I GO EXJTJ 22364000 

ENDI 22364100 

% SAME CRITERIA APPLY TO ALL USERS OF THIS CODE 22365000 

END UNTIL CMJXUP * PRT t M I XUP. 4 3 , [ 24 I 63 )s077» % 22366000 

* CHECK ALL USERS ON MIX-INDEX LINKED LIST 22367000 

END;* 22368000 

% IF WE REACH THIS POINT* WE CAN AND WILL OVERLAY THE AREA 22369000 

S SET OMIT * NOT(AUXMEM) 22369999 

IF <<SEGDICT[SEGNQl»M0M,[CF]J>tI2l«J)«2 THEN 22370000 

% TO GO TO AUXILIARY MEMORY. HAS NOT YET BEEN WRITTEN THERE 22370100 

IF (DISK t« AUXILIARYSPACECM0M,[FF3))>0 THEN 22370200 

BEGIN X TRY TO WRITE TO AUXM£M 22370300 

T I* SEGDICTtSEGN03«0[3»45J33&MOM[FTF3J % SAVE FOR AUX.ERR, 22370400 

MCFR0NT»13t"NABSCMIXJM0MtFTFJ&TC3l33»153}J * AUXMEM LINK 22370500 

SEG0lCT[SEGN0ll*(*P(DUPmi[5U7llHDlSK[CTC)l 22 370600 

DISK l» C0DEADDRESS(MIX,SEGDICT[SEGN0J)J 22370700 

IF (CUEDI«IQQUESLOTS#0) THEN 22370800 

DlSKlO<RSLT.FRONT*t»(MOM,CFFJMC3»47»13>»DlSK)J XOLAY 1/022370900 

END) 22371000 

SEGDlCT[SEGN03,t3»13i»l> 22371100 

$ POP OMIT 22371101 

BACKAGAINII 22371200 

t SET OMIT » AUXMEM 22371210 

X*SEGDICTtSEGN0*MOM] ( [8U03ICODEOVERLAY; 22371220 

t POP OMIT 22371221 

* SET OMIT * NOTCAUXMEM) 22371299 

X|«SEGDICT[SEGN0],[8||QJI CODEOVERLAYJ 22371300 

S POP OMIT 22371301 

IF MIXUP THEN* 22372000 

% RE-ENTRANT CODE BEING OVERLAID — MUST FIX ALL STACKS AND PRTS 22373000 

IF (MIX * PRTCMIX,4J,C24l63)#e77 THEN* 22374000 



X SET UP CHAR* S» AND BS FOR NEXT USERS STACK 22375000 

BEGIN CHAR * (S ♦ PRT[ M I X, 6] ) , [ 32 UJ ; * 22376000 

S * S INX 01 BS * PRT[MlX»l01 f [FFJI* 22377000 

X GO DO STACK SEARCH AND PRT FIX-UP FOR ANOTHER USER 22378000 

GO TO BACKAGA1NJX 22379000 

END;* 22380000 

* SET OMIT b NOT(AUXMEM) 22380049 

PCAWAKENtDELH 22380050 

IF DISK, [1113 THEN * AUXMEM WRITE 22380100 

BEGIN 22380200 

IF NOT CUED THEN 22380300 

0ISKl0(RSLT»FR0NT*lf(M0M,[FFHlt3U7UJ)»DISK)l X OLAY I/O 22380400 

IF (RSLT AND I0MASK)*0 THEN SLEEPC [ RSLT J $ I OMASK ) ; 22380500 

IF RSLT, [2617] NEQ THEN SEGDI CT [ SEGNO] i «T ELSE X OLD VALUE22380600 

BEGIN 22380700 

SEGDICT[SEGN0]»"C*P(DUP>)&MQM[FTFH0[3U/!13J 22380800 

AUXC0DE[LINK,[9«6]] Is C*P(DUP)J + MOM. [2316] + II 22380900 

END> 22381000 

END % IF AUXMEM WRITE 22381400 

ELSE SEGDICT[SEGN0JI*C*P(DUPm0[3U7«l ]&M0M[FTFJ> 22381509 

F0RGETSPACE(FR0NT)J PCTRUE)» GO EXIT; 22383000 

t POP OMIT 22383001 

t SET OMIT » AUXMEM 22383049 

SEGDlCT[MOM]«-(*P(DUPmMQM[FTFJJX 22383050 

FORGETSPACECFRONT)! PC AWAKEN* DEL» TRUE ) ; GO EXIT; 22383100 

S POP OMIT 22383101 

* NOW WAS THAT NOT TRIVIALITY PERSONIFIED,,. 22384000 

MCPllI XR4222385000 

IF P(LlNK,[3l6]iDUP)*7 OR P(XCH>M3 THEN GO TO INTRINSIC; 22386000 

SPRT * PC.BtD); BS •■ (PC0»RDF)),[FF3> 22387000 

% SET BS TO POINT AT RCW FOR CALL ON OLAY 22388000 

DO BEGIN* 22389000 

OLAY * NOTCS * ((CORE * ( T ♦ M[BS ] ) , [ CF 3 3SBACK 22390000 

AND CORE*FRONT));» 22391000 

X S IS TRUE IF THE RCW POINTS TO THE ROUTINE TO BE OVERLAID 22392000 

BS * T f [FF]l* 22393000 

X POINT T TO CORRESPONDING MSCW 22394000 

WHILE (T * M[BS]),[16I1] DO BS * T.CFFJJ* 22395000 

X RUN DOWN STACK OF MSCWS UNTIL NOT MSFF 22396000 

IF (BS * T,[FF])<6« THEN 22397000 

X END OF STACK -- THIS IS RATIONALE FOR OBSCURE USE OF "P(O.STF)" 22398000 

BEGIN S * S OR (SPRT •• FLAGCM [ SPRT ])),[ CF J*P( .BED) ; 22399000 

BS * SPRTtFREGJ,[FF)l 22399100 

END END UNTIL S; 22400000 

IF RESULT THEN* 22401000 

BEGIN M[MOM] ♦ ( *P( DUP) H( *P( .ESPB I T ) )[ CTC 3 ; X 22402000 

FORGETSPACE(FRONT);* 22403000 

END;* 22404000 

P(RESULT AND 1); GO EXIT; 22405000 

INTRINSIC I I* *R4222406000 

IF MlXX«0 THEN BEGIN 22406100 

FOR MIX#1 STEP 1 UNTIL MIXMAX DO* 22407000 

IF DAT[MIX]<0 THEN 22407500 

IF INTABLER0W[MIX3#0 THEN* 22408000 

BEGIN IF MIX»P2MIX THEN STOP;* 22409000 

IF (T * M[PRT[MlX»8]],[CF])iFR0NT AND TSBACKX 22410000 

THEN BEGIN P(AWAKEN); GO EXIT; 22411000 

END; 22411020 

END;* 22412000 

FOR MIX*1 STEP 1 UNTIL MJXMaX DO* 22413000 



IF DAT[MIXJ<0 THEN 22413500 

IF INTABLEROWtMlXJ*0 THEN* 22414000 

BEGIN SEGNO «■ MOM . [ 8 J 1 3-1 ; % 22415000 

IF MEMROWCMIX] INX GEO FENCE THEN 22415100 

IF NOT INTRNSC[SEGN0+1].[4«1] THEN GO TO SKIPIT ELSE 22415150 

SEGNO J "REENTRANT I NT ABLEMAP(S>EGN0*1)» 22415200 

STREAMCA * SEGNO AND 31 T * U NTA6LE[ M J X» SEGNO DIV 433)J 22416000 

BEGIN SI «• TI SI «- S l + A; SI «• Sl+A» DJ *- LQC A > X 22417000 

DI * DI+6J OS * 2 CHK; END STREAMING;* 22416000 

IF (SEGNO * PQLISH)*0 THEN* 22419000 

IF SEGNO b P2Q00 THEN JNTli ELSE 22419500 

BEGIN CHAR * P< PRT I M I X » 8 J » DUP ) , [ 32 » 1] » % 22420000 

TYPrl3l*SEGNQ,[37lU* 22420200 

SEGNOI-SEGNO AND ?1777; XIGNORE TYPE 13 BIT 22420500 

S * POLISH INX 0> BS * PRT [MI X, 10 3 , ( FF 3 ; X 22421000 

SEGDICT ♦ PRTCMIX,43J* 22422000 

X«sSEGDICT[SEGN03,[8ll03J 22423000 

IF TYPE13 AND NOT PRT [ M I X, X 3 , [ 2 J 1 ] THEN 22423100 

X TYPE 13 REFERENCE ALSO EXISTS AND TYPE 7 REFERENCE IS NOT PRESENT 22423200 

INT13 ELSE 22423300 

BEGIN 22423400 

CODEOVERLAYJ 22423500 

SEGDICTCSEGNO] + ( *P(DUP ) ) &MQMIFTF 3 i * 22424000 

END* 22424500 

ENDJX 22425000 

SKIPIT* ENDI 22426000 

lNTRNSC[MOM,[8tl033 * (*P(DUP ) )&MOM[FTC 3 1 % 22427000 

FORGETSPACECFRONT)** 22428000 

P(AWAKEN»DEL»TRUE)? GO EXJTJ 22429000 

END NORMAL CASE* 22430000 

SEGN0l*M0M,[8ll03l M1X|*MIXX; 22431000 

SEGN0l*REENTRANTINTABLEMAP(5EGN0); 22431100 

STREAM(A«"SEGN0 AND 31 T«-[ I NTABLEtM I X, SEGNO . [ 36 t 103 33 ) I 22432000 

BEGIN SI*T| Sl*SI+AI S I *S I +A I DI*LOC A* 22433000 

D1*DI*6J T*SI* DS*2 CHR; D I * T J DS*2 LIT M 00"J 22434000 

END STREAM} 22435000 

SEGNO * POLISHS SEGDICT ♦ PRT[MIX»*JI 22436000 

CHAR «-P(PRHMjX.83» DUP),[32llJ* 22437000 

S -POLISH INX 01 BS *PRT [ M I X» 1 03 , t FF3 J 22438000 

X * SEGDICT[SEGN0J»[8!10]J CODEOVERLAYJ 22439000 

SEGDICTtSEGNO] * (*P(DUP) HMQMt FTF 3 J 22440000 

P(0)» 22441000 

eX I T I 22441100 

S SET OMIT « NOTCNEWLOGGING) 22441199 

IF MCPROCTEMP#0 THEN 22441200 

BEGIN 22441300 

MCPROCTEMP*PROCTlMEtPlMlXJ*CL0CK+P(RTR)-MCPR0CTEMP| 22441400 

IF MCPROCTEMP<0 THEN MCPROCTEMP+0 J 22441500 

MCPR0CTIMEtPtMIX3*ABS(*P(DUP))+MCPR0CTEMPI 22441600 

ENDI 22441700 

S POP OMIT 22441701 

PCRTN)! 22441800 

END OF OVERLAY!* REVISION OF 5 JANUARY 1968 , , , 22442000 

REAL SPACESTACKI 23399000 

SAVE PROCEDURE FORGETSPACEC LOC ) J X 24000000 

VALUE LOCJX 24001000 

REAL LOCI* 24002000 

BEGIN* 24003000 

REAL B»BACK#F»FRONT»LINK»X#T»Sl*EJ* 24004000 

REAL MIX? 24004100 



DEFINE LEFT0FF«MEM[MIX»LEFTLIT3*; 24004200 

MlX*(LINK*MtL0C*(*P(tL0C)),CCF]-23)tC9l6JI 24005000 

t SET OMIT b NOTCCHECKLINK OR DEBUGGING) 24005099 

IF CHECK THEN CHECKL INKSC M I X , LOC ) J 24005100 

S POP OMIT 24005101 

IF PCMEMCMlXiMUNKl )»DUP),tCFJ G1R LOC OH PCXCH),CFF3 LSS LOC 24005200 

OR (B»"M[BACK»aLINK,CFFIJ),CCFJ NEQ LOC 24005300 

OR (Fn»M[FR0NT|«LlNK,[CN]).tFF3 NEQ UOC 24005400 

OR LINK LSS THEN PUNT(4)* % INVALID LINK 24005500 

IF F LSS THEN 24007000 

BEGIN* 24008000 

MUOCKLINK 4FICTC J;* 24009000 

M[F3*M[F3 & LOCCCTFJU 24010000 

MtT-M[FR0NT + 2JJ*-M[TJ &( X*M[ FRONT* 13 ) UT C 3 J % 24011000 

M£X+13*TS 24012000 

ENDJX 24013000 

IF B LSS THEN 24015000 

BEGIN? 24016000 

M[BACK3«-B«.(T*M[L0C],tCFJHCTC3*X 24017000 

M[T3*MtT3& BACKtCTFJU 24018000 

M[BACK + 13*MCBACK*lHCSUE*T-BACK-2)tCTFm 24019000 

END* 24020000 

ELSE* 24021000 

BEGINS* 24022000 

M[L0C+U*(T*M[M[L0C+23*MEMtMlX,AVAlLJ j)& 24023000 

CSIZE*MtL0CJ,[CFJ-L0C-2)tCTFJI 24024000 

M[MFMtMlXiAVAIL3]*T4(M[T+l)*LOC*l)[CTC]l 24025000 

MCL0C3«-NABS(*P(DUP))» 24026000 

24027000 

24028000 

ENDJX 24029000 

IF L0C<LEFT0FF THEN IF M[ LOC 3 , t CF 3>LEF TOFF THEN LEFTQFF*M[L0C 3 , £FF 3 1 24030000 

t SET OMIT * NOT(CHECKLINK OR DEBUGGING) 24030099 

IF CHECK THEN CHECKL I NKSC M I X* LeFTOFF ) I 24030100 

S POP OMIT 24030101 

END FORGETSPACEJ* 24031000 

SAVE REAL PROCEDURE ACTSPACE C S HE, SAVEF * M I X ) ; 24032000 

VALUE SIZE»SAVEF»MIXI 24033000 

REAL SIZE»SAVEF»MIXI 24034000 

BEGIN REAL LI NK # LOC » X, Y» T » SI ZEF I 24034050 

REAL LOS*SlZEF+liMSTART*LOS+lJ 24034100 

DEFINE LEFT0FFbMEM[MIX,LEFTLIT3*J 24034200 

LABEL GOTIT; 24034900 

UABEL NEWSTAKT* SVSEARCH. KOCKABYE* START* OVERLAY)* 24035000 

LABEL OVSEARCH»XX| 24035050 

P(0»MEMROW[MlX3,tCF3tPRlORTY)J * SET UP LOS. MSTART. AND TEMP 24035100 

PRI0RTY*"5i 24035200 

IF SAVEF THENX ATTEMPT TO ALLOCATE AT START OF MEMORY 24040000 

IF SAVEF<4 OR TOGLE . NOMeM#0 THEN 24040500 

BEGIN LINK«*M(MSTART3> 24041000 

SVSEARCHtX 24042000 

IF (L0C*LINK, [CF3)«MSTART THEN 24043000 

GO TO ROCKABYEJ 24044000 

IF CLINK «■ M[L0C3)*0 THEN* 24055000 

BEGIN IF NOT LINK, [2113 THEN* 24056000 

BEGIN % OVERLAY ONLY IF POTENTIAL SPACE ADEQUATE 24056100 

SIZEF ♦ -21 X ♦ T * LOCI 24056200 

IF (Y*LINK,tFF3)«*MSTART THEN 2405625P 

IF MCYJ < THEN SIZEF*M[ ( T*Y)*1 ] , [FF 1 1 24056300 

WHILE S1ZE>SIZEF AND C Y*MC X 3 ) , C 1 1 23 *1 DO 24056400 



SIZEF «• SIZEF - X + (X * Y,[CF])J 24056500 

IF SUE > SIZEF THEN 24056600 

BEGIN LINK * YJ GO TO SVSEARCH ENDI 24056700 

IF OLAY(LOC»0) THEN * RE-SET "LINK" 24057000 

IF (Y*-M[LINK*TJ)>0 OR Y.CCFJsLOC 24057100 

OR MtYJttFF J*LINK THEN 24057150 

* MEM LINK AT W T" NO LONGER VALID 24057200 

LINK «■ MCMS1AR11J 24057300 

ENDIX 24057500 

GO TO SVSEARCHIX 24058000 

END** 24059000 

IF (SIZEF * MtT*LOC*J3tCFFJXSlZE THEN GO SVSEARCH;* 24060000 

MtYl»M[(Xi»M[T)>+l]l»MtT+i J]»*C*P(DUP))*X[CTCJ» 24063000 

X:*-LINK; 24064000 

IF SIZEF>SIZE+DELTA THEN* 24065000 

BEGIN M[L0C]»*X&(Y!sL0C+SlZE*2)[CTCJJ 24066000 

M[XJ * (*P(DUP))&YCCTF Jl* 24067000 

M[Yjl« X,tCFJ&L0CtCTFHMlXt9J42l6]; 24068000 

F0RGETSPACE(Y+2);X 24069000 

X,tCF]»*Y; 24069100 

END** 24070000 

GO TO GOTITJ 24070500 

END! 24071000 

STARTt* 24072000 

IF (LINK «• P(M[MEM[MlX»AVAlL3J»0»SlZLtCFX»LLL» 24073000 

0» INX, ,T» STD)), [FFJ=P77777 THEN* 24074000 

BEGIN* 24075000 

OVSEARCHJ 24075050 

IF aiNK*M[LEFT0FF3).[H2J « THEN 24075100 

BEGIN X OVERLAY ONLY IF POTENTIAL SPACE ADEQUATE 24075200 

SIZEF * -2» X * LEFTOFFJ 24075300 

IF (Y*LINK,[CF3) # MSTART THEN 24075400 

IF M[Y3 < THEN SIZEF * MtY*lJ,tFFJI 24075500 

WHILE SIZE > SIZEF AND ( Y*M[ X ] ) , £1 t 2] #1 DO 24075600 

BEGIN SIZEF*SIZEF+Y,CCF)-XI X*Y,[FFJ END? 24075700 

IF SIZE > SIZEF THEN 24075800 

BEGIN LEFTOFF «■ Y,[FFJ> 24075900 

IF P(MSTART»DUP)*LEFTOFF OR P(XCH)*X THEN 24075950 

GO TO XX ELSE GO TO OVSEARCH END; 24075960 

OVERLAY!* OVERLAY ATTEMPTED CYCLICALLY* USING LEFTOFF 24076000 

24076500 

24077000 

IF 0LAY(LEFT0FF#0) THEN GO TO START; 24078000 

ENDJ* 24078500 

IF (LEFTOFF*LINK,tFF])«MSTART THEN 24079000 

XXI IF LOS THEN GO TO ROCKABYE ELSE LOS * II 24080000 

GO TO OVSEARCHI 24081000 

END!* 24082000 

24063000 

IF (SIZEF * LINK,CFFJ)>SIZE*DELTA THEN* 24084000 

BEGIN M[T] ♦ LINK&(X * S I ZEF-S I ZE-2 ) I CTFJ * * 24085001 

LOC *• UX + 1** 24086000 

X «• (Y * M[T-imCT*l)[CTFU* 24087000 

MtYJ * (*P(DUP))&LOCtCTFJl* 24088000 

MCT-13 * Y&LOCUTCJI* 24089000 

END ELSE BEGIN* 24090000 

MtLlNK+n * Y * MCT+lJl* 24091000 

MCYJ * (*P(DUP))&LINKICTC)J* 24092000 

X * MILOC * T"UI* 24093000 

ENDI* 24094000 



GOT I T I 24095000 

MtACT5PACE*L0C]*AB8(X4H2l47ll])l 24096000 

MtUOC+tJ*0; 24096500 

ROCKABYEI 24096600 

PRI0RTY*PJ 24096700 

END ACTSPACEI 24097000 

SAVE INTEGER PROCEDURE DI SKSPACE( WORDS, Mj X » AUX ) J 24101000 

VALUE WORDS*MiXiAUXJ 24102000 

INTEGER WORDSiMjXI REAL AUXI 24103000 

BEGIN ARRAY L0c«+2r*]l 24104000 

INTEGER INDEX*NT1» 24105000 

SEG *NT2t 24106000 

CNTRS»NT3» 24107000 

SUE «NT4» 24106000 

LIMlT*NT5l 24109000 

REAL T wNT6J 24110000 

LABEL Ll» 24111000 

FINAL* 24112000 

BADEXIT* 24112500 

EXIT; 24H3000 

define heuristic * 2*1 24114000 

real subroutine findseg; 24115000 

begini stream(a*0it)i 24h6000 

BEGIN SI*L0C Tj SI*SI*3; 24117000 

5(IF SC*"Q" THEN JUMP OUT TO Lf 24118000 

SI»SI+ll TALLY*TALLY + m 24119000 

L» A*TALLYJ 24120000 

END STREAM) 24121000 

FINDSEG * POLISH 24122000 

END FINDSEGJ 24123000 

SUBROUTINE FIND! 24124000 

BEGIN P0L1SHC0); 24125000 

T * L0CC1NDEXJ; 24126000 

SEG * T,C9l3]J 24127000 

CNTRS * T,[2*7j; 24128000 

IF SEG>4 THEN 24129000 

HI IF (SEG *■ FINDSEG)»5 THEN GO TO FINAL 24130000 

ELSE CNTRS *0J 24131000 

IF SJZE + CNTRSMOO THEN GO 10 LI f 24132000 

P<DEL»CINDEXx256)+SEGxl00*CNTRS)l 24133000 

STREAM(A*0tSEG»T»CT3)i 24134000 

BEGIN SI*T| SI«-SI43! S I *• S I +SEGI 24135000 

DI*L0C Al DI*DI+7l SEG*DU 24136000 

t*si; ds*chrj tally*a) 24137000 

tally*tally+i> a*tally; 24138000 

SI*SEG1 DI*TI DS*CHRi 24139000 

END STREAMI 24140000 

IF (PQLISH*63) OR (CNTRS * CNTRS+S I It )M00 THEN 24141000 

BEGIN CNTRS * 0; SEG ♦ FINDSEG END) 24142000 

LQCCINDEX3 ♦ T&SEGC9 I 45 I 3 HCNTRSC 2 I 41 1 7 ] ; 24143000 

FINALI IF (DISKSPACE ♦ POLISH)#0 THEN 24144000 

BEGIN IF SEG«5 THEN INDEX •• 01 24145000 

LOCtOJ ♦ LlMlTilNDEXtCTFJ) 24146000 

GO TO EXIT! 24147000 

END END FIND) 24148000 

$ SET OMIT « NOTCAUXMEM) 24148999 

IF CCAUX OR DATAOLAY) AND NOT AUX, [111]) THEN 24149000 

IF P(AUXILIARY5PACECW0RDS)#DUP) NEQ THEN 24149100 

BEGIN 24149200 

AUXDATA[MlXJ»»*P(DUP) + W0RDS,[38l6mj 24149 300 



$ POP OMIT 
PC 
SI 
IF 
IF 
IN 
BAOEXIT 
DI 
EXJTJ 

$ SET OMIT 



PCRTN)) 
END ELSE 



P(DED) 



DAL0C[M1X»*J>; 

Z£ * CWORDS+29) DIV 30) 
(LIMIT )« L0CI0),CCF])«0 THEN GO TO 
(INDEX «• LOC(O],[FFJ)/0 THEN FIND? 

DEX is 2) DO FIND UNTIL (INDEX I* 

I 

SKSPACE ♦ -n 



badexit; 
index+2)>limit; 



* NOT(STATISTICS) 

IF INDEX GEO OLAYUSEDl M I X ] , [ 3 > 15 J THEN 
OLA YUSEDIMIX J t«LOCt INDEX j& INDEX[ 31 33115 ]; 



$ POP OMIT 
ST 

BE 



EN 
IF 



END DIS 

SAVE REAL 

VA 

RE 

BO 

BE 



REAMC 

GIN S 

L( 

A* 

D STR 

(POL 

IF 

BE 



EN 

KSPAC 

PROCE 

LUE S 

AL SI 

OLEAN 

GIN R 

BO 

LA 

SU 

BE 



A*Q>L»LI 
I*Tl DI 
SI-SH-11 
5(IF SO 
DI) 
EAM) 

ISH<HEUR 

((SEG * 

GIN OLAY 

FORK( 

IOCOU 

DI 

E) 

DURE GET 
IZE,TYPE 

ze»type; 

SAVEF* 
EAL MIX, 
OLEAN BE 
BEL AGAI 
BROUTINE 
GIN P(P1 
STREA 
BEGIN 



MlT,t«H6Jt T*CLOCCi33)l 

♦A) 

J 

"O" THEN D I -DI +81 S 1 *S I + 1 ) ) I 



ISTIC) THEN 

TWO(MIX)) AND OLAYMASK)*0 THEN 
MASK • NOT SEG AND OLAYMASK) 
P( ,GETM0RE0LAYDISK)»MIX,-3#128»1); 
NTCMIXJ ♦ *P(DUP)+i; 



SPACE(SUE»TYPE#SAVEF)J 
iSAVEF) 



TfMESSJ 

LOW) 

N»SLEAP»MUSTNOTSWAP) 

TELLSPOl 
MIX}) PlMIXl»0) 
MCX}*MESS#0» MIX. SUE* MESS I «MESS t *GETAREA ( ) 

X NOTE THAT 1ST 4 BITS OF MSG ARE ZEROES, 
Sll*LOC MIX) DSl«2 DEO 
DSI*8 LIT" NO M£M "j 
DS»»5 DEC) DSt«5 LIT" WOS*") 
X(Oll«OI-in DSl«2 L1T"0K")| 



END 



END) 

10REO 

t\7 

P1MIX 

OF TEL, 



UEST(MESS*P274C1I40I8]# 

)lt23UlQU0tBJ)J 

I *P I 

LING SPO ABOUT NO MEMS) 



P(DUP)» 



BELOW«-tMEMCMIX*IF TYPE>64 THEN TYPE. IFF] ELSE PlMIXtOJJ, 
CCFJ » 01 
t SET OMIT a NOTCCHECKL I NK OR DEBUGGING) 

IF CHECK THEN CHECKLI NKS( M I X.MEMt MI X,LEFTLI T J ) ) 
t POP OMIT 

AGAIN! WAITSTORE(MIX)) STOREDYC M I X ]*0) 

IF BELOW THEN PC SPACESTACK. STS ) ) 

T*ACTSPACECSlZEt SAVEF* MIX)) 

IF BELOW THEN PC [ BELOW 3 1 STS ) ) 

ST0REPYCMIX]*1) 

IF T»0 THEN 



24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
))24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 
24 



149400 
149500 
149501 
150000 
151000 
152000 
153000 
155000 
155500 
156000 
157000 
157099 
157100 
157200 
157201 
158000 
159000 
160000 
161000 
162000 
163000 
164000 
165000 
166000 
167000 
168000 
169000 
170000 
300000 
301000 
302000 
303000 
304000 
304500 
305000 
305500 
305600 
305700 
305800 
305900 
306000 
306100 
306200 
306300 
306400 
306500 
306600 
306700 
306900 
307000 
307500 
307999 
306000 
308001 
309000 
310000 
311000 
312000 
313000 
314000 



SLEAPl 



MUSTNOTSWAPI 



$ SET OMIT 9 
$ POP OMIT 



BEGIN NOMEMTOG:*! 
IF SAVEF.C46 
IF P1MIX*0 
BEGIN 

IF MESS«0 TH 
SLEEPCfCLOCK 
GO TO AGAINJ 

END* 
IF PCPRTROWCP1MIX 
IF PCDUP),[P 
BEGIN MIXIkOJ 
END» *SPACE 
IF CANTEXPAN 
IF (BELOW|«B 
BEGIN 

TERMINA 
GO TO I 
END ELSE GO 
IF TARCP1MIX 
EXPANDCMIXJ* 
SWAPCFORCESW 

GO TO AGAINI 
END* 

M[GETSPACE*TW*P 
IF MESS*0 THEN TE 
NOTCCHECKLINK OR 
IF CHECK THEN CHE 



IF [MEM[MlX,On.t 
PUNT(4)I 

ENO getspacei 

$ SET OMIT * NOTCSHAREDISK) 
PROCEDURE FINDFREEADDRESS(N)J V 
BEGIN 

REAL RCWs + 0»T«RCW4-l.A"T+l.S 
LABEL LOOKl 
P<*2000»0#0»0#0)l 
IF (FINDFREECTRI«FINDFREECT 
X CALLED FREQUENT 
M[(*P(.,FINDFREEADDRES 
LOOK! T*P2000| A*0| 

PCWAiTiocm inx eaoooooooo 

IF A#0 THEN X THERE WAS A F 
BEGIN 

FOR IlwO STEP 1 UNTIL 
IF (LQUEUJiCSUOl EQV 
IF STASUSCLOCATQUE[S*L 
BEGIN 
S SET OMIT * DFX OR OMIT 

U*(LOCATQUEtS]*(* 
IOCOUNT[LOCATQUE[ 
IF UNIT[U],[FF3>t 
BEGIN 

UNITCU] l*(*P 
STARTIO(U); 
END ELSE 
BEGIN 

LOCATQUEtUNl 
UNITtUJJCFJ 
END! 



; 

:li THEN P(0»RTN)l 
R BELOW THEN 

EN TELLSPOI 
]»NOT CLOCK)* 



3»DUP)»0 THEN P(DEL) ELSE 

SFJ«1 OR P(XCH*9»C0C)«5 THEN 
BELOWtsTRUE) GO TO AGAINI 
IS GOT BELOW FENCE IF EOJ 

DCMIX1 THEN 

ELOW+2) GTR 5 THEN 

TECMIX&81 CCTF3 ) > 

NITIATE* 

TO SLEAPl 

i NEG THEN GO MUSTNOTSWAPI 

3} 

APi3)l 



(DUP)HTYPE[3I42I6HMIX[9|42I6]I 

LLSPOI 

DEBUGGING) 

CKLINKSCMIX.MEMtMIX.LEFTLIT))! 

CFJ>T OR MEMtMlX»OJ,tFFJ<I THEN 
% INVALID LINK 



ALUE Nl REAL Nl 
»A + l»U»S4lt JwU + ll 



R + l) GEO 32 THENX THIS PROCEDURE IS 
LY SO MAKE IT A SAVE PROCEDURE 
S))INX 0-2j,(2lt)l«ll 

0#0.18).DEL)I % 8EP0RT FREE ADDRESS 
REE ADDRESS 

LQAVAIL-1 DO 

A)*NOT THEN 
QUEm.U»n],[3l5JJ»RUNNING THEN 



P(DUP))&(NOT 0)UTFJ),C12?63l 
023 THEN 
(DUP))&S[CTFJ&SICTC3I 



TCUJ.CCF J3 a [FF)l*SX 
l«Sl 



24314500 
24315000 
24315100 
24315200 
24316000 
24324000 
24325000 
24326000 
24327000 
24327500 
24328000 
24329000 
24330000 
24331000 
24332000 
24333000 
24334000 
24350000 
24350500 
24351000 
24352000 
24353000 
24354000 
24400000 
24401000 
24404999 
24405000 
24405001 
24406000 
24407000 
24408000 
24599999 
24600000 
24601000 
24602000 
24603000 
24609000 
24610000 
24611000 
24612000 
24613000 
24614000 
24615000 
24616000 
24617000 
24618000 
24618100 
24619000 
24619999 
24620000 
24620500 
24621000 
24622000 
24623000 
24624000 
24625000 
24626000 
24627000 
24628000 
24629000 



POP 
SET 



OMIT 
OMIT 



$ POP OMIT 



NOTCOFX) OR OMIT 

TMQQUElS3&6C3l43l53l 

RETURNJOSPACECS3J 

P1MIX*L0CATQUE[S],[3|5J| 

I0REQUESTCFINALQUE[S),T.L0CATQUE[S3&18[12I42»63)I 

PIMIXibOI 



I'lLQUEtimi 
DS|*A WQS ENDI 



IF I LSS (LQAVAILt«LQAVAlL*l) THEN 
BEGIN 

STREAM(A»»LQAVAIL-I»B 
BEGIN SI I«BISI «bSI-*-8| 
I«*I-1> 
ENDI 
END ELSE UflUEtn, [12113*11 
IF LQAVAIUQ THEN GO LOOK* 
END) 

FINDINGADDRESSI»0» 
IF N THEN KILUCRCW] INX NOT 2)1 
eNDl X OF FINDFREEADDRESS 
$ POP OMIT 

S SET OMIT 9 NOT SEPTICTANK 
SAVE PROCEDURE DISPOSALCL* I »R)J 
VALUE U» J»RI REAL L»I#Rj 
BEGIN REAL J»K,YECHJ 
DEFINE 

SEEPAGE ■ ARGH[60j#, 
XXX * ARGHC62]*, 
STINK * ARGHU24]*, 
YFCHH » ARGHC125]** 
TUBUFF » ARQHC126]** 



NTLOC 
COMMENT 
THE REST 



» ARGH[128J#J 



% 
X 
% 
% 
% 
% 
% 



DISK ADDR 
INDEX OF 
BASE ADDR 
INDEX INT 
IF ZERO. 
IF NOT ZE 
STORAGE F 



ESS FOR NEXT I/O 
BASE OF CURRENT 
ESS OF SEPTIC TA 
CURRENT BUFFE* 
PUT EVERYTHING I 
RO» TU/BUFF OF A 
OR NT VARIABLES 



BUFFER (0 OR 64 
NK, 

(0-63), 
NTO TANK, 

DAPTER TO STORE 
DURING DISKIO, 



OF ARGH IS USED 
ARGHt-13 

ARGHI0-59] X 

ARGHC613 X 

ARGHC633 X 

ARGHC64M233 % 

ARGMU273 X 
NOTE THAT SEEPAGE AND STINK 



AS FOLLOWS! 

X DISK ADDR 
FIRST BUF 
CELL FOR 
DISK ADDR 
SECOND BU 
FILE ID 
ARE WRIT 



X 



BUFFERS, THE FACT THAT 3115 IS ZERO 

REAL SUBROUTINE WRITEDISKI 
BEGIN 

M0VEC4»PC,NT1)#[NTL0C])J X SAVE 
D!SKI0CARGH[6U*CARGH INX XXX)- 
M0VEC4i[NTL0CJ#PC|NTl))) 
XXX|«((*PCDUP))*64) AND 641 
IF PC((SEEPAGEI»(*P(DUP))*2)-ST 
BEGIN SEEPAGEI«STINK| 

ARGH[XXX]»«3l X 

ENDI 
WR1TEDISK|»P; 

ENDI 

IF SEPTICTANKING THEN 
IF TUBUFF«0 OR (R, C9|4 JsTUBUFF, 13914 
(TUBUFF, [1113 OR (R,[ 



ESS FOR FIRST BUFFER, 
r t" R 

I/o'cOMPLETES, 

ESS FOR SECOND BUFFER, 

FF E R 

F CURRENT SEPTIC 

TEN OUT AT THE E 

MARKS THE END OF 



TANK, 
ND OF THE 
THE TANKI 



THE NT'S STOMPED BY IOREOUEST, 
1»61»SEEPAGE)I 



INK) GEO SEPTICS 
TSSMCP AND WRAP 



IZE»DUP) THEN 
AROUND BITS, 



J AND 
14|43«TUBUFF,[44|43))) THEN 



24629001 
24629099 
24629109 
24629200 
24629350 
24629400 
24629500 
24629501 
24630000 
24631000 
24632000 
24633000 
24634000 
24635000 
24636000 
24637000 
24636000 
24639000 
24640000 
24641000 
24641001 
25999990 
26000000 
26001000 
26002000 
26003000 
26004000 

326005000 
26006000 
26007000 
26006000 

,26009000 
26010000 
26011000 
26012000 
26013000 
26014000 
26015000 
26016000 
26017000 
26016000 
26019000 
26020000 
26021000 
26022000 
26023000 
26024000 
26025000 
26026000 
26027000 
26026000 
26029000 
26030000 
26031000 
26032000 
26033000 
26034000 
26035000 
26036000 
26036500 



1.19J9J neq ELSE I. [24113 + 2; 



Kl*K-il 



60 THEN 



LEAVES INDEX OF END 
OF DATA ON STACK, 



BEGIN IF R*Q THEN J«*4 ELSE 

BEGIN J|*1F R.CiailJ THEN 
Kl*R,[CF3 ' I.CCF3I 
IF R. [25113 AND J»2 THEN 
ENDI 
IF P(CYECH»«YECHH)+K*2»DUP) GTR 

P(P-YECH+(YECHI«WRITEDISK)); * 

ARGHCYECHI»XXX+YECH]I«R&K[CTC3&J[3H2I6]; 
ARGHCYECH+Ul»(XCUOCK + P(RTR))&Lt 1214216] i 

STREAM(Q|»P(DUP) NEO 60 I K* I»*I,[CF3» R »*[ ARGH t YECH+23 3 ) * 
BEGIN SlJaH DSl»K WDSl Q(DSt»LIT * " > I END; 

IF NOT P THEN PCOEUWRITEDISK); % 60 WORDS* WRITE IT, 

P(CYECHHl»STD); 

end; 

eND DISPOSAL; 

procedure runsepticcbuff)! 
value buffi real buff; 
begin label spi t # sep; 

real tu»i»t»b»fid; 

integer rc*f1d; 

* ARGH[60]#» 
» ARGH[623## 

* ARGHC124J#» 

* ARGHU25)#. 

* ARGHU263#I 



DEFINE 



SEEPAGE 

XXX 

STINK 

YECHH 

TUBUFF 



% 



LEQ "9" THEN 
SI|«S1-1I DSr 
SIl«SI"lf DSr 



out; 



one; 



'2 OCT END 
'OCT ENDI 



ELSE 



BI«IF BUFF«0 THEN SPACE(lO) ELSE BUFF , [ 15 l 15 J-ll 
IF BUFF GEO THEN % OPEN SEPTIC FILE 
BEGIN IF SEPTICTANKJNG THEN GO SPlTl 

IF BUFF Ne« THEN % CHECK FOR SPECIFIC TU BUf F 
BEGIN STREAM(A»«lOO, BI*100« X|*0» BUFF)* 
BEGIN SlIvBUFFI DI «*LOC A; 
2( 
Sll IF SCALPHA THEN 

BEGIN IF SC LSS "0" THEN JUMP 

tallyisi; x»*tally; 

SI l*SI+l; 

IF SC LEG M Z" THEN GO TO 

IF SC 

BEGIN 
ONE! BEGIN 

END ELSE 

IF SC»"* M THEN JUMP OUT ELSE 
I F SC * **" THEN 
BEGIN X(DSl*8LIT"0000001N M )l 

JUMP OUT! 
END ELSE 
BEGIN SlmSI + ll GO TO SI ENDI 

); 

ENDI 

T»«PJ 

IF CCII»P) OR T) GTR 15 THEN 

IF (1*100) AND (T«100) THEN TU»*0 ELSE 

IF T«M00 THEN IF 1 GTR STAMAX THEN GO SPIT ELSE 
IF (TUiaLINETABLEt 
TWXONLY OR OMIT 

IF I GTR LMAX THEN 

STATABLEHJ.LEENKER ELSE 



* SET OMIT » 



* POP OMIT 



I J,[9|93)»0 THEN 



26037000 
26038000 
26039000 
26040000 
26041000 
26042000 
26043000 
26044000 
26045000 
26046000 
26047000 
26048000 
26049000 
26050000 
26051000 
26060000 
26061000 
26062000 
26063000 
26064000 
26065000 
26066000 
26067000 
26068000 
26069000 
26070000 
26071000 
26072000 
26073000 
26074000 
26075000 
26076000 
26077000 
26078000 
26079000 
26079500 
26080000 
26081000 
26082000 
26083000 
26084000 
26085000 
26086000 
26086100 
26086200 
26086300 
26086400 
26087000 
26066000 
26089000 
26090000 
26091000 
26092000 
26092100 
26092200 
26092299 
26092300 
26092400 
2609240} 
26092500 



£IVU ££?7i.c 



GO SPIT ELSE ELSE 26092600 

IF (I LSS 16) AND CI GTR 0) AND (TMOl) THEN 26092700 

TU»«C»Q)&IC39U4|4J ELSE GO SPIT ELSE 26092800 

IF (TUl*TtIC39l44Ml) LSS 32 THEN GO SPIT* 26093000 

END; 26094000 

T»*SPACE(30)* 26095000 

M0VEC30»T-1»T)| 26096000 

M[TJ 1*0000740007 4000102} 2609 7000 

MtT+4)»*P4000000001040l 26098000 

M[T+5Jl«MCT+63 »*P14* 26099000 

STREAM(DATE«X|*T+3)J 26100000 

BEGIN SII*L0C DATE» DS;*8 OCT J 26101000 

01 I »X| DS|«2 LIT * + #"» 26102000 

SII*X* SM*Sl+5* DS»s3 CHR* 26103000 

END* 26104000 

II«MtT+lOjl«GETUSERDlSK(M[T+83lsSEPTlCSlZE+l)> 26105000 

M(U7]|»SEPTICE0FJ 26106000 

MtT+9]l*UTW0(3"SYSN0)t5l44»4j; % OPEN FOR OUTPUT 26107000 

RCI«(NT1|bXCL0cK/3600) MOD 601 26108000 

NTH»NT1 DIV 60* 26109000 

STREAM(NT1>RC»F««CFIDJ)J 26110000 

BEGIN SJ»«LOC NTH DSi«LIT"0** 26111000 

DSl*2 DEC* DS»«2 DEC) DSI*3 LIT" "J 26112000 

END* 26113000 

ARGH««(CGETSPACEC13?»5#l)+2) INX MH1 32 1 8 » 38 » 10 J * 26114000 

SEEPAGE«-STINKi»n 26115000 

XXX$*ARGH[1]'«01 X WORD 1 MARKS END OF TANK AND 26116000 

YECHHI*ARGH[0]I*1» % MARKS TSSMCP WITHOUT WRAPAR0UND261 1 7000 

TUBUFFI»TUI 26118000 

ARGH[127JI*FIDJ 26119000 

DlSKWAlT(ARGH»tCF]»?»I)J 26120000 

ENTERUSERFILE(P(SEP)»FID»T*1)I 26121000 

FORGETSPACECT)! 26122000 

SEPT!CTANKINGI*TRUEJ 26123000 

END ELSE * CLOSE SEPTIC FILE 26124000 

BEGIN IF NOT SEPT I CT ANK I NG THEN GO SPIT* 26125000 

SEPTICTANKlNGtsFALSE* 26126000 

IF YECHH NEC THEN 26127000 

DISKWAITCARGH INX XXX, 61 $ SEEPAGE ) * 26128000 

P(DIRECT0RYSEARCH(*P(SEP)»ARGH[127]»12)tDEL)> 26129000 

FORGETSPACEURGHJI 26130000 

ENDI 26131000 

STREAM(AI»P(SEP)» B l -ARGHt 127 ) » C J »T UBUFF , [ 39 I 4 ) * D J *TUBUFF , C 44 I 4 ) * 26132000 

X|»TU8UFFitJUJ» 26132500 

El'BUFT GEO Oi F«*B)J 26133000 

BEGIN SH«L0C Al SI|«SI+1* D$»«LIT" "* 26134000 

DSt*7 CHR1 SHpSI+11 DSI«LIT"/"* DSt*7 CHR* 26135000 

C(0SIp5 LIT" FOR "I DSt*2 DEC* DS»»LlT "/"* 26136000 

DSt*2 DEC* JUMP OUT)* 26137000 

XCDIl*DI-2» DSjs2LIT w « ")* 26137500 

DSl*2 LIT" C"* CII«Ci+EJ GO TO Ll* 26138000 

DS!»4 LIT"REAT"* GO TO L2I 26139000 

Lll DSl*3 LIT"L0S"* 26140000 

L2I DSi*3 LIT"ED«- W * 26141000 

END* 26142000 

SPITi 26143000 

SPOUT(B)* 26144000 

PCX IT) I 26145000 

SEPMI P62254763312360* 26146000 

END SEPTIC RUNNER* 26147000 



S POP OMIT 26150010 

i SET OMIT ■ N0TCB6500L0AD) 27990099 

BOOLEAN PROCEDURE B6500F0RMATTERC CT » I » X# XX t BCL# H» OPU ON ) ) 27990100 

VALUE OPTION) REAL CT.I»OPTlON) ARRAY X t * 3 » XX [* 1 ,BCL t * 3 » Ht * 3 1 27990200 

BEGIN 27990300 

REAL NT1»T»HDRTYPE»R0WSZ) 27990400 

INTEGER NT2; 27990425 

LABEL OK.BADFIX.GOODFIX; 27990450 

* 27990490 
BOOLEAN SUBROUTINE UNSCREW) 27990500 
BEGJN 27990600 

NTll*CTx8) 27990700 

STREAM(ADls(XX INXCNT1 DIV 48))&CNT1 DI V 6)l30845l3)t 27990800 

BlTSls((NTl-CTx6)M00 6)DJV 1 »N1 1 *0»N2 I »0» N3 I *0» BCL ) J 27990900 

BEGIN 27991000 

SIlwADlSKIP BITS SB) 27991100 
4C0II"DI+6lSKIP 4 DB)8UF SB THEN DSI'SET ELSE DS»«RESET) SK IP SB))) 27991200 

SI »»BCL)SI)*SI+24)DH*L0C N2)DS«*WDS) 27991300 

SlI*AD)SKIP BITS SB)SKIP 32 SB)N2(SKIP 8 SB)) 27991400 

DI!"BCLIDII«DI*38JSKIP 4 DB) 27991500 

8(IF SB THFN DSl*SET ELSE OS I «RESET) SK JP SB) ) N3 I *D I ) SI I «N3) 27991600 

51 t»Sl-8)DI»«L0C N3)0SI»WDS)DI »*8CL)DII*DI+40)SI l»AD) 27991700 

SKIP BITS SB)SKlP 32 SB) 27991800 
N2(0H«0I+7)SKiP 2 SB>6(IF SB THEN DSl*SET ELSE DS « "RESET ) SK I P SB ))) 27991900 

SKIP 8 SB) 27992000 
N3CDI 1-0I+7I SKIP 2 SB)6(IF SB THEN DSl'SET ELSE OS » =RESET ) SK I P SB ))) 279921 00 

END OF EBCDIC FORMATTING) 27992200 

NT2l»BCLt33+BCLt4J-l) 27992300 

FOR NT1 1*0 STEP 1 UNTIL NT2 00 BCL[NT 1 + 5 J J»P(DUP#L0U ) + P20) 27992400 

CTl»CT+BCLC03) 27992500 

STREAMCN1 j»IF BCL13J >7 THEN 7 ELSE BCL[3J# 27992600 

N2JRIF BCL[4J >7 THEN 7 ELSE BCH4J, 27992650 

N4l*IF BCL[3) >7 THEN BCLC3J-7 ELSE 0* 27992700 

N3l*BCL INX 5» N5l*£XtI33)) 27992750 

BEGIN 27992800 

DSM6 LIT "0 ") 27992900 

DII*DI-15) SI«*N3) 27993000 

N1(SJH»SI*7)DS?*CHR)) DI«*N5J DII*DI+9) 27993100 

N4(SII*SI*8)) 27993150 

N2(SII*SI+7IDSI«CHR)I 27993200 

END) 27993300 

IF BCLC23M THEN BEGIN X[WU l*X[ I ) J XC I J l"0 END) 27993400 

UNSCREWlsBCL[03*0 OR C I 1 « 1*2 )>1 024) 27993500 

gNO OF TAPE DIRECTORY CONVERSION) 27993600 

* 27993690 
REAL SUBROUTINE FIXHDR) 27993700 
BEGIN 27993800 

BCLl»CM[CT**$PACEO6)J3&36[8!38»10J) 27993900 

M0VE(30fCT-ltCT)) 27994000 

STREAM(Sl«0l Tl»HC5J)) 27994010 

BEGIN S1I«L0C T)DII»L0C S)D I l*D 1 *7) SK IP 2 DB) 4CIF SB THEN 27994020 

DSl«SET ELSE DS|«RESET) SKIP SB)) END)XHDR FMT ID IN COM] • 27994030 

HDRTYPEI»P) 27994040 

NT2*(IF HDRTYPE*0 THEN H[5),tl8llOJ ELSE HI 5 J , [ 1 ) 14 ) ) + 14) 27994050 

IF NT2 GTR 34 THEN 27994100 

BEGIN IF NT2 GTR 900 THEN GO TO BADFIX) 27994110 

FOR NT1I*36 STEP 1 UNTIL NT2+1 DO 27994120 

IF XX[NT13 NEO THEN NT1I«1023) 27994130 

IF NT1*1023 THEN GO TO BADFIX ELSE 27994140 

BEGIN NT2*34) 27994150 



IF HDRTYPE'O THEN H[5 J , [ 23 « 5 J *20 ELSE 27994160 

H[53.U9»53*20* 27994170 

END* 27994180 

ENDI 27994190 

FOR NTlialS STEP 1 UNTIL NT2 DO BCLl NT 1-5 3 I pHC Nil 3 * % PASS RQWS27994200 

STREAM(R*0tB*0lW*H[3l)l 27994300 

BEGIN % B * BLOCK UNITS 27994400 

SII*L0C Ml * R * MAX RECORD UNITS 27994500 

DII*LOC B* DM«DI+5I SKIP 2 DBI 27994600 

16CIF SB THEN DSlsSET ELSE DSjasRESET* SKIP 1 SB)* 27994700 

SKIP 16 SB; 27994800 

DII*LOC R* DI*«DI+5* SKIP 2 DB* 27994900 

16(IF SB THEN DS?»SET ELSE US*»RESET» SKIP 1 SB)i 27995000 

END* 27995100 

NT2l»P» X UNITS PER BLOCK 27995200 

NTlJ*P* X UNITS PER RECORD 27995300 

NT3»»IF NT1 * THEN 1 ELSE NT2 DI V NTH * RECORDS PER BLOCK 27995400 

IF HC2J,t8«n THEN * UNITS * CHARACTERS 27995500 

IF (NT4l*H[23,tl3*33 * 2) THEN % DECIMAL (4-BIT) 27995600 

BEGIN NTH*NT1 DIV 121 NT2««NT2 DI V 12) END ELSE 27995700 

IF NT4 * 4 THEN % EBCDIC 27995800 

BEGIN NT11*NT1 01 V 61 NT2«*NT2 DIV 6; END ELSE 27995900 

BEGIN NT1«»NT1 DIV 8) NT2l*NT2 DIV 8; END* % BCL 27996000 

IF NT1 GTR 1023 THEN GO TO BADFIXJ % WORDS PER RECORD 27996100 

IF NT2 GTR 1023 THEN GO TO BADFIX* % WORDS PER BLOCK 27996200 

BCLC0Jl«(NT2 DIV 30 + (NT2 MOD 30 NEQ 0)H % SEGMENTS/BLOCK 27996300 

NT3C30I36I12H % RECORDS/BLOCK 27996400 

NT2U5I33U5U % WORDS/BLOCK 27996500 

NT1UJ34U4JJ * WORDS/RECORD 27996600 

STREAM(Al*«Ht6J,U0ll8]» H l»HC6 J » XlsOt DATE)* 27996625 

BEGIN DU*LOC X; Sl|<*LOC DATE* DS|»8 OCT* 27996650 

DI»*L0C AJ SIlcLOC H? SKIP 2 DB* 27996675 

IOC IF SB THEN DSlwSET ELSE DSURESET* SKIP SB)* 27996700 

SlfvSl+llJ DSI*3 CHR» 27996725 

END* 27996750 

PCCBCL[3)3>STD)> 27996775 

BCL[7]l*H[4]J 27996800 

BCLC6J l*IF HDRTYPE*0 THEN H|53 , 128120] ELSE ROWSZ » «H[ 5 3 , I 24 I 24 3 * 27996825 

BCL[9Jl*IF HDRTYPE*0 THEN Ht53, £23*053 ELSE H[53 . [ 19 I 053 * 27996850 

IF HDRTYPE#0 THEN % CALCULATE END FOR NEWLIB OPT 1 0N27996880 

BEGIN NTll»Htl43,[20*283+(P(Htl43»TOP)»0 OR PC XCH) . [ t»l 9]#0) » 27996900 

IF (NT2t*NTl MOD R0WSZ)*O THEN NT2I«R0WSZ* 27996920 

Tt»(NTl+R0WSZM) DIV ROWSZ* 27996940 

IF T GTR BCL[9] THEN 27996960 

BEGIN T»*BCLC93> 27996910 

NT2I»R0WSZ* 27997000 

END* 27997020 

IF BCLtT*9]«0 THEN 27997040 

BEGIN NT2««BCL[B3* 27997060 

WHILE T GTR 1 DO 27997080 

IF BCL[(Tt«T»l)*9]#0 THEN GO TO OK* 27997100 

END* 27997120 

OKI T,t9»24jl»NT2» 27997140 

END* X T»0 FOR OLD HEADERS 27997160 

M0VE(30»BCL»H)* 27997180 

GO TO GOODFIX* 27997200 

BADFIXI 27997220 

Tl»MJ 27997240 

GOOPFIXi 27997260 

FORGETSPACE(CT)* 27997280 



F IXHDR l»T I 27997100 

END OF FIXHDR1 27997350 

B6b00F0RMATTER«*IF OPTION * THEN UNSCREW ELSE FIXHDR* 27997400 

END OF B6500F0RMATTERI 27997500 

* POP OMIT 27997501 

PROCEDURE UIBRARYLOaDSPECIALcASECZJJ VALUE li REAL 1} 27997600 

BEGIN COMMENT LIBRARYLOAD HAS BEEN BROKeN-uP TO PREVENT SUE OVERFLOW 27997605 

AND THE TIE UP OF CORE BY CODE NOT OFTEN USED. THIS 27997610 

PROCEDURE DOES INITIAL SET-UP AND OTHER SPECIAL FUNCTIONS 2799761b 

FOR LIBRARYLOAD, IT REFERENCES THE LIBRARYLOAD LOCALS 27997620 

BY F-RELATIVE DECLARATIONS AND CHANGES TO LOCAL 27997625 

DECLARATIONS IN LIBRARYLOAD SHOULD BE MADE WITH THE 27997630 

CORRESPONDING CHANGES HERE TO LINE UP THE STACK 27997635 

CORRECTLY, ADDITIONS SHOULD BE MADE BEFORE DECLARATIONS 27997640 

OF LOCAL VARIABLES FOR B650QL0AD* 27997645 

REAL C0MM0N«s-4tMScW*-2#RCW» + 0l 27997650 

REAL ALPHA*+l» E ADD*ALPHA+1 $ 27997656 

FID»EADD+1» FN«FID+1» 27997658 

I»FN+1» IC*I+1» 27997660 

sJ*IC + 1> K*vJ + l« 27997662 

LAST*K+1» LOADINGbLAST+1* 27997664 

MID»L0ADING*1» N*MJD+1» 27997666 

N1«N*1» N2*NH-1» 27997668 

Q«N2*1» REEL*Q+1» 27997670 

SEG«REEL+1# 5IZE*SEG*li 27997672 

SN»SIZE+1» T=SN+1> 27997674 

TYPE»T+1» U*TYPE+1» 27997676 

UNITN0»U+1» W*UNITNQ+1» 27997678 

Y«W + U 27997680 

BOOLEAN BB*Y+1» B6500»BB+1» 2799768E 

LATESTsB6500+l» T0GS«LATEST+1J 27997684 

ARRAY AR0W«T0GS+1[*J» H*AROW+t [* J » 27997686 

I0D*H+1C*J» LAB*lOD+it*3# 27997688 

LBL»LAB*H*J» S«LBL+H*1» 27997690 

X«S+1[*]I 27997692 

S SET OMIT a N0TCB6500L0AD) 27997694 

REAL CCT»X+1» LASTROWsCCT+1* 27997696 

NTt*LASTROW+l# NT2»NT1+1> 27997698 

BOOLEAN REELSW«NT2+1I 27997700 

ARRAY BCL»REELSW+lt*3» XX«BCL+H*3l 27997702 

t POP OMIT 27997704 

LABEL TRYNEXT,BAC»F!NDn»TRYAGN,BACK#LOADEM»FINDFILENAMES»EXIT; 2799 7710 

LABEL XXJTJ 27997712 

LABEL CASE0»CASE1.CASE2J 27997715 

SWJTCH SWITta CASE0,CASE1»CASE2; 27997720 

DEFINE SKlPDlR*T0GS,£4nU#*REELlSTART*TQGS,[46m#. 27997725 

SPACITSW«T0GS ( [45I1J#.CHKLBL*T0GS.[*^»1]## 27997730 

DSED»CTERMSET(P1MIX))#,SPACER»5&P1400[CTF ]#» 27997735 

SP0UTUNIT»0#» 27997737 

MM«P 377000401 iSM»«» 37 700000* * 27997 740 

%********************************+********+************* 27997 7 45 

SUBROUTINE GETASEGMfNTI 27997750 

BEGIN 27997755 

SEG>«S[293l 27997760 

DISKWAIT(-S,CCF3#30.SEG)I 2799776b 

F0RGETESPD1SK(SEG)> 27997770 

I»«2J 27997775 

ENDl * OF GETASEGMENT 27997780 

%******************************************************* 27997785 

SUBROUTINE ABORTJ 27997790 



BEGIN 2799779b 

IF LOADING THEN P ( D I RECTQRYSEAKCHC X[ J 3 » X [ J + 13 * 5+LQAD ING ) » OEL) J 27997800 

IF U>0 THEN 27997605 

BEGIN 27997810 

STOPT IMINGC5* 1023) J 27997613 

ST0PTIMINGC0»1023)J 27997820 

BLASTQCU)! 27997825 

SETN0TINUSE(U»0)I 27997830 

ENDJ 27997835 

WHILE S[293#Q DO GETASEGMENTl 27997840 

$ SET OMIT ■ PACKETS 27997845 

IF UNITNO#0 AND LABELTABLE CUN I TNO 3*0214 THEN 27997650 

LABELTABLE [UNITN0]*§H4J 27997855 

* POP OMIT 27997856 

STREAM(Tt»Tl»SPACEC5))I 27997860 

begin ds*21lit w library load aborted*"* endi 27997865 

spout ct)i 27997875 

go initiate; 27997390 

endi % abort 27997895 

tm*^**^*^*^^^^**^^*^^*************************************** 27996050 

BOOLEAN SUBROUTINE LABELCHECKl 27998055 

BEGIN 27998060 

TRYNEXTl 27998065 

P(WaITIO(LAB INX P120540000000»0»U)»DEL)| 27998070 

$ SET OMIT * N0TCB6500L0AD) 27998075 

IF B6500 THEN 27998080 

BEGIN IF REELSW ANDCNFLAGCLAB t 13 ) . [t 1 1 7 3 EQV »000")»NOT 27998085 

THEN BEGIN DO PCWAITIOCLAB INX ?1 20540000000>P40»U ) »DEL ) 27998090 

UNTIL (NFLAGCLAB[13),[H173 EQV w 001")*N0r 01 27998095 

REELSk»FALSE) 27998100 

END) P(WAITI0CSPACER»MM#U).DEL); 27998105 

ENDI 27998110 

S POP OMIT 27998111 

IF 04O#WAITIOCSPACER#P4OtU) THEN 27998115 

P(WAITI0Ce474OO00OO5»0#U)#DEL)> 27998120 

IF DSED THEN ABORTI 27998125 

IF (NOT B6300 AND C C NFLAGC LABI J ) , [ 6 I 42 ] EQV "LABEL M )#NOT 27998130 

OR CNFLAG(LAB[2])»C6|243 E«V "F I LE" ) *N0T 0)) 27998135 

S SET OMIT » N0T(B6500L0AD) 27998140 

AND C((NTll*NFLAG<LAB[03)),tl»233 EQV "HDR1")#N0T OR 27998145 

(NTUC24I243 EQV "FILE")*N0T 0) 27998150 

$ POP OMIT 27998151 

then begin 27998155 

stream(ai»ctinuiu33# t l»t i«spaceuo) ) i 27998160 

begin 5i*aisi«-si+5;ds*lit", w i0s*3 chrl 27998165 

ds*21 lit" not a library tape*"i 27998170 

END! 27998175 

SPOUTCT)! T + ll 27998185 

END ELSE T*0I 27998200 

IF T*0 AND NOT B6500 THEN 27998205 

IF NFLAG(LABC23).t30ll83«0 AND SKJPDIR THEN 27998210 

BEGIN 27998215 

SPACITSWMI CHKLBL»FALSEI 27998220 

GO TO BACKI XBRANCH INTO SPACIT, 27998225 

BACJ 27998230 

SPACITSW*0; CHKLBL*TRUE; 27998235 

GO TO TRYNEXTl 27998240 

ENDI 27998245 

LABELCHECK*Tl 27996250 

ENDI 27998255 



%******+************************************************%*** 27998260 

SUBROUTINE FINOTHETAPEI 27998265 

BEGIN 27998270 

FINDITI 27998275 

If <U»FlNDlNPUT(MlDiFID»REfc.L>"Q»0>0»0#0. t»5)) < THEN ABORTl 2799828B 

REEL*RDCTABLEtU3itl4«10]» *FORCE REEL CONTINUITY IF IL-ED, 27996285 

RRRMECH»«TWOCU) OR RRRMECH! 27998290 

* SET OMIT « N0TCB6500U0AD) 27998295 

IF B6500 THEN PC WA I T I 0( SPACER»MM, U ) » DEI ) I 27998300 

t POP OMIT 27998301 

IF CHKLBL THEN IF LABELCHECK THEN 27998305 

BEGIN 27998310 

SETN0TINUSE(U»1)» 27998315 

GO FINDITI 27998320 

ENDI 27998325 

STARTIMJNG(5»U)I 27998330 

MCPRTCP1MIX.3) INX (5xREEL+3 ) J , t 23 J U I« U 27998335 

R0CTABLECUJ,[BI6)I*P1MIX| 279983*0 

STREAM (S»PRNTABLECUJ.[18|30J»T*tTJ)» 27998345 

BEGIN SI*LOC S| D5*8DECI Dl*DWl DS*6FILLI ENUI 27996350 

FILEMESSAGEC IN "&T I NU{UJ t 6 I 30 118] * T» 27998365 

MID»FID»REEL»0#O.OPNMESS OR OPENK)J 27998370 

ENDI X OF FINDTHETAPE 27998390 

tit********************************************************* 27996395 

BOOLEAN SUBROUTINE ENDOFREELl 27998400 

BEGIN 27998405 

8LASTQ(U)I 27998410 

IF PCWAITIOCLAB INX P120540000000. ?2000040» U ) » DUP )*^20 THEN 27998415 

BEGIN X PAR ON ENDING LABELlTEST FOR LAST FILE ON TAPECEOF) 27998420 

LAB[4Jl«(*P(DUP))&(WAITIQ(SPACER»e4Q»U)*P4Q)[4f 14711 Jl 27998425 

P(WAlTlOC5&t»34O0tCTF3#P377#U)»DED; 279984 30 

ENDI 27998435 

$ SET OMIT * N0TCB6500L0AD) 27998440 

IF B6500 THEN 27998445 

BEGIN IF CNFLAG(LAB[03).tll23J EfiV "E0V1 " )*NOT THEN 27998450 

BEGIN P(WAITIO(SPACER#MM»U)»DEL)l 2799B455 

NTUWAITI0(LA8 INX S>1 20540000000. P4G» U ) I 2799B46* 

ENDI P(DEL)I 27998465 

END ELSE 27998467 

* POP OMJT 27998468 

NTH»P| 27998470 

IF DSED THEN ABORTl 27998475 

IF ((NOT B6500) AND NFLAG(LAB[ 4 3 ) AND NT1#P40) 27998480 

% SET OMIT « N0T(B65O0L0AD) 27998485 

0R(( NFLAG(LABt0)),tl|23] EQV "EOVl")«NQT 0) 27998490 

S POP OMIT 27998491 

THEN BEGIN 27998495 

ST0PTIMINGC5»1023)IX 27998500 

SETNOTINUSE(U#0)I 27998505 

REEL*REEL+1I 27998510 

* SET OMIT * NOTCB6500LOAD) 27998515 

IF B6500 THEN BEGIN REELSW*TRUEJ 27998520 

STREAM(S*LAB INX 0»D*[FIDJ)* 27998525 

BEGIN SI*SI SI*SI*4|DI*DI*1* DS*7 CHRIENDI 27998530 

END ELSE 27998535 

$ POP OMIT 27998536 

FlDl»LAB[2Jl 27998540 

FINDTHETAPEl 27998545 

ENDOFREEL*TRUEl 27998550 

END ELSE ENDOFREEL*-FALSEI 27996555 



END) % Of SUBROUTINE ENDOFREEL 27998560 

%*********nm*^^n:***^^*w^******** ***************** *********** 27998570 

SUBROUTINE SPACJT;* 27998575 

BEGIN 27998580 

BACKj WHILE WA I T I 0( SPACI R » MM, U)*«»40 DO 27998585 

BEGIN 27998590 

IF DSED THEN ABORT; 27998595 

lFCTl»PRTR0WtPlMIX],[PSF3) NEQ THENKHKf ORSWAP 27998601 

BEGIN IF T«2 THEN BEGIN 10C0UNHP1M IX 3 1 *-l I STOPM END 27998602 

ELSE IF T NEQ 1 THEN SWAP( FORCESWAP » 1) I 27998603 

END? 2799860* 

IF ELAPSEDLIMITCPIMIXJ GTR I OT I Mf [ P 1M I X 3 THEN 27998605 

IF PROCLIMlTtPlMIX] GTR PROCT I MEt PlM I X 3 + CLOCK + PC RTR ) THEN 27998606 

GO XXJT; 27998607 

FOR T»*SCtPlMlX] STEP 1 UNTIL LCIP1MJXJ 00 27998608 

IF ACTIVE[T] GTR 1 THEN 27998609 

BEGIN I0C0UNT[P1MIX]|»MI SWAP ( T I MEND* t ) J 27998610 

ELAPSEDLIMITCPIMIXJ I **P(DUP)+1 281 27998611 

PR0CLIMITIP1MIXJ**P(DUP)*64) 27998612 

GO XX I Tl 27998613 

END* 27998614 

XXI T I 27998615 

ENDI 27998617 

IF ENDOFREEL AND NOT SPACITSW THEN GO BACKJ 27998618 

IF SPACITSW THEN GO TO BACI XBRANCH TO LABELCHECK ELSE EXIT 27998619 

ENDI 27998620 

%*****************************+****+*****+*+**++*++**++++ 27998625 

BOOLEAN SUBROUTINE NOTLOaD I NGFROMREEU I 27998630 

BEGIN *SKIP LAST PORTION OF FILE FROM PREVIOUS REEL 27998635 

SPACITJ 27998640 

IF LABELCHECK THEN P(0) ELSE 27998645 

IF CNFLAGCLABC2J) EQV "FILEOOO") * NOT THEN 27998650 

BEGIN REEL1STARWALSEJ P(l) END ELSE PC03I 27998655 

NOTL0ADINGFROMREELll»P> 27998660 

ENDI 27998665 

I,******************************************************* 27996730 

P(Z»RcW»MSCWtSTF)> RCW « *RCW$PC XCH ) [ CTC ] I 27998740 

GO TO SWjTtPJI 27998750 

CASEOl 27998760 

Sl*CMtSPACE(30)3 3&30t8»38»10 3? 27998770 

TYPEI«COMMON,CFF]| 2799878* 

SI293l"C0MM0N,[CF3| 27998790 

S SET OMIT » N0TCB6500L0AD) 27998809 

B6500l«C0MM0N,C15«l]> 27998810 

$ POP OMIT 27998811 

LATESTl*C0MM0N,[4llJ» 27998815 

COMMON * IF C0MM0N»[9l6]#O THEN "COMMON , t 9 I 63 OR M ELSE 27998820 

IF COMMON, [3113 THEN 1 OR M ELSE 27998830 

IF COMMON, C2I 1 3 THEN 2 OR M ELSE 0) 27998840 

REEL»»U 27998850 

GETASEGMENTJ 27998860 

STREAMCMlD!«MIDI»Sm»Bl«PRT{PlMIXi33)J 27996870 

BEGIN DS|«16 LIT W 0DIRCTRY00ISK »IDSlw25 L IT"0"1 $H«LQC MIDI 27998880 

SII«SI+1IDSI*7 CHRIDSl-8 LlT"0F I LEOOO"! DS|*24 LlT w O"| 27998890 

ENDI 27998900 

UNJTNQ»»S[0J,[2|63J 27998910 

LA8l»£MtSPACE(15)3 3|15t8|38Jl03l 27998920 

MIDl«SCl]l 27998930 

FIDI'TILEOOO"! 27998940 

REEL1START*TRUEI CHKLBL*TRUE I 27998950 



TRYAGNI F INOTHE.TAPEI 27998960 

$ SET OMIT s NQTCB6500L0AD) 27998969 

IF NOT B6500 THEN 27998980 

* POP OMIT 27998981 

IF FlD*LABl2J OR REELM THEN 27998990 

IF NOT N0TL0A0INGFR0MRELL1 THEN 27999000 

BEGIN STREAMCA*[TINUIUJJ»T*T«-SPACEUO))l 27999010 

BEGIN SI*A>SI*SI+5>DS*LIT",' , ;DS*3CHR; 27999020 

DS*20 LIT" NOT A LIBRARY TAPE"* 27999030 

DS*LIT"*"J 27999040 

END) 27999050 

SP0UT(T)J SETN0TINUSECU»1)J 27999060 

REEL*1I 27999070 

GO TO TRYAGNI 27999060 

END) 27999090 

MJD*LABCl3j 27999100 

SKIPDIRI«TRUEJ 27999110 

Xl*tMtTl»SPACE(102«)miO23[8i38llOJ» 27999120 

IF NOT B6500 THEN MlD*-LABtt3> 27999130 

STARTIMING(0»18)» 27999140 

PCWAITIOCC 27999150 

$ SET OMIT » NQTCB65Q0L0AD) 27999169 

IF B6500 THEN ( XX I «X&< GETSPACE C 1024» 0» 1 ) + 2) t CTC 3 ) ELSE 27999170 

S POP OMIT 27999171 

XHP5«Q0tCTF]»0»U)*DEL)) 27999180 

S SET OMIT * N0TCB6500L0AD) 27999199 

IF B6500 THEN 27999200 

BEGIN 27999210 

BCU*XX&CG£TSPACE<327.0,1) + 2HCTUJ 27999220 

CCTI*12JI|p0)M0VE(327«BCL,[CFJ-I#BCL)J 27999230 

DO UNTIL B6500F0RMATTER(CCT# I#X»XX»BCL#H»0)J 27999240 

FORGETSPACL(XX)|FORGETSPACE(BCL)« 2 7999250 

MCT"13l«IlXtI"23l»Pl4| 27999260 

ENDJ 27999270 

* POP OMJT 27999271 

IF DSED THEN ABORT; 27999280 

IF (Nl*M[T-13) LSS 900 THEN 27999290 

BEGIN % GET RID OF EXTRA MEMORY SPACE IF NOT NEEDED 27999300 

X|a[M(SPACE(N)]]CN[6l36llO]l 27999310 

MOVE(N»TtX)> 27999320 

FORGETSPACE(T)! 27999330 

ENDJ 27999340 

FINDFILENAMESI 27999350 

FOR 11*2 STEP 2 UNTIL 26 DO 27999360 

BEGIN 27999370 

Jl*IF X£0]*H14 AND NOT REELlSTART THEN XU3-2 ELSE -21 27999380 

IF CFN*SU))«ei4 THEN GO LOADEMJ 27999390 

$N»SM + 1))W»1J 27999400 

WHILE X[J*J+23#P14 DO % MARK FILLS To BE LOADED 27999410 

IF FN<0 OR (FN EQV X[j])*NOT THEN 27999420 

IF SN<0 OR (SN EQV X[J+i3)*N0T THEN W*XC J3*-X[ J3 I 27999430 

IF N GTR THEN LBMESSCFNtSN»*l*17»TlNUCUj»SP0UTUNlT»l>J 27999440 

END? 27999470 

IF $[283*014 THEN GO LOADEMj 27999480 

getasegment; 27999490 

go finofilenames? 27999500 

LOADEMl 27999510 

W*J*»2l 27999520 

WHILE X[J*J+2J#t»14 DO IF X[J1,[1H) THEN W*JI 2799953P 

IF W<0 THEN ABORT! 27999540 



XCW+2J*014; 
IF TYPE*ADDV 
FOR W*W STEP 
IF X[WJ»Ull 
IF DIRECTORY 
Wls*0 EL 

chklbl*false 

J*0) 

IF MO-WAITI 

IF 86500 THE 

J* 

IF NOT J THE 

IF ((NOT B65 

<NFLAG(L 

SET OMIT 9 NO 

AND ((NFLAGC 

(NFLAG( 

POP OMIT 

THEN BEGIN S 

BEGIN S 

D 

END! 

ENDI 

CHKUBL*TRUEI 
J* IF X[0J=P1 
H>»tMtSPACE( 
AROWl»IM[SPA 
AROH[0lt*(M[ 
AR0W[1J»*AR0 
IODl»[M[SPAC 
SET OMIT « NO 
IF B6500 THE 



THEN 

-2 UNTIU DO 
3 THEN 

SEARCH(X[WJ»X[W+lJtb)#0 
SE X[W] 1*01 
) 



THEN X[N)I*»14 ELSE 



Q(LAB INX ei205«0000000»P40»U) THEN 

N P(WAITI0(LAB INX PI 205*0000000* 0* U )» DEL) ELSE 

ENDOFREELI 

NX CHECK ENDING LABEL IF NOT LAST FILE OR B6500L0AD 

00) AND (NFLAG(LABC1])EQV MJD)*NOT OR 

ABC2J) EQV "FILE0QO M )*N0T 0) 

UB6500L0AD) 

LAB10I),[24»24J EQV "F ILE" ) *NQT AND 

LABC13J.I1I17J EQV FI D t C 301 18])* NOT 0) 



TREAM(Al 
I ♦ A 
S ♦ 29 
SPO 



<Al«[T!NU[U]]»Jl»Jl"SPACEC10))l 

1 SI «- SI + 5J DS ♦■ LIT", H I DS * 3 CHRJ 

9 LIT " BAD FILEOOO ON LIBRARY TAPE*"! 

OUT (J)» abort; 



14 AND NOT REEL1START THEN X[U ELSE 0; 
3l + 6xB6500)]]&36[8l38U0Jl 
CE(2)]U2[8i38tlOJ| 
SPACE(902)J3&901I8l38»10Jj 

WC0HSPACE(902)ICTCJI 
E(2)]J&2[8i38tlOJJ 

T(B6500L0AD) 

N BEGIN P(WAITI0(SPACER»MM»U)»DEL)J 

P(WAITIO(SPACER»MM»U)»DED ENDI 



t POP OMIT 

GO TO EXIT! 
CASE1I FINDTHETAPEi GO TO EXJT> 
CASE2I ABORT? 

EX IT I P(Q»RDS*0*XCH»P&P[CTFJ»STF)> 
eND OF LIBARYLOADSPECIALCASE) 
PROCEDURE LIBRARY 
BEGJN REAL COMMOJ 
REAL 



ALPHA 
I» 

Last* 
ni» 

SEG* 
TYPE* 
Yl 
BOOLEAN 

ARRAY 



S SET OMIT « NO 
REAL CCT. 
BOOLEAN 
ARRAY 
$ POP OMIT 

DEFINE DSED* 
SPOUTUN 



YLOADJ 
N«-4> 

» EADD* 
IC» 

LOADING* 
N2» 
SIZE* 
U» 

BB* 

TOGSI 

AROW[*)» 

LABt*J» 
Xf* J | 

T(B6500L0AD) 
LASTROW, 
REELSWJ 
BCL[*3t 



FID* 
J* 

MID* 

Q* 

SN* 



FN» 

K* 

N* 

REEL* 

T* 



UNITNO* W» 



B6500. 

Ht*)* 
LBLC*J» 



NT1 



XX[*3I 



LATEST* 

I ODE * 3 # 

St*J» 



NT2; 



(TERMSET(P1MIX))#» 
IT*0#. 



27999550 
27999560 
27999570 
27999580 
27999590 
27999600 
27999610 
27999620 
27999630 
27999640 
27999650 
27999660 
27999670 
27999680 
27999699 
27999700 
27999710 
27999711 
27999720 
27999730 
27999740 
27999760 
27999790 
27999800 
27999810 
27999820 
27999830 
27999840 
27999850 
27999860 
27999879 
27999880 
27999890 
27999891 
27999900 
27999910 
27999920 
27999930 
27999940 
26000000 
28001100 
28001200 
28001300 
28001400 
28001500 
28001600 
28001700 
28001800 
28001900 
28002000 
28002100 
28002200 
28002300 
28002400 
28002500 
28002600 
28002700 
28002800 
26006000 
28006100 



SPACER*5&P1400[CTFJ#» 

MM»©37700040*» 

SM»P37700000#J 

LABEL EXITiTRYNEXT»BAC»PARER 

BADHEADER»0K#WY»8ADL0A 

DEFINE SKIPDIR*T0GS,[A7«U#» 

SPAClTSW«T0GS,[45»n# 

DEFINE INITIALSETUP ■ LIBRAR 

FINDTHETAPE » LIBRAR 

ABORT * LIBRAR 
X*************************** 

DEFINE NOTLQADEOCNOTLOADEDl) 
BFGIN NT3l«N0TL0ADFDl» 

SUBROUTINE NOLOADMESSJ 

LBMESS(ABS(XtJ3)»X[J+l J 

%*************************** 

SUBROUTINE CHEC^FORSWAPJ 
BEGIN 

IF (Tl«PRTROW[PlMjX],[P 
BEGIN 

IF T»2 THEN 
BEGIN 

IOCOUNTCP1MIX 
STOPMj 
END ELSE 

IF T*l THEN SWAPCF 
ENOI 

IF ELAPSEDLIMITtPlMIX) 
IF PR0CLJMIT[P1MIXJ>PR0 
FOR TJ«SC[P1MIX3 STEP 1 
IF ACTIVE[T]>1 THEN 
BEGIN 

IOCOUNTCPlMlXJlw-1 
SWAPCTIMEND»1)J 
ELAPSEDLIMITtPlMIX 
PR0CLIMITIPIMIXJ»« 
GO TO EXITJ 
END) 



R»EXT»LOOP»WATE*BACKt 

D » LAY »SK I PPERt FALLOUT »ENDLOOP; 

REELISTARTpT0GS,C46I1J#» 

»CHKLBL»TOGS,[44MlJf 1 

YLOADSPECIALCASE(0)#, 

YLOADSPEClALCASE(t)#» 
YL0ADSPECIALCASE(2)#J 
******************************** 

3 

NOLOADMESSJ END#J 

»-ltNT3f TINUIU3#SP0UTUNIT#1); 

******************************** 



SF]>#0 THEN 



)lS*l) 



0RCESWAP»1)J 

GTR I0TIMEIP1MIX] THEN 
CTIMECP1MIXJ+CL0CK*P(RTR) 
UNTIL LCIP1MIXJ DO 



]|**P(DUP)+128> 
*P(DUP)+64; 



THEN GO EXJTI 



EXITI 

END! % OF CHECKFOHSWAP 

%**m************** ********** 

BOOLEAN SUBROUTINE LABFLCHEC 

BEGIN 

TRYNEXTI 

IF WAITIOCLAB INX 01205 

NOT B6500 THEN 
BEGIN STREAMCAI*1# Bl«t 
BEGIN SIt'LOC A; S 
DII»0!*5l DSl 
END) 
P(WAITIO(*>340000005»*>377»U)fDEL)) 



******************************** 
:Kj 



40000000»P40&P20[CTFJ»U)«?40 AND 

% MISSING LABEL " FAKE IT, 
LABC2JJ)) 
Il*SI+5| 
*3 ADD) 



$ SET 



END) 
OMIT * 



N0TCB65O0L0AD) 
IF B65Q0 THEN 
BEGIN IF REELSW ANDCNFL 
THEN BEGIN DO PCW 
UNTIL 
REELSW*FALSE 
END) PCMAITI 
END) 



AG(LABU J).UI17] EQV "000 K )»NOT 
AITIOCLAB INX $1 2054000Q0Q0»P40. U ) »DEL) 
(NFLAG(LABtn)»ClU7j EUV "001")«NQT 0) 
) 

OCSPACER»MM#U)*DED) 



28007000 

28008000 
28009000 
28010000 
28010100 
26011050 
28011060 
28011070 
28011080 
28011090 
26012000 
28013000 
28014000 
28015000 
28016000 
28020000 
28021000 
28022000 
28023000 
28024000 
28025000 
28026000 
28027000 
28028000 
28029000 
28030000 
26031000 
28032000 
28033000 
28034000 
28035000 
26036000 
28037000 
28038000 
28039000 
26040000 
28041000 
28042000 
28043000 
28044000 
28061000 
28062000 
26063000 
26063100 
26063300 
28063400 
28063500 
28063600 
26063700 
28063600 
28063900 
26064000 
28064099 
28064100 
28064200 
28064300 
28064400 
26064500 
28064600 
28064700 



$ POP OMIT 



S SET OM 
$ POP OM 



IF P4Q*WAITI0CSPA 
PCWAITIOC047 
THEN ABORT} 
B650Q AND ( 
AG(LAB[?])*£ 
TCB6500L0AD) 
NT1I*NFUAG(L 
41243 EQV "F 



IF DSED 
IF (NOT 
OR (NFL 
IT m NO 
AND C(( 
CNT1.C2 
IT 

THEN BE 
ST 
BE 

EN 
SP 
END EtS 
IF T*0 
IF NFU 
BEGIN 
SPACITS 
GO TO B 



GIN 

REAM(AI*[TIN 
GIN SI*AJSI* 
DS*2l LIT 
Of 

OUT(T)J T*ll 
E T*0| 

AND NOT B650 
G(LABC2]),[3 

W-l J CHKLBL* 
ACKJ XBRANCH 



CER»P40.U) THEN 
4000000b»0#U)»DLL)> 

(NFLAG(LABL0J),t6l42] EQV "LABEL ")#NQT 
6124] EQV "FILE'^NOT 0)) 

AB[QJ)),[1!23J EQV "HDR 1 H ) #NOT OR 
ILE w )#NOT 0) 



UtU]]» T»=Tj«SPACE(10))J 
SI>5)DS*Ln M t' , ;DS*3 CHR} 
" NOT A LIBRARY TAPE*"; 



THEN 

0H8]»0 AND SKIPDIR THEN 

FALSEI 
INTO SPACIT, 



BACI 



SPACITSW*0} CHKLBL*TRUE; 

GO TO trynext; 

ENDJ 

LABELCHECK*T? 



END) 
%**** 

BOOLE 
BEGIN 

IF PC 
BEGIN 



******************* 
AN SUBROUTINE fNDOF 

BLASTQCU)! 
WAITI0(LAB inx 0120 
% PAR ON ENDING LA 
LABt4]|8(*P(0UP))«,( 
P(WAlTI0(5SP3400tCT 
END! 
t SET OMIT s NOT(B6500LOAD) 
IF B6500 THEN 
IF (NFLAG(LABCO]),t 
BEGIN P(WAITIO(SPAC 
NT1*WAITI0(LA 
END; 
S POP OMIT 

IF B6500 THEN PCOEL 

IF DSED THEN ABORT! 

IF ((NOT B6500) AND NFLA 

$ SET OMIT ■ NQTCB6500L0AD) 

0R(( NFLAG(LABt03),Cl»2 

* POP OMIT 

THEN BEGIN 

ST0PTlMING(5tl 
SETN0TINUSE(U» 
REEL*REEL*1I 
I SET OMIT • N0TCB6500L0AD) 
IF B6500 THEN 



************************************ 
REEL? 



540000000f(»2000040»U)»DUP)»e20 THEN 

beutest for last file on tapeceof) 

WAITI0(SPACE«»?^0«U)*?40)[47j47ll J I 
FJ»P377»U)»DED) 



H23J EQV "E0V1")»»N0T THEN 

ER»MM#U)*DEL)} 

B INX ?120540000000»P40»U)} 



) ELSE NTJI'PI 
GCLABC43) AND NT1#P40) 
3i EQV "EOVl")«NOT 0) 



023)}* 
0)1 



BEGIN REELSWMRUE) 

STREAM(S*LAB INX 0»D*tFIDJ)» 

BEGIN SI*S) SI*S1+4IDI*DI+D DS*7 CHRJEND) 

END tLSE 



$ POP OMIT 



28064701 
28065000 
28065610 
28066000 
28067000 
28067100 
28068999 
28069000 
28069100 
28069101 
28070000 
28071000 
26072000 
28073000 
28074000 
28075000 
28076000 
28076100 
28076110 
28076200 
28076300 
28076400 
28076500 
28076600 
28076750 
28076800 
28077000 
28078000 
28079000 
28095000 
28096000 
28097000 
28098000 
28098010 
28098020 
28098030 
28098040 
28098099 
28098100 
28098200 
28098300 
28098400 
28098500 
28098501 
28098600 
28099000 
28101000 
28101099 
28101100 
28101101 
28102000 
28103000 
28104000 
28105000 
28105949 
28105950 
28105960 
28105970 
281059*0 
28105981 



FIDI"LABI2Jl 28106000 

FINDTHETAPEI 28107000 

END0FREEL*TRUEI 28108000 

END ELSE END0FREEUFAL5EJ 28109000 

END! * OF SUBROUTINE ENDOFREEL 28110000 

%+*************#***********#******************************** 28111000 

BOOLEAN SUBROUTINE CHFC*J 28112000 

BEGIN 28113000 

IF (Yl«lODtW]).t27l2J*0 THEN * PARITY ERROR OR EOF 28114000 

BEGIN 28115000 

IF Y,[7|l] AND Y,C27iU THEN * END OF REEL 28116000 

BEGIN 281UO00 

IF NOT ENDOFREEL THEN 28118000 

BEGIN 28119000 

P(WA IT 10(94740000020 »P377#U)» DEL); 28120000 

N0TL0ADEDC33)! 28121000 

Y * II 28121500 

GO TO EXT; 26121600 

END> 28122000 

IF WAITI0(10D[WJ INX ^16040540000000* SM» U )#0 THEN 28123000 

GO PARERRJ 28124000 

IF I0DU-WJ, [7lU THEN % ANOTHER TAPE 10 IN PROGRESS 28125000 

BEGIN 28126000 

IF WAITIOC IOD[l-WJ#SMtU)i t O THEN GO PARERRI 28127000 

JODt 1"W]J*(*PCDUP)) OR IOMASK? 28128000 

ENDJ 28129000 

Y + OI 28129100 

END ELSE % PARITY ERROR 28130000 

PARERRI BEGIN 26131000 

NOTLOADEDUF Y,[7«lJ THEN 27 ELSE 35)1 28132000 

Yt*l| 28135000 

END? 26136000 

END ELSE % CHECK RECORD SUE 28137000 

IF Y.17U3 THEN 28138000 

BEGIN 28139000 

IF CY**(CMUROW[W] INX NOT ]*900+B6500) AND N<N1)) THEN 28140000 

N0TL0ADEDC39); 28141000 

END ELSE Yl*0> 28143000 

EXTl CHECK * Yl 26144000 

ENDI * OF CHECK 28145000 

%*******#*************************************************** 26146000 

SUBROUTINE JOI 28147000 

BEGIN 26146000 

IF IC THEN 28149000 

BEGIN 26150000 

I0REQUESTC(I0DtW3l«(AR0W[W] INX 0540000000) 28151000 

&(SlZE*B6500)C8l38il0]&TINUtUH3l3l5])0R P2017700000» 28152000 

10D[W]»[!0D[WmUU2l42i6J)l 28153000 

NlsN+301 26154000 

END ELSE 28155000 

BEGIN 28156000 

DISK10(I0D[W]»AR0W[WJ INX B6500M » ( T I»IF( T I »LAST-Q+1 ) 28157000 

LSS 30 THEN 30xT ELSE 900)t0)| 28158000 

Ql«0+30l 28159000 

* SET OMIT p NOT(STATISTICS) 28159099 

C0UNTUP(18#T IV 30)1 28159100 

S POP OMIT 28159101 

ENDI 28160000 

END! I. Of 10 28161000 

%****t****************************************************** 28162000 



BOOLEAN SUBRO 

BEGIN 

SlZEl*90 
Nl jo 

* SET OMIT * NOT 

IF Ks 
$ POP OMIT 

LASTi*(Q 
IODC 1 3 1 * 
1 C I « 1 1 

I0> % FJ 
H *ll* S 

IF N<N1 
LOOPl JO) 
WATEf MfPCLI 
COMPLEXS 
IF DSED 
N2*N2+15 
WMF CIO 
(CI 
IF NOTCY 
BEGIN* K 
lO 
IF 
IF 
IF 
IF 
ENOlX 
UOADAROW 
ENOI * OF LOA 

************* 

SUBROUTINE S 
BEGIN % 
BACK! WHILE WA 
BEGIN 

IF 
CHE 
END; 
IF ENDOFR 
IF SPACI 

ENDJ X SPACIT 

%************ 

alpha*<*pc,.l 

INITIALSETUPI 

DO 

BEGIN 

IF LABEL 

IF WAITI 

GO TO BA 

MOVEC30* 

$ SET OMIT » NOT 

IF B6500 

BEGIN XX 

IF 

G 

ENOI 

* POP OMIT 

IF DSED 
Tl«-ll 



UTINE LOADARQWj 

01 

B650QL0AD 
LASTROW.CCFl THEN 



LASTRQW,[9|24J ELSE 



I«HIK+9J)+N1-1| 

N2«*wjbni*o; 

RE UP FIRST TAPt R 

WAP BUFFERS 

THEN* CANNOT DO RO 



BRARY 
LEEPC 
THEN 
1% CO 
DtOl 

odu] 

*CHEC 

EEP G 

1-I0D 

N<N1 

N2 + 30 

IODCW 

N2<N 



LOAD)] 
CCCIOD 
ABORT! 
UNT NU 
AND 10 
AND I 
K) THE 
OING 
CW],[7 
THEN G 
*N THE 
3.C24J 

then b 



aCF3*A 
[0] OR 

MBER OF 
DC 1 J AN 
OMASK)* 
NX NO E 

urn S 

TO LO 
N SIZE* 

u then 

EGIN 10 



EAD 

W WITH ONE READ 

LPH a J 

I0DC11) AND IOMASK)#0) OR DSED)I 

OPERATIONS COMPLETED 
D IOMASKJ^O THEN 1-W ELSE 

0); 

RRORS WERE DETECTED 

WAP UNITS 

OPJ* ROW IS NOT FINISHED 
T> * CHANGE SIZE FOR LAST RECORD 
GO TO loop;* MORE WRITING TO DO 
D[WJ*0; GO TO WATE ENDI* 



l»Y| 

DAROW 

*********************************************** 

PACITIX 
ITI0CSPACFR»MM#U)#P40 DO 



DSED THEN ABORTl 
CKFORSWAPJ 

EEL AND NOT SPACIT 
TSW THEN GO TO BAC 

****************** 
IBRARYLOAD)).CCFJl 



SW THEN GO BACK} 

> XBRANCH TO LABELCHECK ELSE EXIT, 

***************************** 



LOOtCTFJfP2000000»U)se20 THEN 
CKJNG FOR PARITY 
FHB6500iH)J 



CHECK THEN ABORT; 
0CC*[AROWt0Jme54< 
DHEADERI * RD HDR 
5xB6500»AROW[OMCl 
CB6500LQAD) 

THEN 
J=AROW[0]I 
CLASTR0W»wB6500F0RMATTERCCCT»I»X»XX»BCL»H»n)<0 THEN 

o to badheader; 



THEN ABORTl 



28163000 
28164000 
28164500 
28165000 
28165490 
28165500 
28165510 
28166000 
28166500 
28167000 
28168000 
28169000 
28170000 
28171000 
28172000 
28173000 
28173500 
28174000 
28175000 
28176000 
28177000 
28178000 
28179000 
28180000 
28181000 
28182000 
28183000 
28184000 
28185000 
28186000 
28187000 
28188000 
28189000 
28190000 
28191000 
28192000 
28193000 
28194000 
28195000 
28196000 
28196100 
28197000 
28198000 
28198500 
28200000 
28255000 
28256000 
28257000 
2B258000 
28258050 
28258100 
28258149 
28256150 
28258160 
28258170 
28258180 
28258190 
28258191 
26259000 
28259900 



IF (NOT B6500) AND (MtAROWCOJ INX NOT 0] NEQ 30) THEN 26260000 

GO TO BADHEADER ELSE 28260010 

BEGIN 28260020 

STREAM(A»"OlDt«H)l 28260030 

BEGIN $ll«D> 30(IF SB THEN BEGIN TALLY»*U JUMP OUT END 28260040 

ELSE Sp»Sl+8); Al«TALLY; 28260050 

END* 28260060 

IF P THEN PCI) ELSE 28260070 

IF(NTlmH(9],t43l5J>>20 OR NT1*Q THEN PCI) ELSE 28260080 

BEGIN I»»OJ 28260090 

FOR W»»10 STEP 1 UNTIL 29 DO 28260100 

BEGIN 28260110 

Il«I*(NT2l»<H[W) NEQ 0))? 28260120 

If W GEQ NT1 +10 THEN IF NT2 THEN W|s3U 28260130 

ENDJ 28260140 

IF (CW«31) OR (I GTR NTl) ORC C I NEQ 0) AND (H[8]»0)>> 28260150 

THEN PCI) ELSE P(0)* 28260160 

END END! 28260180 

IF P THEN 28260190 

BEGIN 28260200 

BADHEADERI 28260250 

N0TL0ADED(43)J 28260300 

HC23 * LABI23I 28260500 

SPACIT; 28260600 

IF HE2)#LABt2J THEN ABORT* * FOR WE ARE LOST 28260700 

GO TO ENDLOOP; 28260800 

END ELSE 28260900 

IF XtJJ.tllU THEN 28261000 

IF CXCJ],C2UJ NEO OR X[J*t).Cll5] NEQ OR ABSC X[ J] )«*114 ) 28261100 

THEN N0TL0ADEDC37) ELSE 28261110 

IF (T*DIRECT0RYSEARCHCX[J]iC3*«x(TYPE«ADDV))UI45l3]fX[J*U# 28262000 

4*CTYPE«ADDV))) GEQ 2 THEN 28263000 

IF T*2 THEN 28264000 

N0TL0ADEDC25) ELSE 28265000 

BEGIN 28267000 

L0ADINGI«9I 28268000 

IF DSED THEN ABORT! 28269000 

IF CU»TYPE NEQ ADDV AND MCT+2J NEQ AND 28269500 

CCUSERCODECPIMIXJ EQV ABSCMCP)) NEQ NOT 0) AND 26270000 

CCUSERCODEIPlMIXj EQV ABSCMET+23)) NEQ NOT 0)) OR 28271000 

CLATEST AND MCT + 3 J , [ 30 1 18] GTR HC 3] , C 30 J 18 3 ) THEN 28272000 

BEGIN 28273000 

HEADERUNLOCK(ABS(XCJJ)tX[J*l]tT)J 28274000 

Tl*-U 28275000 

N0TL0ADEDC64-Ix23)J 28276000 

END! 28278000 

END ELSE 28279000 

IF T»l THEN X IT WAS "QT-ED" 28280000 

BEGIN 28281000 

T»x-U 28282000 

N0TL0ADEDC45)! * 28283000 

END ELSE IF DSED THEN ABORTI 28285000 

IF T»0 OR CT GEQ 64 AND TYPE NEQ ADDV) THEN 28286000 

BEGIN 28287000 

IF T GEQ 64 THEN 28288000 

IF MCT+8]/H[8J THEN 28289000 

BEGIN 28290000 

FORGETSPACECT)! 28291000 

PCDlRECT0RYSEARCHCXtJJ»X[J+ni6)»DEL)l 28292000 

T*OJ 28293000 



OKI 

WYl 



END) 
IF T»0 
BEGIN 
T 
M 
M 
END EL 
EADD'T 
LBL * 
FOR Ml 
IF CUB 
FOR Wl 
W|»0) 
WHILE 
I 



THEN 

«*GETSPACE(30# 

0VEC30iTM#T)l 

[T+43**Q&SYSNQ 

SE 

.C18I153J 

CMCT3J & 30CBI 

wHC93,C43»53*l 

LC93)»C*P(DUP) 

*LBLt9J+10 STE 



0»1)+2I 
[4(46(2 



381103; 
STEP 
) AND 3 
P 1 UNT 



XFIXES POSSIBLE PROBLEM 
34U2U7I13) 



1 UNTIL 29 DO HCW3l*0f 
1) • THEN LBL[73t»-l) 
IL 29 DO lblcwjibo; 



IF 



CH 
I 
B 
I 
S 

B 
D 
D 
D 
D 
D 
E 
S 



CW*W+1) 

F HC9 + W 

C9+W3IP 

FCH[9+W 

EGIN 

♦SPACEC 

TREAMCJ 

I 
EGIN DS 
S*7CHRI 
S*LIT"« 
I*JIDS«- 
S*LIT"/ 
S*7LIT" 

POUTCI) 
REP 

SWA 

IF 

IF 

IF 

BEG 

FOR 



LEQ HC 
3#0 THE 
LBLC9+W 
3l«PETU 



9J,[43«b3 DO 

N 

3) LEQ 

SERDISK 



THEN 

(H£8I OR M*COMMON)) LSS 1 THEN 



10)) 

*JARR0WtPlMIX3tPlMIXtH*H[83»M*Xt J3»F*XtJ+U» 

)) 

•14 LIT M #N0 U 

DS*LIT W / M JSI*S 

";si*loc PlMlX 

LIT"(";SI*L0C 

h »ds»7chr;ds*2 
segs,*")di*di 



SER DISK ("I SI*J)SI*-SI + 1I 

I + DDS«-7CHR) 

*DS*2DECU«-Di;t>I*DI-2JDS*FILL« 

MJ$I»Sl+lJDS«7CHRISl*S!+l! 
L1T")-»|SI*L0C H;DS*8 DEC? 
-15)DS*7FILL) 



I 

LYIP1MI 

V0FI30 

PCWAITS 

NOT WHY 

REPLYtP 

REPLYt 

IN COMM 

WI»W s 

IF HC 

IF LB 



END) 
STREAMCA* 
BEGIN SI* 

SI*S 

end; 

H[43l»M[T 

&HC 

HC 1 3 « C25I 

IF LBLL93 
ENTE 

ELSE 

BEGIN Wl* 
FOR 



FORGETSPAC 
IF DSED TH 
IF LBL[9]# 
PCDIRECT 
NOTLOADED( 
IF X[J+23# 
GO TO ENDL 

fHtl33#D*DA 
LOC D)Dt*LO 
I"4)DI*A)DS 



X3 I* • 
I42I63& 

wapi n; 

SLEEPCl 

1MIX3*V 

P1MJX3* 

ON ♦ CO 

TEP -1 

9+W)#0 

LC9+W3* 

FORGETU 

ECT3I 

EN ABOR 

THEN 

ORYSLAR 

3D) 

P14 THE 

OOP) 



(II«VIF&VWYC36I42I63& 
V0KC24I42I63)) 

) THEN GO TO WYl 

OK THEN GO TO OK) 

VOF THEN 

MMON AND NOT M) GO TO OK) END) 

UNTIL 1 DO 

THEN 

THEN 

SERDISK(HC9+W3»-HC83)I 

T) 

CHCX[*U»XtJ+13'14)#DEL)l 

N SPACIT) 



TE)) 

C D)DS*8 OCT) 

o4 CHR) 



+438H[43[8l 

43[43t43tl3 

233*XCLOCK* 

•0 THEN 

RUSERFILE(ABS(XCJl)fXCJ*l3*H.CCF3»l) 



6!33&0Cn<47!l3&H[43[36l36f63 

I 
P(RTR)) 



IF HC93 LSS LBLC9J THEN LBLC93 ELSE HC9JI 
Wl-W+9 STEP •! UNTIL 10 DO 



28294000 
28295000 
28296000 
28297000 
28298000 
28299000 
28302000 
28303000 
28304000 
28305000 
28305500 
28306000 
28306500 
28307000 
28308000 
28309000 
28310000 
28311000 
26311200 
28311210 
28311220 
28311230 
28311240 
26311250 
28311260 
28311270 
28311280 
28311290 
28311300 
28311400 
28311410 
28311500 
28311700 
28311600 
28311910 
28311920 
26314000 
28315000 
28316000 
28317000 
28318000 
26318200 
26318600 
26318800 
28319000 
28321000 
28322000 
26323000 
28328000 
28329000 
28330000 
28331000 
26332000 
26332100 
28333000 
26333100 
26333200 
28333300 
28333400 
28333500 



IF HtW3*0 THEN 28333600 

IF LBL[WJ*0 THEN % EXTRA HOW IN DISK FILE 28333iTQG 

F0RGETUSERDISKCLBLCWJ.LBLC8J) ELSE ELSE 28333800 

* SET OMIT » NOT SHAREOISK 28333890 

if iBUwj*o then % new how 28333900 

SCKATCHDIRECT0RYDtLETECHCW}»H(8j)> 28 334000 

S POP OMIT 28334010 

JDISKWAITCH INX 0*30.EADD)J 28334100 

ENDI 28334200 

FORGETSPACECT); 28334500 

LOADINGl*TRUEI 26335000 

FOR K f «=1 STEP 1 UNTIL HC9J.C43J5] DO 28336000 

IF H[K+9]#0 THEN % ROW IS ASSIGNED 28337000 

IF LOADAROW THEN % THERE WAS AN ERROR 28338000 

BEGIN M[P(,,LIBRARYLQAD)],[CFl»»ALPHAJ 28339000 

C0MPLEXSLEEP((I0Dt03»0 OR (I0DC0] AND I OMASK )J»0 )28339100 

ANDCI0D[1J»0 OR CIODCU AND JQMASK)#0 28339110 

) OR DSEDJI 28339200 

BADLOADl 26339500 

BLASTQCU)* 28340000 

P(WAITIO(P004740000020.P377#U)»DEL)1 26340100 

LOADINGl»FALSE» 28341000 

P(DlRECT0RYSEARCH(XCJJ#X[si+n.6)#DEL)* 28342000 

if X[j*2j#ei4 then spacit; 28343000 

GO ENDLOOP; 28344000 

END FLSE CHECKFORSWAP; 28345000 

* SET OMIT ■ NOT B6500L0AD 26345040 

IF NOT B6500 THEN 28345050 

$ POP OMIT 28345060 

IF WAITI0CSPACER»MM»U) # 040 THEN 28345100 

BEGIN N0TL0ADEDC56)» 28345200 

GO TO BADLOADJ 26345400 

ENDI 28345500 

P(DlRECT0RYSEARCHCXtJJ#X[J*-lJ*14)»DEL)l 28346000 

BB * TRUEl X MARK THAT A FILE HAS BEEN LOADED 28346100 

LBMESS(ABS(X[Jl).XtJ+l]»l»0»TINU[UJ»SPOUTUNITtLlBMSG)J 28346000 

L0ADING«*FALSE» 28349000 

S SET OMIT * NOT B6500L0AD 28349890 

IF B6500 THEN GO TO SKIPPER ELSE 26349900 

$ POP OMIT 28349910 

GO FALLOUT* 28350000 

END; 26351000 

IF X[J*23*P14 THEN GO ENDLOOP ELSE 28352000 

FOR K*l STEP 1 UNTIL H[9J, [43(53 DO 28353000 

IF HtK+93*0 THEN 26354000 

BEGIN 28355000 

CHECKFORSWAPI 28356000 

NI«WlBSIZEt«LOADINGt«QJ 28357000 

ICIMI 28358000 

I0| X HEAD HEADER 28359000 

W|*1J 28360000 

FOR Nl*Ht8J DI V 30 ♦ C<Ht83 MOD 30>#0) STEP "1 UNTIL 2 DO 28361000 

BEGIN % SPACE OVER FILE 28362000 

101 26363000 

LAY» MtP(,,LIBRARYL0AD)]itCF3*ALPHA; 28364000 

COMPLEXSLEEP((( 100103 OR JODtU) AND IOMASK)*0 28364500 

OR DSEDJI 28365000 

IF DSED THEN ABORT! 28366000 

N*C(lOD(i) AND !0MASK)i*0)J 28367000 

IF I0DCW3,I27l2]/0 THEN 28368000 



IF 10D[W1, [2711 J THEN X END OF REEL 
BEGIN 

IF NOT ENDOFREEL THEN 
BEGIN 
$ SET OMJT * NOT B6500L0AD 

IF USTROW.UFJ'K THEN 

IF LASTR0W.19I24J LEO N THEN GO ENDLOOP! 



S POP OMIT 



E 

END! 

IF Nl* 

BEGIN 
N 
I 
G 

END! 

end; 
skipper! do until wa 
fallout! while endof 

ENDLOOP! LOADINGi*FA 
IF DSED THE 
END UNTIL X[J!«J 
IF NOT SB THEN 
BEGIN 

STREAMCBB!* 
BEGIN DSM8 
SPOUT (BB)I 
ENDI 

ST0PTIMING(Oil02 

ST0PTIMlNG(5il02 

SETNOTINUSE(U#0) 

$ SET OMIT « PACKET 

IF UNITNOJ»0 

LABELT 

S POP OMIT 

GO INITIATE 
ENDI % OF LIBRARY LO 
PROCEDURE LIBRARYDUM 
BEGIN REAL ALPHA! 

REAL COMMON*-*! 
REAL I»J#T»U»UNI 
REAL Q*MID*FID»M 
REAL RC#BI * ONE 
ARRAY X[*]fS[*Jt 
REAL TOGSI 

DEFINE DISKPARITY * 
DUMPDIR « 



P(WAITI0(P4740000020fP377»U)#DEL» 

WAITI0CP47a00O002O»«»377#U)iDEL)! 
SPACITI 

GO TO ENDLOOPJ 
END! 
IOI 

W|»1*W! 

IF C IODCM] AND I0MASK)»0 OR 1QD[ W J , [27 I 1 J THEN 
NllssNl + 1! 
ND ELSE X PARITY ERROR 
EGIN 

SPACIT! 
GO ENDLOOP! 
ND! 



WAIT FOR LAST READ TO FINISH 



THEN X 

ODIWJipO! 
LAY! 



ITI0CSPACER»MM»U)»P40l 

REEL DO P(WAlTI0(SPACER»P40iU)»DED! 

LSE! 

N ABORT! 

♦2J*P14l 



BB!*SPACE(5>)1 

LIT»NULL LIBRARY LOAD*"! END! 



3)! 
3)! 
! 

S 

AND LABELTABLECUNITN03*8»2i4 THEN 
ABLE tUNlTN0]*P114J 

! 

AD PROCEDURE 
PI 



TN0tDUMPING»W»Y#TM»REEL»IC'N»NliLASTiN2l 
AXiEXP.GTRMAXtK#Ki»SEG#MIDCTR»Sl2E»TYPE! 

10 
AR0Wt*]»HC*J'I0D[*3»UBLt*J! 

TOGS, [47tU#. 
T0GS.[46!1J#» 



28369000 

26370000 
28371000 
28371100 
28371120 
28371140 
28371160 
28371180 
28371200 
28371250 
283H300 
28371350 
28371400 
28372000 
28373000 
28374000 
28375000 
28376000 
28377000 
28378000 
28379000 
28380000 
28381000 
28382000 
28383000 
28384000 
28385Q0S 
28386000 
28387000 
28388000 
28388500 
28389000 
28390000 
28391000 
28392000 
28392200 
26392300 
28392400 
28392500 
28392600 
28392700 
28393000 
28394000 
28395000 
28395999 
28396000 
28397000 
28397004 
28398000 
28399000 
28400000 
28401000 
26402000 
28403000 
26404000 
28404001 
28405000 
28405100 
28405200 
26405300 



NOLBL = T0GS,C45;n#* 26405400 

TAPEPARITY s TOGS, [ 44 I 1 J *« 28405500 

SPOUTUNIT * 0## 28406000 

DSED * (TFRMSET(P1MIX))#* 26406100 

SPACER * 5&P3400[CTFJ## 28406200 

MM * P37700040f| 26406300 

LABEL. TAPEPAR»PARERR»L00P»WATE»DISPAR»GET0NE»NEXTNAME»GETM0RE» 2840 7000 

WRITIT»BACK#8A0HDR»NEXT> 28407100 

LABEL EXITI 28407500 

%******************************************************* 28406000 

DEFINE NOTDUMPeDCNOtoUMPedD =» 28408100 

BEGIN NTllsNOTDUMPEDlI NOdUMPMeSSJ END#S 28408200 

SUBROUTINE NODUMPMESS; 28406300 

LBMESS(XCslJ.XCJ>n»-3»NTl*IF DUMPING THEN TINUlUJ ELSF 0» 28408400 

SP0UTUNIT#1)I 28408500 

%**+**+*+*+++*+***++++++++++*#++++* t******************** 28406600 

SUBROUTINE GETASEGMeNTJ 2840900Q 

BEGIN 28410000 

SEGl»S[29J; 28411000 

0lSKWAITC5,[Cf J»30»SEG); 28412000 

FORGETESPDISK(SEG)! 28413000 

H«2I 28414000 

END* % OF GETASEGMENT 28415000 

% + ** + * + * + + * + + + + * + * + + + ** + + * + + * + + * + + + + * + * + * + +.4.* + + + + + 4:* + + + + 28416000 

SUBROUTINE CHECKFORSWAPJ 28417000 

BEGIN 26416000 

IF (Tt*PRTROW[PlMjXJ t [PSFJ}#0 THEN 26419000 

BEGIN 28420000 

IF T«2 THEN 28421000 

BEGIN 28422000 

I0COUNTtPiMlXJ»»-H 28423000 

STOPM) 28424000 

END ELSE 28425000 

IF T#l THEN SWAP(F0RCESWAP#1); 28426000 

END1 28427000 

IF ELAPSEDLIMITIP1MIX] GTR I OT I MEt PlM I X ) THEN 28428000 

IF PR0CLIMlT[PlMIX]>PR0CTlME[PlMlX3fCL0CK+P(RTR) THEN GO EXIT; 26429000 

FOR T»«SC[P1MIX] STEP 1 UNTIL LCfPlMlXJ DO 28430000 

IF ACTJ VLCT 3>1 THEN 28431000 

BEGIN 28432000 

I0C0UNTCP1MIX] |«-1| 28433000 

SWAP(TIMEND»D) 28434000 

ELAPSEDLIMITtPlMIX)|«*P(DUP)+128» 28435000 

PR0CLIMlT[PlMlX3l«*P(DUP)+64; 28436000 

GO TO EXITI 28437000 

ENOI 28438000 

BX IT I 28439000 

END! % OF CHECKFORSWAP 28440000 

%******************^m********* ************************** 28441000 

SUBROUTINE ABORT? 28442000 

BEGIN 28442500 

IF DUMPING THEN *Jl*J*2 ELSE 28443000 

BEGIN X[J]|«ei4i 28443500 

vJl*-2j 28444000 

END; 28444500 

WHILE XCJl*J+2J#ei4 AND J LSS 1022 DO 28445000 

PCDIRECTORYSEARCHC-X[J],Xt J+13 » 1 3) « DEL) I 28446000 

IF U GEfi THEN 28447000 

BEGIN 28448000 

ST0PTIMING(0,1023); 28449000 



ST0PTIMINGC5.1023)! 28450000 

BLASTG(U); 28451000 

SETN07INUSE(U»0)I 28452000 

END; 26453000 

WHILE SC29J#0 DO GETASEGMENT; 28454000 

* SET OMIT ■ PACKETS 26454999 

IF UNITNO/O AND LABELTABLE t UN I TNO ]*P21 4 THEN 28455001 

LABELTABLE[UNITNO]|801H; 28456000 

t POP OMIT 28456001 

GO TO INITIATE! 28457000 

END; % OF ABORT 28458000 

X*******************************************************************;^*)!^^^^ 

SUBROUTINE SPACITJ 28458600 

BEGIN 28458700 

WHILE WAlTlO(SPACfR»MMiU) t P40 DO 28458800 

BEGIN 28458900 

IF DSED THEN ABORT! 28459000 

CHECKFORSWAPl 28459100 

ENDI 28459200 

P(WAlTI0(tTM]#e40»U)»DEL)» X WRJTE THE TM BACK 28459300 

END? X OF SPACIT 28459400 

X******************************************************************^^^^^ 

SUBROUTINE WRITENDINGLABELJ 28460000 

BEGIN 28461000 

P(WAlTlO([TM3fP40iU)»DEL)J 28462000 

IF DSED THEN ABORTI 28463000 

P(WAITI0CLBL&P5000[CTFJ»P40#U)»DEL)I 28464000 

IF DSED THEN ABORT! 28465000 

ENDI % OF WRITE ENDING LABEL 28466000 

%******************************************************* 28467000 

SUBROUTINE CHECK; 28468000 

BEGIN 26469000 

IF (Y»«I0D[WJ).C27l2J#0 THEN % PARITY ERROR OR EOT 28470000 

BEGIN 28471000 

IF Y,[7tlJ AND Y,C27llJ THEN % END OF TAPE 28472000 

BEGIN 28473000 

IF lODtl-WJ.miJ THEN 28474000 

BEGIN 28475000 

SLEEP(tI0Dtl-Wn»I0MASK)| 28476000 

IF I0Dtl-W),[28»n THEN GO PARERR; 28477000 

lODt 1-W3.127I1 J|»0; 28476000 

END; 28479000 

TAPEPARl LBLt4]|B(*P(DUP)) OR 1; 28480000 

IF LBLm.C 301163*0 THEN SFILEOOO LAST FILE 26480100 

STREAM(A*(J + 4) DIV 2» B*t LBLt 23 J ) ! 28480200 

BEGIN SI*L0C A; DI*DI+5; DS*3 DEC END; 28480300 

P(WAlTI0(tTMJ»?40»U)fDEL)l 28481000 

P(WAITI0(LBL&P5000CCTFJ»P40»U)»DEL); 28482000 

P(WAITI0(tTM].(*40»U)»DEL); 28483000 

SETN0TINUSECU#1); 28484000 

ST0PTIMINGC5.1023)! 28485000 

LBLUJ|«C*PCDUP)) AND NOT(l); 28486000 

STREAM(REEL!«REEL!»REEL+1»LBL)I 28487000 

begin si i «Loe reel; 284S8ooq 

DIlcDI+24; DSl=3 DEC; 26489000 

END! 28490000 

IF (Ut»LABELASCRATCHCLBL)J LSS THEN ABORT; 28491000 

DUMPDIR*TRUEI XDUMP DIRECTORY 28491100 

STARTIMINQ(5»U)J 28492000 

ENO ELSE * PARITY ERROR 26493000 



PARERRI 



BEGIN 



IF Y,mi3 THEN 
BEGIN 

SPACITI 

PCWAITI 

TAPEPAR 

GO TO T 
ENDJ 
DISKPARITY»»TRUEI 



% TAPE 



OCH&*'5000[CTF3»e40»U)»DEUl 

ITY|i«TRUEl 

APEPARI 



ENDI 



END* 



ENDI 

% OF 



SUBROUTINE CHECK 

%************************** 

SUBROUTINE 101 
BEGIN 

IF IC THEN 

IOREQUESTCCIODCW 
S IZEC8 t 38 » 10 
10DCWJ* C lODt 
ELSE 
BEGIN 

DlSKIOC IODCW] »-CA 
30 THEN 30xT 
Nl*N+30J 
S SET OMIT m NOT C ST AT I ST I CS ) 

C0UNTUP(18»T DIV 30); 
S POP OMIT 

ENDI 

ENDI * OF 10 

%************************** 

SUBROUTINE DUMPAROWl 
BEGIN 

Nt * HC8JI SIZE * 9001 
LAST*CQ*HCK*9J)+Ht8J»l 
I0DCUl'N2l«H|«NI«ICi"RCl«0l 

101 % FIRE UP FIRST DI 
W - 1 1 X SWAP BUFFERS 
IF B*CN<N1) THEN* CANNOT DO 
100PI 101 

WATEI MCP(,,LIBRARYDUMP)3,fC 

IF B THEN COMPLEXSLEE 

ELSE X 1 10 

COMPLEXSIEEPCCCC IODCRC])AND 10 

IF DSEO THEN ABORTJ 

N2*N2*l5l* COUNT NUMBE 

W*IF CIODCOJ AND I0DC1 

CCIODC 1) AND IOMA 

r urr K i 

IF DISKPARITY OR TAPEP 
IC*|-IODCWJ t C7ll3SX SW 

IF N<N1 THEN GO TO LOO 
IF N2*30*N THEN 5IZE*T 
IF !0D(H],(24tl] THEN 
IF N2<N THEN BEGIN IOD[W]l»OlR 

DISPARI ENDISOF DUMPAROW 

%^t ************************* 

AiPHA«'(*P<»iUlBRARYDUMP)),r 
Sl"[MCSPACE(30)3H30C8«38ll 

TYPEI«COMMON,tFFJ| 
SC293l«COMMON,tCF3l 



***************************** 



3 ?«< AROWtW J JNX *>500000000)«; 
34TINUCU1C3I3I5J) OR P2017700000* 
W3J&UU2J42I63) 



ROWCWj JnX 0*1)»(T*-IF (T+LAST-Q-N+1) LSS 
ELSE 900>»Q*N)I 



***************************** 

% 
J* 

SK READ 

ROW WITH ONE READ 

F3*ALPHAI 

P((C(I0DU"W3) AND IOMASK)#0) OR DSED) 

MASK)#0) OR DSED)I 

R OF OPERATIONS COMPLETED 

3 AND 10MASK)#0 THEN i-W EUSE 

SK)#0)l 

ARITY THEN GO TO DISPARI 

AP UNITS 

PI* ROW IS NOT FINISHED 

I * CHANGE SIZE FOR UAST RECORD 

GO TO LOOPl* MORE WRITING TO DO 

CJ«1-WIBI*0;G0 TO WATEIENDIXFIX ODD# 

***************************** 

CF3I 
031 



28494000 
28495000 
28495500 
28496000 
28496500 
28497000 
28497500 
28498000 
28499000 
28500000 
28501000 
28502000 
28503000 
28504000 
28505000 
28506000 
28507000 
28508000 
28509000 
26510000 
28511000 
28512000 
28513000 
28514000 
28514099 
28514100 
28514101 
28515000 
28516000 
28517000 
28518000 
28519000 
28520000 
28521000 
28522000 
28523000 
28524000 
28525000 
28526000 
28527000 
28527500 
28527510 
26527520 
28528000 
28529000 
28530000 
28531000 
28532000 
28532500 
28533000 
26534000 
28535000 
28536000 
28537000 
26538000 
28539000 
28539500 
28540000 
28541000 
28542000 



GETASEGMENT; 28543000 

STREAMCMI0»*MIDJ»S[13»BI»PRT[P1MIX»3J); 28544000 

BEGIN DSl«16 L1T"0DIRCTRY0DI5K W IDS|«25 LI T"0"l SI» «L0C MIDI 28545000 

S1I»SI+1IDSI*7 CHRIDSl-8 L J T»0F ILE000" I DS I «24 LlT"0 M l 28546000 

£ND| 28547000 

UNITNQ|!»S[0] t [2l6]J 28548000 

Xl«(M[SPACE(1023)J)|1023[8t36tlO]t 28549000 

MAXfrSfOMCFJI 28550000 

EXP|«S[03tt8»2Jl 28551000 

GTRMAX*S[0J<01 28552000 

XC0JIM14J 28553000 

M0VE(1022»X»tXCUJ)J 28554000 

Ut«*ll 28554500 

GET0NE« 28555000 

IF DSEO THEN ABORT! 28555500 

IF J>26 THEN GETASEGMFNTl 28556000 

IF CSm OR SH + 13X0 THEN SEEKNAMCSU3»S[UlJ»W#XtJ]#X[J+l3»Y} ELSE28557000 

BEGIN 28558000 

XCJ]I«S[I)I 28559000 

XU*lJl«StJ + lJ| 28560000 

WlMI 28561000 

ENDI 28562000 

IF W»*0 THEN 28563000 

BEGIN 28564000 

T*0| 28565000 

K*II 28566000 

FOR N«-J"2 STEP-2 UNTIU 00 28567000 

IF CX[JJ EQV X[N3)*N0T THEN 28568000 

IF (X[J+U EQV X(N*13)»N0T THEN GO TO NEXTNAMEJ 28569000 

IF GTRMAX THEN 28569200 

BEGIN 28569300 

J»»J+2l 28569400 

GO TO NEXTNAMEI 28569500 

END ELSE 28569600 

IF NOT SYSTEMFILE(XCJ3#XCJ*1]) THEN 28570000 

IF (Tl«DlRECT0RYSEARCHCXCJMU3t«7llJtX[J*ll OK M,3>) 28571000 

LSS 64 THEN 28571002 

BEGIN 28572000 

IF DSED THEN ABORT* 28573000 

IF T*l THEN N0TDUMPEDC45) ELSE IF T NEQ 2 THEN Kl»0 28574000 

ELSE N0T0UMPED(25)» 28576000 

GO TO NEXTNAMEI 28577000 

END* 28578000 

IF T GEO 64 THEN 28579000 

BEGIN 28580000 

IF M[T*23#0 THEN 28581000 

IF (USERCOOEtPlMIX] EQV ABS(MCP) )» l N0T THEN 28582000 

IF (USERC00ECP1MIXJ EQV ABSCMtT+23)) NEQ NOT THEN % 28583000 

BEGIN 28584000 

PCDIRECTORYSEARCHeX[J]»XtJ*13»13)»DEL>> 28585000 

N0TDUMPED(41)I 28586000 

GO TO NEXTNAMEI 28588000 

ENDI 28589000 

IF EXP NEQ THEN 28590006 

BEGIN 28591000 

IF EXP THEN 28592000 

BEGIN 28593000 

STREAMCT»»OlAt*CALCULATEPURGE(-M|:T + 3 3^21103))! 28594000 

BEGIN SH*LOC AIDH*L0C TIDSl»8 OCT ENDI 28595000 

IF P GTR MtT + 3J, 1121183 THEN J»*v» + 2 ELSE 28596000 



P(DIRECTORYSEARCH(»XEJJfXCJ*l J#13)»DEL)I 3859 7 000 

END ELSE 28598000 

BEGIN 28599000 

IF M[T*4J,tllilJ THEN J|«J+2 ELSE 28600000 

P(DIRECT0RY5EARCHCX(JJ»XtJ+n»i3)»DEL)l 28601000 

ENDI 28602000 

END ELSE Jl*J+2J 28603000 

ENOJ 28605000 

NEXTNAMEI 28607000 

if csin or sn + nxo then 1*1-2 else w*o* 28608000 

IF T GEO 64 THEN FORGETSPACEC T ) * 28609000 

END? 28610000 

IF K USS I THEN LBMfSSC St 13 » S[ I + 1 ] » -3, 15» 0» SPOUTUNI Tt 1 ) I 28612000 

IF S[I*I + 2Jm4 THEN 28614000 

IF J<(2xMAX) OR GTRMAX THEN GO GETONE ELSE 28615000 

BEGIN 28616000 

LBLl»CMtSPACE(30)n&30C8;3e«l03; 28617000 

J*-2J 28618000 

LBLCOJis-MAX; 28619000 

LBLtlltMID! 28620000 

LBL[28J*0l 28621000 

STREAM(A«-MII)CTR«0NE*1»MID*CMIDJ)I 28622000 

BEGIN SI*LOC A* SI«-SI+7I IF SC**0" THEN 28623000 

BEGIN TALLY*2ISI*MIDIS1*SI*2I5( IF SC«" " THEN JUMP OUT) 28624000 

Sl*Sl + i;TAlLY«-TAUY + l)JA*TALLYJDI*Dl*AJDS*LlT»l"J 28625000 

END ELSE BEGIN DI -DUAJ S 1 *SJ + 161 DS*ADDI END; 26626000 

ENOI 28627000 

MIDCTR*PI 28628000 

C0MM0N*SEG*GETESPDISKJ 28629000 

COMMON, [FF3»*TYPEJ 26630000 

GETMOREl 28631000 

FOR K*2 STEP 2 UNTIL 26 00 28632000 

28633000 

BEGIN 28634000 

LBHK]*XtJ*J + 23l 28635000 

IF LBL[K]»P14 THEN GO WRITITl 28636000 

LBL[K + U»X[J+1]J 28637000 

28638000 

END* 28639000 

WRITITl 28640000 

LBLC29J*IF K# 28 THEN ELSE GETESPDJSKJ 28641000 

DISKWAITCLBL INX 0»30»SEG)J 28642000 

IF K«28 THEN 28643000 

BEGIN 28644000 

SEG*LBLt293l 28645000 

GO GETMOREl 28646000 

ENQJ 28647000 

FORGETSPACE(LBL)! 28648000 

LBMESSCLIBMAIN^.^DISK % 50» 0» 0» SPOUTUN I T t 1 ) I 28649000 

Tl*GETSPACEC12»64#5)+4l 28650000 

IF <J*USERC0DECP1MIX])*A8S(N0T 0) THEN 28651000 

BEGIN 28652000 

J*OJ 28653000 

K+311 28654000 

END ELSE K*26J 28655000 

STREAM(J»COMMON#T)> 28656000 

BEGIN 28657000 

DS*8 LIT"CC USER*"JS1»L0C Jl S I+S \*\t DS*7 CHR! 28658000 

DS*29 LIT-IEXECUTE LI BMA I N/DI SK; C0MM0N«*l 28659000 

DS*8 DEC? DS*6 LI T"l END , *"> 28660000 



END! 28661000 

S SET OMIT 9 NOTCPACKETS) 28661099 

IF PSEUDOMlXtPlMlX] GEO 32 THEN 28661100 

NYM>NZ!PPERrPlMIXl,[2ll J*OI 28661200 

S POP OMIT 28661201 

T*T»PIM IXC 161421 6 J4K(3H3l5n 28661300 

CCARDCT)! 28662000 

$ SET OMIT * NOTCPACKETS) 28662099 

IF PSEUD0MIXCP1MIX3 GEO 32 THEN 28662100 

IF MEMROWCPIMIXJ.CCFJ GEO FENCE THEN 28662200 

DO SWAPCWAITSWAP»1) UNTIL NYLON* I PPERC PtM I X J , [ 2 J t J EUSE 28662300 

SLEEPUNYL0NZJPPERCP1MIX) J»P1000000000000000); 28662400 

t POP OMIT 28662401 

J*T*OJ 28663000 

GO GETONEI 28664000 

END! 28665000 

XtJJ*014j % MARK END OF DIRECTORY 28666000 

IF J*0 THEN 28667000 

BEGIN 28668000 

STREAMCM1D*DI*I1*SPACE(10))J 28669000 

BEGIN DSt*14 LIT W -NUIX LIBRARY "ISI»*L0C MIDI 28670000 

Sll»Sl*llDSl*7 CHRI DSt*LlT"*»; 28671000 

ENDI 28672000 

SPOUTCDI 28673000 

GO TO INITIATE* 28674000 

ENDI 28675000 

TM*0& w >* M [H37Him 28676000 

IF J LSS 900 THEN 28677000 

BEGIN 2B678000 

Tl«SPACECJ+l)l 28679000 

M0VE(J*1»X»T)J 28680000 

FORGETSPACE(X); 28681000 

Xl*tM[TJH(J+l)[8i 381 10 31 28682000 

ENDI 28683000 

REELtMl 28664000 

LBLl*tMCTAPELABELCMlD»FlD»="FILfcOOO ,, #l»l»100)3 3&10C8j38»103J 28685000 

IF CUJ-LABELASCRATCHCLBD) LSS THEN ABORTl 28686000 

STARTIMING(0#18)I 28687000 

STARTIMINGC5iU)l 28688000 

PCWAITlOCX4(vl + l)C8t38ll03&!»5000tCTFJ#P40iU)»DEL)l 28689000 

WRITENDINGLABELI 28690000 

AR0W|>CM[SPACEC2)]U2C8I36I10H 28691000 

AR0W[0]|"[M[SPACEC900))H900I8I38I10JI 28692000 

AROWC13»b[M[SPACE(900)3 3&900C8 « 38 » 10 3 I 28693000 

I0D««IMCSPACEC2)3 3&2C8»38I10 3I 28694000 

Jl*"2l 28695000 

DUMPINGt*TRUEI 28696000 

WHILE X[J*J*23#ei4 DO % 28697000 

BEGINI 28698000 

STREAM(A*C0+2) 01 V 2t B*CLBLt 23 3 ) I 28699000 

BEGIN SItsLOC Al D II »D I *5l DS I *3 DEC ENDI 28700000 

LABELTABLEtU3*-LBLI23l % ENTER FILE ID FOR OL MESSAGE 28701000 

H»"[MCDlRECTORYSEARCHCXCvn#X[J+U»5)3 3UO[B|38ll03l 28702000 

Ht93»«(*P(DUP)) AND 311 28702100 

IF NOLBL THEN NOLBL*FALSE ELSE 28702200 

BEGIN 28702300 

P(WAITIOCLBLSP5OO0CCTF3*P40»U)»DEL)l 28703000 

IF DSED THEN ABORTl 28704000 

P(WAITI0C[TM].P40»U)#DEL)> 28705000 

IF DSED THEN ABORT! 28706000 



END) 28706100 

IF P([H[9J)»L0D»DUP)«0 OR P(XCH)>20 THEN 26706500 

GO TO BADHDRI 28706600 

PCWA!TIO(H&P5000[CTFJtp40»U)»DEl); 28 707000 

BACKI IF DSEO THEN ABORT! 28708000 

FOR KM STEP 1 UNTIL H[9J DO* W«ITE OUT F I LE • ROW BY ROW 28709000 

IF HIK*9]#0 THEN 28710000 

BEGIN 28711000 

OUMPAROW* 28711200 

IF TAPEPARITY THEN 28711300 

BEGIN 28711400 

TAPEPARITYj*FALSE! 28711500 

GO BACK* 28711600 

END! 28711700 

IF 01SKPARITY THEN 28711800 

BEGIN 28711900 

SPACITJ 28712000 

IF DSEO THEN ABORT; 28712190 

BADHDRI 28712195 

Ht"Ht20[8l38llO]f 28712200 

PCWAlTl0(H4P5000tCTF3*P40»U)»DEL)J 28712210 

WRITENDINGLABELI 28712220 

P(D!RECT0RVSEARCHCX[J)iX[J+JJtl3)»DEU)l 28712225 

notdumpeddf diskparity then 35 else 43)1 28712226 

forgetspace(h); 28712230 

diskparityi«false; 28712233 

go to next! 28712235 

END* 28712500 

CHECKFORSWAP* 28713000 

ENDJ 28714000 

FORGETSPACE(H)J 28715000 

WRITENDINQUBEU 28716000 

L8MESS(XCJ]#X[J*t]»3»0tTlNUtUJ»SP0UTUNlT»UIBMSG)J 28717100 

PfOlRECTORYSEARCHC'Xt J]»X[J*U»13)#DEL)II 28 718000 

IF DUMPDIR THEN 28718100 

BEGIN X[0]*P114» X[lJ»J*2l XFLAG X[0] AND OFFSET INTO X[1J 28718110 

LBU2J,t30ll8]J«Oj XFILEOOO 28718120 

P(WAITlO(UBL8P5000tCTn»P40#U)»DEl)< 28718140 

IF DSED THEN ABORT; 28718150 

P(WAITIQ<tTMJi*»0#U>»DEL)l 28 718160 

IF DSED THEN ABORT) 28718170 

I0D[03*0I W*ll SIZE*X,[8I10JJ 28718180 

IOREQUEST(-(IODIW3*CX INX P500000Q00)& 28718182 

SIZEC6|38I10J&TINUCU3C3I3I5}> OR 02017700000. 28718184 

I0D[W)ttI0DCM]nU(12i42|6))l 26716186 

MCP(.»UIBRARYDUMP)],[CF3«*AUPHAI 28718187 

C0MPLEXSUEEP(C((I0DCK3) AND I0MASK>#0> OR DSED); 28718188 

IF DSED THEN ABORT; 26718190 

CHECK; 28718192 

IF NOT I0D[H],[27IU THEN 28718194 

BEGIN WRITFNDINGUBEU DUMPDIR*FALSE END ELSE N0LBL*TRUEI 28718200 

END) 28718210 

NEXTl ENDI*Atb FILES NOW WRITTEN 28719000 

P(WAlTlO([TMJtP40»U)»DEL); 28720000 

ST0PTIMING(0#1023); 28721000 

ST0PTJMINGC5#1023);* 28722000 

SETN0TINUSE(U»1); 28723000 

IF TYPCUNLOAD THEN 28724000 

FOR J*0 STEP 2 WHILE XIJJ#H4 DO 26725000 

IF DIRECT0RYSEARCHC"XtJ3#XU+l3»7)»3 THEN X[ J+2 J ! »P14; 28726000 



IF UNITNOi* 

LABEL 

GO INITIAT 

ENDI % LIBRA 

PROCEDURE LIBR 

BEGIN 

REAL COMMO 

REAL TYPE* 

ARRAY S[*] 

LABEL GETO 

DEFINE DSE 
2********* 

SUBROUTINE 

BEGIN 

IF (T 
BEGIN 



AND 

TABLE 
El 

RY MAINT, 
ARYZEROI 



LABELTABLEtUNITNO]^ 
[UNITNOJ-HHJ 



PROCEDURE 



: P214 THEN 



N»"4l 

SEG* I »J»K»NI»0»N»W»T# THING* ZEROING J 

»XC*J#R5ULT[*3.BUFFADRt*J»IODt*3'Ht*JJ 

NE*LOOP»WATE»EXIT»ARDJ 

D»(TEHMSET(P1MIX))#; 

********************************************** 

checkfqrswapj 

l«PRTHOWtPlMlX],tPSFJ)*0 THEN 

IF T«2 THEN 
BEGIN 

10C0UNT[P1MIX]|«-1J 

STOPM1 
END ELSE 
IF T#i THEN SWAPCF0KCESWAP»1)I 



END? 
IF EL 
IF PR 
FOR T 
IF AC 
BEGIN 



APSEDLIMITCP1MIXJ GTR I OT I MEC P1M I X ] THEN 
0CLIMIT[PIMIXJ>PR0CTIMEIP1MIXJ+CL0CK*P(RTR) 
J«SCtP!MIX3 STEP 1 UNTIL LCCP1MIXJ DO 
TIVECTJM THEN 

IOCOUNTCP1MIX J *wl I 

SWAP(TIMEND»1)> 

ELAPSEDLIMlT[PlMIX]|s*P(DUP)*128l 
PR0CLIMlT[PlMIX]m»P(DUP)*6«l 
GO TO EXIT! 



THEN GO EXIT! 



END! 
EXJT I 

ENDI % OF 

%*******♦* 

SUBROUTINE 
BEGIN 

SEGts 
DJSKW 
FORGE 
I 1*21 
ENDI % OF 
X********* 

SUBROUTINE 
BEGIN 

IF ZE 
BEGIN 
HC43, 
HU], 
DISKW 
FORGE 
ENDI 
WHILE 
GO IN 
ENDI % OF 

SUBROUTINE 
BEGIN 



CHECKFORSWAP 

********************************************** 

GETASEGMfNTI 

St293l 
AIT(-S,CCF3»30*SEG)I 

tespdisk(seg)j 
getasegment 

********************************************** 
ABORTI 

ROING THEN 

t43l2)f«l| 
[2(1] t*OI 

AIT(THlNG,tCFJt30»THING,tFFJ)l 
TSPACE(H)I 

St29] NEQ DO GETASEGMENTl 
I T I ATE? 

ABORT 

********************************************** 

101 



28727000 
28728000 
28729000 
28730000 
28800000 
28801000 
28802000 
28803000 
28804000 
28806000 
28807000 
28807100 
28807120 
28807140 
28807160 
28807180 
28807200 
28807220 
28807240 
28807260 
28807280 
28807300 
28807320 
28807340 
28807360 
28807380 
28807400 
28607420 
28807440 
28807460 
28807480 
28807500 
28807520 
28807540 
28807560 
28807580 
28606000 
26809000 
26610000 
28811000 
28812000 
28813000 
28614000 
28815000 
28816000 
28817000 
28818000 
28621000 
28821500 
28822000 
26822500 
28823000 
28823500 
28824000 
28824250 
28624500 
28827000 
26628000 
26629000 
28830000 



XNO, 
XD1SK 
XBUFF 
XINDE 

XSWAP 
RSULTC 



STREAM(DSKaDRI«Q+N*DJ«( 
BEGIN SU*LOC DSKAD 
RSULT[W3l»0; 
I0REQUEST(*I0D[W3&P377[ 
10D[WH(1F (T 
tcrF]»(W [NX 
N»»N+63I 
END; * OF 10 
X*************************** 

SUBROUTINE ZEROAROWl 
BEGIN 

Nl JsH[83; 

G|*H[K+93; 

Wt»Ol 

ni=o; 

10} 

IF N GEO Nl THEN 

loop; ioi 

watei c0mplexsleepc((<rsultu 
if dsfd then abort! 
w* if (rsulu03 and rsul 
ursultu3 and iom 
if n<n1 then go to loop 
complexsleepuccrsultu 
if osed then abort; 
endi*0f zeroarow 

X*************************** 

Sl"[H[SPACC(30)])l30[8l38|10 
X|«[M[SPACE(1023)3 3&1023[8t3 
TYPE»»C0MM0N,CFFJ; 
St29Jl*C0MMON,[CF J) 
GETASEGMENTl 
X[O3l«014; 

M0VE(1022»X»(X[tl))l 
GETONEI 

IF D5ED THEN ABORT; 

IF I>26 THEN GETASEGMENTl 

X[J]|«S[I1I 

X[J + 13t«SU + U; 

vlt*J*2l 

IF S(i»I+2J#»14 THEN GO GETO 

I0D»"[M[SPACE(8)I3&2t8t38»10 

RSULTl»(2 INX 10D)&16[8l36ll 

BUFFADRt*C4 INX I0D)44[8|38| 

10DC03|»(BUFFA0R INX 0)UC8| 

J0DU3l*(BUFFADR INX 2H1C8; 

Ji**2; 

ZEROINGIBU 

WHILE Xt v |*j*2j#(M4 DO % 

BEGIN 

HI»[M[THINGI«DIRECT0RYS 
IF DSEO THEN ABORT; 
IF THING*0 OR M[THlNG+4 
H[43|s(*PCDUP)H3[43»46 
DISKWAITCTHING,tCFJ»30t 
LBMESS(XCJ3tX[J*iJ.62»0 
FOR K»l STEP 1 UNTIL H[ 
IF HCK+9J#0 THEN BEGIN 
H[43,[43»23«»0; s NO LO 



BUFFADR INX (2xW)))l 
Rl DS1=8DEC; end; 

25U0I83* 

»*N1-N) LSS 63 THEN 512 + T ELSE 512*6 

RSULT)); 



******************************** 



OF SEGMTS/ROW 

ADDR OF ROW 
ER NO, 
X OF SEGMTS 

BUFFERS 
13»*RSULTtl3 OR IOMASK ELSE 

-WJ) AND IOMASK)*0) OR DSED); 

Ul3 AND I0MASK)#0 THEN 1-W ELSE 

ASK)*0)l 

1% ROW IS NOT FINISHED 

-WJ) AND IOMASK) NEQ 05 OR DSED); 



**************************** 

3; 

81103; 



ne; 
3; 
OJ; 
103; 

38tl03&3CS|46i2J; 
38l 103S3[5»46t2J| 



EARCHCXtJ3tX[U+l3»5)3 3&30t8l38ii03; 

J, [43123*3 THEN GO ARD; 

12111 [2i 47| 1J(SVSN0[4|46S2J| 

THING, tFFJ); 

»0»0»1)J 

93,143153 DO* WRITE OUT FILE, ROW BY 

ZEROAROW; CHECKFORSWAP; END! 

NGER SENSITIVE OR BEING ZEROED 



28831000 

28831500 
28831600 
28832000 
3) 28832500 
28833000 
26833500 
28834000 
26834500 
28835000 
28835500 
28836000 
28836500 
28837000 
28837500 
28838000 
28838500 
28839000 
28847000 
28848000 
26649000 
28850000 
28651000 
28652000 
28652100 
28652200 
28853000 
28654000 
28855000 
26656000 
28857000 
28858000 
26659000 
28660000 
28861000 
26662000 
28863000 
26664000 
28665000 
28866000 
28867000 
28868000 
28869000 
28870000 
28871000 
28872000 
28873000 
28877000 
28678000 
28879000 
28880000 
26681000 
28682000 
28862100 
28662200 
28882400 
28883000 
R0K2668400I 
26865000 
28886000 



DISKWAITCTH1NG,[CF]»30.THING,[FFJ)> 26687000 

FORGETSPACECH)) 28688000 . . 

PCDlRtCT0RYSEARCH(XtJ3tXCJ+J Ji6)»DEL)l 28889000 

ARDI 2888955B 

END) 28890000 

GO INITIATE) 28691000 

eNDl % OF LIBRARYZERO 26b92000 

$ SET OMIT * NQTCAUXMEM) 28999999 

PROCEDURE FILLORKILLU* START. SIZE* TYPE); 29000000 

VALUE A. START. SIZE. TYPE* 29001000 

ARRAY A[*J) 29002000 

INTEGER START. SIZE? 29003000 

BOOLEAN TYPE) 29004000 

BEGIN COMMENT START IS A BIT INDEX JN ARRAY A 29005000 

(WHICH IS EITHER A FINE TABLE OR A 29006000 

COARSE TABLE), SIZE IS THE NUMBER 29007000 

OF BITS TO TURN ON OR OFF, TYPE IS 29008000 

USED TO TELL YOU WHICH TO DO, THIS 29009000 

ROUTINE ALSO COMPUTES THE NEW "LONGRUN" 29010000 

VALUE AFTER ALLOCATION OR RETURN, 29011000 

) 29012000 

29013000 

INTEGER I» % CURRENT WORD INDEX IN ARRAY A 29014000 

N» * LAST INDEX EXCEPT FOR OVERFLOW 29015000 

X) % BIT INDEX OF LAST BIT IN LAST WORD 29016000 

REAL J. X TEMPORARY STORAGE FOR A[U 29017000 

T. * TEMPORARY USED FOR RUN SEARCH 29018000 

RUN. % SIZE OF LONG RUN ALREADY FOUND 29019000 

RMASK. * MASK FOR NEXT LARGER RUN 29020000 

MASK; % CONTAINS n AND NOT" OR "OR" MASK 29021000 

29022000 

DEFINE RETURNING * TYPE*) % »0 IF TO ALLOCATE 29023000 

* »1 IF TO RETURN 29024000 

DEFINE STOP * SIZE*) * LAST BIT TO ASSIGN OR RETURN 29025000 

LABEL TRYNEXT. % SEARCH FOR LONGER RUN 29026000 

FOUNDRUN. % STUFF RUN LENGTH IN 29027000 

FINISHUP. % INCREMENT INDEX AND EXIT 29028000 

WHOLEBUNCHOFBITS) % 2*32M» USED IN MASKING 29029000 

29030000 

SUBROUTINE WHATE VERTURNSYOUON) 29031000 

BEGIN T l« J l« AtIM9l39)l 29032000 

IF RETURNING THEN J \* J OR MASK 29033000 

ELSE J I* J AND NOT MASK) 29034000 

COMMENT TURN BITS ON OR OFF--THIS IS THE 29034100 

GUTS OF THE ALLOCATION/RETURN MECHANISM) 29034200 

IF T«U THEN GO TO F1NISHUPI 29035000 

COMMENT IF T*J» NO BITS WERE CHANGED SO THE 29035100 

PRFVIOUS RUN COUNT IS CORRECT, THIS 29035200 

MAY RESULT FROM "ALLOCATION" OF COARSE 29035300 

ENTRIES IN THE FINE ALLOCATION PROCESS) 29035400 

IF m*J)B{RUN!»0) THEN GO TO FOUNDRUN) 29036000 

COMMENT IF J IS ZERO. ITS RUN IS OBVIOUSLY ZERO. TOO) 29036100 

RMASK 1* 1) 29037000 _ _ 

COMMENT NOW TO LOOP AROUND FINDING THE LONGEST 29037100 

XRUNX OF BITS IN THE WORD, NOTE THAT 29037200 

ALTHOUGH THERE ARE REALLY TWO LOOPS. 29037300 

THEY ARE MUTUALLY EXCLUSIVE, THE 29037400 

METHOD USED IS TO TEST THE LOW ORDER 29037500 

BITS AGAINST A MASK FOR EQUALITY. 29037600 J 

INCREASING THE LENGTH OF THE MASK BY 29037700 



ONE 

TEST 

TRYNEXTl! IF CT AND RMAS 

X IF EQUA 

IF (RUNl» 

X WE ONLY 

X BECA 

* THE 

ELSE RMAS 

X THIS IN 

ELSE T »* T.C9 

X IF THE 
IF RMASK LEQ T 
COMMENT IF RMA 
CANN 
FOUNDRUNU AtU I* J & 

finishupi i i* i*1j 

mask «■ pcwhol 
comment becaus 

MUST 
OF T 
POSI 
THE 
OWN 



BIT 

WOR 
K)«R 
L« T 
RUN4- 

CAR 
USE 
USE 

K 19 

CREA 
1383 
RUN 

THE 
SK I 
OT F 
RUNC 



WHEN SUC 
D ONE BI 
MASK THE 
HE RUN I 
i)*a THE 
E ABOUT 
OF THE A 
OF COARS 
RMASK+P 
SES THE 

; 

WAS NOT 
N GO TO 
S GREATE 
IND A LO 
3l42«6Jl 



CESSFUL 
T RIGHT 

N 

S THERE 
N GO TO 
RUNS OF 



and sliding the 
otherwise; 



END DOING YOUR 



EBUNCHOFBITS 
E OF THE SEV 
MOVE THE SE 
HE MASK TO T 
TJONS OF THE 
PROPER PROPA 
THING WHAT E 



FOUNDRUN 
EIGHT OR LESS* 

LLOCATION STRATEGY AND 

E/FINE TABLES, 

CDUPm 

MASK LENGTH BY ONE BIT 

THEREi SLIDE TEST WORD RIGHT 

TRYNEXTl 

R THAN T» YOU OBVIOUSLY 

NGER RUM 



) & MASK[9»4U7j; 
EN-BIT OVERLAP* YOU 
VEN LOW-ORDER BITS 
HE HIGH-ORDER BIT 

NEXT MASK, THIS CAUSES 
GATION OF "CARRIES, "I 
VER IT ISJ 



I 1= STa 
COMMENT 



mask i» 

COMMENT 
WHILE I< 
COMMENT 



MASK l« 
COMMENT 



WHATEVER 
IF X>24 
BEGIN MA 
WHA 
ENDI 
P(XIT)? 
WHOLEBUNCHOFB 
END FILL OR K 
INTEGER PROCEDUR 
VALUE SIZ 
INTEGER SIZ 
BEGIN COMMENT 
IF SUFFI 
(CONTI 
ALLOCA 
THE SE 
AVAILA 
IS NO 

Return 



RT,[37|63) 
I IS THE ST 
N IS THE 
POSSIBLE 
TW0U2-STAR 
TURN ON ALL 
N DO WHATEV 
WHILE I IS 
ALL BITS 
WILL REBU 
MASK-TWOU1 
THIS CODE T 
THE LAST 
THE HIGH 
THE ORDER 

important 
turnsyouon; 

THEN X IT 
SK t* MASK 
TEVERTURNSY 



N «« ( STOP i» START + SUE - l),C37i6]| 
ARTING WORD INDEX IN A' AND 
ENDING INDEX (EXCLUSIVE OF ANY 
CARRYOVER)* 
T t C43l5J)-U 

BITS BELOW THE START POINT! 
ERTURNSYOUONI 

LESS THAN N, TURN ON (OR OFF) 
CLEAR TO THE END, THE SUBROUTINE 
ILD THE MASK ANO INCREMENT II 
•(Xi»ST0P,[43l5J))*ll 
URNS OFF THOSE BITS FOLLOWING 
TO THE END OF THE WORD* LEAVING 
ORDER PART UNCHANGED, NOTE THAT 

OF ARITHMETIC OPERATIONS IS 

(TO AVOID NORMALISATION)* 

VERFLOWS INTO THE NEXT WORD 
AND NOT P(WHOLEBUNCHOFBITS)! 
OUON 



ITSIU $277777777771 

ILL A FEW BITS* 

E AUXILIARYSPACE(SIZE)> 

EJ 

e; 

cient auxiliary memory space exists 
guously, of course). auxspace will 

TE IT AND REMOVE H FROM THE BjT TABLES, 
ARCH HAS BEEN OPTIMIZED TO DETERMINE 
BILITY, AND WILL RETURN A ZERO IF THERE 
SUCH SPACE AVAILABLE, THE VALUE 
ED IF SPACE IS ALLOCATED IS A PSEUDO- 



29037800 
29037900 
29038000 
29038100 
29039000 
29039100 
29039200 
29039300 
29040000 
29040100 
29041000 
29041100 
29042000 
29042100 
29042200 
29043000 
29044000 
29045000 
29045100 
29045200 
29045300 
29045400 
29045500 
29046000 
29047000 
29048000 
29048100 
29048200 
29048300 
29049000 
29049100 
29050000 
29050100 
29050200 
29050300 
29051000 
29051100 
29051200 
29051300 
29051400 
29051500 
29052000 
29053000 
29054000 
29055000 
29056000 
29057000 
29058000 
29059000 
29100000 
29101000 
29102000 
29103000 
29104000 
29105000 
29106000 
29107000 
29108000 
29109000 
29110000 



DALOC ENTRY* OF A FORM NICE FOR STUFFING INTO 2*111000 

ABSENT DESCRIPTORS AND FOR CALLING UPON 29U2000 

ACTUALOVERLAYADDRESS WITH, 29113000 

* 29H4000 

29H5000 

INTEGER CFRONT * + 1** PSEUDONYM FOR AUX I LI ARYSPACE 29116000 

INTEGER CBITS, % NUMBER OF COARSE BITS NEEDED 29ll?000 

MASK, x MASKS OFF PROPER RUN LENGTH 29l I / 1 

INDEX. % CTABLE OR FTABLE INDEX 29117200 

I» Nl 29118000 

REAL J* 29118100 

29119000 

ARRAY COARSETABLEtH* 29120000 

FINETABLE l*U 29121000 

29121100 

DEFINE LONGRUN ■ £3|61*» 29122000 

ALL0CATE(ALL0CATEl#ALL0CATE2iALL0CATE3) * 29122100 

F I LLORK I LL( ALLOCATED ALLOC ATE2» ALLOC ATE3#0)#* 29122200 

29123000 

SUBROUTINE FINESEARCH* 29124000 

BEGIN COMMENT ATTEMPT TO ALLOCATE FROM ONE 29125000 

TO SEVEN CONTIGUOUS BITS 29126000 

FROM THE BACK OF THE FINE TABLE* 29127000 

FOR 11*63 STFP "I UNTIL DO 29128000 

IF FINETABLEtU.LONGRUN GE« SUE THEN 29129000 

BEGIN J Is FINETABLEtl M9J39]* 29129100 

COMMENT AT LAST WE GET TO USE THE "LONGRUN" INDICATORS 29129150 

WHICH WE HAVE SO PATIENTLY BUILT EVERY TIME 29129200 

THROUGH FILLORKILL, THE MECHANISM IS 29129300 

USED SO THAT THE WORST CASE (AUXILIARY 29129400 

MEMORY NOT AVAILABLE) CAN BE HANDLED 29129500 

WITH THE UTMOST DISPATCH* AND WILL CAUSE ONLY 29129600 

MINOR DEGRADATION IN THE DISK ALLOCATION PROCESS* 29129700 

MASK t* TWOCSIZED-ll N ** 32"S1ZE* 29130000 

WHILE (J AND MaSK)#MaSK DO 29131000 

begin mask i* Mask+pcduP); n i* n-i end* 29132000 

comment starting at the low end of the word* 29132100 

slide the mask left until we find 29132200 

the first acceptable run, because of 29132300 

the "longrun" mechanism, we know 29132400 

WE WILL FIND SUCH A SET OF BITS; 29132500 

ALLOCATECFINETABLEt CFRONT I *32* I+N, SIZE); 29133000 

COMMENT ALLOCATE "SIZE" BITS FROM THE FINE TABLE* 29133100 

ALLOCATE(COARSETABLE» CFRONT , [ 36 I 9 ] . 29134000 

((CFRONT, [451 3]*S1ZE)>8)+1) I 29135000 

COMMENT ALLOCATE FROM THE COARSE TABLE EITHER 29135100 

ONE OR TWO BITS. DEPENDING ON WHETHER 29135200 

WE OVERLAP THE END OF A SET OF EIGHT 29135300 

FINE BITS CORRESPONDING TO A GIVEN 29135400 

COARSE BIT, NOTE THAT ONE (OR BOTH) 29135500 

OF THESE BITS MAY ALREADY BE OFF. BUT 29135600 

IT IS QUICKER TO "RE-ALLOCATE" THEM 29135700 

THAN TO TEST FOR IT SPECIALLY* 29135800 

1 «■ 29136000 

END 29137000 

END* 29138000 

29139000 

SUBROUTINE COARSESEARCH* 29140000 

BEGIN COMMENT SEARCHES FOR AND ALLOCATES 29141000 

SPACE FROM COARSE AND FINE 29142000 



TABLES. USING COARSE TABLE 29143000 

TO FIND THE AREA* AND FINE 29144000 

TABLE TO SQUEEZE OUT GAPS) 29145000 

FOR ll«0 STEP 1 UNTIL 7 DO 29146000 

IF (J «» COARSETABLEtHJtLONGRUN GEO CBITS THEN 29147000 

BEGIN COMMENT THERE IS SUFFICIENT SPACE IN THIS WORDI 29148000 

MASK »s (NOT 0),[9|39]*TW0(39-CBITS)*1I N J* -71 29149000 

WHILE (J AND MASK)*MASK DO 29150000 

BEGIN MASK I* MASK, [9*383; N «» N+l END) 29151000 

COMMENT SLIDE MASK RIGHT UNTIL YOU FIND THE FIRST 29152000 

SUFFICIENTLY LONG RUN, NOTE THAT BIT 29153000 

SIXTEEN IS THE ZERO POINT* SINCE THE 29154000 

PRECEDING BITS ARE "CARRIES"* 29155000 

CFRONT »* 32xI*NI 29156000 

COMMENT NOW CHECK FINE TABLE TO SEE 29157000 

HOW FAR YOU CAN BACK UP 29158000 

THIS ENTRY. USING THE 29159000 

"NORMALISED" CFRONT TO 29160000 

GIVE THE FINE INDEX, 29161000 

NOTE THAT. SINCE WE TOOK 29162000 

THE FIRST AVAILABLE SPACE 29163000 

OF SUFFICIENT SIZE FROM 29164000 

THE COARSE TABLEt WE CAN 29165000 

BACK UP SEVEN OR LESS BITS 29166000 

BY USING THE FINE TABLE. NOTE THAT 29167000 

THE SEVEN'BIT OVERLAP IN EACH 29168000 

WORD IS BOTH NECESSARY AND 29169000 

SUFFICIENT, 29170000 

? 29171000 

STREAM(Ni*0 i CFR0NTt43l46j2]| % 8x(CFR0NT MOD 4) 29172000 

T»«F1 NET ABLEtC FRONT.! 39I7JJ)* 29173000 

BEGIN SIlsLOe Tl SItoSl+lf 29174000 

SKIP 3 SB* SKIP N SB? 29175000 

7CIF SB THEN TALLY » "TALLY+1 29176000 

ELSE TALLYl»0| SKIP SB)I 29177000 

Nl*TALLY 29178000 

END* 29179000 

IF P(DUP)>(SIZEM),(45I3J 29180000 

THEN CBITS l» CBITS-U 29181000 

COMMENT IF TEST WAS PASSED. WE SAVED A COARSE BITl 29182000 

ALLOCATECCOARSETABLE. CFRONT, CBITS)* 29163000 

CFRONT l« P(CHS)+8xCFR0NTI 29184000 

ALLOCATECFINETABLE* CFRONT. SIZE)* 29185000 

I J* 7 29186000 

END 29187000 

ENDI 29186000 

29189000 

SUBROUTINE SEARCH* 29190000 

BEGIN 29190100 

IF (<<INDEX«1) AND P( RRR) , [ 30 1 1 3 ) OR 29190150 

(C!NDEX«0) AND P(RRR) , ( 31 1 1 J ) ) THEN 29190160 

IF N0T(UNITC16+INDEX],[14|1]) THEN X CHECK FOR AUXMEM ERRORS 29190200 

IF (COARSETABLE I" CTABLEJ INDEX 3 ) , I CF 3*0 THEN 29191000 

BEGIN FINETABLE I* FTABLEt INDEX 3 1 29192000 

IF SIZE<8 THEN FINESEARCH 29193000 

ELSE COARSESEARCH 29194000 

ENDI 29195000 

ENDI 29195100 

29196000 
2*******************************X 29197000 



29198000 

IF SIZE >1022 THEN PCO.RTN)* 2919900§ 

IF (SIZE l« SIZE.I38I6J + IX8 THEN INDEX I* 1 29200000 

ELSE CBITS t« CSIZE*7),139I6J1 29201000 

CFRONT I* -1* SEARCH) 29202000 

IF CFRONT<0 THEN 29203000 

BEGIN INDEX J* 1-INDEX* SEARCH ENDI 29204000 

IF CFRONKO THEN CFRONT i« 29205000 

ELSE CFRONT «* CFRONT & C 1 4 + I NOEX ) I 33 « 44 |4 3 * 29206000 

END AUXIL1ARYSPACE* 29207000 

PROCEDURE FORGETAUXILIARYSPACECSIZE#LOc)I 29300000 

VALUE SIZE* LOC; 29301000 

INTEGER SIZE* LOC* 29302000 

BEGIN COMMENT RETURNS AUXILIARY MEMORY SPACE 29303000 

TO THE FINE AND COARSE TABLES. 29304000 

EXAMINES BOUNDARY CONDITIONS TO 29305000 

DETERMINE WHETHER COARSE TABLE 29306000 

UPDATE IS REQUIRED* MARKS FINE 29307000 

TABLF ENTRIES IN ANY EVENT! 29308000 

29308100 

INTEGER FIRST* 29309000 

LAST* 29310000 

TABLE* 29311000 

INDEX* 29312000 

29312100 

ARRAY FINETABLE[*3* 29313000 

29313100 

DEFINE RETURN(RETURN1»RETURN2»RETURN3) * 29314000 

F!LL0RKlLL(RETURNl,RETURN2*RETUKN3»l)iH 29 315000 

29316000 

BOOLEAN SUBROUTINE NOTALLTHERE* 29317000 

BEGIN;STREAM(Nt*INDEX AND 24| 29318000 

Tj«NOT FINETABLEUNDEX, [37*633}* 29319000 

BEGIN SIt*L0C T| SII»SI+2j SKIP 3 SB* SKIP N SB* 29320000 

8CSKIP SB; IF SB THEN TALLY 1*13* Nl»TALLY 29321000 

END* 29322000 

NOTALLTHERE »■ POLISH 29323000 

END* 29324000 

29325000 

RETURN( FI NET ABLE* »FT ABLE [TABLE l*LOC,[ 361 1)]» 29326000 

L0C«BL0C,[37»in»(SIZEi»SIZEtC38l63)+l)» 29327000 

FIRST is (INDEX i« LOC > • t 37 I 8 J I 29328000 

IF NOTALLTHERE THEN FIRST »« FIRST*!* 29329000 

IF (LAST «■ (INDEX »* LOC+S I ZE) . t 37 I 83 ) <F I RST THEN P(XJT)* 29330000 

IF NOTALLTHERE THEN 29331000 

IF (LASTlwLASTMXFlRST THEN P(XlT)* 29332000 

RETURN(CTABLE[TABLE3» FlRSTt LAST-F IRST+1 ) * 29333000 

END FORGETTING AUXILIARY MEMORY SPACE* 29334000 

PROCEDURE AUXILIARYTABLEINJTIALIZEJ 29400000 

BEGIN INTEGER AREA. 29401000 

INDEX* 29402000 

29403000 

label coni* 29404000 

C0N2j 29405000 

BOOLEAN B* 29406000 

SUBROUTINE SETUPARRA YROWf 29410000 

BEGIN COMMENT SETS UP COARSETABLE AND FJNETABLE 29411000 

ENTRIES FOR AVAILABLE ROW "INDEX" (0 OR 1)* 29412000 

IP AREAwO THEN AREA l« GETSPACEC 74.0. 1 )+2* 29413000 

M[AREA*13 I* P(C0N2)* MOVE( 71 » AREA + 1 »P(DUP ) + l ) > 29414000 



MUREA + 9) im MtAREAJ is P(C0N1); M[AREA*8] I* 01 

CTABLEUNDEX3 I* [MUREA 33 & 9t 6 1 36f 10 J & AREAtCTF.ll 
FTABUECINDEX] l» [M[AREA*933 & 65[8|38|103; 



END) 



SUBROUTINE WHOLETHINGI 
BEGIN AREA I* CT ABIE [ I NDEX ] , [ FF 3 ; 
IF NOT B THEN 

BEGIN IF ARFA#0 AND AREA<PRT , [ CF 3 THEN 
BEGIN FORGETSPACECAREA); AlEA Is 
CTABLEtlNDEX] t* & AREA[CTF3J 
FTABLEt INDEX] S* 
ELSE SETUPARRAYROWJ 



o end; 



END 



ENDi 



%****m******* ************************************** 



P(RRR),[3llUl 
P(RRR),t30llJl 



INDEX I* 01 B !• USEDRA AND 

INDEX «■ l; B »* USEDRB A*D 

PC X IT >1 

CONUtl 00100037777777777; 
C0N2IU P0lQ7777777777777l 
ENDI 

procedure auxiliaRymemorycasualtyrecoveRyj 

begin comment recovers "lost" auxiliary memory 
used for data storage for a job 
which terminated abnormally} 
real j» rslt» iodj 

INTEGER It 
T» 
INDEX! 



whOLething; 
wholfthing* 



ARRAY 
LABEL 



AC*]; 

LOOP, 
EXIT, 
DONE? 



SUBROUTINE F IRSTAIDl 

BEGIN IF CAt«FTABLECINDEX]) 



then go to exit* 



» CI 1*0) 
L00PI IF I, [36113 THEN GO TO EXlTl 

IF CJ I* (NOT All, C37I6J3), [16l323)s0 THEN 
BEGIN I l» (I OR 31) + U GO TO LOOP END* 
STREAMCJl Sl*I.[43i5]» Nl»P(DUP, 32* XCH» SUB)); 
BEGIN SII«LOC J; SIMSI+2; 
SKIP 3 sb; skip S SBI 
NCSKIP SBI IF SB THEN JUMP OUTI 

TALLYt»TALLY>l)J 
Jl»TALLY 



end; 

IF I 
IOD 



TO 



loop; 



,[36i73*C! I»PCXCH)+I),t36l73 THEN GO 
t« T R It2t47lij & (UINDEXH4I46123 
1CBI38M0) & I118I37U1J; 
IOREQUESTCNABSCIOD)f I0D» CRSLT J&C 1 6+ INDEX ) C 12 I 42 | 63 ) I 
RSLT l» 0| 

SLEEPCIRSLT3»I0MASK)| 

IF RSLT, [26173 NEQ THEN * AUXMEM ERROR 
BEGIN 

auxdata[p1mixj l» 01 go to done! 
end; 

CJl*M[T3)>0 AND J,[CF3»P1MIX THEN 



IF 



29415000 
29416000 
29417000 
29418000 
29419000 
29420000 
29421000 
29422000 
29423000 
29424000 
29425000 
29426000 
29427000 
29428000 
29429000 
29430000 
29431000 
29432000 
29433000 
29434000 
29435000 
29436000 
29500000 
29501000 
29502000 
29503000 
29504000 
29505000 
29507000 
29509000 
29510000 
29511000 
29512000 
29513000 
29514000 
29515000 
29516000 
29517000 
29518000 
29520000 
29521000 
29522000 
29523000 
29524000 
29525000 
29526000 
29527000 
29528000 
29529000 
29530000 
29531000 
29531100 
29531200 
29531300 
29531400 
29531500 
29531600 
29531700 
29531800 
29532000 



BEGIN FORGETAUXILIARVSPACECJ.tFFlt I & I NDEX t 36 t 47 1 1 3 ) ; 29533000 

IF CAUXDATA[PlMjX] I* *P( DUP )- J , [ 23 I 6 3*1 3 * 29534000 

THEN GO TO DONE! 29535000 

ENDI 29536000 

I I* I+J, [23I6J+11 29537000 

GO TO LOOP! 29538000 

EXITM 29539000 

END FIRSTAIDJ 29540000 

29541000 

IF AUXDAlA[P!MiXJwO THEN P ( X I 7 > i 29542000 

T I* GETSPACE(l0,Q>5)+3* 29543000 

WAITSTORE(PIMIX); STQREDY CP1M I X ) » «0; 29544000 

FIRSTAID; INDEX I* 1) FIRSTAIDJ 29546000 

OONEPl FORGETSPACECT-Dl 29547000 

t SET OMIT * NOTCDEBUGGING) OR OMjT 29547049 

IF AUXDATA[P1MIX]#0 THEN DDTI 29547050 

S POP OMIT 29547051 

STOREDYCPlMIX)t*l; 29546000 

END CASUALTY RECOVERY OF STORAGE THROUGH LINKS IN AUX MEMI 29549000 

t POP OMIT 29549001 

COMMENT ERRORMESSER IS CALLED BY ERR0RF1XER (IF OPTION 33 IS ON) TO 30900000 

TYPE OUT A PSEUDO"TERMINAL MESSAGE. IT DOES ABOUT THE SAME 30901000 

THING AS THE FIRST PART OF TERM I NALMESSAGEJ 30902000 

PROCEDURE ERRORMESSERCTYPE); VALUE TYPE' REAL TYPE* 30903000 

BEGIN INTEGER S. ADR » BF » SA »N; 30904000 

NAME SO' 30905000 

Label l; 30906000 

BF I s SPACEC 10) I 30907000 

SD*PRT[P1M1X»4)| 30908000 

NT1*SD[0J| 30909000 

ADR*M[PRT[P1MIX,8J3,[CFJ; 30910000 

FOR S*l STEP 1 UNTIL NTl DO 30911000 

IF CSA*SD[S3.C18tl53)>t023 AND SASADR AND SD[SJ>0 THEN 30912000 

IF M[SAM J,U8I15J + SA*ADR THEN GO L* 30913000 

S*OI 30914000 

LI SD*[M[SPACE(TERMSGSZ) ]]; 30915000 

ADR*ADR-SAS 30916000 

DISKKAIT(-(SD INX 0) . TERMSGS* * MESSAGET ABLE! 1 J . [ 22 * 263 ) I 30917000 

N*IF TYPE»1 THEN ll ELSE IF TYPE»2 THEN 9 ELSE IF TYPE«4 THEN 30918000 

7 ELSE IF TYPE'S THEN 13 ELSE 51 30919000 

STREAM(M*[SDtN3 3»J*CJAR[PlMiX.03 J#P1MIX#S#ADR»X*S#0.BF)I 30920000 

BEGIN SI*M| SI*SI + ?; DS*6 CHR; BF*DP DI*LQC MJ Sl*Sl + U 30921000 

DI*DI+7l DS*CHRI DI*BFl DS*M CHRJ DS*8 LIT" BRANCH "J 30922000 

SI*J? SI*SI*1» DS*7 CHR» DS*LlT"/"; 30923000 

SI*SI + U DS*7CHRl DS*LlT"«"; SI*LOC PlMJX; 30924000 

DS*2DECI BF*DI» DI*DI*2; DS*FlLLl D1*BFJ 30924500 

X(pS*5 LIT"* S * w l SI*L0C S; DS*4 DEC? DS*5 LJT"» A «"l 30925000 

DS*4 DECI BF*DI; DI*DI*4| DS*3 FILL; 30926000 

DI*BFJ 01*01*131 DS*3 FILL)I 30927000 

Dl*BFI OS* LIT"*"; 30928000 

ENDI 30929000 

F0RGETSPACE(SD)1 30929500 

SPOUTERCBF»0#ERRORMSG>) 30930000 

END ERRORMeSSERI 30931000 

PROCEDURE ERRORFIXERCTYPEJ* VALUE TYPE; INTEGER TYPE; 31000000 

COMMENT LOOKS FOR RUN-TIME-ERROR ACTION LABELS IN ALGOL PROGRAMS* 31001000 

AND HANDLES THEM* RETURNING ONLY IF NO LABEL GIVEN; 31002000 

BEGIN ARRAY A I T C * J » PRTD C * 3 » 31003000 

NAME ADDRJ 31004000 

REAL It GOT* ADR»ADDR»LABLEI 31005000 



CHECKSTACKSPACE1 
IF 
IF 
IF( 
BEG 
STR 
BE 
IF 
M[A 



PRTD * P 

WHILE ( 

MAK 

I*AIT[0] 

DO 1*1-1 

IF GOT T 
BEGIN IF 
IF 
IF 
BEG 



GO 

END 
RTROW 
AIT*P 
EPRFS 
+ 11 
UNTI 

*TY 
HEN % 
(LAB 
LABLE 
LABLE 
IN IF 

BEG 

END 
ADD 



TYPE «2 
JARCP1M 
PRTCP1M 
IN I*M[ 
EAMf I*( 
GIN SI* 
G0T,[45 
DR*2)*P 
PRTl 
TO INIT 

[P1MIX] 

RTD 

ENTCEPK 

L((GOT* 
PE)) OR 

WILL R 
LE*M[ A 
#15 THE 
.BLKCNT 

PRTD 

IN PRTD 

ASRJ 

J IFC AD 

LABLE 

R*ADDR& 



THENXOVRFLW 
IX»2) ( [3HJ THEN 
IX#P5UAND P20)#0 THEN 
ADR*PRT[PlMlX t 8J INX 0)J 
I INX Q)4I[30llO»2).GOWGQT3)l 
i;SI«-SI-2JDI*DI+6IDS*2 CHR ENDJ 
133*5 THEN MUDR-33*P/777777777777) 
7777777777777771 
P1MIX»P51)»[45|2J*2J 

I ate; 



i 

tAlTNDXJ)tPBlTBO DO 
TD CAITNDX33 INX 



0) 



(ADDR*AlTtI]),OWNBlT AND ( ADR.CCF3 
( I<1))J % LOOK FOR ENTRY 
E.1N1 TI ATE THE GUY» SO SET HIM UP 
DR,MQMJ)*0 THEN 
N 
R<C PRTD t 16 J+( LABLE, MOM^O)) THEN 

CCURBLKCNTR3>LABLE t BLKCNTR THEN 
[CURBLKCNTR]*LABLEtBLKCNTR+l» 

DR*LABLE*M0M)*O THEN 
,M0M*ADDR*PRTDCt0).M0M+2! 
ADRC33I 335 15J J 



* SET OMIT » PACKETS 
$ POP OMIT 



IF FRRORMSG THEN 



ERRORMESSER(TYPE); 

IF PRTDCLABLE,[CFJ3,PBIT*0 THEN 

MAKEPHESENTCtPRTDtlABLE|[CFJJJ.CCF])l 
DO UNTIL(*<ADDR*HUNT(ADDR+1))), U 133*4 J 
ADDR [1J*M[PRTD 18] INX NOT 03J 
ADDR [2]*M[PRTD I 8 3 )40t 10 I 10 I 2 )& 
(LABLEH18I18U5 3&PRTD [ (LABLE 3 , t CF 3 3 [ 33 I 33 1 15 3 J 

PRTD C83*P(DUP#L0D)&(ADDR INX 2>[ 331 331 153 I 
GO INITIATE! 



ENDJ ENDJ 
END ERRORFIXERJ 
PROCEDURE SKIPFILE(U» 

BEGIN REAL Tl 
NAME NJ 
LABEL l» 
N |« C Tl 
T2MQMAS 
IODJ»SPA 

LI IOREQUFS 
K l» 1-K 
NCO] I* 
N l» K I 
WA1T0RSW 
IF NIOJ, 
IF PRTRO 
BEGIN IF 



D)» value u»d; real u»d; 
»T2. iod*k; 



IF 
GO 



EX 
31 
Kj 
CE 
T( 
1 

0J 
NX 
AP 
C2 
W[ 
( 

NT 

TO 



ITI 



(2)*H400[CTFJ*TINU[UJt3» 315)401221471 131 
NABS(l0D)49377(25M0l8)»l0D«[N)4UC12i42l6]); 



[T1)J 
(U»[N3.CCF3)> 
7113 THEN GO TO EXlTl 
PlMIX) f [PSF3 * THEN 
NT3»«PRTR0W[PlMIX) t [PSF))«l THEN 
TERMINALMES5AGE(PRTR0WCP1MIX),£FU)J 
3*2 THEN STOPM ELSE SWAP(FORCESWAPt 1 ) J 

l; 



1005010 
1005050 
1005100 
1005200 
1005300 
1005310 
1005320 
1005330 
1005350 
1005400 
1005500 
1005600 
1006100 
1007000 
1008000 
1009000 
1010000 
1011000 
1012000 
1013000 
1013050 
1013100 
1014000 
1015000 
1016000 
1017000 
1017100 
1017200 
1017209 
101721© 
1017211 
1017220 
1017300 
1017400 
1018000 
1019000 
1020000 
1021000 
1022000 
1023000 
1024000 
1025000 
1100000 
1101000 
1102000 
1102100 
1102200 
1102300 
1103000 
1104000 
1105000 
1106000 
1107000 
1108000 
1109000 
1110000 
1111000 
1112000 
1113000 
1114000 



END J 3111bOO0 

IF MEMR0H[P1MIXJ,[CFJ<FENCE THEN GO TO Ll 31115100 

IF ELAPSEDLJMIT[P1M1X} GTR I OT I ME I P1M I X J XR5931116000 

THEN GO TO LI XR5931116100 

FOR NT3 I* SCCP1MIXJ STEP 1 UNTIL LCtPlMlX] 00 31117000 

IF ACT I VECNT33 GTR 1 THEN XDS31118000 

BEGIN SWAP(TIMEN0»1); GO TO L; ENQJ 31119000 

ELAPSEDLIMITtPlMIXJU*P(DUP)*64; 31120000 

GO TO l; 31121000 

EXITIBLASTQ(U)J 31122000 

FORGETSPACE(IOO)! 31123000 

END) 31124000 

REAL PROCEOURE F I NDOUTPUT ( M I D» F I D» T YPE » FORMS. REEL. CDATE* CYCLE* KIND ) I % 37000000 

VALUE MlD»Fin»TYPE»FORMS»REEL»CDATE»CYCLE»X 37001000 

REAL MlO»FID#TYPE»FORMS»REEL»CDATE#CYCLEtKJND»X 37002000 

BEGIN INTEGER GOTL. GOTT , GOTB. GOTPt GOTC * 37003000 

REAL UJ 37003100 

label ex i t» sw» 0n» wt » around* ouk i d»x, round. cla i mt# there* some where* 37004000 

$ set omit » not(packets) 37004199 

Real fReefj label frfelj * file to be printed alone 37004200 

$ POP OMIT 37004201 

label Wi»w2»w3»w«»w5.w6»w7j xp 37005000 

DEFINE 0$ED*(TFRMSETCP1MIX))#J 37006000 

LABEL CP»MT.SU»PP.CKFM»D0IT0VERJ *P 37007000 

DEFINE PNTOG*<TYPE*0 OR TYPE GEO 20)#J 37007100 

SWITCH TYPESW*CP»ROUND»MT,SU»ROUND»SU»ROUND»PP»PP»MT> IP 37008000 

REAL SUBROUTINE PRINTER!* 37009000 

BEGIN IF LABELTABLE[20]*0 THEN BEGIN U*20j P(l) END ELSE* 37010000 

IF LABELTABLE[2U*0 THEN BEGIN U*21J P(l) END ELSE PCO)J* 37011000 

PRINTER*G0TL*PU 37012000 

END PRINTER!* 37013000 

REAL SUBROUTINE PTPUNCHJ* 37014000 

BEGIN IF LABELTABLEC26]»0 THEN BEGIN U*26; P(l) END ELSE* 37015000 

IF LABELTABLE[29)«0 THEN BEGIN U*29; P(l) END ELSE PC0)JX 37016000 

PTPUNCH*G0TP*PJ* 37017000 

END PTPUNCHI* 37018000 

REAL Tl.T2.T3l* 37019000 

REAL SUBROUTINE PUNCH)* 37019100 

BEGIN IF LAB£LTABLEt22J*0 THEN BEGIN U*22>P(1) END ELSE P(0)l 37019200 

PUNCH*GOTC*P> 37019300 

END PUNCH! 37019400 

REAL SUBROUTINE MAGTAPE;* 37020000 

BEGIN IF NOT(GOTL OR GOTB OR GOTO THEN* 37021000 

BEGIN IF Tl#0 THEN* 37022000 

BEGIN FOR U*0 STEP 1 UNTIL 15 DO* 37023000 

IF CMULTITABLIIU] E«JV Ti)«NOT THEN* 37024000 

IF LABELTABLECU3<0 TH£N* 37025000 

IF RDCTABLE[U3«C8I6J*P1MIX THEN* 37026000 

IF CT3*PRNTABLECUJ)<0 THEN* 37027000 

IF MCMCT3, t 151 151-33 JNX 5J,Ut»U THENX 37028000 

BEGIN PCI)! GO OWT END!* 37029000 

END)* 37030000 

FOR U*Q STEP X UNTIL 15 DO* 37031000 

IF LABELTABLECUJsO AND PRNTABLE [UJ , [ 1 tl 1 XR9137032000 

THEN BEGIN P(l)» GO OWT? END! XR9137032100 

ENDJX 37033000 

PCO)J* 37034000 

OWTl MAGTAPE*GOTT*-PJ* 37035000 

END MAGTAPEI* 37036000 

SUBROUTINE BADFMl XBUILD AND SPOUT BAD FM MESSAGE * 37036100 



BEGIN XRHR 37036200 

T1I»5PACE(10)> 37036300 

STREAM(A*TINU[U3#MX*P1MIX,T1)I XRHR 37036400 

BEGIN DS*19 LIT "INVALID INPUT UNIT ") XRHR 37036500 

SI*L0C MX; DS*2 DEC) DS*2 LIT"FM"; *RHR 37036600 

si*lqc a; si*si+5; ds*3 chr; xrhr 37036800 

ds*lit "*"; di*di-8) ds*fillj xrhr 37036900 

end; spoutctdj hrhr 37037000 

labeltable[uj*0114; ready*ready and cu*not twocu)); 37037100 

rrrmech*rrrmfch and ul saveword*saveword and ul *rhr 37037200 

end badfm subroutini xrhr 37037300 

real subroutine bkuptapeu 37038000 

begin if notcgotl or goto then 37039000 

for u*0 step 1 until 15 do* 37040000 

if uabeltablecu] eqv t3)«n0t thenx 37041000 

if (multitablecu] eov t2)»n0t then* 37042000 

BEGIN P(l)l GO AROUND ENDI* 37043000 

P(0);* 37044000 

AROUND! BKUPTAPE*GOTB*P;X 37045000 

END BKUPTAPEJ* 37046000 

$ SET OMIT « NOTCPACKETS) 37046004 

FREEF»TYPEttlJl]l TYPE*ABS( TYPE ) * 37046001 

$ POP OMJT 37046006 

IF TYPE>1 AND TYPF*4 AND TYPE*6 AND TYPE<15 THEN GO SOMEWHERE! 37046020 

ROUND! IF TYPE*1 OR TYPE*4 OR (TYPE>16 AND TYPE<19) THEN 37046040 

IF PRINTER THEN BEGIN KINO»H G<> CKFM END; *P 37046060 

IF TYPE«0 OR (TYPE>20 AND TYPE) THEN 37046070 

IF PUNCH THEN BEGIN KIND*6; GO CKFM END! 37046075 

IF TYPE«4 OR TYPE*6 OR TYPE*16 OR TYPE*18 OR 37046080 

(TYPE GEO 20 AND NOT TYPE , t 46 ? 1 i» ) THEN 37046090 

BEGIN T1*0! T2MF TYPE GEO 20 THEN "PUTMCP " ELSE "PBTMCP "J 37046100 

T3*ei222l2342546447! 37046110 

IF BKUPTAPE THEN GO THERE; XP 37046120 

IF MAGTAPE THEN XP 37046140 

CLAIMTI BEGIN MULT I TABLEt U J*T2I LABELT ABLEt U J*-T3! IP 37046160 

RDCTABLEtU],[8*63*PlMIX; 3/046162 

RRRMECH*TWO(U) OR RRRMECHI XP 37046170 

IF REEL«0 THEN REEL*l! 37046175 

Tl !« SPACE(lO)+2» 37046180 

STREAMCUI*TINU[U3tNjwPRNTABLE[U3,C30|l83, 37046190 

A»REEL»B*OATE#C*CYCLEtD*0»PN*TYPE GEO 20# 37046192 

T*Tl-2)! 37046194 

BEGIN DSM2LIT" NEW PBT 0N M ; SI*LOC U; SI*SI+5; XP 37046200 

PN(D*DI! DI*DI-6; DS*2L I T"UT M J DI*D)I 37046205 

DS»3 CHR;0S*25LIT«* LABEL OPBTMCP OBACK«UP";XP 37046210 

PN(D*DI! DI*DI*14; DS*2L I T"UT"; DI*D)! 37046212 

SI I* LOC Al DS t* 3 DEC! 37046215 

S1*SI*3> DS*5 CHR! SI*SI+6;DS*2 CHR! 37046217 

15(DSis2 LIT"0 W )JDII«DI"11;SJI»L0C NJ 37046220 

DSl«5 DEC! 37046221 

ENDI %P 37046240 

P(WAlTl0(TU8(8|38llQl45C2ll45l3J#0»U>iDEL)l XP 37046269 

SP0UTCT1-2)! 37046270 

Tl.Cll 11JJ*?1737! 37046280 

P(WAIT10(CTU»0»U)fOEL); XP 37046300 

THERE! LABELTABLECU3,tl!5J*P20! KIND*7l GO EXIT %P 37046320 

ENDI END! %P 37046340 

IF (TYPE GEO 15 AND TYPE LEQ 18) OR TYPE GEO 22 THEN 37046350 

BEGIN 37046360 

* SET OMIT ■« NOTCPACKETS) 37046369 



IF (T1»bPSEUD0MIX[P1MIXJ)*Q AND TYPE<22 AND NOT FREEF THEN 37046370 

BEGIN 37046360 

Tll»Tl-32l 37046390 

T2»»PACKETPBD[T13? 37046400 

T3f*CIDTABUE[Tl#6 3 ( [6J243» 37046410 

IF T2»0 OR T3«0 OR (T2+1Q)>1000 THEN GO FREEL? 37046420 

PACKETPBDtTU»«T2+10> 37046430 

END ELSE 37046440 

* POP OMIT 37046441 

BEGIN 37046450 

$ SET OMIT * NOTCPACKETS) 37046459 

FREEL? 37046460 

8 POP OMIT 37046461 

T3l»NEXTCDNUM(l)» 37046470 

T2l*00U 37046480 

END; 37046490 

KINDl»12? 37046500 

STREAM(T3#T?,D»*T1»=U»«SPACEC30))J 37046520 

BEGIN 37046530 

DS*8 LlT w 0«*+l f 0l3 M JDS«-24 LlT w O M ? 37046540 

DS»«7 LIT"8400000"JDS?*10 LIT"0"; 37046560 

SIl«LOC T3?SI?*Sl+4? DSl*4 CHR? 37046580 

SIt«LOC T2? DSI"3 DEC? 37046590 

46(DS*4 LIT M 0")| 3/046600 

END? M[ri + n*H[Tl+8J* PBDRQMSZ + U 37046620 

S SET OMIT - NOT(SHAREDISK) 37046624 

M[Ti+43.t«l2Jl»SYSNOl 37046625 

$ POP OMIT 37046626 

M[TI+53*MID«(TYPE G£Q 22)[3|47»U? X PNCH BK UP TOG 37046630 

GO EXIT %? 37046640 

END? XP 37046660 

W3l F1LEMESS("# ,, tfl w «;(IF TYPE"6 OR TYPE»20 THEN " w ELSE 37046680 

(IF PNTOG THEN "CP" ELSE "LP" ) ) [ 12 J 361123 37046690 

&CIF TYPE<2 THEN " " ELSE IF TYPE GEO 20 THEN 37046700 

"PUT* ELSE "PBT")[30l30tl63t 37046710 

(IF TYPE<2 THEN "RQD " ELSE " MT RQD" ) »M I D# F ID» 37046720 

REEL»CDATE»CYCLE)? 37046740 

REPLY CP1MI X 3 * » -V0K&VWY[36842:6HV0U[30»42»6J> 37046742 

IF tMFMCPlMlX,MLINKUI t tCF3>FENCE THEN SWAPC WAl TSWAPi 1 ) ? 37046750 

COMPLEXSLEEP(((IF CTYPE#6 AND TYPE#20> THEN IF PNTOG THEN 37046760 

PUNCH ELSE PRINTER ELSE 0) OR REPUY [P1MJ X J 37046770 

>0 OR(IF TYPE>1 THEN BKUPTAPE OR MAGTAPE ELSE 0) OR 37046780 

DSED))? IF DSED THEN GO INITIATE? XP 37046800 

IF NOT(G0T8 OR GOTT OR GOTL OR GOTO THEN 37046820 

BEGIN 37046838 

IF NOT WHYSLEEP(V0K«VWY[36U2l6J&V0Ut30«42l63) THEN GO TO W3; 37046840 

IF REPLYIP1MIX]*V0K THEN GO TO W3? 37046850 

IF PNTOG THEN BEGIN U*REPlY [P1MI X J , [FF ] J GO CP END? 37046855 

OUKIDI TYPEMF (U»REPLY[ P1M I X J , t FF J )»1 THEN 4 ELSE XP 37046860 

IF U*2 THEN 1 ELSE IF U*3 THEN 6 ELSE 15? 37046680 

REPLYtPlMiX]*0? GO ROUND? XP 37046900 

END? REPLY[P1MIX]*0? XP 37046920 

IF GOTB THEN GO THERE ELSE IF GOTT THEN GO CLAJMT ELSE 37046940 

IF GOTC THEN KlND*6 ELSE KINDM? 37046950 

CKFMl IF FORMS THEN XP 37046960 

BEGIN UBELTABLECU3*-FID? MULT I TABLE C U 3*M I D? XP 37046980 

RDCTABLEIU3,C8|63*P1MIX| 37046990 

N7» FILEMESSC"*,,, FM"&TINU[U3 C 121 301 183 t M RGD w t XP 37047000 

MIDtFID»REEL»CDATE»CYCLE)? 37047100 

REPLY[P1MIX]* -VWY&V0KC36J 421 63&VOUC 301 42 >63&VFMt 241 42|63? 37047105 



EN 

SOMEWHERE! 

Wll BEGIN 



IF CMEMCPIMJX.MLINKJ J 

SWAP(WAITShAP»l) 
COMPLEXSLEEP(CREPLY[P 
IF REPLYCP1MIX]»V0K T 
IF NOT WHYSLEEPCVWY&V 
V0UC30l42t63&VFMC24l4 
KlND*LABELTABLEtU]*MU 
IF NOT DSEO THEN IF R 
IF(U*REPUYtPiMlX3,CFF 
BEGIN BADFM) GO ROUND 
BEGIN LABEUTABLECU3*- 

MULTlTABLE[U]*Mi 

GO EXIT J 

LSE GO OUKIDI 



X 

CP« 

X 

PPI 

W4| 



X 

SUi 



ONI 
W5l 



X 
MTl 

W6 t 



END E 
OJ GO X| 
IF FORM 
REPUYCP 
FILEMES 
IF [MEM 
COMPLEX 
IF DSED 
IF NOT 
U*REPLY 
IF NOT 
IF U LS 
IF PRNT 
GO TO X 



J,[CF3*FENCE THEN 

ELSE 
1MIX]>0 OR DSED))I 
HEN GO EXIT? 
0KC36M2I6J& 
21 63 > THEN GO TO W7J 
LT IT ABLE tU]»GOTL*-RDCl ABLE tU3*U*Ol 
EPLY(PlMIX],tCFJ»VFM THEN XRHR 
J)*20 AND U*21 THEN XRHR 

END ELSE XRHR 

FID* RDCTABLECU) t [B»6J*PtMlXJ 

Dl KiND*UNiTtU) f U«<U; XRHR 

XRHR 
XRHR 



XP 



S THEN 

1MIX3*-VWY&VFMI3 
S("#FM RQD"«0»MI 
[PlMlXtMLINKlJJi 
SLEEP((REPLYCP1M 
THEN GO TO I NI T 
WHYSLEEP(VWY8VFM 
CPlMlX3,tl8«15JI 
USED THEN 
S 16 THEN 
ABLEEUJ.tim TH 
IX 



XP 

XP 



6i42l6)j> 

D»FID'REEL»CDATE»CYCLE)JX 
FENCE THEN SWAP(WAITSWAP»1) 
1XJ>Q) OR DSEDm 
IATEIX 

13614216]) THEN GO TO Mill 
REPLY[P1MIX3#-0|X 



EN ELSE GO TO SOMEWHERE* 



ELSE 



ENDIX 
GO TO 



TYPESWLTYPEJlX 



TYPE*IF 
IF 



'1 THEN 
<5 THEN 



21 ELSE IF 
ELSE 22S 



U»3 THEN 20 ELSE 
REPLYtPlMIXJ*0> GO 



ROUND! 



IF NOT PTPUNCH THENX 

BEGIN FlLEMESSC"#PP RQD"» 0,M I D# F I D» REEL»CDATE » C YCLE ) I X 

IF OUTWAIT(PTPUNCH) THEN GO TO W4| 

IF NOT PTPUNCH THEN GO TO W4I 
ENDIX 
GO TO XIX 

Tl»riO,l6|181lX 

FOR U*0 STEP 1 UNTIL 31 DOX 
IF TTNUCUJ* t30lldJ*Tl THEN GO ONIX 
GO TO MT|X 

IF LABELTABLEIUJ#0 THEN* 

BEGIN FILEMESSC*#,,, "&TU 1 2 I 30» 18J » "ROD "»X 
MID»FID»REELtCDATE» CYCLE) IX 

IF 0UTWAIT(1,ABELTABLECU]*0) THEN GO TO W5I 

IF LABELTABLE[U]i«0 THEN GO TO W5I 
ENDIX 
GO TO XIX 

Tl«-M!DlX 

IF NOT MAGTAPE THENX 

BEGIN FILEMESS("#MT ROD" » 0»M I D» F I D»REEL#€DATE» C YCLE ) I X 
IF OUTWAITCMAGTAPE) THEN GO TO W6I 
IF DSED THEN 
BEGIN 

U*MI 

GO TO EXIT1 



37047110 
37047120 
37047200 
37047300 
37047400 
37047410 
37047500 
37047600 
3704760S 
37047610 
37047625 
37047650 
37047660 
37047670 
37047700 
37047800 
37048000 
37049000 
37049500 
37050000 
37051000 
37052000 
37053000 
37053100 
37053200 
37053300 
37054000 
37055000 
37056000 
37057000 
37058000 
37059000 
37084000 
37085000 
37086000 
37087000 
37088000 
37093000 
37094000 
37095000 
37096000 
37097000 
37098000 
37099000 
37100000 
37101000 
37102000 
37103000 
37104000 
37109000 
37U0O0O 
37111000 
37U2000 
37113000 
37114000 
37115000 
37115100 
37U5200 
37U5300 
37115400 



end; 
if not magtape then go to w6j 
end;* 

IF (Tl*PRNTABLEtUM15ll5])#0 THEN* 
BEGIN FILECL0SECTU3C 181331 151) JI 
M[M[Tl-3] 1NX 53,[39I4J*1I» 

end;* 



* 

XI 



KIN0*UNMCU3,C1I4J|I 
LABELTABLECUJ+-FID; MULT I TABLE [ U J*M ! 01 X 
R0CTABLE[U]*P(0UP»L0D)&REELCHI38|1038,C0ATE[24»31U7) 
4CYCLEt41l4il7HPlMlX[8l42l6]J 
EXITl FJNDOUTPUUUI* 
END FJNDOUTPUTJ* 

REAL PROCEDURE F I ND 1 NPUT C M 1 D« F I D*REEL» CD ATE » CYCLE* COBOL* UL» OF* MODE* FN) I 

VALUE MID»FID#REEL»CDATE»CYCLE»COBOL* qf»mode»fn;x 
REAL MID*FID»REEL»CDATE»CYCLE*C0B0L*UL»0F»M0DE»FNU 
BEGIN REAL Tl.T2»U*L0»HI»FlRST»ILJ 

Real a=cobol; 

INTEGER S.COUNTl 

INTEGER USASI*ILI 

ARRAY FPB*LQfOJ 

lABEL LOOK»SEE»SRCHOUTI 

LABEL START* WHY f SXlT.Xf Y» READALABEL* REW» EX I T > 

LABEL ONN»DUN»FAILJ 

DEFINE UNLABELED * UL#> 

DEFINE DSED*CTERMSET(P1MIX))#I 

SUBROUTINE CHECKTERMIXi 
BEGIN 

IF DSED THEN 
BEGIN 

IF (JAR[P1MIX»0J EOV M LIBMAIN")«N0T AND 

(JARtPtMlXtl) EQV "DISK ")«NOT THEN 
BEGIN 

U*-1J 

GO TO exit; 
END ELSE GO TO INITIATE! 
END) 
END! * CHECKTERMIX 

REAL SUBROUTINE SEARCH** 
BEGIN COUNT-OJ IF NOT DSED THEN 
$ SET OMIT * NOTCPACKETS) 

BEGIN IFCL0I«{HH«PSEUD0MIX(P1MIXJ)) NEQ THEN 
BEGIN IF S GEO THEN 

IF(LABELTABLECLQ3 EQV C-P14)*N0T 0) THEN 
COMPLEXSLEEPCCLABELTABLEtLOJ EQV (-P14)) NEQ NOT 0)1 
$ POP OMJT 
* SET OMIT * PACKETS 

BEGIN IF (L0l»JAR[PlMlX»6j.t2»6J) GE» 32 THEN HH*LO ELSE 
BEGIN HI>*LOI*OJ GO TO FAIL? END* 
» POP OMJT 

LOOKi FOR U*LO STEP 1 UNTIL HI DO* 

IF CLABELTABLEtUl EQV FJD)*N0T THEN* 

IF CMULTITABLItUJ EQV MJD)*NOT THEN* 

IF (<Tl*RDCTABLEtU)),tl4U0]«REEL) OR CREEL*0) THEN* 

IF (T1,[24I173*CDATE) OR CCDAT&«0) THEN* 

IF (Tl,t41l7J*CYCLE) OR (CYCLE*0) THEN* 



37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 
37 



115500 

116000 

121000 

122000 

123000 

124000 

125000 

172000 

173000 

174000 

174100 

174200 

175000 

176000 

177000 

178000 

179000 

180000 

180100 

160200 

180300 

180400 

180500 

180600 

180650 

180700 

180990 

181000 

185300 

185310 

185320 

185330 

185340 

185350 

185360 

185370 

185380 

165390 

185400 

185410 

185420 

185990 

186000 

187000 

187099 

187100 

187110 

187120 

187130 

187131 

187999 

188000 

188100 

188101 

169000 

190000 

191000 

192000 

193000 

194000 



BEGIN 37195000 

* SET OMIT * NOT(PACKETS) 37195009 

IF LO/HI AND L0»32 THEN 37195010 

IF PACKETACT[U-32J*0 THEN GO TO FAIL? 37195020 

$ POP OMIT 37195021 

C0UNTl«C0UNT+U P(U.XCH>! 37195030 

ENDJ 37195040 

FAIL! 37195050 

$ SET OMIT * NOTCPACKETS) 37195099 

EN01 37195100 

£ POP OMIT 37195101 

IF LO ■ HI THEN IF COUNT ■ 1 THEN GO SEE ELSE 37195200 

IF L0*0 THEN IF (LO I ■ JARCP1M I X# 6 J , C 2l 6 J )*23 OR LG»24 37195250 

THEN HI l»LO ELSE GO TO ONN ELSE 37195280 

ONNJ BEGIN L0»«32l Hl!«35! END ELSE 37195300 

IF L0«32 THEN BEGIN L0l«23! HI«»24! END ELSE 37195350 

IF L0«23 THEN BEGIN LQ«" 0! HHM5I END ELSE GO TO DUN! 37195400 

GO TO LOOKJ 37195450 

DUNI IF CYCLE. [1IU THEN * PBT 37195500 

BEGIN 37195550 

IF C0UNT«0 THEN IF FID, 1 1 « 53<3 THEN 37195600 

BEGIN FID, CU5]*F1D, [1153 + 11 37195650 

L0»0! HI*15! GO LOOKJ 37195700 

END ELSE F ID* C 1 1 5 J » 1 1 37195758 

GO SRCHOUTJ 37195800 

END; 37195850 

IF C0UNT*0 THEN 37196200 

IF MID#0 THEN* 37197000 

IF NOT CDATE,U»JJ THEN * NOT LIBMAIN/DJSK 37197500 

FOR U-0 STEP 1 UNTIL 15 DO* 37198000 

IF CMULTITABLECU] EQV MJD)«NQT THEN* 37199000 

IF <RDCTABLECUM24»17J*CDATE) OR CCDATE=0) THEN 37199100 

IF LABELTABLE[U3>0 THEN* 37200000 

BEGIN C0UNT*C0UNT+11 37201000 

P(U»XCH); 37202000 

END ELSE* 37203000 

IF RDCTABLECU]»[8»6J*P1M!X THEN* 37204000 

IF CT1*M[M[PRNTABL£[UJ,[15»15J-3J INX 5]),[«H1J THEN 37205000 

IF Tl, [43IU OR Tl,[40»13»0 THEN* 37206000 

BEGIN C0UNT«-C0UNT + 1! P(U.XCH) END! 37207000 

SEEI 37207500 

ENDI 37208000 

SRCHOUTI 37208500 

SEAKCH*S-C0UNT>0$ 37209000 

END SEARCH!* 37210000 

37210090 

REAL SUBROUTINE RESEARCH! 37210100 

BEGIN 37210150 

S SET OMIT * NOT PACKETS 37210170 

S«»-2! 37210175 

S POP OMIT 37210186 

PCSEARCH)! 37210200 

DO PCDEL) UNTIL C COUNT J *C0UNT-1 ) tSS 0! 37210250 

RESEARCHES! 37210300 

END RESEARCH! 37210400 

37210990 

REAL SUBROUTINE REED!* 37211000 

BEGIN IF CH»NAlTl0(Tl»L0l"3miei33ll5J»U) AND P367)#0 THEN 37212000 

IF (HI AND NOT L0)#0 THEN 37213000 

BEGIN BLASTQ(U)! SETNOT INUSE( U. ) ! STOPT IM I NG( FN. 1023) ! 37214000 



END 



FIlEMrSSC*"PARITY "»"0N ,,. -&T I NU[ U 3 [ 24 1 30 J 18 
MlD«FID»KEEL»CDATLfCYCLL)l* 

end;* 

if dsed then 

BEGIN 

SETN0TINUSE(U»0); 

STOPTlMlNGCFNt 1023)J 

CHECKTLRMiXJ 
ENDI 

REED*HIIX 
REED;* 



SUBROUTINE SEARCHCOMJ X FILE SEARCH FOR COM 30 
BEGIN PCDEL); 

IF NOT SEARCH THEN U»*-l ELSE 

IF COUNTM THEN U««P ELSE 

BEGIN 

siwcount; t i 1*01 

COUNTlaiF C0UNT>6 THEN 8 ELSE COUNT; 
WHILE (C0UNT»*C0UNT-1) GEO DO 
BEGIN Ul*P; 

IF Tl THEN 
BEGIN 

Tll«0; MCAJ,[30llb]|»TlNUCU].[30U8JJ 
Ai*A+l) 
END ELSE 
BEGIN 

Tll»tl M[AJ,tl2»163 5«l INUCUJ*C30I183< 
END* 
END> 

Ui«-s; 

END> 
GO EXITI 

end; 



STARTI* 
I 
IF 
IF 

WHY! BE 



F UL<0 TH 

UL THEN 

NOT SEAR 

GIN FILEM 

FIRST 

IF CO 

FI 

REPLY 

IFCME 

COMPL 
CHECK 
IF S 
BEGIN 



EN SE 

GO TO 

CH TH 

ESSC" 

|»VOK 

BOL T 

RSTI* 

CP1MI 

MIP1M 

SWAP 

EXSLE 

TERMI 

THEN 

IF N 

IF C 

BEGI 



ARCHCOM EL 

WHY ELSE 
EN* 

#N0 FIL"»0 
&VWYC36I42 
HEN 

FIRSUCVOF 
X] — FIRST& 
IX»MLINK1J 
(WAITSWAP# 
EPCRESEARC 
X; 

S*SEARCH E 

OT WHYSLEE 

T2I«(T1I«R 

N STREAMCT 

BEGIN Si 

LL» SI 

SI 

ENDI 

T2I«PI 

NAMEID(H 

NAMEIDCH 

FORGETSP 



SE 

% 



»MlDtFID»REELiCDATE»CYCLE)l* 
»63&VUU[30l42|6J*VlUt2AI42«6]l 

x0F)[l6|42»6]&(VFRxUL)C12l42l6]; 

H2I47UJ* 

JtCCFUFENCE THEN 

u; 

H OR (REPLYIP1MIXJ>0) OR DSED); 

LSE 

P(FIRST) THEN GO TO WHY; 

EPLY[PlMIX]) t [FF]) GTR 64 THEN % 

21); x 

l«T2* 

I«SI + W IF SC*"L" THEN GO TO LL; 

»«si*i; T2«*si; 



I»T2>; MIDI*H1I NAMEID(HI»T2); 
IiT2); FID»»HH 
ACE(Tl.tFF3-l)l 



}*% 37215000 

37216000 
37217000 
37218000 
37218100 
37218200 
37218300 
37218400 
37219000 
37220000 
37221000 
37221090 
37221100 
37221120 
37221140 
37221160 
37221180 
37221200 
37221220 
37221240 
37221260 
37221280 
37221300 
37221320 
37221340 
37221360 
37221380 
37221400 
37221420 
37221440 
37221460 
37221480 
37221500 
37221520 
37221990 
37222000 
37222100 
37222500 
37223000 
37224000 
37225000 
37225050 
37225100 
37226OQ0 
37226100 
37226200 
37227000 
37228000 
37229000 
37229500 
IL 37230000 
MID/FID37230250 
37230500 
37230750 
37231000 
37231250 
37231500 
37232000 
37232250 
37232500 



GO TO Y! 37232750 

END? 37233000 

IF T1«V0K THEN GO TO YJ % OK 37233250 

IF NOT CIH«T1,(CF3»VJL) THEN % OF* FR 37233500 

BEGIN U»*-iJ 37233750 

REPLYtPlMIXJ j*0; 37234000 

GO TO EXIT; 37234250 

END; 37234500 

UNLABELED*-LABELT ABLE [U*T 1,(18 1 153 3»P314;» 37235000 

PCU); 37235100 

COUNTJM; 37235250 

IF LABELTABLE(U3*0 THEN 37235500 

BEGIN MULTITABLE[U1«*MID; 37235750 

LABELTABUECUJI»FID» 37236000 

END ELSE 37236250 

BEGIN MIDI*MULTITA8LE[UJ.[6U2JI 37236500 

FIDl*LABELT ABLE CU3, (61423; 37236750 

END; 37237000 

END; 37238000 

REPLYtPiMIXKOl* 37239000 

ENDIX 37240000 

IF COUNTM THEN 37240100 

SXIT1 BEGIN FIL£MESS( H #DUP "»"FIL "»M ID* F IP* REEL* CDATE » CYCLE ) J 37240200 

WHILE (C0UNT*C0UNl-n>0 DO 37240300 

BEGIN IF CU*P)<16 THEN IF MlD*Q THEN 37240400 

IF (T1*PRNTABLE£U3,I15I153)#0 THEN 37240500 

FILECL0St(THP12[18»33ll51); 37240600 

STREAM(Xl»tTlNUtUJ]« D » »S « "SPACE C 10) ) I 37240700 

begin si*x; si+si+5; d&*6 lit " dup on "i 37240800 

ds*3 chr; ds*lit m *"; 37240900 

X*Di; 37240910 

END; 37241000 

T1*P; 37241010 

IF UJ32 THEN IF C1DR0W(U -323*0 THEN 37241020 

STREAM(DK*CIDTABLEIU -32.23»U); 37241030 

BEGIN DI-Dl-i; DS-6 LIT ".DECK "; 37241040 

SI*L0C DK» Sl*SI+i; DS*7 CHR; 37241050 

END; 37241060 

END; 37241200 

REPLY[PlMlX]t« "VNYtV0K(36t42l6UVIL[30l42l6]J 37241300 

IFtMEM[PlMIXfMLINKlJJ t CCFJ*FENCE THEN 37241310 

SWAP(WAITSWAPtl) ELSE 37241320 

COMPLEXSLEEPCDSED OR ( REPLY [ PlM 1 X ]>0 ) ) ; 37241400 

CHECKTERMJX; 37241500 

IF (T1*REPLY[P1MIX]),[33«153»VIL THEN 37241510 

BEGIN REPLYCP1MIX3*0; 37241520 

IF T1,[FF3 > 36 THEN GO SXIT; 37241525 

PCT1, (181153); 37241530 

GO TO X; 37241540 

END; 37241550 

IF NOT WHYSLEEPCVWY&V0K[36l42$63*VIL(30l42«63> THEN 37241600 

BEGIN Sl«SEARCHI GO TO SXIT; END; 37241610 

Yl REPLY£P1MIX)*.0; GO TO START; 37241700 

END; 37241800 

X« 37241810 

LABELTABLE(U*P3,[H53*P20; 37241900 

RDCTABLECU3,(8I63*P1MIX; 3 7241910 

IF NOT UNLABELED THEN 37242000 

BEGIN FPBl*PRT(PlMIX»33; 37242100 

FPB[FN3»»MID» 37242200 



FPBtFN+lJl-FIDI 37242300 

END* 37242400 

IF U LSS 16 THEN 37242600 

IF MID#0 THEN 37242600 

BEGIN IF (Tl*PRNTABLEtUJ. C15ll5])*0 THENX 37243000 

BEGIN FIUECL0SE(TU3tl8l33U5J)l* 37244000 

M[M[Tl-33 INX 53.[39I4J*1J* 37245000 

END)* 37246000 

X 37247000 

RRRMECH*TW0(U) OR RRRMECHI START I MI NGCFN, U ) i 37248000 

IF UNLABELED OR IL OR CYCLE. CUU THEN GO EXITI 37248500 

Tl J* SPACE(ll)«10(8l38llOJlMOOE[21l47»U 37249000 

&3C23»46i2J;X 37250000 

L0*?40i FIRST*1>X 37251000 

READALABEL! IF REED * THEN IF FIRST THEN* 37252000 

REWt BEGIN FIRST*WAITIO(P4200000000»0#U); GO READALABEL END ELSE 37253000 

BEGIN SETN0TINUSE(U#1)J F0R&ETSPACE C Tl , I 33 1 15] ) I 37254000 

ST0PTJMINGCFN.1023); GO TO START END* 37255000 

STREAM(YJ*Q»X!«0*T1); 37255100 

BEGIN DU'LOC X; DSl«8 LIT "V0L1HDR l w ; 37255200 

Sl!*Ti; DIiaDI-8; 37255300 

IF 4 SC*DC THEN TALLYiM ELSE 37255400 

BEGIN SI l»Tlf IF 4 SC«DC THEN TALLY!*2; END; 37255500 

YJ»TALLYJ 37255700 

END? 37255800 

IFCUSA51 l"P)>0 THEN USAS I TAPE C T 1 , [CF I * USAS I » 2* U . ) i 37255900 

STREAM(M*0#F*0»R*0»D*0»C*0JS*T1 INX 1)1% 37256000 

BEGIN SI*S; DI*LOC Ml DS*2 WDS; DS«-3 QCTlX 37257000 

DS*5 OCTI DS*2 QCTlX 37258000 

ENDJX 37259000 

IF (P*CYCLE OR CYCLE=0) AND <P( XCH )*CDATE OR CDATE*0) AND* 37260000 

(PCXCH)sREEL OR REEL»0)AND (CP(XCH) E«V FID)*NOT 0} ANDX 37261000 

f(PCXCH) EOV MID)*N0T 0) THENX 37262000 

BEGIN F0RGETSPACE(Tl,C33li3J)| T 1*0340000005* X 37263000 

L0*0IT1*REEDI GO TO EXITlX 37264000 

END>X 37265000 

IF FIRST THEN GO RENJX 37266000 

L0l*P60| DO UNTIL ( F 1 RST I «REED ) . t 42 1 1J » DO UNTIL HEED.C42U3I 37267000 

IF USASI>0 THEN DO UNTIL REED. [42113 ELSE FIRSTl*REEDI 37267050 

LO*04O* GO READALABEL; 37267100 

ENDJX 37268000 

EXIT! FINDINPUT*U;X 37269000 

END FJNDINPUTJX 37270000 

PROCEDURE STARTIMINGCFN.U); VALUE FN#U; REAL FN.UIX 37271000 

BEGIN ARRAY FPBI*J* INTEGER I»JI* 37272000 

FPB*PRT[P1MIX»3J;X 37273000 

IF U<32 THEN 37273100 

BEGIN IF FPB[FN+4J*0 THEN 37274000 

BEGIN IF (I*FPBtFN*3],t36l6J)#0 THENX 37275000 

IF I#U*1 THEN IF (I*FPB»[8»10'J)S(1023-ETRLNU) THENX 37276000 

BEGIN J*GETSPACE(I+ETRLNG»2.1)+2IX 37277000 

* SET OMIT m SHAREDISK 37277999 

MOVEC ItFPB»J)l» 37278000 

S POP OMIT 37278001 

$ SET OMIT * NOT SHAREDISK 37278099 

M0VEU + 1»FPB INX NOT 0»v»-l);* 37278100 

$ POP OMIT 37278101 

M0VE(ETRLNG»[FPBIFN]3»J+I);X 37278200 

F0RGETSPACE(FPEM33U5]>JX 37279000 

FPBDCP1MIX] ♦ 37279100 



PKT[PlMIX»3J*FPB*CM[J];ii( I +ETRLNGM 813811031* 3 7280000 

FPBLFN+4]*0; FPB[FN+3],124I12]»0;X 37281000 

END)* 37282000 

FPB[FN + 4 3«-FPBtFN + 4)-CL0CK*P(RTR);X 3728 3000 

FPB[FN*33,[36t63*U+lJX 37284000 

IF U LSS 16 THEN * RDC & PRN LOG ENTRIES 37264100 

BEGIN 37284U0 

STREAM(RI«RDCTABLE[U],[t4llOJ»DI"RDCTABLE[U;j,l24|17Jf 37284120 

C!»RDCTABLECUJ.t4H7j#Tl*CFPBtFN+2J3>i 37284130 

BEGIN SII«L0C R» DSJ83DEC) DSl«5DEC; DSl»DEC; END; 37284140 

FPBtFN*3].t6ll71l«PRNTABLEtUJ,I31U7]l 37284150 

ENDJ 37284310 

END END ELSE 37285000 

BEGIN IF Cl*FPB[FN+43)<0 THEN 37285100 

BEGIN FPB{FN + 43*WCL0CK + P(RTR); I *FPBl FN*3 3 » C 36 » 6 3-1 I 37285200 

FPBCFN*3JiC2«ll2J*PCDUP) f C24I12J*(J*TINUCI Jitl8ll23)| 37285300 

IF I < t 6 THEN 37285305 

IF J>0 THtN FILEMESSC"* 10 M &TINU[I3 37285310 

tl2J30«18)» H ERRORS»"tFPB[FN)»FPB[FN+l3»J»0»0); 37285320 

TlNUt 13, [181123*0) 37285400 

END END END TIMING; 37285500 

REAL PROCEDURE DI SKADDRESSCMI D»F ID»FPB3» A»H» 10) } X ( SHM ) 37286000 

VALUE MlD#FID#FPB3»A»HilOJ X ( SHM ) 37286 100 

REAL M!OiF!D»FPB3»A.lOI * ( SHM3 37286200 

ARRAY H[*3J 37286300 

BEGIN LABEL EOF » E0F2? 37287000 

INTEGER I; 37287250 

REAL T» V; 37287500 

IF A>0 THEN* 37288000 

BEGIN T*CA DI V HC03 , t 30 I 123 )xHCO 3 , [ 42 I 63 i % 37289000 

IF HC93 LEO Il»(IF HU3»0 THEN ELSE T DI V HU3) THEN 37290000 

GO TO EOF; 37290100 

IF HtIt*I*103«0 THEN * NEW ROW NEEDEDt 37291000 

IF 10 THEN GO TO EOF ELSE * EOF ON A READ, 37291200 

if io«2 then * called from fileopen so 37291400 

BEGIN * DONT EXPAND THE FILE YET, 37291600 

T»«i; 37291800 

GO TO E0F2; 37292000 

END 37292200 

ELSE 37292400 

IF HC4J THEN * IN DIRECTORYi UPDATE HEADER, 37292600 

P(DIRFCTORYSEARCH(-MID»FID#»HU[CTF])«DEL) 37292800 

ELSE * NOT IN DIRECTORY, 37293000 

BEGIN X (SHM)37293210 

IF CVI*FPB3, 118153) GTR THEN X EU SPECIFIED * ( SHM) 37293220 

Vt*ClF V GTR 20 THEN ELSE -V) ELSE X < SHM) 37293230 

IF CVt«FPB3,C16»2)) GTR THEN X SPEED SPECIFIED *( SHM* 37293240 

V«*(IF V GTR 2 THEN ELSE V) ELSE X C SHM) 37293250 

V»*0; X NO SPEED OR EU SPECIFIED X ( SHM ) 37293260 

HCI3 I* PETUSERDISK(HC83»V); X (SHM) 37293270 

END; X (SHM)37293330 

T*HtlJ + W MOD Htl3;X 37294000 

STREAM(D*IT3); BEGIN SI*D; DS*8 DEC END;* 37295000 

END ELSE* 37296000 

EOF! T*Q|X 37297000 

BPF2I 37297500 

DISKADDRESS*T;X 37298000 

END DISKADDRESS;* 3/299000 

37300000 

37301000 



BEGIN 



PROCEDURE SETNOTINUSE(U»RWL)J VALUE U»RWL| REAL U»RWLl 
BEGIN REAL It J) 

IF U<16 THEN P(WAIT10(P4200000000.S»377»U>»DEL)I 

SLEEPUTOGLEl'STATUSMASKJI 

RRRMECHXC I*TWO(U)) AND SAVEWORD) OR C(I*NOT I) AND RRRMECH)lX 

READY*READY AND III 

IF RWL THEN 

STREAM(S*[TlNU[U]]»M*MULTlTABLEtU]»F*LA8ELTABLEIUJ» 
N-IF U<16 THEN PRNTABLE [ U J . t 30 118 ] ELSE 0. 
T»*MUlTITABLErUJ«0» TTl«U GEO 16. D « ■ J » "SPACE ( 10) ) * 
BEGIN S I -S* SI*SI+5J DS*LlT "*"J DS*3 CHRIX 
DS*6 LIT » RW/L "I SI-LOC Ml SI*SI+1I 
DS*7 CHR> DS*LIT " "I Sl*Sl+l> DS*7 CHRJ 
T(M*DIIDI*DI*15IDS*7FILLIDI«-M)J TTCJUMP 
OUT TO LA)I OS*LIT W ( M » DS*5 DEC? DS*LIT")"I 
LAI DS*LIT ••♦"I 
ENDlX 
SPOUT(U)| 
LABELTABLECU]*P214| 
BND ELSE LABELTABLECU3*P1HI 

MULT I TABLECUJ'RDC TABLE CU3*0l 
IF U<16 THEN PRNTABLEtUj*0 J 
ETNOTINUSEI 
DURE BLASTOCU)> 
u; REAL u; 



END S 

PROCE 

VALUE 

BEGIN 

R 

B 

B 

E 

I 
I 
B 



E 
END B 
PROCE 



EAL I 
OOLEA 
EGIN 

C 
NDI 
F CHE 
F I.t 
EGIN 
L 
U 
ND EL 
U 
HILE 
EGIN 
I 
I 
NQI 
LASTQ 
DURE 



.XI 

N SUBROUTINE 



CHECKIOI 



HECKl0l»(II«UNIT[UJ),t5|8J#0 OR (I,[H:1J ANQ I , t 1 3 I 5 i /P31 } I 



IN PROCESS 



BEGINISTRE 
PFAC 
STRE 
BEGI 



CKIO THEN COMPLEXSLEEP(NOT CHECKIO)! 
16IU THEN X SKIP I/O 

H»NFLAG(LOCATQUECXl*I,CFF ]] }; 

0CATQUE[X],[FT]I*P77777; 

NlTtU],tCF]l*XI 

SE 

NITCU], [5l43]l*(N0T 0},[l6l30]J 

(II»I.[FF1>**77777 DO 

RETURNIQSPACEUJI 

0C0UNT[P1M1X]|«(+P(DUP))-1I 

I'NFLAGCLOCATQUEt I3)» 

IX 

BUILDLABELCLABLE»MID»riDiREELfCDATE«CyCLE#PFACTtPTN.BLKODEtX 
BSJZE»RSJZE)»X 
VALUE LABLEtMID»FID»REEL#CDATE»CYCLE#PFACT»PTNtBLKODE» 

BSIZEiRSIZEIX 
ARRAY LABLEC*3»X 

REAL MID»F1D»REEL»CDATE»CYCLE»PFACT0PTN#BLKODE»X 
BSlZEiRSlZEl* 
AM(D*[PFACT])| BEGIN SI*DI Sl»Sl+5l DS*3 OCT ENDIX 
T*CALCULATEPURGE(PFACT)IX 
AM(S*[MIDJ»LABLE)IX 
N DS*8 LIT " LABEL h I SJ*-SI DS*2 WDSlX 

DS*3 DECI DS*5 DEC* DS*2 OEC* SI*SI+3I DS*5 CHRlX 
DS*14 LIT "0"! DS*5 DECI SI*SI + 7I DS*CHRlX 
DS*5 DEC DS*5 DECI DS*11 LIT "Q"S 



ENDIX 



37302000 
37303000 
37303200 
37304000 
37305000 
37306000 
37312000 
37313000 
37314000 
37314100 
37314200 
37315000 
37316000 
37316100 
37316200 
37316300 
37316400 
37317000 
37316000 
37318100 
37319000 
37319010 
37319020 
37319100 
37320000 
37321000 
37322000 
37323000 
37323100 
37323200 
37323300 
37323400 
37324000 
37326000 
37327000 
37326000 
37329000 
37330000 
37331000 
37332000 
37333000 
37333500 
37334000 
37335000 
37336000 
37337000 
37338000 
37339000 
37340000 
37341000 
37342000 
37343000 
37344000 
37345000 
37346000 
37347000 
37348000 
37349000 
37350000 
37351000 



_J 



IF (BSlZE*LABLE.C8ll0J)MQ THENX 37352000 

STREAM(J*JARR0W[P1MIX].D*[LABLE11033)J* 3 7 353000 

BEGIN SI*Jl Sl*SWH DS*LIT " "I DW CHRJX 37354000 

S I «-S I + 1 1 DS*LIT V"l DS*7 CHRI 12CDS*2 LIT " ")*X 37355000 

END END QUILDLABELIX 37356000 

PROCEDURE FILEMESSAGE(I»K»M»F»R»D»C»TYPE>; 37357000 

VALUE I»K,M»F»R»D»C»TYPEI 37357100 

REAL t»K»M.F»R»D»C,TYPE> 37357200 

BEGIN REAL Z»LJX 37359000 

L la SPACE(12)1 37360000 

STREAMCZIl*U J»J*CJAR[P1MIX.*J].P1M1X»L)J 37361000 

BEGIN SI*IJ 37362000 

IF SC* M +" THEN BEGIN TALLY*1* DS*LIT """I Sl*SI+t END ELSE* 37363000 

BEGIN Sl-Sl+tl IF SC* W # M THEN DS*LIT " " END!* 37364000 

DS*7 CHR1 DS*LIT " "J L*D1JX 37365000 

2CDI*L0C LI IF 8 SC#DC THEN BEGIN DI*L* SI*SI-7I DS*7 CHRlX 37366000 

DS*LIT " "I L*DI END>*X 37367000 

DI*L* SI*SI + 1I DS*7 CHRI DS«-LIT " "J L*DIIX 37368000 

3(0I*L0C l\ IF 8 5C*DC THEN BEGIN DI*L* SI*Sl-8* DS*7 DEC* 37369000 

L*DI I D!*DI-7I DS*6 FILL? 37370000 

DI*LI 0S*LIT " "I L*DH 37371000 

END)* 37372000 

37373000 

37374000 

DI*L* DI*DI-li DS*LIT »»"|X 37375000 

Z*TALLY> SI*L0C It SI*SI*7I* 37376000 

IF SC»"O w THEN BEGIN Sl*Jl Sl*SI + H DS*7 CHRI DS-LJT "/";X 37377000 

SI*SI+1* DS*7 CHRI DS*LIT "«"|X 37378000 

SI*L0C PlMJXf DS*2 DEC* 37379000 

L*DI* DI*D1"2* DS*FILL* DI*L END* 37379500 

DS*L!T "*"*X 37380000 

END*X 37381000 

if p then begin tfRminate(Pimix)* teRMinalmessagec-D end*x 37382000 

SPOUTER(U»0»TYPE)l 37383000 

END FILEMESSIX 37384000 

PROCEDURE FILLBUFFERS(CURRENT#FINAL»COBOL»NR)l 37385000 

VALUE CURRENT»FINAL»COBOL»NRl 37385500 

REAL CURRENT»FINAL>COBOLtNRj 37386000 

BEGIN ARRAY L0CATt*J*X 37387000 

INTEGER I»J»K»D*X 37388000 

INTEGER FIRSTL0C»J»PREVL0C»K,CURL0C«DI 37388100 

REAL TaLOCATl 37388200 

REAL Til 37388250 

REAL NF«T1+1I X MUST BE AT THE TOP OF THE STACK37388275 

LABEL LINKI 37388300 

REAL BSlZE*CURRENTfN*FINAL»U»COBOL»ALPHAaNRI 37388400 

IF.ALPHA<512 THEN 37388500 

BEGIN 37388600 

PCNR-CCOBOL GTR 0))1 * INITIALIZE NF 37388700 

U COBOL THEN FINAL t "CURRENT > 37388800 

J*FINAL.[33»153-K*CURRENT,[33I15J|X 37389000 

D*24(N0T CURRENT)tlt22ll3lX 37390000 

L0CAT*MCK*DJ* NR*NR-ll% 37391000 

FOR 1*1 STEP 1 UNTIL NF DOX 37392000 

BEGIN IOREQUEST(FLAG(FINAL)»CURRENT»LOCAT)|X 37393000 

MCLOCAT3*MtLOCATHO[26l26«73 AND NOT(M OR IOMASK)lX 37394000 

IF NOT COBOL THEN 37394085 

IF lal THEN IF P( F I NAL. [ 3 1 5 J t DUP )"6 OR PCXCH)«7 THEN 37394050 

BEGIN 37394100 

SLEEPCLOCAT & [ 31 31 30] * 10MASK ) J 37394150 



STREAM(N*0»L*0lND1V64»0iBACC*Tl*F , INALtl7ll J» 3 7 394 200 

BUF * (MtLQCATJ INX T1)-C1»T1))I 37394250 

BEGIN DI * LOC Nl SI * BUFI BACC(SI * 51+4)1 37394260 

IF 4 SC#DC THEN GO OWTl 37394289 

DI «■ LOC Nl BACCCSI ♦ BUF); OS * 4 OCT! 37394300 

SI * LOC LI DI * LOC BACCJ SI * S I -21 DI * Dl-ll 37394350 

ds * i chri si * buf; 37394360 

CI * Cl+BACCI GO FWDI 37394400 

NDIV64(SI ♦ SI -32 | SI * Sl-32); SI * SI -Nl SI ♦ SI+4| 37394450 

GO ONI 37394460 

FWDI NDIV64CSI * S I +32; SI * SI+32)I SI * Sl+N| 37394500 

ONI DI * LOC LI DS ♦ 4 OCT; 37394550 

OWTl 37394560 

END STREAM; 37394600 

Ti * Pi 37394650 

IF P(DUP)«0 OR P(XCH)#T1 THEN TERMI NATE (P 1M I X&86 CCTF3)J 37394700 

END! 37394800 

IF NR>0 THEN STREAMC NR » T*M[ LOC AT J » LOC AT ) I % 37395000 

BEGIN SI*L0CAT| Sl*Sl+8l DS*NR WDSIX 37396000 

SI*LOC Tl DS*WDS ENDIX 37397000 

CURRENT, C 33l 15)*K*M[K + D3 ,[18U5 3 IX 37 398000 

FINAL, t33H5)*K + j!X 37399000 

END END ELSE 37400000 

BEGIN 37401000 

T*ALPHA&U[12l42t6] OR Ml* 37404000 

FOR I*N»1 STEP "1 UNTIL DO* 37405000 

BEGIN MCALPHA*n*(CURL0C*GETSPACE(BSUE + 4»3»l)+2) + 2l 37406000 

IF FIRSTLOC-0 THEN F IRSTL0C*CURL0C I * 37407000 

MtCURL0C+13*0l M0VECBSIZE+1»CURL0C+1»CURL0C+2)I 37408000 

LINKI M[CURL0C3*FLAG(T)&(PREVL0C+2)Cl8l33tl5JlX 37412000 

MtCURLOC+BSlZE+33*FLAG(T)&(PREVLOC+BSIZE+l)C18l33ll5]lX 37413000 

PREVL0C*CURL0CIX 37414000 

ENDI* 37415000 

IF I»(-l) THEN BEGIN CURLOC*F I RSTLOC I GO TO LINK ENDI* 37416000 

END END FILL OR GET BUFFERSI 37417000 

REAL PROCEDURE FILEHEADERfM I Dt FIDi NROWS. SIZE. BLEN, RLEN, S)l 37418000 

VALUE MID» FIDt NROWS. SIZE. SI 37419000 

REAL MID* FIDI 37420000 

INTEGER NROWS. SIZE. BLEN, RLEN. SI 37421000 

BEGIN REAL Q. Z| 37422000 

$ SET OMIT « NOT SHAREDISK 37422199 

INTEGER HDRSIZEI 37422200 

* POP OMIT 37422201 

LABEL T1FILL.EXITI 37422300 

ARRAY T « Q[*]l 37423000 

INTEGER LPER. 37424000 

SPER. 37424100 

Nl. 37424200 

Rl# 37424300 

LI. 37424400 

Wl 37424500 

SUBROUTINE GOBBLE! 37425000 

BEGIN SPER «■ (BLEN+29) DI V 30; 37426000 

IF S«0 THEN RLEN I* BLEN; 37427000 

LPER l« BLEN DIV BLEN; 37428000 

END GOBBLE! 37429000 

$ SET OMIT » SHAREDISK 37429499 

Q|«S,C13I3JI 37429500 

$ POP OMIT 3742950J 

$ SET OMIT » NOT SHAREDISK 37429599 



S POP 

* SET 
$ POP 
$ SET 



S POP 
$ SET 
$ POP 



T1FILLI 
$ SET 



$ POP 
S SET 



$ POP 



EXIT! 
END 



IF MID, tlUl THEN * A PROTECT FILE 
BEGIN HDRSIZE*32; M I D*ABS( MI D ) I 0*21 END fcLSE 
BEGIN HDRSIZE*30J Q»S,(13I3] END; 
OMIT 

IF (NRQWS*SIZE) * THEN 
BEGIN 

IF (N1*SECURITYCHECK(MID»FID»USERC0DE.EP1MJXJ»G)><0 THEN 
OMIT * NOT SHAREDISK 

BEGIN FILEHEADER*4J % INV USER 
OMIT 

GO TO EXIT! 
OMIT * NOT SHAREDISK 
ENDI 

IF HDRSIZE>30 THEN 
BEGIN 

IF P(T(0)»DUP) l tl5tl53»'BLEN OR P( XCH) . C 1 * 14 3#RLEN TH 
BEGIN 

p(direct0rysearch(mid»fid»22)>del); 

fileheader*5i go to exit; % inv blocking 

end; 

t,[Biio]*hdrsue; 

stream(n*hdrslze*30#t*t+30); n(ds*8 lit "0"); 
end; 

OMIT 

T is T & CN1 AND POL I SH( TC 4 ) , [ 9 | 2 3*1 • LNG))[CTF)I 
OMIT m NOT SHAREDISK 

IF HDRSIZE>30 THEN BEGIN GOBBLE? GO TO T1FILLI END; 
OMIT 

IF (LI !• (Z I* TtOJ),[lll43) • THEN LI I" 30; 

Nl I* TC73+1I Rl »« Z,t30J12j; 

IF BLEN * THEN* THIS IS "TECHNIQUE "D" M FILE TYPE.,, 

BEGIN BLEN l» Z f [15U5H 

s |« (rlen >■ li) # blen; 
end; 

N *« (((Nl DIV Rl) x Z, [42163) x 30) ♦ (Nl MOO Rl) x Li; 
gobble; Tt 7 J !* W J« 

((W DIV 30) DIV SPER) x LPER ♦ 
((((W DIV 30) MOD SPER) x 30 + 

W MOO 30 ♦ RLEN-1) DIV RLEN) - 1; 
TU3*(T£8) DIV SPER)x SPER; 
T[4]t*<*P<DUP>)IOClll47ll] OR ll 
END ELSE BEGIN 
OMIT b SHAREDISK 

T I* MEMORY OR ( GETSPACE ( 30, 8. 1) ♦ P360000700002) ; 
STREAM(T); 

BEGIN SII*TI SIl-SI-81 DS»«30 WDS; END* 
OMIT 
OMIT s NOT SHAREDISK 

T*M OR ((GETSPACE(HDRSIZE»8»1)*?70O0O2)&H0RSIZE[8I36j103 
MOVE(HDRSIZE»T INX NOT 1»T); 
OMIT 

TC 33 «« XcLOCK + P(RTR); 

t e 7 3 i* ml t(93 j* nrowsi gobble; 
t[13 i* t[8] i* ((size + lper-1) div lper) x sperj 
end; 

Tt03 I* SPER 4 LPER[30I38U23 & BLENt 151 331 153 & RLENC1I34I14 
FILEHEADER I" NFLAG(T); 



37429600 
37429700 
37429800 
37429801 
37432000 
37433000 
37433100 
37433199 
37433200 
37433201 
37433300 
37433399 
37433400 
37433500 
37433550 

EN37433600 
37433650 
37433700 
37433750 
37433800 
37433850 
37433900 
37433950 
37433951 
37434000 
37434099 
37434100 
37434101 
37435000 
37436000 
37437000 
37437500 
37438000 
37438500 
37439000 
37439500 
37440000 
37440500 
37441000 
37441500 
37441600 
37442000 
37442499 
37442500 
37443000 
37443500 
37443501 
37443599 

);37443600 
37443700 
37443801 
37444000 
37444500 
37445000 
37445500 
37446000 

3;37446500 
37447000 
37447500 
37448000 



PROCEDURE PURGElTfUJJ VALUE UJ 
BEGIN ARRAY LABLE[*ll 
REAL EOF! 

RDCTA8L.EtUJ,[8i6] »* 01% 
P(WA IT I 0(04200000000,037 

lable i* cm[space(10)j]& 
buildlabelclable»o» w x m .i 
p(wait10(l able* 037 700000 

EOF*? 1737000000000000 J* 
P(WAITIO([EOFJ»P37700000 
F0RGETSPACECUBIE.[33»15 
SETN0TINUSE(U#0)) 
KILKEU3 INX NOT 1); 
END PURGE1TIX 
PROCEDURE KRUNCHER(H)« ARRAY 
BEGIN DEFINE E»H[7]#i 
MAXR0WS*Ht9 
BCL«HC0],[4 
ARRAY A[*]> 
LABEL FORGET.EXI 
INTEGER NB#NBRJ 
REAL I»J»K»T| 
Ai»[M[SPACE(«l)l 
M0VE(41»A,[CFJ-1 
IF E LSS THEN 
NBI*E DIV RPBJ 
N8R»»RL DIV BCL; 
IF RL NEQ BRL TH 
FOR 11*10 STEP I 
IF HC1J NEO TH 
$ SET OMIT 9 SHAREDISK 

FORGETUSERD 
S SET OMIT m NOT SHAREDISK 

FORGETUSERD 



INTEGER UJ* 



MAKE THE USER THE MCP 

7»U)»DEL)J 

10[8»38llOJ&5l2l»45l33J 

•0»1»Q.PRNTaBLE[U], [ 30 Jl 8 J » 0» 0» ) ; X 

»U)»DEL)IX 

»U)»DEL)I» 



HC * J I 

RL«Htn#»RPB*HtOJ,C30U2]#f 

],[43«5)#» 

2«63##BRL*H[8]#; 

T»AGAlNtDONE? 



]&40[6t36|103; 

• A); 

GO TO EXITJ 



EN 

UNTIL 29 DO 
EN 

ISKCHCI J+RL»BRL*RL)> 

I SKCHC I J+RLf CBRL'-RLHCNOT H[4])[1U7I 



$ RESET OMIT 



AGAIN! 



DONEI 



BRL»sRL) 

IF NB LSS NBR TH 

BEGIN ACO]!*HCNT 

NT4»*lf 
RLl«CNB*l)x 

GO TO FORGE 
END* 

T»»CKI*J|»1MNBR 
IFCNT1MNBR DIV 
IF (NT2l»NB DIV 
IF NBR MOO J«0 T 
BEGIN IF CNT3isN 

BEGIN Kl*J> 

end; 

J|»J+ll 
GO TO AGAINI 
IF K«H THEN GO T 
NT2I«NB DIV NBR 
RLI»RL DIV Kl 
FOR I I »1 STEP 1 
BEGIN IF CNT1I*H 
FOR Jt*l ST 
AKI-1 
END* 



EN 
2I*10JI 

bcl; 
t; 

x20| 

J)«0 THEN GO TO DONE? 
NT1) GTR 19 THEN GO TO DONEI 
HEN 

TlxNT2+NTl) LSS T THEN 
Tl»NT3> NT4|*NT2+1 ENDI 



EXIT! 
+ 1QJ 

UNTIL NT2 DO 
CU-RL) GTR THEN 
EP 1 UNTIL K DO 
0)xK+J-l3t«NTl+JxRL; 



37449000 

37450000 

37451000 

37452000 

37453000 

37453100 

37454000 

37455000 

37456000 

37457000 

37458000 

37463000 

37464000 

37465000 

37466000 

XR173750000Q 

SSR1737501000 

37501500 

XR1737502000 

IR1737504000 

XR1737505000 

XR1737506000 

XR17375070QQ 

37508000 

X0973750900Q 

XR1737510000 

XR1737511000 

XR1737512000 

XR1737513000 

XR1737514000 

XR1737515000 

37515995 

37516000 

37516050 

1J)I 37516100 

37516105 

XR1737517000 

XR1737520000 

XR1737521000 

XR1P3752UQ0 

XR1737521200 

XR1737521300 

XR1737521400 

XR1?37522000 

XR1737523000 

SR1737524000 

IR1737525000 

XR1737526000 

XR1737527000 

XR1737528000 

XR1737529000 

XR1737530000 

XR1737530100 

XR1H7530200 

XRU375310Q0 

XR1737532000 

XR1737533000 

XR1737534000 

XR1737535000 

XR1737536000 



FOR K««NT« STEP 1 UNTIL 19 DO A[KJ|«0» XR1 737538000 

IF MAXROWS LSS ( NT5 J sCNT4*20) + NT4 ) THEN MAXKOWS » *NT5J 37538500 

FORGETl IF NB+1 NFQ NBR THEN XR1737539Q00 

S SET OMIT a SHAREDISK 37541995 

F0RGETUSERDISK(A[NT4-13+RL»<NT2*9)xBRL-NT4xRL>? 37542000 

$ SET OMIT » NOT SHAREDISK 37542005 

F0RGETUSERD1SK(A[NT4-13+RL» 37542010 

(CNT2-9)xBRL-NT4xRL)&(N0T M[4 3 ) [ H 47 U 3 ) i 37542020 

$ RESET OMIT 37542025 

M0VEC20»A»CHtl0J])> XR1737543000 

BRL*«RL; XR1737544000 

EX IT I FORGETSPACE(A)} IR1737545000 

END) XR1737546000 

PROCEDURE DISKFILEOPEN(AUPHA)) VALUE ALPHA? INTEGER ALPHA?* XR903600000Q 

BEGIN REAL RC Ws*0»MSCW»-2 J XR903800100Q 

REAL I0M»I0MASK. I0MASK**1? XR9Q3800200Q 

INTEGER NBUFS» + 2>FNUM« + 3#BLEN» + 4iTYHE* + 5iREEl-**6»CDATE* + 7# XR903600 300Q 

CYCLE«+6»M00E"+9»I0«+10»RUEN«+llf U«*12»KIND**13» XR90 38QQ4000 

DIREC»+14#F0RMSB*15.C0B0L*+16»UNLABELEDa+l7» 38005000 

0PTI0NAL*+18»CNTCTL»+19; 38006000 

REAL MFtDp+20tFID*+21»Tls+22»T2*+23»MASK«+24.STATE*+25> 38007000 

ARRAY FIB«+26[*3»FPB»+27[*3?* XR9038008000 

INTEGER ACCESS*+28,FIB7*+29J XR9038009000 

ARRAY HEADER"+30t*3?X JR9038010000 

LABEL MSGiEXlTJ 38010500 

SUBROUTINE OISKSETUPJX I6R903801 1000 

BEGIN IF STATE, [42J1J THEN* XR9038012000 

BEGIN 38013000 

IF (NOT MFID)«(N0T 03AND NOT USERCOQE C P 1 H I X J . C 1 1 1J THEN 38013100 

BEGIN 38013110 

FPBCFNUM]|»MFIDI«F10I 38013120 

FPB[FNUM+n»»FIDl«USERCODE[PlMIX]J 38013130 

END? 38013140 

IF NFLAG(FlBri43*FLAG(FILEHEADER(MFID 38013200 

S SET OMIT ■ NOT SHAREDISK 38013299 

*(TYPE»26M1I47I1) 38013300 

S POP OMIT 38013301 

»FIDiFIB[5Jtll«bllJ»FlBte],t20i5] 38013400 

tFIB[83,[25l233»BLEN»RLEN»STATE)))<6 THEN 38013600 

BEGIN P(DEL>? 38013800 

$ SET OMIT ■ NOT SHAREDISK 38013899 

FIBt53,[45!13*f ? % FOR PAR LABEL ACTION 38013900 

FIB[83,t3J53*FlBC143» % IOSTATUS UPDATE 38014000 

t POP OMIT 36014001 

Tlt«l? 38014200 

GO TO EXIT? 38014400 

END! 38014600 

IF FIBC81.t20»2B3i*0 THEN FPBL FNUM + 2 ) , CIS I 30 3*DATE ELSE 38015000 

IF CDATE NEO THEN % LABEL EQUATION DATE SPECIFIED 38015100 

BEGIN 38015200 

HEADER »• FIBtHJJ 38015300 

IF CDATE NEQ HEADERt 3 J 1 1 30 1 16 J THEN % WRONG DATE 36015400 

BEGIN % WRITE DATE CHECK MESSAGE 36015500 

STREAM(H««HEADERt3J,[30ll6j f T2l*CT23); 38015600 

BEGIN SH*LOC HI DSI»8DEC? END? 38015700 

M5GI FILEMESS("#DAT CK*«" s00000"&T2U8 tlB 1 303 » 38015800 

MFID» FID» REEL* CDATEi CYCLE)? 38015900 

REPUYCP1MIX3I" -VWY&V0KU6l42»63iVFMt30l42J63l 38016000 

IF IMEMIPlMIX»MLINKi3] f [CFJ GEO FENCE THEN 38016100 

SWAP(WAITSWAP»1) ELSE 38016200 



$ SET OMIT * N 
t POP OMIT 



COMPLEXSLEEP( C TfcRMSET ( P1M I X ) OR REPLY[P1MIX) GTR 0))} 
IF TERMSETCP1MIX) THEN 
BEGIN 

FORGETSPACE(DIRECTORYSEARCH(MFlD#FIDt 
OT SHAREDISK 

IF TYPE«26 THEN 22 ELSE 



END 

FIB 

STA 

STA 

FPB 

END 

HEA 

KIN 

MOD 

IF 

CNT 

* SET OMIT * N 

IF TYP 

S POP OMIT 

IF FIB 
IF HEA 
BEGIN 
PCDIRE 
FIBtH 

FIBtlB 
END! 
IF COB 
BEGIN 



G 
E 
IF NO 
VWY&V 
IF (T 
T 
Tl l« 
FPBtF 
ENDI 
i % I 
1183 

TE.C4 

RTIMI 

l«PRT 

|X 

DER'F 

D*4I 

i+on 

NOT C 
CTL*B 
OT SH 
E#26 



FIBC5],113I3J+10))I 
TO INITIATE? 

NDI 



)T WHYSLEEPC 

'0K(36U2l6HVFM[30U2l6l) THEN 
l»*REPLYtPlMIXJ f [CFJ) NEQ VOK 
1 NEQ VFM THE.N GO TO MSGI 

' CDATE «« 0> 



GO TO 
AND 



MSGl 




DATE 



3i is j ; 



% STARTIMING MAY HAVE MOVED 



IBM43|X 

U*18JX 



OBOL THEN UNLABELED*ll 

LEN<1023IX 

AREDISK 

THEN 



IT, 
XR90 
XR90 
XR9Q 
*R90 
XR90 
XR90 



IWSIZE 
I 



[8),[20l283»0 THEN X NOT CREATING 
DERE83<CCBLEN+29) 01 V 30) THEN XBLKSIZE > ROI 
BLEN*HEADERC83x30j F0RGETSPACE( HEADER INX 0) 
CTOR YSE ARCH CMF1D.F I D» STATE, [131 33+10) »DEL)I 
3*-HEADER«-FLAG(FlLEHEADER(MFIDiFID&FIBl53Ul45ll3'0»Oi 

BLEN. RLEN. STATE))! 
3,[3U53*BLENJ 



QL>0 AND CFIBC13] 
C0B0Ll«3l 
BLEN I* BLEN 
ENDI 

GETBUFFfcRSUIF CNTCT 



IF 
BEGIN 

ENDI 
FIB 



FIB 



FOR 
FIB 



NBUFS»U»A 
COBOL » 3 THEN 
COBOL |* 11 
BLEN is BLEN 

1163-MtALPHAHCNT 

&UBLEN + 29) DI 

«,(IF CNTCTL TH 

&TINUEl8H3:3l 

[16].C2U3l»(HEAD 

FlBC5)i(lil)l" NO 

IF FIB[5),tlllJ T 

MASKI«10 STEP 1 U 

[193*UF DJREC TH 

INX FIBU6H 



,C22>13 

+ RLENI 

L THEN 
ELSE 
LPHA)I» 

- RLENI 

CTL123I 
V 30)[2 
EN BLEN 
53 OR M 

ER.C3U 
T FIBC1 
HEN 

NTIL 29 
EN BLEN 
0[27l27 



OR TYPE»10 OR TYPE» 

XIF COBOL-IO OR 

XTHEN CHANGE BUFF 

XBUFFSIZE ♦ RECSI 

BLENX 

CCBLEN+29) DI V 30)x3 



XIF COBOL" 
XTHEN CHAN 
XBUFFSIZE 
X (SEE ABO 
47in«l0[24l4 
7* 421 6 J* 
ELSE 1023)16 
OR IOMASKIX 
23 AND (10+1) 

63, cam; 

DO HEADERCMA 
-RLEN+1 ELSE 
1631 



10 OR C 
GE BUFF 
- RECSI 
VE) 
7U3X 

1361103! 

)*QI 



SK3I*0I 
13 



26) THEN 
COBOL-RANDOM 
SIZE TO 
ZE 

XR90 
0)+l»* XR90 

XR90 
OBOL-RANDOM 
SIZE TO 
ZE 

XR90 
XR90 
XR90 
XR90 
XR90 
XR90 
XR90 
XR90 
XR90 
XR90 



38016300 
36016400 
38016500 
38016600 
38016649 
38016650 
38016651 
38016700 
38016800 
38016900 
38017000 
38017100 
38017200 
38017300 
38017400 
36017500 
38017600 
38017700 
38017710 
38017720 
38016006 
38018500 
38019000 
38020000 
38021000 
38022000 
38023000 
38024000 
38024004 
38024005 
38024006 
38024010 
38024020 
38024030 
38024040 
38024050 
38024060 
38024070 
38024080 
38024100 
38024200 
38024300 
36024400 
38025000 
38026000 
38027000 
38027100 
38027200 
38027300 
38027400 
38028000 
36029000 
38030000 
38031000 
38032000 
38033000 
38034000 
38035000 
38036000 
38037000 



IF STATE. [46123*0 T 
FS[P1MIX»(T2I»CFNUM 
(TWQC0&T2C43144I4 
T2*IF COBOL THEN 
FIBC103 , C3I153 I«MCA 
FOR MASK-0 STEP 1 U 
M[ALPHA+MASK3*(P(DU 
&PCFL 
FlB[16J|»FlBtl6j OR 
FIB(5)tC45ll)»0! 
IF P([FIBU433tLOD) 
IF HEADERC43,tlOtl3 
FILEMESS(- M CODE 
$ SET OMIT • NOTCPACKETS) 

IF PSEUD0MIX[P1MI 
IF NOT FIBt5),[«l 
FILEMESSAGE((IF I 
&T INUCU] t6l 30t 183 
ELSE IF ACCESS-1 
ELSE " ROM " EL 
MFID»FID»0»OtO»64 

S POP OMIT 

END OISKSETUPlX 
PCRCW.MSCW#STF>; 
RCW»*RCW&P(XCHHCTC3J 
OISKSETUPJ 
IF COBOL<0 THEN 
BEGIN MASK 
T 
E 



HFN FIBtl9)iC8llp]*RLEN|* XR90 

DIV ETRLNG))it*0l4J]*(*P(DUP)) OR XR90 

3>x((N0T HEADER). t31l23))J XR90 
ELSE FlB[193,C335l53-FIBtl63.t33ll53;X*R9 
LPHAJ-2J * HEAD OF BUFFER RING 

NTIL NBUFS-1 DO* XR90 

P»L0D)+T2>* *R90 
A6(FIBtl9-AB5(3xC0B0L)))»XCH)tCTCJl 

MJ XR90 

,[FF3b2 THEN FXBC53»C11 1 2 3 -1 J * 1 NPUT ONLY, 
AND NOT 10 THEN 
"."FILE M .MFIU*FID»0»0,0)J 

X]*0 THEN 

Ml THEN 

THEN " IN * ELSE " OUT") 

» IF ACCESS*0 THEN " SEK " 

THEN IF TYPE*26 THEN " PRO " 

SE " UPD "» 

)} 

XR90 
XR90 
XR90 
XR90 



I ADJUST UPPER BOUND FOR COBOL 66 
* (IF 10 AND NOT F I B[ 1 3 J , [ 22 » 13 
HEN HF.ADERtn 
LSE (CCHEADER[93 * HEADERH3) DIV 

HEADER[0J,(42l6J) x HEADERCO] , [ 30 J 12 ] ) 
OR FIBL3J>MASK THEN F I B t 33*MASK ; XLESSOR OF 2 



IF F IBC 33*0 

ENDI 
IF P(TYPE»DUP>*10 OR P(XCH)*26 THEN 
BEGIN 

IF COBOL< 
FOR MA 
IF COB 



• 1)1 
EVILS 



XR90 



FIBC63- 
F IBC 173 

END ELSE 

BEGIN 

T2*(MFI 

FIB7»F1 

IF COBO 

BEGIN 



l then % algol or cobol 68 

SK ♦ STEP 1 UNTIL NBUFS-1 DO 

OL THEN M[M[ALPHA+MASKJ INX NOT 23 ♦ NOT 

ELSE M[ALPHA + MASKJ*P(DUP»L0D)&lt27t47H3; 
FIBC73*0;X 
♦IF 10 THEN ELSE BLENI* 



D*FIBtl6]) f [33I15JU 
B£73l 
L THEN* 
IF COBOL>0 THEN 

IF NOT C F IB7*0 OR F I BC 1 3 J . [ 22 I M ) THEN 
BEGIN FIB7 ♦ FIB7 - 11 

OPTIONAL * NBUFS - 1> 
END ELSE OPTIONAL «■ NBUFS - 2 



*R90 
*R90 
XR90 
*R90 
*R90 
*R90 
*R90 



F 

M 

END ELS 

BEGIN 

M 



ELSE BEGIN 

OPTIONAL 
IF DIREC 
ENDJ 

ID*F I B[ 163 1 * 

ASK»Ot% 

E* 

PTIONAL*NBUFS"U* 

ASK*CFID*FIBU9J) 



* COBOL 
* NBUFS - 

then fib7 



66 

II 

- FIBE73 * FIBC33I 



[33»153*T2>* 



XR90 
XR90 
XR90 
XR90 
XR90 



38038000 
36039000 
38040000 
38041000 
38041100 
38042000 
38043000 
38044000 
38043000 
38045100 
36045105 
38045110 
38045120 
36045149 
38045150 
38045155 
38045160 
38045200 
38045300 
38045310 
38045400 
38045501 
38046000 
38047000 
36048000 
38049000 
38049200 
36049300 
38049400 
38049500 
38049600 
38049700 
36049800 
38050000 
36051000 
38052000 
36053000 
38053500 
38054000 
38055000 
38056000 
38057000 
36058000 
38059000 
36060000 
38061000 
36062000 
38062500 
36063000 
38063500 
38064000 
38064200 
38064400 
38064600 
38065000 
38066000 
38067000 
36066000 
38069000 
36070000 



END** 

IF STATE. U6l23*0 OR 10 THEN 

IF M[ALPHA]«[2lM THEN 

FOR T1*0 STEP 1 UNTIL OPTIO 

BEGIN IF CMC T23 l» 

DISKADDRESSCFPBLFNU 
rORMSl*((HEADER[OJ, 
HEADER* JO&CNOT HEA 
BEGIN 

IF (USERC0DECP1M 
IP PCM[MFID3»DUP 
P(XCH)<DlRDSKx 
BEGIN 

TERMINATED 
TERMINALMES 
END! 

I0REQUE5TCFLAG(F 

M[ALPHAJl*FLAGCM 

(M OR IOMASK)! 

END ELSE 

IF M[T2)»0 THEN X 

MtALPHAj|»P(OUP»LOD 

IF COBOL<0 THEN M[MU 

( IF FORMSfcO THEN F 

STREAM(N*NBUFS-1#T*M[ 

BEGIN SI*ALPHA* S I * S I 

SJ*LOC TJ DS*WD 

endix 

MFID t C33ll53*T2*MCT2-2 

FID,[33»153*T2+MASK1X 
ENDI* 

IF (NBUFS*1)*0PTI0NAL THEN 
F0RM5*CF0RMS*FIB7 MOD HEAOE 
SLEEP ( CM[ ALPHA! ) i IOMASK) IX 
IF COBOL i THEN 

IF FIBC13J C C22I UTHEN MtAL 
MtALPHA3.t33ll5)«-FIB[16],t3 
IF (NBUFS-1)#0PTI0NAL AND 
FIB[ 17 3*0 ELSE 
FIB[173*IF DIREC THEN FORMS 

ELSE BLEN- 



NAL DOX 

M), FPBCFNUM+13' FPBCFNU 
l30U23xTl)&DIRECtll47»l 
0ER[«J)t46U7UJ)) > 1 T 

1X3 EQV MCP)#NOT THEN 
> t C 316 J»0 AND 

DSKTOG THEN 

1MIX); 
SAGEC30)! 

ID )#MF ID& 11241 47113 .MCT2' 
FID)&0£26»26»7) AND NOT 



XR90 
XR90 
XR90 
XR90 

M+33. 
3) + F IB7» 
HEN 



23)1 



EOF IF INPUT. FULL HOR 
)U[27I47I13 AND NOT Ml 
LPHA3 INX NOT 23 * 
ORMS DIV FIBCUJ 
ALPHA3»ALPHA)IX 
+ 61 DS*N WDSIX 
SIX 

3,[18|153IX 



IF OUTPT 



FIBC163,[33ll53*MtA 
RC03iC30U23)xRLENl 



ELSE NOT 0)1 

XR90 
XR90 
XR90 
XR90 
XR90 
XR90 
XR90 
LPHA3 |X XR90 
XR9Q 
XR90 



X NOT COBOL 68 

PHA3,[33llb)*FIB[163lNX 

3U53+FORMS+1IX 

10 AND NOT FJB[133. 12211 

+RLENX 
FORMSIX 



EXIT! 



ENDI 
Tll*0| 



STF)I 

ALPHAI INTEGER ALPHAI 



PE«*5#REEU»*6 
;N»4.11iU« + 12»K 
•16. UNLABELED* 



.CDATE 
INDs+l 
+ 17, 



PCP»RCW[CTC)»0»RDS»O.XCH*P8PtCTF3» 
END DISKFILEOPENl 

PROCEDURE 0THERFILE0PENIN(ALPHA)I VALUE 
BEGIN REAL RCW«+0»MSCW»-2l 

REAL I0M»I0MASK, IOMaSK* + U 
INTEGER NBUFS*+2#FNUM«*3»BLEN»+4»TY 
CYCLE»+8»M0DE»+9»10«+10»RLE 
DI REC»* 14 tF0RMS»+15 .COBOL** 
0PT10NAL»+18»CNTCTL"+19I 
REAL MFID*+20»F1D»+21»T1b+22»T2s+23»MASK*+24»SIATE s +25I 
ARRAY FIB*+26C*3»FPB«+27[*j;X 
INTEGER ACCESS**28,FIB7«+29| 
ARRAY HEADER»*30t*3IX 
REAL USASI*NT1» RHEAD»HEADERl 
UBEk F I NO. DC N I 
SUBROUTINE TYPEOPENIX 



5S*7. 

3. 



1 ELSEXR 
XR9Q 

J THENXR 
XR90 
XR90 
XR90 
XR90 



XR90 
XR90 

XR90 
XR90 
XR90 
XR90 



XR90 
XR90 
XR90 



XR90 



38071000 
38072000 
38073000 
38074000 
38074500 
38075000 
38075500 
36076000 
38076500 
38077000 
38077500 
38078000 
38078500 
38079000 
38079500 
36080000 
36080500 
38081000 
38081250 
38081500 
38081750 
38082000 
38082400 
38082500 
38083000 
38084000 
38085000 
38086000 
38087000 
38088000 
38069000 
38090000 
38091000 
38092000 
38092900 
38093000 
38094000 
38095000 
38096000 
38097000 
38098000 
38099000 
36099400 
38099500 
36100000 
38101000 
38102000 
36102100 
38102200 
38102300 
38102400 
38102500 
38102600 
38102700 
38102800 
38102900 
38103000 
38103100 
36103200 
38103400 



BEGIN 



Tl 

NT 
IF 

ST 
BE 

EN 
FI 



end; 
subroutine 

BEGIN IF C 
IF ( 
BEGI 



end; 

IF T 
BEGI 

ENDI 

end reed;* 
real subrou 

CNTl 



SUBROUTINE 
M[T1 

SUBROUTINE 
BEGI 



isCOPNMfSS AND ( CT1 I * J AR C P 1 M I X • 3 )>0 OR 
COPNMESS AND TKO)) OR OPENK; 

2t«0; 

U<16 THEN 
REAM(Sj*PRNTABLEIUJ.[ 
GIN SIi»LOC S; DS;«8 

0ii"di-7> ds|*6 fi 
d; 

LEMESSAGECC" IN ">& 

TINU[UH6I30«183» NT2» FP61FNUM3* FP 
IF KJND*2 OR KIND*9 THEN P(REEL»CDAT 
P»CYCLE»T1); 



301 16 J » D**tNT23); 

dec; 

LL; 



BtFNUM 
E) ELS 



E P(OtO 



ETNOT 



REED;* 

T2»WAITlO(Tlt(MASK OR P4Q) 
T2 AND NOT MASK)#0 THEN 
N ST0PTIMING(FNUM»1023J» S 

FILEMESSC'PARITY "»"0N ... " 
MFID#FID»REEL»CDATE» 
X 

ermset(pimix) then 

n st0ptimingcfnum.1023); setnqt i nuse( u» ) ; 
go to initiate; 



&P377CCTF JtU) AND P367)#0 

INUSECU»0); 

|TINUCUH24|30I1B]«X 

CYCLE);* 



TINE 
BITS 
&I 
&( 
LABE 
*ALP 

DOCA 

N NT 

MOV 

FOR 

Ml 

MOD 



CNTLBIT 
♦ I0MASK8, 
0C24I 471 

IF KIND* 

larea;* 

HA-?3*M 
*T 

rdlabelj 

3 «» SPA 
EC10.T1. 
GETSPACE 
ALPHA"?) 
E*CNTCTL 



s;x 

M0DEC2U4 
1HCKIND" 
10R KlND» 

OR (GETSP 
1 C8« 331 10 

CEC13H2; 
NT3); 
(Tl-2); T 
-LMCT1JJ& 

*oirec*q; 



7I1J& 
7 OR 
70R K 

ACECC 
3&CNT 



DIREC 
KIND* 
IND«1 

Tl-MC 
LBITS 



[22U7I1 

9 AND KI 
2THENi»20 

Tl),[8ll 
[18U8U 



J&CNTC 
ND<12) 
ELSE 



TLC23U 
[20U7I 
)t27«42 



03)+4»2»l)+4) 

53;* 



1*NT3; 

10181381 10]il[24U7li Jl 



end; 



P(RCW»MSCW»STF); 

RCWl»RCW«p(XCH)[CTC); 

IF STATE, [41113 THENX 

BEGIN U*FIBtl53,[25t5JU 

END ELSE* 

BEGIN IF (U*FINDINPUT(MFID»FID» 

OPTIONAL* 
BEGIN FIBC5]. [39U]*9I GO 
STARTJMINGCFNUM* IF U>31 T 
FPBI»PRT[P1MIX»33; 
KINDI«IF U GTR 31 THEN 11 

typeopen;* 

IF U<16 THEN BEGIN RRRMEC 

PRNTAB 
END;* 



REELt 
MODE* 

TO F 

HEN 1 

* S 

ELSE 

H*TWO 
LEIU) 



CDATE 
FNUM) 

IND E 

8 ELS 

TARTI 

UNIT 

(U) 
• 1151 



tCYCLEtC 
)<0 THEN 

nd;* 
e u>; 

MING MAY 
[UJ.CH4 

R RRRMEC 
153*ALPH 



OBOL.UNLABELE 

X 



HAVE 
it 

HI 

a;* 



MOVED I 



IF (T1*RDCTABLE[U3,C14I103)»'0 THEN REEL*TU 
STATE. [39»43*0;X 



*R9038 

38 

38 

38 

36 

38 

38 

38 

38 

38 

38 

5. 38 

38 

XR9038 

XR9038 

THEN38 

XR9038 

*R9038 

XR9036 

XR9038 

XR9038 

*R9038 

XR9038 

XR9038 

XR9038 

XR9036 

XR9038 

71133b 

13XR38 

163 1 38 

XR9038 

XXR938 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9038 

XR9036 

D.XR38 

XR9038 

XR9038 

XR9038 

T, 38 

38 

XR9038 

XR9038 

XR9038 

XR9038 

38 

XR9038 

XR9038 

XR9036 



103500 
103600 
103700 
103800 
103900 
104000 
104100 
104200 
104300 
104400 
104^00 
104600 
104700 
104800 
105300 
105400 
105500 
105600 
105700 
105800 
105900 
106000 
106100 
106200 
106300 
106400 
106500 
106600 
106700 
106600 
106900 
107000 
107100 
107200 
107300 
107400 
107500 
107600 
107700 
107800 
107900 
110000 
110500 
111500 
112000 
112500 
113000 
113500 
114000 
J14500 
115000 
115100 
115500 
116000 
116500 
117000 
117500 
118000 
118500 
119000 



END* X XR9038119500 

IF KIN0*0 THENX XR9Q3812000Q 

BEGIN IF U«23 THEN BEGIN T1*READERA? READERA*0 ENDX XR903812050Q 

ELSE BEGIN T1*READERB? READERB*0 ENDIX XR903812100Q 

DOCARDLABELJ XR90361215QQ 

IF BLEN<Ti*(MODE*l)xlO THEN BLEN*T1?X XR9036122000 

ENO ELSEX XR9038122500 

IF KIND*2 THEN* XR90381230QQ 

BEGIN IF NOT UNLABELED THEN BEGIN* XR9038123500 

IF DIREC AND NOT FIBU63,t22U3 THEN 38124000 

BEGIN IF NOT STATE, C40f 1 ] THEN BEGIN* XR9Q38124500 

Tl*5&3t23»46»2J OR MIX XR9038125000 

MASK*0? REED?X XR9038125500 

MASKt»P60> DO REED UNTIL T2, [42*13? 38126000 

DO REFD UNTIL T2. [421 1 J f XR9038126500 

MASK*0? REED? END?X XR9038127000 

END* XR9038127500 

XR9038128000 

XR9038128500 

CNTcTL*U LABELAREAU XR9038129000 

Tl»NFLAG(MtALPHA-23)J 38129500 

IF DIREC THEN Tl *T 1 , [8 » 10 3"1 INX Tl> 38130000 

MASM*P40? REEDI 38130500 

STREAM(YI«OlXl»0»Xll«O.X2l»0»Zl"Tl)l 38131000 

BEGIN DIlcLOC X; DSl*24 LIT "V0L1HDR 1HDR2E0F1E0F2E0V 1"? 38131500 

DI»*LOC X? 38132000 

6(TALLY»»TALLY+t? 38132500 

SH«Zl 38133000 

IF 4 SC*DC THEN 38133500 

JUMP OUT TO B)J 38134000 

TALLYI»0| 36134500 

Bl 38135000 

Yt*TALLY| 36135500 

END? 38136000 

IF (USAbl»»P)>0 THEN 38136500 

USASlTAPE(Tl,rCF3.USASI»4.U. DIREC) ELSE 38137000 

IF M[Tl INX 63, [24163*1 THEN 38137500 

BEGIN 38138000 

REED? 38138500 

MASK*«»60I 38139000 

Tl«-5&3C23|46f2] OR Ml 38139500 

T2*0l 38140000 

ENDJ 38140500 

IF T2 NEQ P40 THEN DO REED UNTIL T2,[42tl3 ELSE 38141000 

FOR CNTCTL*DIREC STEP 1 UNTIL 2 DOX DIREC » OR 1 XDB 38141500 

P( WAIT IOC 04740000005* (NOT DIREC ) [ 22 1 47 1 1] >P377 ,U ) »DEL) ? XDB 38 142000 

ENDJX XR9038142500 

IF BLEN « THEN XR9038143000 

BEGIN? STREAM(Bl*0,BF»»0»RJ»OlLl« M LABEL "» S I *M[ ALPHA-2 3 ) I XR9038 143500 

BEGIN SI$*LOC LI SH«SJ + 1? DIUDI + UX XR9038144000 

IF 7SC * DC THENX XR9038144500 

BEGIN SI I «SI SII»Sl+58? DII*LOC BF? DII"Dl»llX XR9038145000 

DSl*CHR? DSl»5 OCTI D&l*5 OCT? XR9038145500 

ENDX XR9038146000 

END STREAMI XR9038146500 

RLEN |« POLISH; BLEN »« POLISH? XR9038H7000 

STATE l» STATE & P< XCH) U6 I 46? 23 J XR9038147500 

FIBC183 I* RLEN & BLENtCTFJ & BLEN [ 3 t 33 1 15 3 1 XR9038148000 

END? XR9036146500 

CNTCTL*BLEN<1023IX XR9038149000 



END ELSEX XR9038149500 

IF KIND a 9 THEN* XR9038150Q00 

BEGIN UNUABEUED*CNTCTL«-i;X XR9038150500 

DIREOOJX XR903815100Q 

END ELSE* XR9Q38151500 

IF KlN0»li THEN XR9038152000 

BEGIN Tl*CIDR0WtU-32J,tl8ll5]J XR9038152500 

ClDR0W[U"32].tl8»15)*0; XR9038 153000 

DOCARDUABELl XR9038153500 

FIBC133, ttl9]*NBUFS»ll F I B 1 1 33 , [ 10 « 93*1 1 XR903815400Q 

IF 8UEN<10 THEN BLEN*10J XR9038154500 

END ELSE XR903815500Q 

DCNM FlLEMESSC«"I/0 ERR". 0. MF I D»F I D» REEL. CDATE, C YCLE ) 1% XR9038155500 

P(1)J XR9038156000 

IF BLFN*0 THEN GO TO DCNJX XR9038156500 

IF NOT FIBC16] t C 1 1 13 OR P THEN XR9038157000 

GETBUFFERS(BLEN»NBUFS»U» ALPHA); XR9038 157500 

dlNOM XR9038158000 

P(PlRCW[CTCltOfROS»0»XCH»P*P[CTFl»STF)l XR9038158500 

END OTHER FILE OPEN IN; 38159000 

PROCEDURE OTHERFILEOPENOUT(ALPHA); VALUE ALPHA; INTEGER ALPHA; 38200000 

BEGIN REAL RCW»+0»MSCW»»2; XR9038200100 

REAL I0M«I0MASK» I0MASK-+1; XR9038200200 

INTEGER NBUFS* + 2»FNUM» + 3»BLENs + 4iTYPE's + 5'REEL**6»CDATE* + 7» XR9038200300 

CYCLE*+8#M0DE«+9»I0*+10fRLEN«*H»UB*12#KIND*+13# XR903 8200400 

DIREC *+14> FORMS* +15 'COBOL* +16 .UNLABELED** 17 » 38 200500 

OPTIONAL«+18»CNTCTL«+19; 38200600 

REAL MFI0*+20»F lD«+21»Tl»+22»T2«+23'MASK«+24»STATE*+25; 38200700 

ARRAY FIB*+26[*3»FpB*+27C*j;* XR9038200B00 

INTEGER ACCESSp*28»F1B7*+29; XR9038200900 

ARRAY HEADER«+30[*];X XR9038201000 

REAL USASJ«NT1, RHEA0*HEADER; 38201100 

LABEL LPS»FlNDtDCN,PBS; 38201200 

SUBROUTINE TYPEOPEN;X JSR9038201 400 

BEGIN XR9038201500 

Tll*(0PNMESS AND ( ( T 11 *JARt P1M I X » J ) >0 OR 38201600 

COPNMESS AND TKO)) OR OPENKj 38201700 

NT2»*0; 38201800 

IF U<16 THEN 38201900 

STREAM(S»BPRNTABLElUJ,[30ll8)» DI*INT23}| 38202000 

BEGIN SIi*LOC S; DS;«8 DEC; 38202100 

DI»*DI-7I DS|«6 FILL; 38202200 

END; 38202300 

FILEMESSAGFCC OUT"H 38202400 

TlNUtU][6l30ll8], NT2» FPBCFNUMJ, FP6 [FNUM+ 1 3 . 38202500 

IF KIND»2 OR KIND«9 THEN P( REEL* CDATE ) ELSE P(0»0)» 38202600 

P*CYCLE»T1); 38202700 

END; XR9038202800 

SUBROUTINE REEDU XR9038203300 

BEGIN IF (T2*WAITl0(Tlt (MASK OR P40) &P377I CTF 3 »U) AND P367)*0 THEN38203400 

IF (T2 AND NOT MASK)#0 THEN XR9038203500 

BEGIN ST0PTIMINGCFNUM.1023); SETNOT I NUSECU.O ) i XR9038203600 

FILEMESS(* W PARITY "."ON ,,, w &TlNUtU3t24l30tl83»X XR9038203700 

MFID»FID»REEL»CDATE»CYCLE);X XR903820 3800 

END;* XR9038203900 

IF TERMSET(PIMIX) THEN XR9038204000 

BEGIN STOPTIMJNG(FNUM#1023); SETNOT I NUSECU. 0) ; XR9038204100 

GO TO INITIATE; IR9038204200 

END) XR9038204300 

END REED;* XR9038204400 



REAL SUBROUTINE CNTLBITSJX XR9038204500 

CNTLBITS-I0MASK4M0DEI21 147 I 1J4D1REC122I 471 1UCNTCTLI23I 4711 J 38204600 

4I0[24l47»l34(KIND*7 OR KIND>9 AND K I ND<12 > [ 20 j 47 1 1 3 XR3B204700 

4(IF K!ND*10R KIND*70R K I ND« 1 2THEN*>20ELSE 0) [ 27 » 421 6 J I 38204800 

SUBROUTINE LABELAREAlX XR9038204900 

MCT1*ALPHA-2 3*M OR ( GET SPACE C ( T 1*M[ Tl 3 • t 8 I 10 J ) +4 , 2, 1 )+4 ) *XR 9 36205000 

&Tlt8:38ll03&CNTLBITStt8»18|lbj;* XR90 38205 100 

X XR90382059Q0 

P(RCW»MSCW»STF)J XR9038210000 

RCWI*RCW&P(XCMHCTC]I XR90 382 10500 

IF STATE. C41U3 THENX XR9Q38211500 

BEGIN U*FIB[153,[25I5J|X XR9038212000 

END ELSE* XR9038212500 

BEGIN T25*FPB[FNUM+33i X SAVES COPIES FOR BACK UP 38213000 

IF CUl*FINDOUTPUT(MFID»FlD»TYPt 38213500 

t SET OMIT * NOT PACKETS 38214000 

4FPB[FNUM+33Cll23ll3 38214500 

I POP OMIT 38215000 

>F0RMS#REEl»CDATE»CYCLE»MND))>40 THEN 38215500 

BEGIN FIBtl4j,[3»153*U) XR9Q3821 6000 

FPBCFNUM+23.[18«30]*DATEJ XR90 382 16500 

IF MCP#NOT THEN M[ U + 2 3*USERCQDECP1M I X 3 i XR9038217000 

M[U+3 3*XCLOCK*PCRTR)> XR9038217500 

Tl J»SPACE(30)> 38218000 

M0VEC30»U#T1)J 38218500 

STREAM(DATE»BI*T1*3)> 38219000 

BEGIN SJlalOC DATE JDS I = 80CT I D I) *D I -8 J DS I »2LI T"+2"; END) 38219500 

M[Tl+13*(XCLOCK+P(RTR))4CMn 1*33 )t 61301 18J I 38220000 

MtTl+431* 0&SYSN0C4j46»23&lt2l47li3> 38220500 

M[Tl+53*(*P(DUP))4lt2l47tl3j ^ABORTED PBD TOG, 38221000 

M[Tl + 6 J I *0i 38221500 

MtU-13»»EUF(IF TYPE NEQ AND TYPE LSS 20 THEN 38222000 

"PBD " EUSE "PUD "»MtU+61»Tl-l>J 38222500 

FORGETSPACE(Tl)} 38223000 

FILEMESSAGECC IF TYPE GEO 20 OR TYPE«0 THEN "PUD.,,," 38223500 

ELSE "PBD..,, M )4M[U+63[24l6l243# 38224000 

"OUT M 4M[U+63t30i3Oil83» 38224500 

MFID*FID»0»0»0» 38225000 

CPBDREL OR QPNMESS) OR OPENKJJ 38225500 

STARTIMING(FNUM»U*18)I XR9038226000 

FPB»»PRT[P1MIX,3U X STARTIMING MAY HAVE MOVED IT, 38226500 

END ELSE XR9038227000 

BEGIN XR9038227500 

STARTIMING(FNUM,U)U XR90 38228000 

FPBI«PRT[P1MIX,33* X WATCH OUT FOR STARUMJNG, 38228500 

TYPEOPENIX XR9038229000 

IF TYPE«5 OR TYPE*8 OR TYPE»9 THEN UNLABELED*ll X XR9038229500 

IF U<16 THEN BEGIN RRRMECH*TW0( U) OR RRRMECHJ XR9038230000 

PRNTABLE[U3,C15»15J*ALPHAJX XR90 38230500 

ENDJ ENDI XR9038231000 

END!* XR9038231500 

IF KIND"6 THENX XR9038232000 

BEGIN BLENlMOl 38232500 

FIBtl8JI=(*P(DUP))4BLEN[CTC3 4BLENtCTF3 4BLEN[3l33ll53) 3823 3000 

MODE«-DIREC*CNTCTL*OJX XR903823 3500 

END ELSEX XR9038234000 

IF KIND»1 THENX XR9038234500 

BEGIN M0DE*DIREC*CNTCTL*0|X XR9038235000 

LPS! XR9038235500 

IF NOT COBOL THEN M[ ALPHA"23 *0415[ 8 J 38 I 103 ; X XR9038236000 



END ELSE* XR9038236500 

IF KIND*12 THEN XR9036237000 

BEGIN TYPE»1F CTYPE#0 AND TYPE<20) THEN 15 ELSE 22; 38237500 

PBSl M0DE*DIREC*0| F IB[ 1 3 J , t U 9 ]*NBUFS*CNTCTL*H F I B[ 1 3] , [ 10 1 9 U\l 38238000 

BLEN*IF TYPE*20 THEN 10 ELSE IF BLENM7 THEN 17 ELSE BLENJ 38238500 

M t Tl *GET SPACE ( 92 t 3. J ■ )+2 J*M[TIMJ*[M[ ALPHA JHCT 1+2) [ CTF UXR9038239000 

UC 1214216]; 38239b00 

DISK!0(RHEAD»*T1-77.9»JAR[P1MIX»6],[CFJ>; 3824 0000 

MtALPHAJJ»Tl+2* 38240500 

FIBtl4J»(*P(DUP))*(Tl*2)[CTCH(TU56)CCTFJI XR90 3824 1000 

F!B[l8J*<*PCDUPmBLENCCTC]*BLEN[CTF)lBLENC03l33ll5JI XR90 3824 1500 

STREAM(D*TU1)1 2C36(DS*8 LlT"0 M ))l XR9038242000 

FIBt53,[FF]*(MrTl+9U*FIBt5],[FFJ4ltl8l47in) + n XR9036242500 

SLEEP([«HEAD]f IOMASK); 38243000 

HEADERl*(MtTim92[8t38»10Jl 3824 3500 

HEADER[74]*MFID; XR9038244000 

HEADER[75]*FIDJ XR9038244500 

HEADFR[87]*F0RMS; XR9038245000 

HEADERC88]«»T2,[15l83j % COPIES 36245500 

XR9038246000 

HEADFRE76]*ABS(JARtPlMIX,01)l XR90 36246500 

HEADER[77)*ABS(JAR[P1MIX»U)J XR903824 7000 

GO TO LPS» XR9038247500 

END ELSE XR9038248000 

IF KIND*7 THENX XR9038246500 

BEGIN TYPEMF CTYPE*0 AND TYPE<20) THEN 6 ELSE 20J 38249000 

IF SVPBT THFN SAVEWORD « *TWOC U ) OR SAVEWORDJ 38249500 

GO TO PBS* XR9038250000 

END ELSE* XR9036250500 

IF KIND*2 THENX XR9038251000 

BEGIN IF PRNTABLECU1>0 THEN GO TO DCN;X XR9036251500 

CNTCTL*MODEl« XR9038252000 

END ELSE* XR9038252500 

IF KINDsB THENX XR9038253000 

BEGIN UNLABELED*CNTCTL*1U XR9038253500 

DIREC*0;X XR9038254000 

ENDJX XR9038254500 

IF UNLABELED THENX XR903825500Q 

BEGIN IF COBOL THFNX XR9038255500 

BEGIN MASK*0;X XR9038256000 

IF KIND*1 THEN BEGIN T 1*P4000100000| REED END ELSE*XR938256500 

IF KIND*7 OR KIND»12 THEN XR9038257000 

BEGIN 38257500 

IF TYpE < 20 THEN 38258000 

BEGIN 36258500 

HE ADERC 73 3**15401 76000 100000&FIB[5 J CFTC] J 38259001 

F!B£5MFF]*FJBt5) f [FFJ + ll XR9036259500 

FIBtl43,[FF JJ*Tl+38; 38260000 

END; 38260500 

GO FIND! 38261000 

END; XR9038261500 

END;* XR9036262000 

END ELSE* XR9038262500 

BEGIN IF COBOL THENX XR9038263000 

BEGIN M[ALPHA"2)«-P(DUP,L0D)UNTLBlTS[18ll8»15j;X XR9038263500 

IF U<16 THENX XR9038264000 

STREAMCN*PRNTABLEtU3tt30»l8J.D*M[ALPHA-2J);X XR90 38264500 

BEGIN SI*LOC N; DI*DI+53; DS*5 DEC END;X XR9038265000 

END ELSE* XR9038265500 

BEGIN IF REEL»0 THEN KtEL-U* XR9038266000 



IF CYCLE>0 THEN CYCLE*ilX XR9038266500 

IF CDATE"0 THEN STREAMCDAT E« CD* t COATE J ) } X XR9038267OO0 
BEGIN SI*LOC DATE) SJ»S!+3J DS*5 OCT END» 38267500 

LABELAREAJX XR9038268000 
BUILDUABFL(M[ALPHA-2JtMFID»FlD»REFL#CDATE»CYCLE#X XR9038266500 
FIB[«J»CIf U<16 THEN PRNTABLEt U3 . E 30 I 18 3XXR38269000 

ELSE 0)»STATE,U6*23»X XR9038269500 

BLEN»RLEN)jX XR9038270000 

ENDlX XR9038270500 

MEMULPHA-23 INX P( DUP ) , 1 8 » 10 J ] *P3700000000000000 i % XR9038271000 

IF CPCKIND#DUPW OR ( P( XCH.OUP )«12 OR P(XCH)si)) THEN 38271500 

IF KIND«7 AND F I Bl 1 3 3 . C 28 : 10 3 *COBOL THEN GO FIND ELSE 38272000 

BEGIN IF TYPE GEO 20 THEN 38272500 

BEGIN MCMCALPHA-2] INX 4 J » *FLAG( NABSC JAR [ PI MI X. J ) ) I 38273000 

MIMCAL.PHA-2J INX 51 I *FLAGC JAR IP1M 1 X » 1 J& 17 t It 43 I 53 ) ) 38273500 

STREAMCAl»[MtM[ALPHA-23 INX 633)* 38274000 

BEGIN DSl-15 LIT" PUNCH BACK-UP H J DS1«LIT"X"; 38274500 

2(DSJ«=8 111*%%%%%%%%"); 38275000 

END? 38275500 

END ELSE 38276000 

BEGIN Tll*M[MrALPHA"23 INX 33* 38276500 

DISKWAITC-CMULPHA-23 INX 4 } » 10t JARE P1M I X »63 1 1 CF 3 ) ; 38277000 

M[MCALPHA-2J INX 1 3 3*FLAGC NABSC JAR[ P 1H I X » 03 ) HOC 2 I 47 I 13 t 38277500 

M[MIALPHA-2 3INX 1 4 ] *FLAGC JARE P1M I X» 13 & 1 71 1 * 4 3 » 5 3 ) J XR90 38278000 

MtMCALPHA-23 INX 33«*T1; 38278500 

ENDI 38279000 

MCMULPHA-23 INX 1 J I »MF IDI 38279500 

MCMCALPHA-2J INX 23-FlDi XR9038280000 

IF KINDM THEN M[ ALPHA"23*PCDUP»L0D)& 1C27 » 42J 63 ELSEXR3828Q500 

BEGIN HFADERt733«-FIBf53.tFF3&(TYPE<20)[CTF3& 38281000 

15C3I43I5JJ 3828lb00 

FIB[53*P(DUP»L0D»0»l»CFXi+)? XR9038282000 

STREAMC L*M[ALPHA-2 3tB* I HEADER E 5633)1 XR9038282500 

BEGIN SI*l; DS*17 WDS END» XR9038283000 

F1BCH3,CFF3*[HEADER13833; GO FIND* XR9036283500 

ENDJ END; XR9038284000 

T1*NFLAGCM[ALPHA-23)U XR9038284500 

MASK*0| REED** XR9038285000 

IF KIND»2 THENX XR9038285500 

BEGIN T2*P1737000000000000J* XR9038286000 

T1*NFLAGCET23)>X XR9038286500 

REED;X XR9038287000 

END** XR9038287500 

ENDIX XR9038288000 

P(0)l XR90382B8500 

IF BLEN*0 THEN 38289000 

DCNII FlLEMESS(» M I/0 ERR w *0iMF I D»M D» REEL* CDATE#C YCLE) ; 362892S8 

IF NOT FIBE163,tlU3 OR P THEN XR9038289500 

GETBUFFERS(BLEN,NBUFS#U»AUPHA3; XR90 38290000 

FJNDM XR9038290500 

P(P&RCWCCTC3»0»RDS*0#XCH»P4P[CTFJ»STF)> XR9»3829100Q 

BND OTHER FILE OPEN OUT; 38291500 

PROCEDURE DISKCLOSECALPHA); VALUE ALPHA; INTEGER ALPHAS XR9038355000 

BEGIN REAL RCW«+Q»MSCW«-2I XR9038356000 

ARRAY FIB»*l[*3»FPB«+2[*3#HEADER»+3t*3;X XR9038357000 

XXX DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" XXX WCPXR38358000 

INTEGER KlND»44*NBUFS«B*5.U**6»BLEN* + 7»C0DE**e# XR9038359Q00 

UNLABELED*+9iC0B0Le+l0iI«+ll»J»*12»FNUM»+13J 38360000 

REAL MlD"'+H#FID»+15iR"*16#D**l7»C"+18»F0RMSi»*i9»STATE»+20> 38362000 

LABEL L1#L2#L3»E0F»CLEANUP; 38363000 



LABEL OBJTYPE* DUMMYI *R9038364000 

REAL Tl«*21fT2«+22>T3*+23»10D*+24; *R9038365000 

ARRAY SEG0*+25C*J»SKEL**26(*3I XR9038366000 

REAL T«*27»ACCESS**28IX 38366010 

BOOLEAN COMPQOw+291 38366020 

SET OMIT « NOT SHAREDISK 38366099 

DEFINE 38366100 

LASTLOCK * HEADER[30]#» 38366200 

IMPLOCK ■ HEADER1313#» 36366300 

PROGRAMLOCK « MtFPB 1NX NOT OJfl 38366400 

LABEL LSTUNLCKiIMPUNLCKiIOFINU 38366500 

SUBROUTINE SDCOOLOFFJ 38366600 

BEGIN 38366700 

FOR 1*0 STEP 1 UNTIL NBUFS-1 DO, 38366800 

BEGIN 38366900 

IF NOT Mf ALPHA+Uttimj THEN 38367000 

BEGIN 38367100 

IF C(T*M[M[ALPHA+Un EQV LASTLOCK ) *NQT THEN 38367200 

LSTUNLCKI T*LASTL0CK ELSE IF (T EQV IMPL0CK)*N0T THEN 38367300 

IMPUNLCKI T«-NAB5< IMPLOCK) ELSE 38367400 

BEGIN 38367500 

SLEEP([M[ALPHA*I33»IOMASK)| GO TO IQFINIJ 38367600 

ENDI Tl*T2*0| 38367700 

FOR J*0 STEP 1 UNTIL CLQAVAlL-1) DO 38367800 

IF ((T3*LQUEtJ3).t8l403 EQV T , t 8 I 40 3 )*NOT THEN 38367900 

IF L0CATGUE[T3,C1 173 J , C3»5 JsPlMJX THEN 38368000 

BEGIN 38368100 

IF J < CLQAVAIL*L«AVAIL-1) THEN 38368200 

STREAM(A«.LQAVAlL-JiB*tLQUEtvlJJ)J 38368300 

BEGIN SI*B> Si*Si*8l DS*A WDS END* 38368400 

RETURN!0SPACE(T3,ni7])> 38368500 

T1*U 38368600 

END ELSE T2*ll 38368700 

IF NOT (Tl AND T2) THEN 38368800 

BEGIN 38368900 

IF NOT Tl THEN 38369000 

BEGIN 38369100 

IF I<NBUFS THEN 38369200 

SLEEPC[M[ALPHA*I3 3» IOMASK)! 38369300 

Tl*ABS(T) OR 02060; X UNLOCK ADDRESS 38369400 

END ELSE 38369500 

Tl*CABS(T) OR e60USYSN0[30l46l23J X CLEAR ADR38369600 

P(WAlTlO(tTl3 INX Pl0O0OOOOO,O#l8)fDEL)J 38369700 

ENDJ 38369800 

IF T GEO THEN PR0GRAML0CK*LASTLQCK*O ELSE 38369900 

IMPL0CK*0| 38370000 

END; 38370100 

IOFINIi 38370200 

ENDI 38370300 

IF LASTLOCK#0 THEN GO TO LSTUNLCKJ 38370400 

IF IMPL0CK#0 THEN GO TO IMPUNLCKI 38370500 

END SO COOLOFFI 38370600 

POP OMIT 38370601 

SUBROUTINE COOLOFFJ 38370700 

BEGIN FOR 1*0 STEP 1 UNTIL NBUFS-1 DO* 38370800 

BEGIN IF NOT M [ ALPHA* 13 1 1 \9 1 1 3 THEN* *R9038371000 

SLEEP(CM[ALPHA*I3J#I0MASK>IX XR9038372000 

IF KIND#4 THEN XR9038373000 

IF MULPHA + 13, [27113 THEN GO TO EOFU XR9038374000 

END;* *R9038375000 



gOFJ END COOLOFFJX *R90363760Q0 

% 38376500 

BOOLEAN SUBROUTINE WRITTENON; % PICKS UP THE ACCESSED BITS FROM38377000 

BEGIN JJ»0; * THE BUFFERS, 38377200 

IF (TI»FIB[10J,[3I15J) NEW THEN 38377400 

BEGIN 38377600 

FOR Il*NBUFS-l STEP "1 UNTIL, DO 38377800 

IF Mm, [UUJ THEN vJj»li*M ELSE 1 * »M[T3 , [FF 3-2; 38378000 

END) 38378200 

WRITTENONlsjl 38378400 

END* 38378600 

* 38379000 

DEFINE REW*C0DE,t47ll3#»X XR9038380000 

KRUNCH*NOT CODE.[42ll3#» XR9O363810Q0 

REL*C0DE.C46lU*»* XR9036382000 

TIME»C0DE.[45U3#»* SR9038383000 

LOCK«N0T C0DE.[44*13#»* XR9038384000 

PURGE«NOT COOEiC43H3f JX XR9038385000 

DEFINE TECH«STATE,C46J23#» OPEN I0*F I Bt 1 3 3 , t 22U 3# » 38385400 

WRITBACK«FlBtl33,t23»l3#f LAST IO*F IB[ 133 , [ 46 ! 1 3* * 38385500 

WRITEAFTERE0F»FIBC133.C44»23#> I NPUT*STATE , [ 43 t 1 3#; 38385600 

% XR9038386000 

% START OF CODE 38386010 

X 38386020 

PCRCW.MSCW.STF ); NCW ♦ RCW & P<XCH>ICTCJJ 38387000 

HEADER * FIBC143; ACCESS ♦ F"lBC*l , [271 3 J I 38388000 

IF COBOL THEN 38389000 

BEGIN IF COBOL > THEN % COBOL 61 38389100 

BEGIN IF WRITBACK AND TECH»0 AND LASTIO AND 38389200 

(OPENIO OR NOTCINPUT)) THEN 38389306 

IF ACCESSsl AND WR 1 TEAFTEREOF#0 THEN 38389400 

BEGIN FIB173 *■ *P(DUP) - II 38389500 

HEADERC73 * *P(DUP> - 1) 38389600 

END ELSE WRITEAFTEREOF * 0; 38389700 

IF UCH*0 THEN IF WR I TEAFT ERE0F«2 THEN 38389800 

BEGIN FIBC73 + *P(DUP) ♦ H 38389906 

HEADER[73 ♦ *P(DUP) + II 38390000 

END ELSE IF WR I TEAF1 ERE0F«1 THEN 38390100 

BEGIN FIB[73 * *P(DUP) - U 38390200 

HEADER[73 * *P(DUP> - II 38390300 

END! 38390400 

WRITEAFTEREOF * 0? 38390500 

END! 38391000 

IF ACCESSM THEN % IF RANDOM 38391100 

BEGIN IF COBOL > THEN % C0B0L61 38391200 

BEGIN ACCESS * 4| 38391250 

IF FIB[133,C10I9J ■ 2 THEN % SEEK IN PROCESS 38391300 

BEGIN 38391350 

S SET OMIT » NOT SHAREDISK 38391399 

IF FPBtFNUM+33,C43l53«26 THEN 38391400 

SDCOOLOFF ELSE 38391450 

S POP OMIT 38391451 

COOLOFFI F1BU3], [10*93 * II 38391500 

END 38391550 

END ELSE IF FIB[171<6LEN THEN ACCESS*4; * C0B0L68 38391600 

END; 38391700 

IF FIBC133, [23113 AND ACCESS*Q THEN 38391800 

BEGIN FIB[73*PCDUP»L0D)-i; 38391900 

ACCESS*4I 38391910 

end; end; 38391950 



IF NOT STATE. 1*1113 THEN* IR9038392000 

BEGIN IF ACCESS*1 THEN* SR9938393000 

BEGIN 38394000 

S SET OMIT " NOT SHAHEDISK 38394099 

IF FPB[FNUM+33, [43153*26 THEN 38394100 

SDCOOLOFF ELSE 36394200 

S POP OMIT 38394201 

CQOLOFF) 38394300 

END ELSE* XR9038395000 

IF ACCESS*0 THEN* KR9036396000 

BEGIN COOLOFFI IF NOT STATE,[43»13 THEN* XR9038397000 

IF FIBI173<BLEN AND S TATE , [ 46 J 2 3 *0 THEN* *R9038398000 

BEGIN R »* SPACECCC6LEN+29) Dl V 30)x30 + 1)J 38399000 

IF <M[R]*M[PIBtl63]*» SR903B400000 

DlSKADORESS(MIDiFlD»FPB[FNUM+33>FlB[73-l»HEADER»0)) NE« THEN % C SHM) 38401 000 

BEGIN 38401500 

PCWAITIOCFIBC163&H 24 »47tl3 &R [ 33 » 331153* % XR9038402000 

0»U)»DEL)l» IR9038403000 

M0VE(FIB[in»R+BLEN-FIB[l/3+l#X *R90 38404000 

FIBC163 INX BLEN~FIB[173+1)|K XR9038405000 

P(WAITIO(FIB[163'0»U)»OED>* XR9038406000 

IF NOT FIBI163, [24113 THEN HEADER [ 4 3 , [ 1 1 ' 1 3 *1 * 38406500 

ENDI 38407000 

FORGETSPACE(R)JX SR9038406000 

ENDJX XR9038409000 

END ELSE* XR9038410000 

BEGIN 38411000 

S SET OMIT ■ NOT SHAREDISK 38411009 

IF FPB[FNUM+33,[43I5]«26 THEN 38411010 

SDCOOLOFF ELSE 38411020 

$ POP OMIT 38411021 

COOLOFF I 38411030 

IF (FIBC173 LSS BLEN AND STATEi t 46 t 23#0) OR 38411500 

ACCESS«4 THEN 38412000 

BEGIN IF ACCESS*4 THEN 38412500 

IF FIBC133, [23J13 OR NOT STATE, [43»13 THEN 38413000 

ACCESS 1= 21 38413500 

IF CM[FIBU6]3I=D!SKADDRESSCMID»F!D#FPB[FNUM+33»F IB[73# % ( SHM ) 3641 4000 

HEADER»0))*0 THEN ACCESS I* 4» 38414200 

IF ACCESS#4 THEN 384144Q0 

BEGIN P(WAlTI0CFIB[l6]&0[24»24ll3»0tU).DEL)> 38414500 

HEADER[43,[liU3-U END* 38414600 

END) IF ACCFSS « 4 THEN ACCESS J* 2) 38414800 

ENDU XR9038415000 

ENDIX XR9038416000 

HEADERC43,[43ll3t»FPB[FNUM*|3,[15|13) 38417000 

IF (NOT REW) OR LOCK OR REL OR TIME THEN XR9038419000 

BEGIN XR9038420000 

FORMS*HEADER[33J XR9038421000 

STREAM(PF*(FIB[4]3»D*-FPB[FNUM + 23.tl8l303»H*[HEADER[33 3»S*[T3)»XR9038422000 

BEGIN SI*PFIS1*SI*5IDS»3 0CT)SI*L0C D;DI*HJDS*8 OCT END) XR9038423000 

HEADERC33»(P(0UP»L0D#SSN))&<P(DUP))[12I30I183&T[2I38»103I XR9038424000 

END) XR9038425000 

IF LOCK OR HEADER[43,t43Jl3 THEN 38426000 

BEGIN IF NOT HEADER[43 THEN % FILE IS BEING CREATED 36427000 

BEGIN XR903842800Q 

IF KRUNCH THEN KRUNCHERCHEADER > I KR9038429000 

HEADER[43.[9»3]l«5)il MARK AS NEW FORMAT # ACCESSED BR903843000Q 

IF JAR[PlMlXiO] < AND FIB[4J,[29UJ THEN IR9038431000 

% COMPILER CLOSING CODE FILE WITH LOCK *********************************38432000 



BEGIN XR9036433000 

SEG0l«[M[GETSPACE(62»2»5)+2J]*30t8l38H0]| 38434000 

SKFL * 31 INX SEGOl T3 * JAR t P1M IX. 2 J , [FF 3 1 XR9038435000 

X READ IN SEGMENT ZERO XR9038436000 

DISKWAJT(»SEGOt[CF3»30»HEADER[103)J XR90 384 37000 

X READ IN SKELETON SHEET XR9038438000 

DISKWAIT(»SKEL.[CF3»30»T3)* XR9038439000 

IF SKEL[203<0 THEN SKEH20] «• SEGO t 7 J , CFF3 i XR903844000Q 

IF JARtPlMlX#2J,t8llO]«l THEN XR9038441000 

BEGIN * COMPILE AND GO *********+************38442000 

DISKWAITCSKEL.[CF3»30,T3)J XR903844 3000 

COMPGO * TRUE* XR9038444000 

END XR9038445000 

ELSE XR9038446000 

BEGIN X COMPILE TO LIBRARY *************«****38447000 

FOR Tl * 15 STEP 1 UNTIL 22 DO XR9038448000 

SEGOtTU * SKELIT13; XR9038449000 

IF (T2 * SKELU33) •■ THEN GO TO L3I XR9038450000 

SKELU33 * 0; X IN CASE I CALL TERM I NATEXR93845 1 000 

DISKWAlTCSKELf CCF3»30»T3)J XR90 38452000 

IF (Tll*DISKADDRESS(MlDfFID»FPBtFNUM + 3]iHEADERmiB X ( SMM5 38453000 

(*P(DUP)U1#HEADER»0))«0 THEN 38454000 

FILEMESSC^DISK M i H OVRFLOW w »MID»FID»38455000 

R,D»C); IR9038456000 

SFG0C15J - Tl «- HEADER[7); XR9038457000 

Li? DJSKHUITC-SKEL,CCF]»30»T2)? XR9038458000 

F0RGETESPDISK(T2)» XR9038459000 

IF (T2*SKELC29J) ■ THEN GO TO L2? XR9038460000 

IF (T3l»DlSKADDRESSCMlD»FID»FPBtFNUM*33» X ( SHM ) 38461000 

HEADERl73l«(*P(DUP>)+l» 38461500 

HEADER»0))«0 THEN XR9038462000 

FILEMESSC'DISK "» "OVRFLQW"»M I D»F I D» 3846 3000 

R»DiC)l XR9038464000 

SK£L[293 * T3 * HEADERC73J XR9038465000 

DISKWAITCSKEL, tCF3»30» XR9038466000 

I*HEADERIT1 DIV HEADER! 8 ]+ 10] ♦ XR9038467000 

Tl MOD HEADER£8])J XR9038468000 

Tl ♦ T 31 XR9038469000 

GO TO Lll XR9038470000 

L2I DISKWAlTCSKEL,CCF3f 30> XR9038471000 

I*HEADERCTt DIV HEADER C 83 + 10 J ♦ XR9038472000 

Tl MOD HEADERC83)! XR9038473000 

L3J SEG0[6j * PCDUPfLOD»SSN)J X "NEW F0RMAT"XR9384740O0 

HF.ADER[43»[1Q»13*1|XMARK AS PROGRAM F 1 LEXR938475000 

OISKWAlT(SEGO,tCF3#30.HEADERUOj)J XR9038476000 

END 80PY OF LABEL EQUATION CARDSI XR9038477000 

FORGETSPACECSEGO)! XR9038478000 

IF HEADERCn<HEADERt8]-l THEN XR9038479000 

BEGIN F0RGETUSERDISK(HEADER[10]*HEADER[7J*1»XR38480000 

HEADERC73-HEADERC83 + DI 38481000 

HEADERI8J ♦ HEADERC73+U XR9038482000 

END) XR9038483000 

FOR Tli*M STEP 1 UNTIL 4 DO XR9038484000 

DUMMY tl IF P(,0BJTYPE»T1»+.L0D) « XR9038485000 

ABS(JARCP1MIX,03) THEN XR9038486000 

HEADERCAJi 13616 J l»T 1*21 XR9038487000 

END CODE FILE? 38488000 

HEADER t l3*F0RMS&HEADERt 33 C6 1301 183; XR9038489000 

IF CHEADERC23»"USERcODECPiMlX3),mn THEN XR9038490000 

HEADERt23l*0) XR98364910Q0 



HEADERI5J l« HEADERI63 «* 0; XR9038492000 

* XR9938493000 

IF C0MPG0 THEN XR9938494000 

BEGIN PRTIP1MIX»P26J*I0D*GETESPUISKJ XR9038495000 

DlSKWAlT(HEADERtlCFJ»30#I0D)l XR9* 38496000 

END ELSE XR9038497000 

BEGIN XR9038498000 

ENTERUSERFlLE(MlDtFlD»HEADER.tCF 3-l)> XR9$ 38499000 

END* XR9038500000 

ENDIX XR903B501000 

END!* XR9038502000 

IF REW AND NOKLOcK OR REL OR TIME) THEN 38503000 

BEGIN 38503200 

IF HEADERI43 THEN 38503400 

IF WRITTENON THEN HEADER! 4 3 , 1 1 1 » 1 3 I *1J 38503600 

STATE, I39»43l»2J 38503800 

END ELSE 38504000 

BEGIN 38504500 

HEADER! n*F0RMS&HEADER[3J [61 30U8 3 i XR9038505000 

IF HEA0ERC4] THEN X FILE IS ALREADY IN DIRECTORY 38506000 

BFGIN 38507000 

Jl«WRlTTENON OR HE ADEN C 4 ) , L 1 1 1 1 Jl 38507500 

t SET OMIT » SHAREDISK 38507799 

IMF Fl8!5j,[lll3 OR NOT J THEN F IB t 5 3 , ! 1 3 * 3 1 + 10 ELSE 38508000 

(HEADER I NX 0)&FIB[5][30«13«3]> 38508500 

* POP OMIT 38508501 
t SET OMIT « NOT SHAREDISK 38508599 

I*((FPB!FNUM+33 AND 31 )»26) &F I BC 53! 30 1 1 3t 3] I 38506600 

I * I K FIB[5J,I1<13 OR NOT J THEN IF I THEN 22 ELSE 38508700 

I.tFFJ+10 ELSE (HEADER INX 0)&(IF I THEN 12 38508800 

ELSE I.fFFJHCTFll 38508900 

* POP OMIT 38508901 

lF(I»DIRECrORYSEARCH(MID»FID*J[3l47MJiI))#0 THEN 36509000 

IF PURGE THEN 38510000 

IF M[I*4J, [12143*0 THEN 38511000 

IF NOT SYSTEMFILE(MID>FID) THEN 38512000 

IF SECbMTYCHECK<MlC»FIDiUSERC00E[PlMlX],IM45lU THENXR9 3851 3000 

XR9036514000 

P(DlRECT0RYSEARCH(-MID»FlD»7)iDED) 38515000 

IF I#0 THEN FORGETSPACE(I)! 38516000 

END ELSE* XR9038517Q00 

IF NOT LOCK THEN* XR9038518000 

IF HEADER[4J,[43U) THEN P( D I RECTORYSEARCH( "M I D *T I D» 7 ) » DEL ) ELSE 38518500 

BEGIN XR9038519000 

HEADER! 23*USERC0DECP1MIX3) XR9038520000 

DISKL0GCMID»FID»HEA0ER)I XR90 38521QQQ 

FOR 1*10 STEP 1 UNTIL 29 DOX XR9038522000 

IF HEADERtI3)«0 THEN FORGETUSLRDI SK( HEADERU 3 » -HEADER! 8 3 ) J X XR938523000 

ENDI XR9036524000 

FORGETSPACE( HEADER) I XR90 38525000 

STATE. I39I4]*1!X XR9038526000 

END) 38527000 

IF NOT COBOL THEN F I BI 4 3 , 127 I 33»3| XR9038528000 

GO CLEANUPJX XR9038529000 

OBJTYPEUI "BASIC " » XIX XR9038530000 

"ALGOL "# X2X XR9038531000 

"COBOL % X3X XR9038532000 

"FORTRAN"* X4X XR9038533000 

"TSPOL "» X5X XR9038534000 

"XALGOL "» X6X XR9038535000 



0* XDUMMYX XR9038536000 

CLEANUPl XR9038537000 

P(P&RCWtCTC3#0»RDS»0iXCH»PlPtCTF J.STDI XR9038538000 

END DISK CLOSE) XR9038539000 

PROCEDURE BACKCUOSE(ALPHA)? VALUE ALPHA) INTEGER ALPHA)* XR9038540000 

BEGIN REAL RCW*+0»MSCW«-2J XR9038541000 

ARRAY FIB*+l[*3.FPB=+2t*3tHEADER*+3t*3)X XR9038542000 

%%% DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" %%% WCPXR38543000 

INTEGER KIND**4#NBUFS*+5»U«+6#BLEN*+7>C0DE»+8. XR9038544000 

UNLABELED»+9,C0B0L**10#I»*11,J*+12»FNUM*+13) 38545000 

REAL MlD**H»FID«+15»R*+16»D*+l?»C*+l8»FQRMSs+19iSTATE»+20) 38547000 

LABEL AGAIN»E0F»E0T.CL0SE0UT»PBD»PUD) 38548000 

REAL Tls+2i.T2»+22»T3p*23#I0D*+24) XR9038549000 

ARRAY SEG0«+25C*3.SKEL«+26[*J) XR9036550Q00 

% XR9038551000 

SUBROUTINE COOLOFF)* XR9Q385520Q0 

BEGIN FOR 1*0 STEP 1 UNTIL NBUFSM DO* XR90385530Q0 

BEGIN IF NOT M[ ALPHA+ 13 , t 19 \ 1J THENX XR9038554000 

SLEEPUMtALPHA+I J 3» 10MASK))X XR9038555000 

IF KIND#4 THEN XR9036556000 

IF MCALPHA*n,C27ll) THEN GO TO EOF U XR9038557000 

ENDJX XR9038558000 

EOFJ END COOLOFF)* XR9038559000 

% XR9038560000 

REAL T»+27»ACCESS*+28)X XR9038561000 

BOOLEAN C0MPGQ*+29) XR9038562O00 

REAL TYPL»+30) 38562100 

DEFINE REW«C0DE,[47«1J#»* XR9038563000 

REL«C0DE f C46I 1 J##* XR9038564000 

TIME*C0DE,[45ll3#tX XR9038565000 

LOCK*NQT C0DE.C44ll]#»!l XR9038566000 

PURGE=N0T C0DE,[43»13#?X XR9038567000 

I SET OMIT * PACKETS 38567950 

DEFINE TOREELNO * 33«33»15«) 38568000 

S SET OMIT « NOT PACKETS 38568050 

DEFINE TOREELNO * 42»42l6#) 38568100 

$ POP OMIT OMIT 38568150 

* IR9038569000 

SUBROUTINE CKBKUP) XR9038570000 

BEGIN MCMIALPHA3INX 17 J*M( ALPHA J& ( F IBC6 3 HFTC3) 38571000 

FIB[53«-P(DUP»L0D»0»1»CFX»*JJ XR9038572000 

IF NOT PRTR0W[P1MIX],[7I13 THEN 38573000 

IF FIB[l43.[CF3«FIBri4J,tFF3 38573100 

THEN BEGIN PB10(ALPHA»FIB[MJ)lSLEEP<lMCALPHA3J»I0MASK)END ELSE3B574000 

BEGIN) STREAM(S* Mf ALPHA 3 » Z*F I B[ 14 ] , [ FF 3 ) ) XR9036575000 

BEGIN Sl»S) DS*J8 WDS END) XR9038576000 

FIBtl4 3»[FF3*P(DUP),CFF3-18) XR9038577000 

END) END) XR9038578000 

PCRCW.MSCW.STF); XR9036580000 

RCWl»RCW&P(XCHHCTC3) XR9038581000 

J*LOCK> 38581100 

IF Tl*(FlBt9J.Clll3 AND K1ND«7) THEN * MULTl'KtLL PBT FJL£ 3B561200 

BEGIN 38581300 

FIB[93, [1113*01 36581400 

COOLOFF) 38581500 

GO TO EOT) 38581600 

END) 38581700 

IF F!Btl73<0 THEN 38582000 

BEGIN Mf ALPHA3,tFFJ«-f>60020) IF TYPE<20 THEN CKBKUP) 38563000 

MCALPHA3,C16IU*0) CKBKUP END* XR9038584000 



ELSE If FIB[17]<BLEN THENX XR9038585000 

BEGIN IF NOT COBOL THEN F I B[J 7 3 *F I B [ 1 73-C STAT E , [ 46 I 2 3 «3 ) ; % XR9038586000 

STREAh(Nl«FlB[i7]tDl»M[ALPHAJ,[Cn)l 38587000 

BEGIN NCDS*8 LIT " ")* END; XAI38587500 

M[ALPHAJ*FLAG(FI8C16]&0[20U7»n); CKBKUPJ &R9038588000 

END ELSE COOLOFFJ SR9038589000 

MtALPHA]*(*P(0UP))*(P60000)[CTF]&(TYPE<20)[32i47lUl 38590000 

IF NOT UNLABELED THEM IR9038591000 

BEGIN IF TYPE<20 THEN CKBKUP; 38591100 

MCALPHAJ*C*P(DUP))*2[18l45l31*M[ALPHA-2]taiailO)l 38592000 

STREAM(L*MCALPHA-23»B*MCALPHAJ)I BEGIN SI*L* D5M7 WDS ENDl 38593000 

END; M[ALPHAJtt20HJ*il IF F I B[ 14 3 , t FF ] *F I Bl 143 , t CF] THEN XR9Q38594000 

BEGIN CKBKUP; F I B[ 14 J . [ FF 3*P( DUP ) f END; CKBKUP; XR9038595000 

IF KIND»J2 THEN % PBD SR9938596000 

BEGIN T*FIBC143, [3I15H XR9936597000 

IFCRl«M[T+73*3)*0 THEN XPRESUMABLY IMPLIES NO USER DISK38597500 

BEGIN 38598000 

IF R < PBDROWSZ THEN 38598100 

BEGIN F0RGETUSERDISK(M[T+10J*KfPBDR0WSZ-R+l); 38599000 

MCT+83-R; XR9Q36600000 

END* XR9038601000 

MCT*1J*M[T*3J| IR9038602000 

STREAM(A*FPBtFNUM+23,Cl8l303fT*T*3); XR9038603000 

BEGIN SI*LOC AJDS*8 OC T * I *D I -6 ; OS* 2 LIT"+2 M ; XR90366040QO 

SI*TISI*SI4-5I0S*3 CHR; XR9038605000 

ENDl XR9038606000 

MtT+l3,t6lie]*MtT+3].C30ll8j; XR9Q38607000 

IF II*TYPE>20 THEN MCT + 5 3 , [ 3 1 13 I *0; 38607100 

MCT*5 J , f 21 1 3*0* 38607950 

DlSKWAlT(T*30iMCT-13); 38608000 

R*M[T+6]; 38608050 

JI»R&1[T0REELN0J; 36608100 

AGAINJ P<DIRECTORYSEARCH(-(IF I THEN P(PUD) ELSE PC PBD ) ) . J» 1 4) . 38608200 

DEDI 38608300 

IF J#R THEN 38608400 

BEGIN STREAM(0NEI*1» D I *t J4 ) 5 38608500 

BEGIN SIl*L0C ONE; DSj*8 ADD END; 38608600 

GO AGAIN; 38608700 

END; 38608800 

$ SET OMIT » NOT PACKETS 38608890 

IF CTl»«PSEUDOMlXtPlMIXj)*G THEN PCI) ELSE 38608900 

IF PACKETPAGECT1-32J«0 THEN PCI) ELSE PCO); 38608910 

IF P THEN 38608920 

BEGIN PBC0UNTl*PBCOUNT+i; 38609000 

S POP OMIT 38609010 

IF AUTOPRINT 38609100 

THEN PCPRINT0RPUNCHWAITCRMC32l32ll6]»l)iDEL); 38609300 

t SET OMIT ■ NOT PACKETS 38609590 

END) 36609600 

S POP OMIT 38609610 

Tl»CLOSEK OR CPBDREL OR CLOSEMESS); 38617000 

F1LEMESSAGECCIF I THEN PCPUD) ELSE PC PBD) HR124 16 I 24 3 » 38618000 

CREL M HR[30I30!183»MID»F1D» 38618500 

FIBI73»0»0»T); 36619000 

END> 38621500 

FORGETSPACECFIBtl43,[3U53); F I B[ 143 , [ 31 153 I *0; 38621600 

END ELSE XR9036622000 

EOTl BEGIN T*ei7370QO0O0OO00OO; 38623000 

J*WAlTlOCm»MO#U)#0 OR J; XR9038624000 

I l» SPACEC8); XR9038625000 



BEGINS 



STREAM(PN:bTYPE GEO 20#DI«0»I)J 

BEGIN 

DSI*24L1T" LABEL 
PNCDI*D!I DII»DI-1 
20CDSl*2LlT" ")J 
ENDI 
IF NOT UNLABELED THEN M[I+4J* 
HCI+3]*T1I * MARK ENDING TAPE 
J*NA!T!O(|&0[6I3BI1OH51?1M5 
FORGETSPACECDlX 
FOR 1*0 STEP 1 UNTIL 1 DOX 

P(WAITIO(P1000000340000 
IF CTWOCU) AND SAVEWORD)#0 TH 
SETNOTlNUSECUtO) ELSE 



OPBTMCP ©BACK-UP"! 

41 DSI»2LIT"UT"J DI t »0) ; 



MtMULPHA-21 INX 4J,[42l6]J 
LABEL FOR MULTI-REEL COND, 
I3]»P40»U)#0 OR JJX 



005»P40>U)»DEL)|X 
EN* 



STATE 

PBD« I 
PUDM 
CLOSE 

END B 
PROCE 
BEGIN 



"J 
"i 



EOF» 
X 



RDCTABLEEUJ*(*P(DUP)U0[8l8l6] 
PRNTABLE[U3,C15tl5]*0l 
RRRMECHl«NOT TWOCU) AND RRRMEC 
It* IF (AUTOPRINT AND R*l) THE 
PRINT0RPUNCHWAIT(-U#TYPE G 
IF I THEN IF J THEN SETNOTINUS 

END! END! 
» [ F F J * 1 

GO CLOSEOUTlX 

* "PBD 
» "PUD 
OUTI 

p(p«,rcwcctcj»0#rds*0»xch>p&p[ 
ack closei 
dure otherclose(alpha)j value 

Real rcws+o»mscw*-2i 

ARRAY FIB«+lt*3»FPB»*2[*]»HEA 

DONT ADD ANY DECLARATIONS 
INTEGER KIND*+4»NBUFS«+5»U«+6 
UNLABELED«+9»C0B0L«+1 
REAL MID**14#FID»+15»R*+16#D* 
REAL Tl«+21»T2**22»T3*+23» I0D 
ARRAY SEG0»*25t*]#SKEL*+26t*] 
REAL T»+27.ACCESS«+28IX 
BOOLEAN C0MPG0»+29> 
LABEL PXfPBDI 

Label cR»LP»MTicL0SED»DKtSPtc 

SWITCH SW*C«»LP#MT.CLOSED»DK, 
LABEL EOF»0N»DNEtCLEANUP;X 
LABEL EODI 

SUBROUTINE C00L0FF1X 
BEGIN FOR 1*0 STEP 1 UNTIL NB 
BEGIN IF NOT MCALPHA-UJ 
SLFEPUMCAL 
IF KIND#4 THEN 
IF MtALPHA+I3,[27 
ENDJX 
END COOLOFFIX 



SRC 14 » 36 J 10 J ) 

HI 

N NOT 

E.Q 20) AND 1 ELSE II 

E(U#0) ELSE LABLLTABLECU], C1I53 



CTFJ»STF)I 

ALPHA! INTEGER ALPHAIX 

DER s f3l*]|X 

BETWEEN "HEADER" AND "KIND" XXX 

»BLEN«+7tC0DE»+8# 

0aI» + ll»>J« + 12#FNUM»+13l 

♦17tCs+18»F0RMSB+19tSTATE«+20! 

« + 24l 

J 



P#BKUP»PP#PR»DC»CD»CC! 
SP#CP>BKUP»PP»PR.DC»CD»BKUP| 



UFSM DOX 
itl9il] THENX 
PHA+m»IOMASK)|X 

III THEN GO TO EOFIX 



DEFINE RFW«C0DE.t47llJ##X 
REL*C0DE,[46!lJ*»X 
TIME*C0DE, [45I13#»X 
LOCK*NOT C0DEtt44ll]#f( 
PURGE-NOT C0DEtt43ll)#|X 



36626000 

36626100 

38626200 

36626300 

36626400 

38626500 

XR9036628000 

36626100 

XR9038629000 

XR9038630000 

XR9038631000 

XR9038632000 

XR9038633000 

XR9038634000 

XR9038635000 

38637000 

38638000 

38638500 

38639000 

36639100 

I«1IXR38640000 

XR9038641000 

XR9036642000 

XR9038643000 

XR9038644000 

38644500 

XR9038645000 

XR9038646000 

XR9038647000 

XR9038648000 

XR9038649000 

XR9038650000 

WCPXR38651000 

XR9038652000 

38653000 

38655000 

XR9038656000 

XR9038657000 

XR9038658000 

XR9036659000 

XR9038660000 

XR9036661000 

XR9038662000 

XR9038663000 

XR9038664000 

XR9038665000 

XR9038666000 

XR9038667000 

XR9038668000 

XR9036669000 

XR9036670000 

XR9036671000 

XR9038672000 

XR9038673000 

XR9038674000 

XR9038675000 

XR9038676000 

XR9038677000 

XR9038678000 

XR9038679000 



SUBROUTINE EMPTY;* XR9038680000 

IF FIB[173<BLEN AND ( ST ATE • [ 46 I 2 ] /O OR K IND*1 ) THEN XR903868 I OOO 

BEGIN IF NOT COBOL THEN F I B[ 1 7 ] *F I Bt 17 ]-( ST ATE ,C 46 : 2 J *3 ) ; X XR9038662000 

STREAH(KlND«Nl«riBCl7j#DI«M[ALPHAl.[CFJ)l 38683000 

BEGIN Sl*L0c KIND* SI*SI+7JX XR9038684000 

IF SC**2" THEN DS*LJT "«•" ELS£X XR9038665000 

IF SC="5" THEN DS*LIT M * w ELSE N(DS*8 LIT " W );X XR9038686000 

ENDlX XR9038667000 

P(WAITI0(FlBtl6l«.(BLEN-F I B[ 1 7 Jx( K I ND*2 } ) [ 8 : 38 J 10 J X IR90 38688000 

»?40»U)»DEL)»X XR9038689000 

fib[63*fib[63+1 j xr9038690q0q 

end else cooloffji xr9038691000 

label closeoutj* xr9038692ooo 

label eofit;* xr9038693ooo 

X XR9Q38694000 

P(RCW»MSCW»STF)« XR9S38695000 

RCWl*RCW&P(XCH)tCTC)l XR9038696000 

GO TO SWCKINDJJ XR9Q38697000 

X XR9938696000 

CRl COOLOFFI BLASTGCU)>X XR9938699000 

IF liNBUFS THEN DO UNTIL WA I T 1 0(M[ ALPHA-23 »$40» U )*0 ELSEX XR9038700000 

BEGIN I*MtALPHA*I3,t33ll5J}X XR9038701000 

T*FIB[163,t33tl5J*2lX XR9038702000 

FOR J*l STEP 1 UNTIL NBUFS DOX XR9038703000 

BEGIN IF (I>T) AND ( I<( T+BLEN+ 1 ) ) THEN GO ON;x XR9038704000 

T*M[T3.tl8U51-2|* XR9038705000 

END;X XR9038706000 

0N» M0VEU0»T*?#MCALPHA-2J)JX XR9038707000 

END;X XR9038708000 

IF JAR[P1MIX,0J<0 THENX XR9038709000 

IF PRTtPlMIXtP?53^0 THENX XR9038710000 

DNFl BEGIN STREAMCH E* w ENDPACK m » D*M t ALPHA-2 J ) ; X 38711000 

BEGIN SI*D)X XR9038712000 

L» SI*SI+1I IF SC*" " THEN GO TO L>X XR9038713000 

0I*L0C E» 01*01*11 38714000 

IF 3 SC*DC THEN TALLY*ll 38715000 

$ SET OMIT 8 NOTCPACKETS) 38715099 

IF TOGGLE THEN ELSE 38715100 

BEGIN SI*SI-3J IF 4 SC = DC THEN TALLY*lJ ENDJ 38715200 

* POP OMIT 36715201 

I-TALLYJX XR9038716000 

ENDIX XR9038717000 

IF NOT P THENX XR9038718000 

BEGIN BLASTQCU)/X XR9038719000 

DO UNTIL WAlTIO(MULPHA*2Ji04O»U)*O?X XR9038720000 

GO TO DNEIX XR9038721000 

ENDIX XR9038722000 

ENDJX XR9038723000 

BLASTQ(U); XR9036724000 

CCU XR9038725000 

NT3l»GETSPACE(l3»64.5)*4i 38 726000 

M0VEU0»M[ALPHA"2]»NT3)j XR90 38727000 

F0RGETSPACECMtALPHA-2J INX NOT 1)1 XR9038728000 

M[ALPHA-23*NT3» XR9038729000 

LABELTABLEtUJ*-014j XR90 38 730000 

RDCTABLE[U)*-01 XR9038731000 

M[NT3 INX 10]*UNITC0DE[U-23); 38731100 

FREECARD((MCALPHA-2],tCF3)&Ut3l43l5HJAR[PlMlX#63[llH13)l 38732000 

GO CLOSEOUTJX XR9038733000 

X XR9038734000 



CP I EMPTY;X XR9038f35000 

IF NOT UNLABELED THEN P ( WA 1 T 1 OCM[ ALPHA-2 1 1 0» U ) t DEL ) t % XR903B/36000 

SETNOTINUSECU»FORMS OR PUNCHLCK); 38737000 

60 CLOSEOUTU XR9038738000 

X XR9038739000 

LPt EMPTY;* XR903874000Q 

P(WAITIO(P400Q100000»0#U)»DEL)J* XR9038 741000 

IF NOT UNLABELED THEN P ( WA I T I OC M [ ALPHA'2 3 » 0» U ) » DEL ) { * XR9038742000 

SETNOTINUSECU»FORMS)I XR90 38743000 

GO CLOSEOUT;* XR9038744000 



X 



% 



XR9038745000 



SPl IF STATE. [43I1J THEN COOLOFF ELSE EMPTY;* XR9038746000 

GO CLOSEOUT;* XR9038747000 



XR90367480Q0 



MTJ IF NOT STATE. [4111] THENX XR9038749000 

BEGIN IF STATE»[43«1J THENX XR9038750000 

BEGIN COOLOFFJ BLASTO(U);X XR903875100Q 

IF NOT RFW THEN 38752000 

BEGIN T*P1000000140000005&STATE[22»44;1J;X XR9038753000 

IF UNBUFS THEN SKjpf 1LECU» T , [221 1 ] ) I XR9038754000 

IF NOT UNLABELED THEN 38754100 

P(WA1TI0(T»P377#U)»DEL); *R90 38755000 

END;* XR9038756000 

END ELSE* *R9038757000 

BEGIN EMPTY;* *R9038758000 

EOFITJ T*ei737000000000000;* *R9038759000 

P(HAITI0([TJt*40»U)»0EL)l* XR90 38760000 

IF NOT UNLABELED THEN* XR9038761000 

BEGIN;STREAM(BC*FIB[6J»RC*FIBt73tD*M[ALPHA-2]);X XR9038762000 

BEGIN SI*L0C BC; DI*DI*40;X XR9038763000 

DS»5 DECI DS*7 DEO* XR9038764000 

END;* XR9038765000 

P(WAITI0(M[ALPHA»2]»P40,U)#DEL)>* XR9038 766000 

P(WAITIO([T3»e40»U)#DEL);* XR90 38 767000 

T*P 1000000 340000005 ;X XR99 38 768000 

PCWAITI0CT»P40#U) »DEL);X XR9038769000 

END;* XR9038770000 

END;* XR9038771000 

END ELSE* XR9038772000 

IF FIBC183 V C1 I13THEN BEGIN F I B[ 1 83 ,[ Ml 3 »F I B[ 163*0; GO EOFIT END; 38773000 

IF REW THEN* XR9038774000 

BEGIN P(WAlTl0(P42OO00OO00»P377»U)tDEL);* XR9038775000 

STATE, [40113*0;* XR9038776000 

END ELSE STATE, [40»ll*N0T ST ATE , t 44 1 1 3 J X XR9038777000 

PX? IF REL THENX XR9038778000 

BEGIN SETNOTlNUSE(UtO); XR9038779000 

STATE. [41»2]*i;X XR9038780000 

END ELSE STATE. [41i2]»2fX XR9038781000 

IF LOCK THEN* XR9038782000 

BEGIN SETNOTINUSE(U.l); XR9038783000 

STATE, [4U23*i;X XR9038784000 

END** XR9038785000 

IF U LSS 16 THEN XR9038786000 

IF PURGE THENX XR9038787000 

BEGIN IF PRNTABLE[U3<0 THEN* XR9036788000 

F0RK(PC,PURGEIT)»U.-2#128»1) ELSE SETNOT I NUSEC U» ) ; XR9038789000 

STATE, C41I2J*HX XR9038790000 

ENDi* XR9038791000 

GO TO CLEANUP;* XR9036792OOO 

* XR9038793000 



PPM IF NOT STATE* 141 I 1 J THEN* XR9038 794000 

BEGIN EMPTYI P( WA I T I 0( P2004500000000* <*40i U ) » DEL) END!* XR9038795000 

GO TO PXl XR9038796000 

X XR9038797000 

PRtl IF NOT STATE. [41HJ THEN BEGIN COOLQFF! BLASTQ(U) END1X XR9&38798000 

IF REW THEN P( WA I T I 0( P10340000000* P377 #U )# DEL ) i % XR9038799000 

GO TO PXjX XR9038800000 

X XR9038801000 

CO I I HEADER*CIDR0WtU-32]; XR9038802000 

IF MCALPHA],C27in THEN MOVEC 10* F I BC16) . I 33 115 J » M I ALPHA-2 ) ) ELSEXR38803000 

EOD» DO UNTIL READEMFROMD I SK ( HE AUER* MC ALPHA-2 1 ) ! XR90388040Q0 

$ SET OMIT * PACKETS 38804999 

IF HEADERt3J<HEADERt73 THEN XR9036805000 

$ POP OMJT 38805001 

IF JARtPlMjX.OXO AND PRT[ PI MI X » 2 1 J »t OR JARl PlMI X, 1 ]<0 THEN XR9038806000 

BEGIN 38806050 

S SET OMIT « NOTCPACKETS) 38806099 

PACKETERRCU-32]I*TRUE! 38806200 

IF CIDTABLECU-32.3] LEQ C I DTABLE t U-32* 7 J THEN 38806300 

$ POP OMIT 38806301 

BEGIN STREAM(E* W ENDWAIT W I Q*P14» D*M[ ALPHA-2) ) I 38807000 

BEGIN SI*LOC QJ SI*SI*7l IF SC#DC THEN DI*-DI*1I Q*DI» S I * Q ; 38808000 

LJ IF SC*" " THEN BEGIN SI»SI+1I GO TO L END! XR9038809000 

DI*L0c El DI-DI+li IF 3 SC*DC THEN TALLY+l! 38810000 

t SET OMIT « NOTCPACKETS) 36810099 

IF TOGGLE THEN 36810100 

BEGIN S!»SI*3J IF 4 SC B DC THEN TALLY*0! END! 38610200 

$ POP OMIT 38810201 

E*TALLY| 38610500 

END! XR9038811000 

IF P THEN GO TO EOD! XR9038812000 

END* XR9038813000 

END! 38813100 

KIND*0I XR9038814000 

GO TO CC! XR9038815000 

X XR9038816000 

CLOSEOUTM STATE. C 39; 4 3*1 J TIME-UX XR9038817000 

CLEANUPU CLOSED* DKl BKUPl DC I XR9038818000 

P(P&RCW[CTCl»0#RDS#0»XCH»P4P[CTF)»STF)J XR90388 19000 

END OTHER CLOSE! XR9038820000 

PROCEDURE FILEOPEN(XTRA#ALPHA)l XR9039000000 

VALUE ALPHA»XTRAI INTEGER ALPHA»XTRA! XR9039000100 

BEGIN REAL RCWs+OjX 39001000 

REAL I0MsJ0MASK» JOMASKj 39001100 

REAL XTRAR*-4»XTRAC*»6! XR9039001200 

INTEGER NBUFS»FNUM»BLEN# TYPE* REEL* CDATE* CYCLE* MODE* 10»RLEN»U»KIND» 39002000 

DIREC»FORMS»COBOL»UNLABELED*OPTIONAL*CNTCTLJ 39003000 

REAL MFID»FID»T1»T2»MASK. STATE! 39004000 

ARRAY F!BC*)#FPBC*)lX 39005000 

INTEGER ACCESS«FIB7| 39006000 

LABEL DCIN.PBSI 39006100 

LABEL DKRN#SPN»DKSNtDKUN»DKPN*DCN! 39007000 

SWITCH INSW*DKRN»SPN#DKSNtDKUN»OCIN! 39008000 

LABEL LOOK*EXIT»LOOKOUT»LPS»FINALINfFINALOUT»SPDC!X 39009000 

REAL SUBROUTINE CNTLBITSlX 39026000 

CNTLBITSM0MASK&M0DEC21I47M J&D I NEC I 22 I 47 * 1 J&CNTCTLC 23 J 47 1 1 J 39027000 

iI0t24l47»l3«l(KIND*7 OR KIND>9 AND K INDS 12) ( 20 I 47 I U 39028000 

&(IF KINDMOR KIND*70R K 1 ND*1 2THEN02OELSE )[ 27 t 42 I 63 ! 39029000 

X 39030000 

SUBROUTINE MAKEIQDSIX 39031000 



BEGIN FIB[16]*Tl*((BLEN-nx0lREC*M[ALPHAJ>tCNTLBlTS[l8il8ll5)» 39032000 

&CIF BLEN<1023 THEN BUN ELSE 1023H8I38U03X 39033000 

&TINU[ IF CKJND«7 OR KINDM2) THEN IF TYPE<20 39034000 

THEN 20 ELSE 22 ELSE 39034050 

IF KINDM1 THEN 23 ELSE U3[3l3l5] OR HI 39034100 

FIBt 19 J*C IF STATE»t46l2J«0 THEN (DIREC INX Tl)* 39035000 

i(2xDlREC+(BLEN>1023)+l)[3U3l5J ELSE* 39036000 

IF STATE#t46l2]»i THEN ((NOT HLEN INX 2)xDIREC INX TD39037000 

&RLENC8l38il0HC3xDlREC*2H3j43»5J ELSE* 39038000 

CfDIREC INX TmRLENC6t36ll0]&CDlREC*6)[3l43l5J}X 39039000 

&I0[25l47!l3JX 39040000 

IF NOT (JO OR COBODTHENX 39041000 

Tl»FIB[l9J*TlC3l3l5H0C25l25liJlX 39042000 

T2*Tl,[33»153*M[ALPHAJ|X 3904 3000 

FOR MASK*0 STEP 1 UNTIL NBUFS-1 DOX 39044000 

BEGIN XP 39045000 

MCALPHA+MASK3*FLAG<CP(0UPiL0D)*T2)&P(Tl»XCH)[33l33«15))IX 39046000 

ENDI* 39047000 

END MAKEIQDSJX 39048000 

LABEL DKR0#SP0#DKS0tDKU0»DKP0»DC0l 39049000 

SWITCH 0UTSW*DKR0»SP0»DKS0»DKU0t0C0»X 39050000 

LABEL FIXFIB»FIND»SPACERIX 39054000 

LABEL PREFINAL#DK1»X 39055000 

ARRAY HEADER[*3l* 39056000 

I 39082000 

F1B*M[ALPHA-33I FPB*PRT[P1M J X, 3] I % 39083000 

I0MASK|»I0Ml 39083100 

NBUFS*FIBtl33,CH9]l FNUM»F J Bt 4 J , [ 1 3 1 1 1 J I BLEN*F I Bt 18 J „ [ 3 J 15 J I X 39084000 

TYPE*FPBtFNUM+33,[43l53lX 39085000 

STREAMCS*[FPBtFNUM*23 3»D*[CDATE3)I* 39086000 

BEGIN SH*SI SH-SI+3I DSl«50CTl OS{=OCTI ENDI 39087000 

IF FPBIFNUM*43>0 THEN REEL * COATE * CYCLE * 01 39087500 

M0DE*FIB[13J,[24I1JI I 0*F IBEl 31 , C 27 I 1 J I RLEN*F IB[ 183 • C 331 153 IX 39088000 

DIREC*FIBtl3J,[25ll3» FORMS*FPBt FNUM+3 3 , 1 42 1 1 3 1 X 39089000 

STATE*FIBC5JI UNLABELED*FIB[4] f [2U J I 39090000 

MFID*FPB[FNUM3i F I D*FPB [FNUM + 1J I OPT I ONAL*F I B[ 4 3 , [ 5J 1 ] I X 39091000 

COBOL*(FIBtl33 ANo 1 HC [FIB J , [81 10 J«22) ( 1 1 47 1 1 ] I X COBOL 60 & 68 39091100 

KjND*FiB[43»[8l43J REEL*F I B[ t 3 3 , t 28 J 10 3 1 % 39092001 

IF TYPEM9 THEN TYPE •• 14 ELSE 39092045 

IF TYPE»26 THEN GO TO DKPN ELSE 3909205P 

IF TYPE>26 THEN GO TO DCNI 39092055 

IF TYPE»14 THEN IF LOGL J NE , [ 33l 7 3 pO THEN TYPElMlI XR2639092075 

IF (TYPE"0 AND NOT 10} OR TYPE GTR 20 THEN 39092080 

BEGIN IF USEPBD THEN TYPE*22j GO LOOKOUT ENDI 39092090 

IF TYPE«1 OR TYPE»4 OR CTYPE>14 AND TYPE<19) THEN 39092100 

IF 10 THEN GO DCN ELSE X CANT READ PRINTERS OR PB. X10639Q92110 

BEGIN IF USEPBD 39092150 

THEN TYPE««15i 39092160 

t SET OMJT * NOTCPACKETS) 39092164 

IF (TllwPSEUDOMlX[PlMlXmQ AND PACKETPAGE[ T 1-32 J#0 THEN 39092165 

IF FORMS THEN FPBt FNUM + 3 3 , 1 23 1 1 3 1 «1 ELSE X SETS FREEF 39092170 

IF NOT FPB[FNUM*33,C23I13 THEN TYPEI>15| 39092175 

$ POP OMIT 39092180 

GO LOOKOUTI 39092185 

ENDI 39092190 

IF REEL'O THEN REEL*1I 39092200 

IF 10 THEN 39092500 

IF TYPE#6 AND TYPE#20 THEN 39093000 

IF TYPEilO THEN GO TO I NSW[ TYPEMQ] ELSE GO LOOK 39093500 

ELSE GO TO DCN| 39094000 



IF TYPE^IO AND TYPE#20 THEN GO TO OUTSW[ TYPEMO] ELSE GO LOOKOUT! 39094500 

LOOKI IF 10 THEN OTHERF ILEOPEN IN ( 1) ELSE OTHERF 1 LEQPENQUT ( 1 ) ; 39095000 

IF U LSS THEN GO TO EXIT ELSE GO TO PREFINALI XR9039096000 

OCNI FlLEMES5C"I/0 ERR w »OtMFID»F ID»REEL» CDATE»C YCLE ) U 39143000 

GETBUFFERSCBLENiNBUFSt UtALPHA);* 39144000 

PREFINALH MAKEIODSU 39145000 

IF KIN0M1 THEN 39145100 

BEGIN IF COBOL < THEN X ALGOL OR C0B0L68 39145200 

IF READEMFR0M0ISK(CIDR0WtU' , 32J»M[ALPHAn THEN 39145210 

M[ALPHAJ*P(DUPiU0D)*0t2l2llJ4i[27i47ll]| 39145300 

END ELSE 39145400 

FILLBUFFERSCFIBC16]#FIBU9].C0B0L»NBUFS); 39146000 

IF C080L>0 THEN F I BC 16 J*( *P( DUP ) >&M[ ALPHA ] C CTC } i 39147000 

FINALINI I FIBC6J * FIBC7] * FIBH7J * 0; GO TO F1XF1BJ 39148000 

LOOKOUTll IF 10 THEN OTHERF I LEOFENI N( 0) ELSE OTHERF I LEOPENOUTC 0) i 39155000 

IF U LSS THEN GO EXIT ELSE GO FIND* 39156000 

PINALOUTM IF NOT FIBC16J.C H 11 THEN GETBUFFERSC BLEN» NBUFS.U. ALPHA) I % 39230000 

HINDI MAKEIODSJX 39231000 

FIB[6J*FIBt7]*0*X 39232000 

FIBC173*IF COBOL THEN F I Bt 18 1 , t 3 « 15 JELS£ F I Bt 18 J , [ 18 1 15 )} % 39233000 

IF KIND * 10 THEN 39233100 

MCALPHAM]*PCDUPiL0D)&PCDUP#LNGH24»24m* 39233200 

GO TO FIXFIBJX 39234000 

DCINM 39234900 

DCOl U*30l KJNDMOJ 39235000 

IF (BLENtwRLEN) LSS 17 THEN BLENJ-171 39235100 

F!B(13],[ll9]*NBUFS»2l 39235200 

FIB[183t«(*P(DUP))4BLENC3l33ll5HBLENtCTFJJ 39235250 

GO TO SPDCI 39235300 

SPOI M0DE*0l U*25l KIND*5J 39236000 

SPDC« CNTCTL*DIREC*Ol UNLABELEDMi 39237000 

STARTIMING(FNUM»U)IX 39238000 

GO TO FINALOUTJX 39239000 

SPNII U*25l K1ND*5» 39240000 

MODE*CNTCTL*DIREC*0| UNLABELE0*1>X 39241000 

STARTIMING(FNUM»U)JX 39242000 

IF BLEN<10 THEN BLENMOJX 39243000 

GET0UFFERS(BLEN»NBUFS»U»ALPHA)IX 39244000 

MAKEIODSIX 39245000 

GO TO FINALINI Z 39246000 

DKRNII DKROt ACCESS|«ll XR9039247000 

GO TO DK1J IR9039248000 

DKUOll IOl«ll XR9039249000 

DKUNU ACCESSJ*2J XR9039250000 

GO TO DK1! XR9039251000 

DKPNII DKPOl 39252000 

S SET OMIT * NOT SHAREDISK 39252999 

ACCESSMJ 39253000 

GO TO DK1I 39254000 

$ POP OMIT 39254001 

S SET OMIT * SHAREDISK 39254999 

GO TO DCNJ 3925500P 

$ POP OMIT 39255001 

DKSNlt DKSOJ ACCESS*0; 39256000 

OKI t DISKFILEOPEN(O)) 39257000 

IF Tl THEN GO TO EXITJ 39258000 

BIXFIBU FIBC4J«C2f U«-UNLABELED>X 39294000 

FIB[4],tei4]»KlN0l* 39295000 

.FIBI151i[24!63»UI 39296000 

F!BC131,C28ll0]*REELU 39297000 



FPB*PRT[P1MIX»3]I 39297010 

FPB[FNUM + 3 3,[4315 3«-TYPE; 39297020 

STREAM (REEL i D*[ FPB[ FNUM + 2 J 3 > ; 3929 7100 

BEGIN SI*L0C REEL; 39297200 

IF 3 SC«DC THEN 39297300 

BEGIN 01«-0> SI+10C REELj DS*3 DEC END; 39297400 

END> 39297500 

RDCTABUEIUJ, [8J63-P1MIXJX 39298000 

IF FIBt I8J • tl • 1 J THEN* 39299000 

BEGIN FIB(161*0JS 39300000 

FlBt5)»STATE*B[39l42l6Jl» 39301000 

FIB[10].[3U5J*0I 39301100 

END ELSE* 39302000 

FIB[5],£CF]*$TATE&DIREC[44J47J1]&J0[39«43!5HFIB[5][45I45U]; 39303000 

IF COBOL>0 OR FIB[4J,[7in THEN M[FIB INX NOT 1],[3»6] * 6 39304000 

ELSE MJALPHA-7J, [3161*41* 39305000 

FIBt 41, [27I3)*ACCESS)X 39 306000 

IF U<16 THEN IF KIND* 6 / THEN FPBt FNUM + 3 ] , [ 23 I 1 ]! = I 0> 39306010 

39306100 

39306200 

EXIT!!* 39307000 

IF XTRA THEN SR9039307100 

XTRACI«NOT<FIB(4].mi3 OR UNLABELED) AND XTRAC NEQ 2? *R9039307200 

IF XTRA LSS 2 THEN GO TO INITIATE! XR9039307300 

RCWlssXTRARJ XR9O393Q74Q0 

END FILEOPEN;! 39306000 

PROCEDURE CREATELOGCDDD); VALUE DDDI ARRAY D0Dt*3* 39500000 

BEGIN ARRAY A«L0GARRAY t * II 39501000 

DEFINE I0»A[31J#. 39502000 

DELTA*A[32J#t 39503000 

N»At 333#» 39504000 

S»A1341#» 39505000 

R*At35]#» 39506000 

H»A[36J#* 39507000 

LABEL GETANOTHERROW»NEWLOG»AGAINJ 39507500 

REAL T; INTEGER ItRCJ XL0S395O8000 

ARRAY T1»RC[*]J 39508050 

REAL B»J#K»DISK> 39508100 

SUBROUTINE FIX) 39508200 

BEGIN M[T]|p[M[J]HU8f38llO]| 39508300 

U»»J4U 39508400 

END; 39508500 

* 39508510 
SUBROUTINE BUILDHEAD; 39508520 
BEGIN M[T]»»OJ 39508540 

M0VE(29iT#T*l)l 39506560 

M[T+21I»MCPI 39508580 

M[T*4l,[9t lltslj 39508600 

MlT+5Jl*M[T+6l»*P14; 39508620 

MfT*93l«ll 39508640 

STREAM(DATE»Xl»T*3)» 39508660 

BEGIN SI1-L0C DATE* DSl*8 OCT; 39508680 

DI I »X1 DSl»2 LIT"**"; 39508700 

sn»x; sn»si*5; dsi»3 chR; 39508720 

END; 39508740 

M[T+lJ,[6ll8]*M[T*3J,[30ll83& 39508750 

<XCLQCK + PCRTR)H25l25!23 3; 39508755 

M(T + lO]t*PETU$ERDISK(CMtT*8Jt"I>ttt2U7il]f 1)| 39508760 

END; 39508780 

* 39506800 



1 39508810 

DISK|>"DISK W J 39508850 

AI303I«N0T 0) 39508900 

IF CTl*DIRECT0RYSEARCHC w L0G " 39509000 

* SET OMIT * NOT(SHAREDISK) 39509009 

&(SYSN0+17)[24i4?»6J 39509010 

t POP OMIT 39509011 

tDISK.5))=Q THEN 39509020 

BEGIN 1 »*SPACE<30)J * IF YOU CANT FIND ONE. MAKE XLQG3950905Q 

DISKWAIT(-T»-30»DIRECT0RYT0P-SYSN0)J 39509100 

MIT INX 20J«[6M0J »* N I* 0; *LOG3950915Q 

DISKWAIT(T»-30»DIKECTORYTOP-SYSNO); 3950920 

S«b(II«300) OR MEMORY* 39509250 

BUILDHEAD* 39509260 

If (RmMCT + l03)«0 THEN 39509265 

BEGIN M[T INX 7J?**1J 39509270 

RCI*0; 39509275 

END ELSE 39509280 

BIGIN MCT INX 7]J*899> *EOF POINTER 39509285 

DISKWAITU INX 3Q*1»R)J XEOF MARKER 39509290 

END? 39509295 

MCT] t* P0001200036000301; ^BLOCKING XL0G395Q930Q 

H«*EUF( w LOG M 39509850 

S SET OMIT « NOT(SHAREDISK) 39509859 

8(SYSN0+17)[24J42t6J 39509860 

$ POP OMIT 39509861 

»DISK»T-1)| 39509870 

END ELSE *L0G39510000 

BEGIN XAHA» THERE REALLY IS A LOG XLOG39510050 

H*T f [FFJ» 39518000 

SS«M[T INX 8]&lt2M7tU; 39519000 

Il«9{ XL0G39519050 

DO 11*1+1 UNTIL MCT INX IJ*0 OR 1*30* XL0G39519100 

RC»*M«I-10f H0G39519150 

IF N DIV S*I THEN 39519200 

GETANOTHERROWl IL0G39519250 

IF RC LSS 20 THEN % DONT TRY TO GET 21-ST ROW XL0G39519270 

BEGIN N*IxSJ 39519300 

IF PCMIT INX I*10)|*PETUSERDISK(-S#1)»DUP)*0 THEN 39519320 

BEGIN P(DEL)I 39519340 

R»*OJ 39519360 

END ELSE 39519380 

BEGIN Rt*P(XCH)*NJ 39519400 

D I SKWAITC A INX 30»1#R+N)J XL0G39519450 

RCI*RC+11 XL0G39519500 

END 39519550 

END ELSE ELSE HQG39519600 

BEGIN R*M[T INX I +9 ) -( I * ( I - 1 )xS ) I 39520000 

J»*I+S> 39520100 

IF N*0 OR I/O THEN % SET UP SEARCH FOR EOF 39520200 

IF N LSS I THEN Nl«I ELSE H*N"1 ELSE 39520300 

IF MCT INX 5)^14 THEN % MUST BE COLD START 39520400 

BEGIN MCT INX 53l*MCT INX 6}|»ei4j 39520500 

GO TO NEWLOG; 39520600 

ENDJ 39520700 

K»*l; 39520800 

B ** SPACE(30)> 39521000 

FOR 1*1 STEP 1 UNTIL J DO 39522000 

BEGIN DISKWAIT(*B»30»R*I)I 39523000 

IF (M[B]«NOT 0) OR K>( K*MC B ] , C 25 J 23 J ) THEN 39524000 



NEWLQGI 



x 3xS ' 1J 



$ SET 
S POP 



OMIT 
OMIT 



LMAXsO OH STAMAX«0 
UMAX GTR STAMAX 
STAMAX NEQ EOF 



S SET 
$ POP 



BEGI 
OMIT * 
OMIT 







END 
BEGI 


£ 


SET 


OMIT 9 


$ 


POP 


OMIT 



* SET 

* POP 



OMIT 
OMIT 



BEGIN J*0; N*I end; 

END* 

FORGETSPACECB); 

IF J#0 THEN GO GET ANOTHERROW; 

END! 

M[T INX n «* CM[T INX 9Jl«RC) 

DlSKWAIT(T,tCF3»30.H)J 

RCI*RC-U 

END* 

FORGETSPACE(T)! 

F0RKCP(,U06WARN)»RC»0»128»0)I 

IF CTl»DlRECTORYSEARCH( w SYSTEM 

NOT(SHAREDISK) 

&(SYSN04l7)[42l42i6J 



»D1SK»5))*0 THEN 
BEGIN SYSDISKADR*MtT INX 1Q]{ 
Jj-SPACE(IO)) M[J INX ft)l*OJ 

IF SYSDISKAOR NEQ THEN D I SKWA I T ( -J» 5# SYSDI SKADR ) J 
M*M[J INX 4J> 

IF I, [40181*0 OR I,[32I8)«0 OR % 
I,[40t8] GTR I,t32J8] OR % 
I,C32»6] NEQ MJT + H THEN % 
N SYSDISKADR»«SYSDISKJ*0> 
STREAMCSN|s( w SYSTfM " 
NOT SHAREDISK 

8(SYSN0+17)[42l42l6J 

begin simloc sn> si i «s 1*11 os » *l i t"»" i dsj*7chrj 

ds**27li t^/disk incorrect - not used*"; 
end; 
spoutcj); 

ELSE 

N STREAM(Xl«MtT + 33,[30U8]»BJ*CBJ)J 

BEGIN SIl»LOC X) DS»*8DEC; ENDJ 

6IME0ATE([B]»[CF)»-B)I 

STREAM(SNl«("SYSfEM " 

NOT SHAREDISK 

&CSYSN0+I7)t42»42»63 

)#B» 

LX l « I ,[40»8 3»SX»*I ,[32; 8 J, J) J 
BEGIN SUsLOC SN; SIi»SI+1* DS?*LIT"#"; DSl«7 CHRI 
DSI*23LIT"/DISK CHECKED (CREATED "I 

sit»uoc b; sii«si+2; 3<dsi»2CHr; dsiriit"/")j 

DH«DI"1J DSl«7UT"» LMAX«"| 

ds«*?dec; j»«oi; dii»di-2i dsi»filu; di»*j; 

TWXONUY 

DSI*9UT"# STAMAXb"; DSJ»2DECJ ji«di; dii«di-2; 
DS»«F!lll 01 l» Jl 

DS»*2LIT")*"» 

end; 

SPOUT(J)» 



end; 



SYSDISK*M[T3; 
UNIOCKTOG(SYSDISKMASK); 
T1I«I0QUEU[CTCJI 
SYSDISKI0(1«0»T1); 



39525000 
39526000 
39528000 

SL0G39528O50 
39528100 
39528200 

XL0G3952830Q 
39528500 

XL0G39529O00 

XL0G39530000 
39530500 
39531000 
39531099 
39531100 
39531101 
39531200 
39532000 
39532100 
39532200 
39532300 
39532400 
39532500 
39532600 
39532700 
39532800 
39532900 
39533000 
39533100 
39533200 
39533300 
39533400 
39533500 
39533600 
39533700 
39533710 

39533720 
39533730 
39533740 
39533750 
39533760 
39533770 
39533730 
39533790 
39533800 
39533810 
39533820 
39533830 
39533840 
39533850 
39533860 
39533870 
39533880 
39533890 
39533900 
39533910 
39533920 
39534000 
39534500 
39534600 
39535000 



IF (LMAX»«TU4J,t40lBJ) GTR MAXLMAX THEN 39536000 

LMAXlsMAXLMAXj 39536500 

S SET OMIT « TWXONLY 39536999 

IF (STAMAX|«T1C4J, 132181) GTR MAXLMAX THEN 39537000 

STAMAXl«MAXUMAX| 39537500 

IF (K|*Tl[4l«[24l8)) GTR MAXUMAX THEN K»«MAXLMAX; 39538000 

t POP OMIT 39538001 

SYSOISKIO(l»STAMAX+liTl)| 39539000 

FORGETSPACECT); 39540000 

Bl*CJl»MtRCJ»(*(T«8P(,LINETABLE)))-2J,CCF] 39541000 

$ SET OMIT « TWXONLY 39541499 

•LMAX-4xSTAMAX-K-6)»2J 39541500 

$ POP OMIT 39541501 

$ SET OMIT « NQTCTWXQNLY) 39541599 

»5xLMAX«5)-2J 39541600 

$ POP OMIT 39541601 

Jl»LMAX + lJ F IX j 39542000 

$ SET OMIT m TWXONLY 39542999 

J»»STAMAX+1I 39543000 

* POP OMIT 39543004 

Tl»PC,STATABLE); F IX J 39544000 

Tt*P(,SEQARRAY)| FIX; 39545000 

T»*P(,INPUTANK); F IX J 39546000 

Tl«P(, TANKS); FIX; 39547000 

* SET OMIT ■ TWXONLY 39547999 

I»=K+1J 39548000 

Tl*P(.TNAOG); FIX; 39549000 

IF LMAX#MAXLMAX OR MMAXLMAX THEN 39549100 

$ POP OMJT 39549101 

BEGIN 39549200 

MCMCBJtaMCRC]&RClCTFU,CFFJ»«B; 39550000 

M[RC J,CCFJI«B; 39551000 

F0RGETSPACE(RO2); 39552000 

END END; 39553000 

* 39580900 

* NOW CHECK FOR LIBMA1N. LDCNTRL AND PRNPBT AND CREATE 39580910 

* THEM IF THEY ARE NOT THEREt 39580920 

* 39580930 
ENTERSYSFILEC1); % "LIBMAJN" 39581000 
ENTERSYSFILEC2); % "LDCNTRL" 39582000 
ENTERSYSFILEC3); % "PRNPBT " 39583000 

END OF CHECKING LOG AND OTHER SYSTEM FILES; 39625000 

PROCEDURE SUSTATUS(AtDDD#B)> VALUE AtDDD»B; REAL A»B; ARRAY DDDC*j; 39900000 

BEGIN REAL RT1» H 39901000 

ARRAY D[*J»ZSF[*JtVADARC*i; 39902000 

SUBROUTINE SPOUTJTNOW; 39903000 

BEGIN 39904000 

STREAMCX|*[T1NUCBJ1« D# EUNUMj»0» SUl*0t It RT1); 39905000 

BEGIN SII«Xj SH»SI+5; 39906000 

dsjslit" "; ds»«3 chr; sii*d; 39907000 

iocif sc*"0" then 39908000 

BEGIN XtsSi; EUNUMI«TALLY; 39909000 

sii«loc eunum; ds»« 3 lit" eu"> dsi«dec; 39910000 

dsi*4 lit" su "; tallyi^o; 39911000 

scsu;*tally; si$»x; skip sbj skip su sb; 39912000 

if sb then 39913000 

begin sii*loc su; 39914000 

ds»*dec; ds|*lit"»"; 39915000 

END; 39916000 

TALLY|*TALLY+1); 39917000 



sn»X) tally»*eunum; 39918000 

END! 39919000 

TALLY1»TALLY*1I Sjt«SI*l>) 39920000 

SlULOC II SII-SI + 7) DIt»DI«ll 39921000 

IF SC# w 0" THEN 39922000 

BEGIN DSI«5 LIT" WENT"? 39923000 

IF SO*^" THEN OSlM LIT" N0T"I 39924000 

END FLSE DS»*4 LIT" ARE**? 39925000 

DS«*8 LIT" READY,*"! 39926000 

ENDI 39927000 

SPOUTCRTDJ 39928000 

END OF SPOUTING IT> 39929000 

39929100 

SUBROUTINE DOITI 39930000 

BEGIN 39931000 

IF NOT (ZSF[03 OR ZSFC 13 » 1 1 1 1 1 3 > * NOT THEN 39932000 

BEGIN BIM8J D«*ZSFI 39933000 

RTU«SPACEC20)I 39934000 

SPOUTITNOWI 39935000 

END! 39936000 

IF NOT CZSFC23 OR ZSFC3] • [ 1 I U 3 ) * NOT THEN 39937000 

BEGIN B»*19! Dl«CZSFC2)]l 39938000 

RT1»*SPACEC20)J 39939000 

SPOUTITNOWI 39940000 

END! 39941000 

END OF DOING IT! 39942000 

% 39942900 

* START OF CODE 39942910 

X 39942920 

IF B#0 THEN 39943000 

BEGIN DI»IMULTITABLE[16]H2[8I38»10]I 39944000 

RTU*AI 39945000 

S SET OMIT m DFX 39945999 

IF B THEN Dl*2 INX Dl 39946000 

S POP OMIT 39946001 

IF NOT (IF B THEN P(RRR) , t 281 1 J ELSE PC RRR > , t 29 I 1 3 ) 39947000 

S SET OMIT * DFX 39947999 

OR NOT (DIOJ OR D[ 1 j , [ 1 1 1 1 3 ) * NOT 3994800» 

$ POP OMIT 39948001 

THEN 39949000 

BEGIN STREAM(Xl«tTINUtB3J» RT1)I 39950000 

BEGIN S I I "XI SII"SI*5I 39951000 

DS»»LIT" "J DS«*3 CHRI 39952000 

DS»*11 LIT" NOT READY*") 39953000 

ENDI 39954000 

SP0UT(RTm 39955000 

END ELSE SPOUTITNOWI 39956000 

END ELSE 39957000 

BEGIN ZSFI«IM[SPACE(4)]3&4[8«38» 10JI 39958000 

VADARl«tMULTlTABLEU6J]&4[8«38tlO]j 39959000 

DISKWAIT(-A."30fDIRECT0RYT0P); 39960000 

FOR I 1-0 STEP 1 UNTIL 3 DO 39961000 

ZSFt IUpVADARU 3 AND NOT DDDI23+IJI 39962000 

11*11 DOITI 39963000 

FOR IIpQ STEP 1 UNTIL 3 DO 39964000 

BEGIN ZSF[IJI*N0T VADARIIJ AND DDDC23+I3I 39965000 

DDDt23+l3l«VADAR[I3I 39966000 

ENDI 39967000 

DISKWAIT(A»-30tDIRECTORYT0P)I 39968000 

Il«2l DOITI 39969000 



FORGETSPACE(ZSF)> 39970000 

ENDJ 39971000 

ENDI 39972000 

PROCEDURE DIRECTORYBUILDER(A*DDD)J 40000000 

VALUE A#DDD» 40001000 

REAL AJ 40002000 

ARRAY DDD[*3) 40003000 

begin real y»z.b»c*i»j»t»ra»rl»rti»r*integer radd»rlen» 40004000 

REAL NEX7UlNK»A0#X»KtSEVEN7»F0RTYtL#EUSu; 40004500 

ARRAY SUl*3l 40005000 

ARRAY MEADC*3»KK[*3»PL[*3j 40005050 

REAL W»ESPAOD#DlSKT0P»SUPER»EUM#NTl»NT2»N13tNT4| 40005100 

BOOLEAN UCHANG#ERR0RJ INTEGER LO » REM, TN . TM, MNl REAL X 1 , X2* EUMASKI 40005110 

ARRAY ZSF(*]»S0CK[*J! 40005200 

REAL D»Y1.Y2I 40005210 

REAL AAiAAAl 40005220 

LABEL FORGETl 40005230 

ARRAY V[*»*3» 40006000 

INTEGER Si 40006100 

ARRAY VR»V[*)> 40007000 

REAL H»FI»FJ* 40007500 

S SET OMIT « NOT SHAREDISK 40007990 

REAL HOLDERiNEXTSLOTiBYPASSJ 40008000 

S POP OMIT 40008010 

LABEL L00KATDKB»BACK#EXIT»M1»SKBLK.LTRJ 40008050 

DEFINE R0W«SU[X],[3M]«f XMC4Q00810Q 

LASTAVAIL«HEAD[0].t3U53#» 40008110 

AVAlLABLE*HEADtO],tFF3#> 40008120 

FlRSTLINK*HEAD[0] f [CF3#» 40008130 

DA»9l24#t DAC»9|24»24# » &M640Q08140 

SIZE»PL[l],[DA]*t 40008150 

ADDRESS»PL[01,fDAJ#t 40008160 

HIGHLINKsPLC03,tCF3#» 40008170 

L0WLlNK»PUtl3f CCF3#» 40008180 

0!SKRUNNING*C18H]#* *MC4QQ0819Q 

F0RTYMILLDISK*U9H3#» XMG40008200 

0CCUPIED"[20llJf» XMC40008210 

AV1*480#»AVBL0CKM6#J 40008220 

SUBROUTINE SAVITI XMQ400Q830Q 

BEGIN XM040008310 

IF (W*W42)i28 THEN XM040008320 

BEGIN ZSFt293«-ESPADDJDISKWAlT(ZSF 1NX 0. 30# ESPADD*GETESPD I SK ) t XM640Q08330 

W*0 ENDIZSFCW3*T;ZSF(W+13*DDD[479-2XI3» XMC40008340 

END SAVpl XMC40008350 

SUBROUTINE CLEAR) 40009000 

BEGIN VCS»0)+0) 40010000 

VCS.13 ♦ BYPASS.CCFJ* 40011000 

VtS»23*P14> 40012000 

V£S#33*V[St43*OJ 40013000 

MOVE(57#tV[S#23 3»tV[S»53 J); 40014000 

END) 40015000 

SUBROUTINE SETUP) XMC40016000 

BEGIN 40016020 

LO)»(X+l) MOD 5*L0l«L0*(L0*0)x5J 40016025 

IF RADD NEQ (LO I *LQxF ORT Y ) OR CLO*RADD AND RLEN LSS FORTY) THEN 40016026 

BEGIN XMC40016100 

IF Y»*(SUCX3,CCF3«0) THEN 40016200 

BEGIN XMC40016220 

NTll*SUCX]i»SPACE(16)&SU[X3tl8ll8|93> 40016240 

M0VEC16»NT1-1.NT1)J X027"400 16260 



END* XMC40016300 

MCSUtX] JNX KJ»»RTll*SPACEC64+Y)l 40016400 

KK»CM[RTJ J]*C64+Y>18I38U0)JJUNK*61+Y» X027-4Q0 16410 

M0VE(64+Y»RT1-1.RT1)) X027-400 16420 

FOR .RI.P.3KY STEP 2 UNTIL JUNK DO KK[R ] » *RT WR + 2 J 40016500 

HEAO*[MtM[ SUC X]J J HI C6 I38U0)I XMC 4001 6510 

IF Y THEN XMC40016600 

BEGIN 40016700 

KKm«*KK[2)»«SEVEN7J 40016800 

KKC1 J,[DA) J»L0» 40016900 

KK(23,COA)>»IF X EOL THEN FORT Y-C D I SKB0TT0M+5 ) ELSE FORTYJ 40016910 

M[SU[XJ).CDAJl»LOl 40016920 

HEAD[0)I*RT1+1J 40017050 

ENDJ 40017100 

HEAD[0J,CFF)*RTH«3xYJ XMC400 17200 

HEADC0J,[3ll5)*62*RTl+Yj XMC 4001 7250 

END 40017260 

ELSE 40017270 

DO 40017275 

BEGIN SUfX) t OCCUP!ED!»ll 40017280 

RADDI»RADO»FORTY; 40017285 

X I^X-ll 40017290 

?ND UNTIL <RLEN|*RLEN-FORTY) LSS FORTYJ 40017295 

END OF SETUPJ XMC40017300 

SUBROUTINE BUILDAVAIL; XMC40Q27100 

BEGIN *MC40027200 

BACKHERR0R*1»REM*0; XMG4QQ27230 

*F CZl»SU(X)>*0 AND 2,tCF3»0 THEN 40027240 

BEGIN Kl«0| SETUP; GO BACK END* 40027245 

• F (Z|«SU[XJ),DISKRUNNING AND NOT Z. OCCUPIED AND RLEN>0 THEN 40027250 

BEGIN XMC40027260 

IF M[$U[XJJ,[DA3 GEQ RADD THEN 40027270 

BEGIN 40027280 

P(MCMtSUCXJ J)#0aRADDt9«24l24J»LLL»0»INX» ,AD»*»DEL)> XMC40027290 

HEAD*[MtMCSU[X]]JUl[8>38»10J>PL*£MEADJJ&2C8»38}10)> XMC40027295 

IF ((RAJPADDRESS)-(RLJ*SIZE) LSS RADD-RLEN OR 40039000 

(REM|BlF(NTll»RADD MOD FORTY)»0 THEN ELSE NT1-RLEN) LSS 40039100 

0)AND RADD NEQ RA THEN 40039200 

BEGIN XMC40040000 

IE REM LSS THEN RLENt«RADD MOD FORTY) 40040500 

IF AVAILABLE*0 THENXNEEO ANOTHER ROW IMC40041000 

BEGIN XMQ40042000 

K*ROWJK*K*UROW*Kj XMC40042100 

IF K GTR 15 THEN 40043000 

BYBY("T00 MANY ROWS NEEDED BY Dl RECTORYBUI LDER*"i 41 ) J 40043500 

SETUP* XMC40Q44000 

END! XM040045000 

NEXTLINK*MCR*AVAILABLE)I IMC40046000 

M[R]*AD&(RADD"RLEN)[DAC3> XMC40047000 

IF AD,CCFJ«SEVEN7 THEN MCSUCX) J , CDA J*RADD"RLENJ XMC4QQ47100 

IF L0WL!NKnSEVEN7 THEN 40048000 

FIRSTLINK|*R 40049000 

ELSE 40050000 

MUOWLINK), CCF3»*R» 40051000 

M[R+1J|BPL[1)*(RADD-RLEN-(RA-RL))CDAC); 40055000 

PLU)l*R«CRA-RADD)tDACJl 40056000 

RLEN*0! XMC40056100 

AVAILABLE*NEXTLINKJERROR*FALSEi XMC40057000 

END XMC40058000 

ELSE*REDUCE EXISTING AREACBEWARE OF ADDRESS CONFLICT QRXMG40059000 



*EU UNDERFLOW), 
BEGIN 

IF RADD«RA AND RL GEO RLEN THEN 
BEGIN 

ADDRESS*RA-RLENJ 

IF HIGHLINK*SEVEN7 THEN 
MCSUtXn.CDAJ-ADDRESSJ 
SUE*RL»RLENlERROK*RLEN*0; 
END 
ELSE 
IF RLEN>RL THEN 
IF LOWLINKsSEVEN7 ANDCXM)MOD 5#4 THEN 
BEGIN 

RADD*RADD-RL-nRLEN*RLEN-RL-USIZE*OJtRROR*0) 
END 
ELSE 
IF RADD-RLEN LSS CNTl I-MILOHLINK] . [DA] ) THEN 
BEGIN 

RLENJeRLEN-(RADD-(RADD«*NTn)l 
SUPERlMJGO BACK; 
END 

ELSE 
IF RADD GTR RA-RL THEN 
BEGIN 
RLEN|«RADD-(RA-RL)>SUPER!MJ 

GO back; 

END 
ELSE RLEN* 
ELSE 
BEGIN SIZE*RL-RLENJERROR*RLEN«-0; END! 
ENDS 

IF SIZLsQ THEN 
BEGIN 

IF HIGHLINK*SEVEN7 AND LOWL I NK«SEVEN7 THEN 
BEGIN 
SU[XJ,OCCUPlED*TRUEI 
K*M J 
WHILE(Y*M[SU[XJINX (K*K*1)J}#0 AND K<15 DO 
FORGETSPACE(Y)? 
FORGETSPACE(SUtX])J 
END 
ELSE 
BEGIN 

IF HIGHLINKwSEVENf THEN 
BEGIN 

MtPLt 133 . CCF3-SEVEN7I 
MrSU[Xn,CDA3*M[PUl]],[DA)f 
END 

ELSE 
BEGIN 
MtPL[0]*n,tCF]l»LOWLlNK; 

IF L0WLINK»S£VEN7 THEN 
FlRSTLINKfHlGHLINK 
ELSE 
M[PL[m,[CFJl«HIGHLJ,NK; 

END) 
IF M[LASTAVAIL4»0 THEN 

M [ LAST AVA I LJ*AD* LAST AVAILED J 
IF AVAILABLE«0 THEN AVA J LABLE*ADJ 
PL[0] JaO) 



XMC4006000Q 

XMQ4006005Q 

40060100 

XMC40060200 

XMC40060300 

XMC40060302 

XM040060305 

XMC40060400 

XHG40060500 

XMC4Q060600 

XMC40061000 

XMC40062000 

XMC40063000 

XMC40064000 

XMC40065000 

40065010 

40065020 

40065030 

40065040 

40065050 

40065060 

40065070 

40065080 

40065090 

40065100 

40065110 

40065120 

XMC4006600Q 

XMC40067000 

XMC40068000 

SKMC40068050 

IMQ40068100 

XMC40069000 

XMC40070000 

XMQ40071Q00 

XMC40072000 

XM640073000 

XMC4007400Q 

XMC40075000 

XMC40076000 

XM040077000 

XMC40078015 

XMG40078020 

XMC4007803B 

XMC40078031 

XMC40078032 

XM640078033 

XMC40078034 

XMG40078035 

XMC40078036 

40078038 

XMC40078040 

XM640078042 

XMC40078046 

40078048 

XMC40078050 

XMQ40078052 

XM640078054 

XMC40078058 

40078060 



END; XM640078065 

END1 XMC4QQ78067 

IF REM LSS THEN BEGIN RADD*X MOD 5;RADD*<RADD+(RADD«0))xFQRTYI 40078068 

RLEN*ABS(REM); END? 40076069 

X*X-CRLEN*0)> XMG40078070 

END ELSE 40078072 

IF(NTli"M(SU[X)].[DAJ> GTR RADD-RLLN THEN 40078074 

BEGIN RLENJ-RlEN-(RADD-(RAOD«"Nn))> 40078076 

SUPERlM; GO BACK; 40078078 

END XMC40Q78080 

ELSE 40078085 

RLEN*0{ XM640078087 

END> XM040078090 

IF RLEN>0 AND NOT ERROR THEN GO BACK; XMC40078091 

SUPERI»SUPER OR CERROR AND SUt X] ,DI SKRUNN 1 NG) ; 40078092 

END OF COMPLEMENTING DISK DIRECTORYJ X024-40078093 

SUBROUTINE LOCKED! 40100000 

BEGIN 40100100 

IF (X1»*(RADD-RLEN) D IV TN )* C X2 I *RADD DI V TN) THEN 40100200 

IF(TWOCXl) AND EUM)«0 THEN BUILDAVAlL ELSE GO FORGET ELSE 40100300 

BEGIN 40100400 

yh*raod;y2i»rlen; 40100500 

IF(RLENt*CXl+l)xTN-(RADD-Y2 ) )GTR AND CTW0CX1) AND EUM)*0 THEN 40100600 

BEGIN RADD'*CXl + l)xTN;Xt*5xD+CCYl-Y2)DlV FORT Y ) ; BU I LDAVA I L ENDM0100700 

IF CRLENts Yl-(X2xTN)) GTR AND (TW0(X2) AND EUM) EtiL THEN 40100800 

BEGIN RADD« s YHXi*5xD + RADD 01 V FORTY; BUI LDA VA I LI END! 40100900 

WHILE CX2JPX2-1) GTR XI DO 40101100 

BEGIN 40101200 

RLENl*TN;Xl*5xD+((RADDlB(X2+l)xTN)-l)DIV FORTY; 40101250 

IF CTW0(X2) AND EUM)*0 THEN BUILDAVAlL; 40101300 

END; 40101400 

END; 40101500 

FORGET! 40101510 

END OF LOCKEDI 40101600 

* 40199900 

$ SET OMIT * NOT SHAREDISK 40199990 

BYPASSlsDISKBOTTOM+2; » SET AT 44240580 40200000 

H0LDERl*DIRECT0RYT0P»7-CH0LDMAX+29) DI V 30; 40200100 

S POP OMIT 40200110 

SU I •! MIRTH "SPACE CI 00) mi 0018 1 38 MO J J 40249100 

SEVEN7 J *?77777; FORTY I «40000 1 TN I « 10000 ;MN I " 1000000 ;TM»«10000000; 40 24 9 105 

M0VEC100»RTl-ltRTi); X02 7-40249 1 1 

SOCK t»[MIRTl I "SPACE (40)1 3*4016 I 38M0J; 40249120 

M0VEC40tRTl-l»RTl); 40249130 

X'll«NEUP, [31151*111 CHECK ONLY UNITS THAT EXIST 40249200 

VRl»(MULTlTABLEC16JU4C8i 361101 1 40249250 

LOOKATDKB? XMC4Q249300 

FOR JlsO STEP 1 UNTIL Xj DO 40250000 

BEGIN 40251000 

X2JM9; 40252000 

FOR II»0STEP 1 UNTIL X2 DO 40253000 

BEGIN 40254000 

RADDl»MNxJ«HxTN; 40254100 

STREAM(Q»«RADD»B»*40+A); 40255000 

BEGIN SI»«LOC Q;DS:=8 DEC END; 40256000 

IF I EQL THEN 40257000 

BEGIN X2l«20xWAlTlO(40+A INXP140000000* P64# 18+C ) , [ 43 M 3 +X2I 40257030 

IF X2*39 THEN VRI NT 11 ■1*C*2J » »P( QUP # LOD) OR TWO(H-J); 40257060 

ENDI 40257100 

IF NOT(R*WAITIO(40+A INX »100000000»»64» 18+C > > • [421 1 1 THEN S024-40258000 



BEGIN 40261000 

NT2I9SCNT! » s5x J + 50xC ) + C I D I V C SU[NT 1 3 , FOR T YM I LLD I SK + UD I V 4); 40261010 
SUtNT2]|»P(DUPiL0D)*l[18U7ll]«(X2>j9)[19U7il3l *03 1-40261 040 

IF R, [43113 THEN 40261042 

BEGIN F0RTY|*FQRTYx((X2 GTR 19) + 1)J 40261043 

S0CK[Cxl0 + J3»«C*P(DUP)) OR ThOC I 5 1 40261044 

XI»NT2IRADD«*CRADD MOO MN )+( RLEN I sTN ) ; BU I LDAVA I U 40261046 

F0RTY!«40000; 40261047 

END ELSE SOCK£CxlCUJ + 203ls(*P(DUP)) OR TfcOUF X2«19 THEN I ELSE 40261048 

CI DIV 83x4 + (I AND 3)); 4026104V 

END ELSE XNOT READY CHECK NEXT SU 40261050 

BEGIN EUSUI«EUSU OR TW0(4-(IF X2*19 THEN I ELSE (I DIV 8)x4 + U AND 40261100 

3))DIV 4); 40261150 

I lsl+(((SU[NTll*(5xJ+50xC)3 t F0RTYMILLDISK+l)x4)»l); 40261200 

END ENDS 40261250 

STREAM(A««CN0T ELSU } # 1 43 J 5 3 , J» DI*VR INX C INX C)S 40261300 

BEGIN SH'LOC AJ Sli*S!*7l 40261350 

DII«DI*JI DS|*CHR? 40261400 

END! 40261450 

EUSUI*0J 40261500 

END* 40262000 

$ SET OMIT ■ NOTCDKBNODFX AND NOT DFX) 40262299 

IF NOT C AND ( Xl«-NEUP . [ FF 3-NEUP , [CF 3-1 ) >0 THEN 40262300 

BEGIN Cl*t* 40262310 

IF P(RRR),[28«13 THEN GO TO LOOKATDKB ELSE 40262320 

BEGIN STREAMCJ»«J:=SPACE(60))J 40262330 

DS»*44 LIT M DKB NOT READY - IGNORED BY D I RECTORYBU I LDER* M I 40262340 

SP0UTU3J 40262350 

END! END? 40262360 

$ POP OMIT 40262361 

$ SET OMIT * NOTCDFX) 40262369 

NEUP|»NEUP*NEUP[CTF3> % REMOVE ANY EUS DECLARED ON DKB 40262370 

S POP OMIT 40262371 

J*DIRM0DI 40262500 

V »« [MtSPACE(J)33&J[8J38|103l 40263000 

J * J-1J 40264000 

H*l«-T*»ll 40264100 

FOR S «■ STEP 1 UNTIL J DO 40264500 

BEGIN IF T«I THEN 40265000 

LTRl BEGIN IF ( H*H+ 1 3SCHUNKMAX THEN 40265100 

BEGIN IF T0TALCH3/0 THEN GO TO LTRl 40265200 

I»CHUNKZl2ExH+FENCE» 40265300 

END ELSE I «= SPACECCHUNKZIZE)* 40265400 

TM4CHUNKZJZE* 40265500 

END» 40265600 

VRtS3*[M[13 3462[8»38U03l 40265700 

1*1*641 40265800 

BYPASS*BYPASS-2; 40266000 

CLEARS 40267000 

ENDS 40268000 

AAA»*AAI«SPACEC480); 40275200 

DlSKWAlT(-A»480tJl*0lRECT0RYT0P*4); 40275300 

ZSF*"I0QUE&SPACE(31HCTC3J 40275500 

ZSFt03*P14) 40275600 

W*OS 40275700 

FOR Jl*J STEP 16 WHILE J*16 DO 40276000 

BEGIN 40277000 

DISKI0CNT3i-(AAA" , l)»480»J+16)l 40278000 

IF J+152:BYPASS,rCF J THEN DJ RECTORYFUULC BYPASS) I 40278100 

BYPASS,[FF3*J+15I 40278200 



FOR I * STEP 1 UNTIL, 14 DOX 40279000 

BEGIN t * DDD[478-2xl 11% 40280000 

HI«J+l«*ll 40280100 

if T*eii4 then 40261000 

BEGIN D0DC479-2xI3l»0l 40281100 

UCHANGl*Q? XR6140281110 

Il=»15? 40281200 

END ELSE 40281300 

IF T»«U4 OR 40282000 

DD0t424-lx30J,[Hl J THEN 40283100 

BEGIN 40283200 

UCHANGlsO; XR6140283210 

DDDt476-2xi J*P14* 40283230 

DDD[479-2xn»«NEXTSLQT; 40283300 

IF NEXTSU0T»0 THEN 40283400 

BEGIN FIIpIIFJI*J*J5 ENDI 40283500 

NEXTSLOT$*h; 40283600 

END ELSE 40284000 

BEGIN DDDt429-Ix30J,[llA2JI*0; 40285000 

B**DDD[429-Jx30Jj 40285005 

IF (C*DDDC423"Ix30])>0 THEN 40285010 

BEGIN DDD1423*I*30J* 40285020 

-C&CC2I8J10JJ 40285030 

UCHANG|*0» *R6140285035 

ODD [424-Ix303*0» 40265 135 

END 40265140 

ELSE 40285150 

DDDC424-lx30J*PCDUPtL0D) 40285160 

AND 00037000000007774* 40285170 

IF C»C2> 103*0 OR 40285500 

DDDL424*Ix30J,C44»l] THEN40285600 

SAVIT; 40265700 

FOR C»»l STEP 1 UNTIL B DO 40286000 

BEGIN RADDI-DDUC429-IX30+CJJ 40287000 

IF RADD GEO DJSKB0TT0M+5 THEN 40290000 

BEGIN 40290100 

IF CRADD»*RADD+CRLENl*DDDt428-Ix30])) GTR TM THEN 40290200 

BEGIN RADDI*RADD MOD TM?X»*50 END ELSE X|»0? 40290300 

U SUCXl»X+5x<DJ*RA0D DIV MN) ] , F ORT YMI LLD1 SK THEN 40290400 

FORTY»«P(FORTY#DUP»+)l 40290500 

X|«((RADDI*RADD MOD MN)-1) DIV FORTY ♦ X? 40290600 

IF (EUM«sS0CK[Dl) NEQ THEN LOCKED ELSE BUILDAVAILI 40292050 

P0RTY»»40000> 40292060 

*F SUPER THEN 40292200 

BEGIN XMC4Q292210 

STREAM(Al«T»B»«DDDt479*2xI].Tl*SUPER»*SPACE<lO))| 40292212 

BEGIN DS|*2LIT", "I SlJsLOC A? SJHSI + II DS|*7CHRI DS|bLIT"/"| 40292214 

SII«SI+1I DS|*7CHR? DSl*19LlT" DISK ADDRESS ERROR"? 40292216 

DSl*LlT"*"l 40292216 

ENDI 40292220 

SPOUTCSUPER)? 4029222B 

ERRORl»SUPER««Ql 40292230 

ENDI XM540292240 

END? 40292250 

END? XMC40292300 

Bl"DDD[479-2xU? 40293010 

Sl*(SI*DlSKBOTT0M M044029302Q 

-SCRAMBLE(T#B)), 110140293030 

[3611131 X10440293040 

Cl*V[St03l 40293050 



V[S» 

vis, 

IF ( 
BEG I 



PBCOUNTJ* C((("PBD 
(("PUD 
CB.LCF 
END! 
SLtEP(tNT3]»N0 
DDDI«DDD&PCDUP 
AAAI«=P INX OJ 
DISKWA1T(AAA»4 
IF I * 16 THEN 
BEGIN* 

J *■ 

end;* 



FOR 



Z*USER 
X|*?»5| 

% SET 
RI»(NE 
VR»»CM 
MOVECR 
VR[QJ| 

$ POP 

t SET 
RtsOJ 

S POP 
RADDlw 



DISKBOT 

DDDCU 

OMIT » 

UP.NEUF 

CSPACEC 

»VR,CCF 

"O&RCTO 

OMIT 

OMIT ■ 

VRMAVT 

OMIT 
Rl RIB 



E 

I I 

D 

FOR I* 

BEGIN 

T 

M 

I 

END? 

B«*V,t 
IF NEX 
BEGIN 
DISKWA 
VR[-2x 
DISKWA 
END EL 
FORGET 
DDDI*D 
IF PBC 
BEGIN! 
B 



ENDJL.I 

ENDI 
TOM; 
1*0; 

NOTCSH 
♦1) DIV 
R))HR[ 
JM»VR) 
NUMENTJ 

SHARED 
ABLE! 

R-l ; 



NDJX 

* STEP 1 

ISKWAITCCV 

STEP CHU 

VU»0)*OJ 

*[V[I.OJJt 

OVEfCHUNKZ 
F T<FENCE 



cnt 

TSLOT#0 



TH 



ITC-B 
F 1*29 

IT(B» 
SE NE 
SPACE 
DD&Af 
OUNT* 
STRIA 
EGIN 
D 
D 
«X| 



.30»F 

3i*h; 

30»FJ 

XTSLO 

(B)J 

CTClJ 

OR 

M(PBC 

OSMl 

S*4 D 

I»Xl 



UNTIL D 

n»nj i 

NKZlZt D 

[CFj; 

IZE-1#T# 

THEN FOR 



EN 

J)l 

)J 

T I *H| 

FORGETS 
AUTOPRIN 
OUNT»X«* 

LIT" TH 
ECI DS*1 
DS*3 FIL 



J a l 

end; 
TO); 

'AAA) 

ISWA 

eo#j; 
% 



1KMOD' 
NX 1* 
IV 64 



end; 

L«V T 
EQV T 
)) + 



tCTCJ 

P DDD 

; 



c + 2J» 

C + 411 

vts.o 

N V[S 
BYPA 
IF J 
DIRE 
DISK 
60t 
CLEA 

) = N 

) m N 
PBCOU 



; 



«t; vcs#c+33i=b; 

*h; 

]»*C+3)«60 THEN 
»4J,CFFJ*BYPASS* 

ss-2; 

+15*BYPASS 

CTORYFULL( 

WAlT(tVCS» 

V[S.1J)» 

RJ 



or 0) 

OT 0) 

NT* 



OR 
) AND 



BUFFERS 



1 DO 

60* 

UNTJ 



VII#1 

L DIR 



J)J 
MOD* 



1 DO 



T+n; 

GETSPACECT); 



PACEC 
T THE 
X|«SP 
ERE A 
6 LIT 
LI 



AA)I 
N ELS 
ACEC1 
RE"; 
" PB 



E 

0)); 
x*di; 

FILES 



SI*L 
ON D 



OC PB 
ISK* M 



AREDISK) 

2 ♦ NEUP,NEUF ♦ 21 
8s 38* 103 I 

J 
ISK 



.[CFJTHEN4 

BYPASS)? 4 

2J]#[CF3»4 

4 

4 
4 
4 
4 
4 
4 
4 
4 
4 



4 
4 
4 
4 
4 
4 

a 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
*MC4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



COUNT! 

I 



0293060 
0293070 
0293080 
0293090 
0293100 
0293101 
0293102 
0293110 
0293120 
0293140 
0293150 
0309100 
0309150 
0309200 
0310000 
0311000 
0311100 
0311200 
0311300 
0312000 
0313000 
0314000 
0315000 
0317000 
0317200 
0317210 
0317220 
0317230 
0317240 
0317250 
0317260 
0317270 
0317300 
0317310 
0317320 
0317400 
0317500 
0317600 
0317610 
0317700 
0317B00 
0320100 
0320200 
0320300 
0320400 
0320500 
0320600 
0320700 
0321000 
0321100 
0321104 
0321105 
0321110 
0321115 
0321125 
0321126 
0321129 
0321130 
0321131 
0321135 



N73l»NEUP,NEUF»n * OONT USE NT3 BETWEEN HERE AND 40334065 40321140 

FOR NT2|«0 STEP I UNTIL NT3 DO 40321200 

BEGIN I*RA*'llRLEN*RL*0jRADD*RADD+(Z-USEkDISKBOTT0M)x30l S024-40321 300 

F0RTY»*(SUCX*«X«-5].F0RTYMILLDISK4 1)XF0RTYJ 40321310 

WHILE (Cl»SUtX*(I|"I+l)])iDlSKRUNNING AND I LEO. 4 DO 40321400 

IF NOT C. OCCUPIED THEN 40321500 

BEGIN XMC40321600 

IF CiCCFJ*0 THEN XMC40321700 

BEGIN XMC40321800 

RA*RA+U XMC40321810 

C»»0; 40321910 

Sl»CI+l)xF0RTY; 40322000 

J*IF X*I*0 THEN XMG40322100 

F0RTY-CDISKB0TT0M+5) ELSE FORTY; 40322150 

END XMC40322200 

ELSE XM04O32221O 

BEGIN AD*MtMtSUtX+l3n.tCF3)RA*"lJ ENDI JSMC40322220 

DO XMC40322250 

BEGIN XMC40322300 

IF CO THEN BEGIN S»M[ AD J • IDA] IJ + MC 1 + AD] • [DA] END; XMC403224Q0 

SS«S+(X MOD 50JDIV 5xMN; 40322410 

IF *>>RLEN THEN RLENl»j; 40322420 

IF X GEO 50 THEN S»*$+TMI 40322425 

IF J GTR AND (NTll*S-J) GEO DISKB0TTQM+3 THEN 40322430 

IF (YleDDDUBSCRm.DEND E«L NTl THEN 40322440 

BEGIN DDD[R]»*S&(LQ»*Y,DSIZE+JHT00SIZE3; 40322442 

IF LO GTR RLEN THEN RLENl*LO END 40322444 

ELSE XMC40322450 

BEGIN XM640322460 

IF R«AV1 THEN XM640322470 

BEGIN 2MC40322480 

DISKWAITCA#AV1#2);Z*Z ♦ AVBLOCK;K* -1» XM640322600 

END; XMC40322700 

DDDtR*R + n* S& JtT00SlZE3;RL*RL+i; 40322800 

END; XMC40323000 

IF C*Q THEN 3SMC40323100 

IF MtAD].rCF3>'SEVEN7 THEN IMC40323200 

AD*M[AD]»tCFJ ELSE XMG40323300 

BEGIN XMG40323400 

K*»H XM640323500 

WHILE <B*<MC5U(X*niNX(K*K*i)J>>#0 AND K<15 DO XMC40323600 

FORGETSPACECBHFORGETSPACE(SU[X+I]); XMC40323 700 

C*0; XMC40323710 

END; ZMC40323600 

END UNTIL C»0; XM840323900 

ENDI 40324000 

IF <pDOrR] f DEND MOD MN )■( ( NT 1 1 »5xF0RTY )-l ) THEN DDD [R 1 , DEND I «NT1+ 40324102 

NT2XMN; I! NT2 * X DiV 5 40324104 

RL*RLMJ 40324120 

VRCNT2*iJ|3«0&CSUCXJ,F0RTYMILLDISK + l)LT0SPEED]&RLn0NUMENT]& 40324200 

RA0DCt0STARTWRD]&RLtNtT0MAXSlZ]&(NT2iNEUP,[3»153 AND NT 2<10) [TOEUNPJ I 40324210 

IF R«AVl THEN 40324300 

BEGIN 40324400 

DISKWAIT(A#AV1»Z)> 40324500 

Z*Z+AVBL0CK;R*"1} 40325000 

END; 40326000 

DDDCRl»R + n»p400Q00 DI VC2-SUCX] .F0RTYM1LLDI SK) + ( X MOD 10OD1V 5xMN + l; 40327000 

IF (L0l»RL OIV 4) LSS AVDIFFMIN THEN LOlsAVDIFFM IN ELSE 40326000 

JF LO>AVDIFFMAX THEN L0*AVD IFFMAXI 403290U0 

IF (Rl»R+L0) GTR AVI THEN 40330000 



BEGIN 40331000 

DISKWAITCA»AV1»Z)JZ«-Z + AVBL0CKJ 40332000 

Rl<«R-AVl I 40333000 

END* 40334000 

FQRTYiMOOQO I 40334054 

RADDI«R+1 I 40334055 

END; 40334056 

DISKWAJT(A»AV1»Z)J 40334057 

NT2l»NT3 ♦ 31 % NT2:*NEUP.NEUF+2 40334060 

FOR NT1I«NT3 STEP -1 UNTIL DO 40334065 

JF (NT4I«(NQT S0CKCNT1+20J),C28»20J) * THEN % LOCK OUT THIS EU 40334070 

BEGIN EUMASKl*TWOCNTl) OR F.UMASKJ % TURN ON EU LOCK OUT MASK 40334075 

IF NT t THEN VRtMl D I V 2 + NT? J . [ 8 I 20 J I *NT4 40334077 

ELSE VR[NT1 DIV ? ♦ NT2 J , [ 28 I 20 J I =NT4; 40334079 

ENDI 40334081 

VR[QJI*P(DUP#L0DHEUMASKtT0MAXSlZ3; 40334085 

$ SET OMIT * NOT(SHAREDISK) 40334308 

DISKWAIT(-A*60,USERDISKBOTTOM)) 40 334310 

•ISKWAIT(EUlO,[CF3»EUlO,t8ilOJ.EUIOHOLDER) I 40334315 

MQVECVRCQJ AND NuMeNTM, [ yR[ 0] J # A ) ; 40334320 

DISKWAIT(A#60»USERDISKB0TT0M)> 40334 330 

AVSl«(AVSl*IF(AVSt»(2-USERDlSKB0TTOM)x30+R*AVDlFFMlN)>AVSMAX THEN AVSMAX40334 335 

ELSE IF AVS LSS AVSMiN THEN AVSMlN ELSE AVSU30-CJF CAVStwAVS MOD 30)40334337 

#0 THEN AVS ELSE 30) I 40334338 

FQRGETSPACECVR)! 40334500 

DISKWAITCCH0LDER1.[CF3»-3»DIRECT0RYSEG); % CLOBBERS FJ40334600 

t SET OMIT « NOT STATISTICS OR OMIT 40334690 

BYPASSBOTTOMiwBYPASS.tCFJ* 40334 700 

S POP OMIT OMIT 40334710 

FORGETSPACECSU); 40335000 

$ SET OMIT m SHAREDISK 40335990 

UNLOCKDIRECTORY? 40336000 

$ POP OMIT 40336010 

UNLOCKTOG(USERDISKMASK)> 40336100 

IF L>1 THEN SPOUTCL); % THERE ARE X PB FILES ON DISK 40338000 

MESSAGETABLEBUILDER1 40339000 

FOR W*W STEP "2 WHILE ZSF[WJ#P14 DO 40353100 

BEGIN 40353110 

IF W<0 THEN 40353120 

BEGIN 40353130 

DISKWAIT(-2SF.fCF]»30»ESPADD)l 40353140 

FORGETESPDISK(ESPADD); 40353160 

ESPADD*ZSFt29]J 40353170 

W*?6I 40353180 

END) 40353190 

FQRGFTSPACECDIRECTQRYSEARCH(ZSFCW]»ZSFCW+n»6))J 40353200 

END* 40353210 

XM040353300 

FORGETSPACE(ZSF); FORGETSPACE C SOCK ) ; 40356550 

SUSTATUS(A*DDD»0)J 40356800 

ENDI 40400000 

PROCEDURE REAUFILECLOSE(ALPHA)* VALUE ALPHA! INTEGER ALPHAI* IR9041000000 

BEGJN ARRAY F I B[*3 »FPBt *J t HEADER!* 3 t % 41001000 

%%% DONT ADD ANY DECLARATIONS BETWEEN "HEADER" AND "KIND" %%% WCP 41001500 

INTEGER K I ND»NBUFS»U»BLEN, CODE* UNLABELED »COBOL» I tJ»FNUMj 41002000 

REAL MID»FID»R»D»C»F0RMS»STATEI 41003000 

REAL RCW**0»XTRA*-3J XR9041003100 

LABEU PXtPBDI XP 41004000 

LABEL CR»LP»MT#cL05ED»DK»SP*cP»BKUP»PP>PR»DC»CDtCCJ 41005000 

SWITCH SW*CR»LP>MT»CLOSED»DK,SP.CP#BKUP»PP#PR»DC»CD»BKuPJ XPB41 006000 



LABEL E0F»0N»DNE»CLEANUP;* 41007000 

LABEL EODJ 41007100 
LABEL 06JTYPE* DUMMY! IR624100715Q 

REAL TliT2t T3t IODI ARRAY SEG0[ * 3 * SKEL[ *3 ; LABEL L1#L2#L3» 41007200 

real t»accessu 41017000 

BOOLEAN COMPGO; 41017200 

REAL TYPEJ 41017300 

DEFINE REW»C0DE.[47»13#»* 41018000 
KRUNCH»N0T C0DE,[42U)#» XR1I4101810Q 

REL»C0DE.U6U3#»X 41019000 

TIME"C0DE.[45U3#»* 41020000 

L0CK»N0T C00E.C44I 1 J#»X 41021000 

PURGEsNOT C0DE.[«3H1#I« 41022000 

* 41023000 

Label closeout;* 41035000 

label eqfitjx 41036000 

c0de*cn0t *p(, alpha)), [18u5jjx 41038000 

alpha*pc,alpha»l0d),[33m5ju 41039000 

fib*mtalpha-3]| f pb*prt[p 1 m i x» 3 3 ; % 41040000 

if cstate*fib[5j),t42u3 then go to closed!* 41041000 

NBUFS*FIBtl33.tlt93l FNUM*FIBC4] , [ 131 1 1 3 1* 41042000 

U*FIB[153, [24163; 41043000 

UNLABELED*riBt«]i[2UJI* 41044000 

BLEN*FIB[183.C35153;* 41045000 

STREAM(S*[FPBCFNUM3 3»D*tMID3)»X 41046000 
BEGIN SltsS; DS»s2WDS; DS»*30CT; DSjsSOCT) DSJbOCT; END; 41047000 

FORMS *FPBrFNUM + 33, t /| 2 I 1 ] I * 41048000 

I*FIB£133,C28I103;SI! 41049000 

IF 1*0 OR R#0 THEN R-H 41050000 
C0B0L*(FlBtt33 AND 1 )&( C F I B3 , [8 I 10 3*22 ) [ 1 I 47 1 1) ; % COBOL 60 & 68 41051000 

IF FIB.C7U3 THEN CHECK JOBORF ILEMESS CP1 M I X, ALPHA»3#U) J 41051620 

GO TO SH[KIND*-FIB[4].[8I4]]IX 41052000 

X 41053000 
CRlCCICPlLPlSPlMT»PP«PR»CD» XR904 1054000 
OTHERCLOSECO); IR9041055000 

GO TO CLEANUPS 41142000 

* 41143000 
BKUPI TYPEl*FPB[FNUM+3J,t43J53> BACKCLOSEC ) ; 41144000 
DC 1 1 41186000 
CLOSEOUTU STATE, t39j43*l» TIMEMU 41187000 
CLEANUPttX 41188000 

IF TIME THEN STOPT I M I NG(FNUM, 1023) ; XR624H88100 

IF NOT STATE, t M U 3 THEN* 41189000 

IF KIND<2 OR KINDsll OR KIND>6 AND KIND<9 41190000 

S SET OMJT • NOT(PACKETS) 41190099 

OR KIND"4 41190100 

S POP OMIT 41190104 

THEN BEGIN 41190200 

S SET OMIT * NOT(PACKETS) 41190249 

IF KIND«4 THEN T;»64 ELSE 41190250 

t POP OMIT 41190251 

Tl» (CLOSEMESS AND t ( T I*JAR[P1MI X, 1 )>0 OR T<0 AND COPNMESS)) 41190300 

OR CLOSEK; 41190500 

FJLEMESSAGEU 41190600 

$ SET OMIT * NOT(PACKETS) 4H90699 

IF PURGE THEN " PRG" ELSE IF LOCK THEN w LOK" ELSE 41190700 

$ POP OMIT 41190701 

" REL n )«TINUIU3t6t30ll8J»0fMID»FID» 4U90800 

IF KIND-2 OR KIND*9 THEN R ELSE 0. 41190900 

IF KIND*2 OR KIND*9 THEN D ELSE 0» 41191000 



Cf 

$ SET OMIT « 
IF KIND* 
BEGIN 

S POP OMIT 

T I* SPA 
MOVECETR 
MAKELOGC 
FORGETSP 

$ SET OMIT * 
END! 

S POP OMIT 
END! 

IF CFIBC 

IF (T*FI 

BEGIN T* 

FO 

BE 



T); 
NOTCP 
4 THE 



CEUQ 
LNG't 
T>FIL 
ACECT 
NOTCP 



53*ST 

BC16J 

T-l-C 

R 1*0 

GIN J 

F 

T 

M 



* 

DKll 



ENDIX 
FIBU63 

end;* 

IF NOT UNLABE 
IF KIND*0 THE 
IF (T*M[ALPHA 
FORGETS 
M[ALPHA-2J*PC 
FIB[63*FIB[7J 
GO TO CLOSED* 



ACKETS) 
N 



)-ll M0VE(10»T»T+1)J 

FPB[FNUMJ]»T+1)| 

ESTATS)? 

+ 1)1 

ACKETS) 



ATE), [42113 THEN F I B[ 4 3 , [ 8 i 4 3 *3; * 

•C33tl5])*0 THEN* 

IF STATE. C44I1J AND (K!ND*2) THEN BLEN ELSE 1)1* 

STEP 1 UNTIL NBUFS-1 DO* 
♦M[T].[ieil5J'2lX 
ORGETSPACECT)?* 

♦ jii 

[ALPHA+l3«-P(DUPiLOD)&Ot2l2ll3&l[25i4?»l3* 
&(ALPHA+1)[33J33I15JJ* 

*0J* 

LED THEN* 

N* 

-23,[33Jl53)#0 THEN* 

PACECT-2)!* 

DUP»L00)*P(0»XCH)t6l8H0]l* 

♦ 0»* 
* 



DISKCLOSE(O)) 
GO CLEANUP!* 
CLOSEDi t 

RCHmXTRA! 
END FILE CLOSE* 
PROCEDURE LINKUP(TY 
BEGIN 

KEY I* PC»KEY»L 
M[KEY+13l» (*P( 
M[KEY+23 I* (*P 
IF (LOGHOLDER I 
BEGIN LOGHOLDER 
FORK(P(,M 
END ELSE M[LOGH 
M[KEY3,[CF3 i» 
IF (NUMAINTMESS 
END LINKUP! 
PROCEDURE CHECKJOBO 
VALUE MlX.FIBiU* 
BEGIN 

REAL key.fnum; 

IF NOT JAR[MI 

BEGIN 

JARCMIXi2), 
KEY |» GETS 
MI KEY 3 I* 
MtKEY+13 l» 



PEtKEY)! VALUE TYPE»KEYl REAL TYPE*KEY! 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
XR904 
4 
4 
XR904 
*«904 
4 
4 
4 
4 
4 
4 
4 
4 



OD) INX -1! 

DUP))&TYPE[3I4216J&CLQGENTRY»»L0GENTRY«-1)[25»34J14]J 

CDUP)) & (XCLOCK + P(RTR))[3l24$24J; 

NX 0) * THEN 

,[CF3 la KEYJ 

AlNTL0GGER)t0i0#128»l)J 

OLDER, [FF33.ICF3 «« KEY! 

01 LOGHOLDER, [FF3 I* KEYI 

»*NUMAINTMESS+1) > THEN SLEEPC t NUMA I NTMESS3 * »0) ; 

RFILEMESS(MIX»FIB»U)I 
REAL M1X»FIB#U; 



X#23,[3tl3 THEN 

[3113 I* U 
PACE(5t73#5)*2! 

S MJX[20»43I53! 

JAR[MIX,5J,[61)6]; 



191100 
193049 
193050 
193060 
193061 
193100 
193200 
193300 
193400 
193499 
193500 
193501 
193900 
194000 
195000 
196000 
197000 
198000 
199000 
200000 
201000 
202000 
203000 
204000 
205000 
206000 
207000 
206000 
209000 
210009 
211000 
213000 
214000 
215000 
269000 
308000 
309000 
310000 
310100 
310200 
310300 
310400 
310500 
310600 
310700 
310600 
310900 
311000 
311100 
311200 
312000 
312100 
312200 
312300 
312400 
312500 
312600 
312700 
312900 
313000 



MtKEY+2] la JARtMlX»5J> 41313100 

M[KEY+33 I* JAR[MIX.0J; 41313200 

M[KEY+4] *» JAR(MIX»1JJ 41313300 

LINKUP(12»KEY)» 41313400 

END* 41313500 

IF FIB#0 THEN IF NOT M[ F I B 1 ♦ C 6 » 1 J THEN 41313600 

BEGIN 41313700 

MJFIBJiUUl '« It 41313800 

FNUM I* MCMtFIBJ INX 43.C13H1 Jl 41313900 

KEY (* GETSPACE(5»73»5)+2I 41314000 

MEKEY ] |« & MIXI20I43I5J 4J314200 

& (CFNUM 01V ETRLNG)+l)[9»39»9j; 41314300 

MCKEY+U l« JAR[MIXt53, [611811 41314400 

MCKEY+2J !* M[(FNUMI« PRT[MIX.3] INX FNUM)+33> 41314500 

MIKEY+31 »« MtFNUMlI 41314600 

MIKEY+4J l« M[FNUM+11) 41314700 

L!NKUPC13»KEY); 41314600 

ENDIEND CHECKJOBORFILEMESSJ 41314900 

PROCEDURE L0G0UTMAINT(B)J VALUE B> REAL BJ 41316000 

BEGIN 41316100 

REAL, RCW * *Qt 41316200 

REAL FH » +1* Tl s +2* T2 * +3r T3 » + 4. SAVENTRY ■ +5; 41316300 

REAL MFID » + 6» FID * +71 BOOLEAN FORKED * +8; 41316400 

INTEGER LASTL « +9# SEGNO * + 10* SEGSlZ * ♦ 1 1 # LDATE « + 12J 41316410 

LABEL CS»SCANtNEWLOG»BUILDMESS»EXlT»FlNlSHUP) 41316500 

SUBROUTINE FlX(;OLDH{)Rl 41316505 

BEGIN 41316510 

M[FH INX 0J»* 00000500036000601; 41316515 

M[FH INX Ul« (XCL0CK+P(RTR)) & LDATE [ 6 i 30 » 1 6] I 41316520 

STREAM(DATE»Xj»FH INX 3)) 41316525 

BEGIN SII*L0C DATE; DSl«8 OCT? Dli»Xj DS»*2 LIT M +# M ; 41316530 

SU*X| SU«SI+5I OS 1*3 CHRJ 41316535 

END» 41316540 

S SET OMIT ■ NOTCSHAREDISK) 41316545 

STREAM(SYSt»SYSNO»D»*[M[FH INX 4J3)I 41316550 

BEGIN 41316555 

SKIP 9DBJ DSlsSETl SKIP 2DBJ SYS(SKIP DB)J DS«*SET1 41316560 

ENDJ 41316565 

M[FH INX 4],C<»5»n»*0J % TURN OFF COLD-START BIT 41316567 

$ POP OMIT 41316570 

* SET OMIT m SHAREDISK 41316575 

M[FH INX 4JI« & 72[9I41»7]J * SYSTEM DATA FILE 41316580 

S POP OMJT 41316585 

M[FH INX 73«« CL0GSJZE>«6)-1J 41316590 

ENO FJXCOLDHDRJ 41316595 

P(0#0»0t0»0»0»0»0»0»0»0t0}l 41317100 

IF FORKED!* B*0 THEN % INDEPENDENT RUNNER 41317200 

BEGIN IF MROW > THEN SLEEPC [ MROW J # -0) t 41317300 

MROW |« ABSCMROW)! 41317400 

LASTL I* LOGENTRYJ 41317500 

LOGENTRY t* Oj 41317600 

END ELSE LASTH«ABS(B)-2I 41317700 

FIDI" "MNTLOG H 41317710 

$ SET OMIT « NOTCSHAREDISK) 41317719 

& CSYSN0+17)[42»42I6J 41317720 

* POP OMIT 41317721 

t 41317730 

STREAMCDATE«C««ELDATEJ)> BEGIN SI»«LOC DATEl 0S«*8 OCTJ END* 41317780 

T.l»i.SP.A.CE.'C.335)l 41317790 

IF (FHI«DIRECT0RYSEARCHCMF IDI« M MAINT "»T3i«"L0G M 41317800 



S SET OMIT * NOTCSHAREPISK) 

& CSYSN0+m(24l42l6) 
S POP OMIT 

#5))*0 THEN 
BEGIN 

FHI«SPACE(30); 
M0VEC30#FH-1»FH)J 
M[FH+ 9)l« i; 

MtFH*103»K GETUSERDISK(-(M[FH+8 3l*L0GSIZEi*1000)); 
CSt FIXCOLDMDRJ 

IF FH.[FF3*Q THEN ENTERUSERF I LEC -MF I D» T 3» FH-1 ) 
ELSE DISKWAIT(FH INX 0. 30, FH, t FF 3 ) I 
VlOt" T3I 

MROW»» M[FH INX 10); 
GO BUILDMESS* 
END! 

L0G5IZEI* M[FH INX 63 1 

IF MCFH INX 4], [45111 THEN FORKED J *FQRK£D OR ZJ % JUST COLD 
IF B>0 THEN 
BEGIN 
S SET OMIT s NOT(SHAREDISK) 

STREAM(SYS!»SYSNOtD»»tMtFH INX 431)} 

begin skip 9dbj dsi»set j skip 2dbj sys(sklp db)j dsi*seti 

end; 

m[fh inx 43,[45m*»0} x turn off cold"start bit 

$ POP OMIT 

S SET OMIT « SHAREDISK 

MCFH INX 43«» & 72C9UU73J X SYSTEM DATA FILE 
$ POP OMIT 

DISKWAlT(-Tt»5#MR0Wl*MtFH INX 10 J 3 * 
MLOGl« SEGNOl* M[ T 1 3 . t 24 » 1 5 3 > 
SCAN» IF ML0G*L0GSIZE*1 THEN 
BEGIN 

IF (FORKED AND 2)#0 THEN GO CSJ 

IF MLOG#SEGNO THEN D I SKWA I T(-T 1 . 5» MROW ) ; 

M[T1JI« P(DUP.LOD) «, 1I2U7U1I 

DISKWAIT(T1»5»MR0W)I 

MLOGI* IF SEGN0<L0GSIZE-1 THEN SEGNO ELSE L0GSIZE-2* 

GO NEWL0G1 
END* 

DlSKWAlT(*Tl»30fMR0W+CML0GI«ML0G*l))l 
IF MCT1J# NOT THEN GO SCANJ 
MLOGis MLQG-1J 

LOGENTRYl. M[Tl*UilCFJI LASTLl= M[Tl + l 1 . [FF J I 
IF (T3I«L0GH0LDER INX 0) # THEN 
WHILE T3#0 DO 
BEGIN 

IF M[T3)<0 THEN MrT33,CFF3l* LOGENTRY I "LOGENTRY* 1 

ELSE M[T3+13, [25114]!* LOGENTRY I ■LOGENTRY+H 

T3l» M[T33 INX OJ 
ENDI 

IF LASTLXO THEN 
BEGIN 

DISKWAIT(-Tl»30#MR0WiCSEGN0J«LASTL DI V 30))f 

T3I* (M[T1 + (SEGSIZ»bLASTL MOD 30 ) 3 , [ 39 I 9) + 1 >x5) 

IF T3>5 THEN IF LASTL+T3 > ( T2 »«( MLOG+1 )k30 ) THEN 

BEGIN 

MCTl+SEGSlZJls P(DUP#LOD) & H2I47I13 & 

((T2-LASTL) DIV 5 " 1 > [ 39 1 39 1 93 1 
0ISKWAIT(U#30#MR0W*SEGN0)I 



STARTED 



1317900 
1318000 
1316001 
1318100 
1318200 
1318210 
1318220 
1318230 
1318240 
1318250 
1318360 
1318370 
1318380 
1316400 
1318500 
1318600 
1318610 
1318620 
1318630 
1318640 
1318649 
1318650 
1318660 
1318670 
1318671 
1318672 
1318679 
1318680 
1318661 
1318740 
1318760 
1318780 
1318800 
1318810 
1318820 
1318840 
1318860 
1318880 
1318900 
1316920 
1318940 
1318960 
1318980 
1319000 
1319020 
1319040 
1319060 
1319088 
1319100 
1319120 
1319140 
1319160 
1319180 
1319200 
1319220 
1319240 
1319260 
1319280 
1319300 
1319320 



ENDIENDI 41319340 

ENDI 41319360 

M[Tl ] |« 5 & 62[3l42l6] & 41319600 

CMLOG + <MDELTA»<0))[24»33»15J & LASTLC 9 t 33 1 15 ) I 41319700 

MCTml I* LDATE & (XCL0CK + P(RTR)H3»24l24]| 41319900 

M[T1+2J I" PATCHLtVEL; 41320000 

M[Tl+3] J* LOGVERSIONI 41320100 

MtTl+4] I* DATEI 41320200 

DISKWAIT(T1.5*MR0W)I 4132022& 

IF B>0 THEN % CALLED FROM INITIALIZE 41320240 

BEGIN 41320250 

IF (FORKED AND 2)*0 THEN FJXCOLDHDRl 41320255 

DISKWAITCFH I NX 0,30»FH, CFF J ) I 41320260 

GO FINISHUPI 41320270 

ENDI 41320280 

NEWLOGI 41320300 

IF HOLDFREE»0 THEN SLFEP( C TOGLE J » HOLDMASK ) I 41320310 

LOCKTOGCHOLDMASK)! 41320320 

DISKWAIT(-T1»-30#DIRECT0RYT0P-SYSN0)J 41320 330 

SEGNOl* CMC Tl+22 J , C 38 I 10 3 +1) MOD 1000? 41320340 

M[Tl+22J|« PCDUP»L0D) & SE GNO[ 38t 38 1 1 03 I 41320345 

DlSKWAlT(Tl»-30iDIRECT0RYT0P-SYSN0); 41320350 

UNL0CKT0G<HQLDMASK)| 41320355 

STREAM(AI»[ACTDATEJ»B«*SEGN0.CI«[MFID]>1 41320360 

BEGIN 41320370 

Sl»*AI Sl!*Sl+2J DH»DI + 1I DS»«4 CHKl SM*LOC Bl DS?*3 DEO 41320380 

ENDI 41320390 

IF DIRECT0RYSEARCHC-MFI0.FID.5) # THEN GO NEWLOGI 41320400 

M[FH INX 33 I » P(DUP»L0D) & LDATE 1 1 2 I 30 » 16] I % ACCESSED 41320410 

MQVEUOiFH INX OtTDl 41320420 

MtFH INX U»* (XCL0CK + P(RTR)) & LDATE I 6 » 30 » 18 J I 41320430 

MCFH INX 3]»* P(DUP»LOD> & LDATEt 30» 30* 18] ; % CREATION 41320440 

MCT1+ 4]|« & t C9i 47l 1 1 1 % TYPE DATA 41320450 

MCT1+ 7]|» (T2l* (ML0G+(MDELTA#0)+2))x6 -11 41320460 

MtTl* 8]|b T2+10I X TO SIMPLIFY DUMPING 41320470 

MCT1+ 9J|* 21 41320480 

MC T14-1Q J I « 01 M0VEC20itM[Tl + 10]]t[M[Tl + lU])l 41320490 

IF CMC Ti + 103 1 « GETUSERDISKC-T2-10 OR M)) * THEN 41320500 

BEGIN 41320550 

STREAM(AI*[MFID]»C«*T3»*SPACE(5))I 41320600 

BEGIN 41320700 

DS««18 LlT M -NO USER DISK FOR M I Sl»«AI SIU5U1I 41320800 

DSl*7 CHRI DSt*L!T"/"l SIl*SI + U DS»*7 CHRl DS I *L IT "*"» 41320900 

ENDI 41321000 

SP0UTCT3)! 41321100 

M[TW10Jl» GETUSERDISKC-T2-10)! 41321200 

ENDI 41321300 

T3|»0I SEGN0l*MCTl+10]l 41321350 

DO BEGIN 41321400 

DJSKWAITC-Tl-31#300#MR0W+T3)f 41321450 

DISKWAIT(Tl*3i»300#SEGN0*T3)l 41321500 

END UNTIL CT3I»T3+10) GEQ T2I 41321550 

ENTERUSERF1LECMF ID»FID»Tl«l)l 41321600 

DISKWAIT(FH INX Of 30# FH. t FF ] ) I 41321650 

BUILDMESSI 41321700 

ML0G»» MDELTAI* 0| 41321750 

MCT1 Jl» 5 & 62t3l42»6]| 41321800 

M[TU I3l« LDATE & (XCL0CK+P(RTR))[3I24|24]| 41321900 

Mill* 23 1* PATCHLEVELl 41322000 

M[T1+ 3Jl» LOGVERSIONI 41322100 



IESS+100J 
)t 

>GI»MFID«"MA1NT ">M«*MROyf>B»«Tl)J 



IAINTE 
T"/"l 
*4 LI 
*7 FI 



NANCE LOG KILE IS "» SIlsAJ Slt«SJ+lJ 

Slf*Sl+l» DS|*7 CHR? DSJ*LIT"* M J 
T" AT »> SH*L0C Ml DSI«8 DEC* OS t »L I T"«-" J 
LL)> 



M[Tl+ 4)»* DATES 
MtTl+301l» NOT OJ 
M[Ti*31Jl» NUMAINTM 
DlSKWAIT(Tit32*MR0W 
5TREAMCAl"(MFIDJiTO 

BEGIN 

DS|*29 LIT W #NEW M 

DSI*7 CHRJ DS«*L1 

T06(DH»DI-1I DSI 
DM»0I-9I DS» 

END! 
EXITJ 

SPOUT(Tl)) 
IF B>0 THEN 
BEGIN 

Til* GETSPACE(15»9#5)+2> 
FINISHUPI 

M0VEC13»BtTl+2); 

M[T1 3»* 2; 

M[TUiJ»- LDATEJ 

LINKUPU5.T1H 
END ELSE 

IF (T1!*P(,MAINTL0GARRAY,L0D) I NX 0)#0 THEN MOVE ( 31 » T 1"2» T 1*1 ) * 
Tl l« FH INX OJ 
SP0UTMCP<-(Tl*4)) J 
STREAM(KTRt»Tl+4l )f 
BEGIN SI I »KTR* 

4C52UF SC*"»" THEN S1»*SJM ELSE JUMP OUT 2 TO LL))> 
KTRI«SI I 



LLt 

ENDJ 

NTH* P INX Of 

MtTUl* CNT1-T1) 

MCTuni* loate; 

t SET OMIT * NOTCSHARE 
DISKWAITC-CT2I-SPAC 
STREAM(AI»T2+1»NI»N 

$ POP OMIT 

t SET OMIT « SHAREDISK 
STREAM(Al*CAVTABLEt 

t POP OMIT 

BEGIN Sil*LOC HI US 

nc if sb then 
end; 
s set omit * notcshare 
f0rgetspace(t2)i 

$ POP OMIT 

MCT1+23 l« MCPBASEI 

LINKUP(16»T1)> 

IF FORKED THEN BEGI 

END LOGOUTMAINTl 
PROCEDURE MAINTLOGGERCB 

BEGIN 

REAL RCW * +01 
ARRAY MLA * MAINTLO 
REAL KLUDGE » + 1» K 
REAL WMCP m + 6, WL 
REAL Tl m +11, T2 * 
REAL LOCN« WLOGi NU 

LABEL LOQANOTHER»RE 
PC0#0tO.O»0.0»0#0f0 



DIV 51 



DISK) 
ECAVS 
EUP.N 



))»AVS#USERDISKBOTTOM>; 
EUF»DI«T1+3)J 



lJ]tNl«NEUP,NEUFf Dl«Tl*3)l 



i*WDS 
DS»*S 

DISK) 



I DIl«DI-6J SJ|*A) SIt*Sl+4l 
ET ELSE DS«aRESET) SII«SI+8)I 



N MR0WI8NABSCMR0H); KILLCCB3 INX NOT 1)> ENDJ 
)) VALUE Bl REAL Bf 



GARRAY[*JJ 

FY ■ +2, TRANS * + 3» RECS ■ +4t WT » *bl 

OG « +7* WD * +6, A * +9t LASTENTRY « +10 > 

+ 12» U ■ +131 
M« WDJ 

CYCLE»KILLL> 
,0#0#0»0)J 



1322200 
1322300 
1322400 
1322450 
1322500 
1322600 
1322700 
1322800 
1322620 
1322840 
1322900 
1323000 
1323100 
1323110 
1323120 
1323130 
1323140 
1323150 
1323160 
1323170 
1323189 
1323190 
1323300 
1323400 
1323500 
1323600 
1323700 
1323800 
1323900 
1324000 
1324100 
1324200 
1324300 
1324400 
1324500 
1324600 
1324601 
1324700 
1324800 
1324801 
1324900 
1325000 
1325100 
1325200 
1325300 
1325301 
1325400 
1325500 
1325600 
1325700 
1327000 
1327100 
1327200 
1327300 
1327400 
1327500 
1327600 
1327700 
1327800 
1328000 



IF MROW > THEN SLEFPU MROW ] » -0 ) J 41328200 

MRQW I? ABSCMRQW); 41328300 

IF <AJ*P(,MLA»LOD) INX 0) * THEN 41328400 

BEGIN 41328500 

MLA t» [MCCAl*GETSPACEC33»9*5)+3)3 3 & 32C8 I 36 t 1011 41328600 

M0VE(3i»A-2»A-t); 41328700 

MLA[30] I* NOT OJ 41328600 

IF MDELTA#0 THEN D I SKWA I T C -A» 30» MROW+MLQG+1 ) J 41328900 

END* 41329000 

LQGANOTHERl 41329100 

IF M[L0CNl*LOGH0LDER INX OJ < THEN 41329200 

BEGIN 41329300 

M0VE(4,LOCN»[TRANSJ)J KLUDGE »» TRANS INX QJ 41329400 

KEY t* -0 & TRANSI26I20I13J & ( TRANS , ( 2 » 13 + 4 ) [ 3 I 42 I 63 & 41329500 

TRANS[9«9J93 & TRANS [ 1 8 l 1 8 I 21 & TRANSC 20 I 4 | 5 3 J 41329600 

TRANS J* TRANSACT I0N[Ul*TRANS,f2j2] + 163&(XCl0CK*PCRTR))C3J 24 I 24 J> 41329700 

L0GH0LDER,(CF3 I* LOCN J» [KLUDGE] INX 01 41329600 

IF KLUDGE'O THEN LOGHOLDER t C F F J »* LOCNj 41329900 

ENDI 41330000 

NUM |» CM(LQCN+l3 t (39|93+l) x 5J 41330100 

IF (LASTENTRYl*(ML0G*l)x30 + MDELTA) ♦ NUM > C LOGS I ZE-1 )x30 THEN 41330200 

BEGIN 41330300 

IF MDELTA*0 THEN 41330400 

BEGIN MLA[3nisL0GENTRY> D I SKWA I T ( A, 32 * MROW+MLQG+1 ) * ENDJ 41330500 

LOGOUTMA 1NTC- CM (L0CN+13 t [ 251141+1)) J 41330600 

LOGENTRY «* OJ Tl »* LOCNJ 41330700 

WHILE Tl # DO 41330800 

BEGIN 41330900 

IF M(T13<0 THEN M[T13,CFF3 I* LOGENTRY I sLQGENTRY+1 41331000 

ELSE MtTlfl 1,(251141 «* LOGENTRY I *L0GENTRY+1 J 41331100 

Tl J* M[T1J INX OJ 41331200 

END! 41331300 

LASTENTRY I* 30; 41331400 

ENOJ 41331500 

RECYCLEI 41331600 

IF CTlt»30-MDELTA) > NUM THEN 41331700 

BEGIN 41331600 

M0VECNUM»L0CN+1»(MLA(MDELTAJ1)J 41331900 

MDELTA I* MDELTA ♦ NUMj 41332000 

END ELSE 41332100 

BEGIN 41332200 

MOVE(Tl»LOCN + li[MLA[MDELTAJJ)J MLA ( 313 1 sLOGENTRY & LASTENTRY (CTF 3 I 4 1 332300 

DISKWAIT(A. 32»MR0W+(ML0Gl*ML0G+l))> 41332400 

LOCN |« LOCN + Til 41332500 

NUM is NUM - T 1 ; 41332600 

MDEUTA »b OJ M0VE(31#A "2$ A *1)J 41332700 

IF NUM # THEN GO RECYCLEJ 41332800 

END! 41332900 

NUMAJNTMESSjaNUMAINTMESS - U 41332950 

IF (Tll«tM(T2»*L0GH0LDER INX 13) < THEN % SPOUT MESSAGE FOR REM1333000 

IF (T1.C3I63 AND P76) » 4 THEN X COVERED DISK/DRUM EHR413330Q2 

BEGIN STREAM(AI«TINLJCU1# R l*RECS, U I 4 3 ♦ X | -KEY . (20 I 53 # S « «WT ,[ 2* |63 » 41 333005 

BJ«[RECSJ» DSK|*T1,[8I13» D J»T 1 1 »SPACEC 10) ) J 41333010 

BEGIN SI»»LOC AJ SH»Sl*5j DS»*LIT" "J DSl«3 CHRJ 41333015 

DSI»3 DECJ Al*DIJ DII»DI*3» DSJ*2 FILLJ DI»«AI 41333020 

DSI*14 LIT" RETRIES. MlXs"! 41333025 

DSl»2 DECJ AI*DIJ DII«DI**2J DS»»FILLl DII*AJ 41333030 

SIJ«8J DS«b5 LIT"* DA* w ? CI»»CI*DSKI GO TO DRMJ 41333033 

SII»SI+1J DSI«7 CHR! DSI*7 LlT"» SEGS*"J 41333036 

Slt«LOC Sj DSI«2 DEC; SU«BJ SII«SI + 16f GO TO LJ 41333037 



DRM« Sl»=Sl+)i 

3CIF SB T 
Ll DS|«4 LIT 
16C DS t *3 
3C 1 F S 

SI J«S1*5; 
IF SB THE 
IF SB THE 
IF SB THE 
IF SB THE 
DlfwDl-11 

end; 

SP0UTER(T1iPSE 
END; 

IF (TiUMCLOGHOLDER 
BEGIN 

IF MOELTA * THE 

BEGIN 

MLAC31) »« LOGE 
DISKWAITCA»32»M 

ENOI 

RECS if 5 t 62C3I 
WT l» & CXCLO 
WMCP l» PATCHLEVE 
WLOG I* LOGVERSIO 
WD I* DATE! 
DISKWAIT(IRECS 3 
Tl l» MUOGMQLDER 
ENOI 

IF M[T23 USS THEN 
IF Tl * THEN BLGI 
KJLLLI 

LOGHOLDER.tCFJ >« 

IF LQGH0LDER,[9l9J« 

KILUtB) INX NOT 1) 

END MAINTLOGGERJ 

PROCEDURE MESSAGETABUEB 

BEGIN 

INTEGER I»I1»I2»TBL»TBL 
DEFINE MARKER * "*♦«■.■♦* 
LABEL L» START? 

GO TO START? P(,L) 
Llll 



; 5<DS»*3 RtSET; 

HEN DSJ*SET ELSE DSiwRESETJ SKIP SB))) SU«S 

"» R«"; 

RESET! 

B THEN DSI-SET ELSE DSl*BESET) SKIP SB))» 

DSi*5 LIT*** iO«°J 
N DSl*2 LIT"4,"; SKIP SBI 
N DS»s2 LIT"3»"; SKIP SBJ 
N 0SI«2 LIT"2»"; SKIP SB; 
N DSJ«2 LIT"!*"! 

DSt»LlT"*"; 

UD0M!X[KEY,C20|5]J»DISKMSG OR 34); 
] INX 0) « THEN 

N 

NTRY & LASTENTRYCCTFJ; 
ROW+MLOG+1); 

4216] & MLQG[24l33U5j & LASTENTRYt 9 I 33 1 15 ] ; 
CK+PCRTR))C3l24l24j; 

l; 
n; 

INX 0»5»MRQW); 
3 INX 01 

M£T2J.C2!1J l« 1 ELSE FORGETSPACE ( T2) ; 
N LOGHOLOER, CCFJl»TU GO LOGANOTHER; END* 

; MROW I* NABSCMROWJJ 

THEN BEGIN FORGETSPACE( A "1)1 MLAIsO; END! 

> 

uilder; 



1+2; 



cnt; 
♦ "#; 



BEGINNING 

"DRAO". 

"DRBO"i 

"BQJQ-i 

"EOJO". 

"OPEN") 

"TERM"! 

"DATE"* 

"TIME". 

"NOT ". 

"AUTO"- 

"NOT "■ 

"NOT ' 

"CMPL", 

"CLOS". 

"ERRQ"i 

"RETO"< 



OF OPTIO 
«0Q00 H 
"0000" 
"0000" 
"0000" 
"0000" 

"NATE" 
"0000" 
"0000" 
"USED" 
"PRNT" 
"USED" 
"USED" 
"FILE" 
"EOOO" 
"RMSG" 
"0000" 



; 



N 



RESERVED WORD 
I47X 
S46X 
X45« 
X44X 
X43X 
X42X 
I41« 
>40* 
X|9X 
X38X 

%yi% 

X36Z 
X35SK 
X34X 
%i3% 
X32X 



TABLE ********************** 



4 
4 
4 
4 
4 
4 
4 
4 

4 
4 



1333039 

1333042 
1333045 
1333046 
1333050 
1333055 
1333060 
1333065 
1333070 
1333075 
1333080 
133308b 
1333090 
1333095 
1333100 
1333200 
1333300 
1333400 
1333500 
1333600 
1333700 
1333800 
1333900 
1334000 
1334100 
1334200 
1334300 
1334400 
1334500 
1334600 
1334700 
1334800 
1334900 
1335000 
1335100 
1335200 
1430000 
1430100 
1430300 
1430400 
1430500 
1430600 
1430700 
1430800 
1430900 
1431000 
1431100 
1431200 
1431300 
1431400 
1431500 
1431600 
1431700 
1431800 
1431900 
1432100 
1432500 
1432600 
1432700 
1432800 



"LIBM". 


"SGOO". 


X31* 


41432900 


"SCHE". 


"DMSG". 


XJOX 


41433000 


"SECM". 


"SGOO". 


X29X 


41433100 


"DSKT". 


"OGOO". 


X28X 


41433200 


"RELT", 


"OGOO". 


X27X 


41433300 


"PBDR". 


"ELOO". 


X26X 


41433400 


t SET OMIT m 1 


YOTCDEBUGGING OR CHECKLINK) 


41433500 


"CHEC". 


"KOOO". 


X25X 


41433600 


t SET OMIT * I 


DEBUGGING OR CHECKLINK 


41433800 


0* 


0. 


X25X 


41433900 


* RESET OMIT 






41434000 


"DISK'S 


"MSGO". 


X24X 


41434100 


"DISK". 


"LOGO". 


%22% 


41434200 


"LIBE"* 


"RROO". 


*22X 


41434300 


"PBDO". 


"NUYO". 


*2lX 


41434400 


"SAVE". 


"PBTO". 


X20X 


41434500 


"RSMS". 


"6000". 


M9X 


41434600 


"AUTO"* 


"UNLD". 


*18X 


41434700 


"RNAL". 


"LOOO", 


%17% 


41434600 


"CODE"* 


"OLAY". 


Xf 6X 


41434900 


"NOT "» 


"USED". 


X15X 


41435000 


"DATA'S 


"OLAY". 


X14! 


41435100 


"HALT". 


"0000". 


X13X 


41435200 


"REMO"» 


"TEOO". 


X12X 


41435300 


"CEME"» 


"SSOO". 


111* 


41435400 


"BATC". 


"HZIP". 


xiox 


41435500 


"NOBA". 


"TCHO". 


X 9X 


41435600 


"STOP". 


"TEST". 


x ex 


41435700 


"PNCH". 


"LOCK", 


X 7% 


41435800 


"CDQN". 


"LYOO". 


X 6X 


41435900 


"PKTO". 


"NLYO", 


X 5* 


41436000 


"SEPA"» 


"RATE". 


X 4X 


41436100 


"AUTO". 


"CEOO". 


X 3X 


41436200 


"ARDV". 


"ARK ". 


X 2% 


41436300 


"AUTO". 


"MESS". 


X IX 


41436400 


"OPTN". 


"0000". 


X ox 


41436500 


"♦000". 


"0000", 


XSTP 


41436600 


MARKER. 






41436700 


%*** END OF OPTION RESERVED WORD TABLE ***********>**************'********41436800 


2*** BEGINNING 


OF TERMINAL MESSAGE TABLE 


*******************************41440000 


0. 




X OX 


41440100 


"8STACK ". 


t "6QVRFLW" 


i X IX 


41440200 


"30PRTR " 


i "5DS-ED0"- 


» X 3X 


41440300 


"8FUG B" 


• "2JT0000". 


» X 5X 


41440400 


"81NVALD" 


• "6 INDEX". 


> X 7* 


41440500 


"8EXP0N " 


• "60VRFLW". 


• X 9X 


41440600 


"8INTGR « 


» "60VRFLW". 


. Ml* 


41440700 


"8DIV BY" 


» "5 ZEROO". 


X13X 


41440800 


"8EXCESS". 


» "5 TIMEO". 


X15X 


41440900 


"8INVALD"- 


> "6 ADRSS". 


X17X 


41441000 


"8UNEXP "i 


» "610 ERR". 


r X19X 


41441100 


"8MISSIN"« 


> "8G DISK". 


X21X 


41441200 


"3 FILEO". 


• 0. 




41441300 


"8FILE U"i 


> "8N0PENE". 


• X25X 


41441400 


"IDOOOOO". 






41441500 


-eiNVALI". 


• "5D EOvIO". 


> X28X 


41441600 


"81NVALI". 


> "5D PRLO". 


- X30X 


41441700 


"8MEM0RY". 


. "8 PARIT". 


> X32X 


41441800 


"lY 00000". 






41441900 


"80PRTR "i 


• "5ES-ED,". 


X35X 


41442000 



%* + + 
%** + 



"8lNVALD"i 


► "8 


"8 SIZE "i 


r "31 


"8JNVALD"' 


"8 


"6 DATUM"« 




"8TYPE M"i 


, -81 


"BH READ". 


• "as 


"BOUT OF"< 


. "5 


"BNON-CQ"' 


. "8N 


"8L ARRA". 


. "2Y 


"8N0N-SQ". 


, "8U 


"5ATRIX,". 




"8NEARLY". 


. "8 


"8LAR MA"< 


* "4T 


"8USER D"i 


> "4S 


H 8INVALD"< 


• "8 


"6IC DIA"i 


r "1L 


"8TANK 0". 


, »6V 



"8PARITY 
"8DIMENS 
H 6ZE ERR 
"8INVALD 
M «NAME,, 
"BlNVALD 
"5 EXIT, 
"BOUT OF 
"8EXCESS 
"2ME.,., 
"BlNVALD 
"6p TAPE 
-BTIMELI 
"8CEE0ED 

MARKER* 
END OF T 
BEGINNIN 
COMMENT 
KEYIN M E 
EACH TAB 
C 616 ] 



"6 
"81 

"8 

"B 



ARRAY" 

•ON,,," 

INPUT" 

SMATC" 
iTMT, ," 

DATA," 
IFORMA" 

S » » , , 
IARE M" 

SINGU" 

RIX,," 

"ED,," 

DYNAM" 

* • » t » 

iRFLOW" 

ERROR" 
ON SI" 

FILE " 
BLOCK" 



"4 MEM, ," 
"8 10 TI" 

"8 LINKE" 

"8MIT EX" 
"1 " 



*37X 

%m% 

X44X 

X48X 
X50X 

X54X 

X57X 

*61* 

X63X 

X67X 

%70% 
%72% 

%7b% 

X78X 

X81X 
X83X 

X86X 

X 69 

XSTP 



erminal message table 
g of keyin mfssage tab 



SSAGE TABLE ENTRIES - 

le word is configured 
■ - mix or info cobe * 

« info message 0nl 

1 » mix or info mess 

2 » mix messagf only 
[12j123 * two letter keyboard 
[2416 3 * - kevin procedure to 

■ procedure keyino 

t « PROCEDURE KEYIN1 
2 • PROCEDURE KEYIN2 
[3311 J w 1 FOR ALLOWABLE STAN 
[34»2 ] 9 - MIXCODF ( FOR MIX 

1 m JOB SHOULD BE WA 

2 m JOB SHOULD BE RU 

WAITING 

3 ■ JOB NEED NOT BE 
[361123 » LABEL NUMBER ( SWITC 
END OF COMMENT? 

"2AX0101"* XAXX 

"21L0102"» XILX 

"2ULQIQ3"* XUL* 

"1Q10204"» XQTX 



****************************** 

L,£ A************************** 



AS FOLLOWS! 

Y 
AGE 

MESSAGE 

BE CALLED - 

( DIRECT CALL > 

( DIRECT CALL ) 

C INDEPENDENT RUNNER ) 
DARD RJE REQUESTS 
MESSAGES ) • 

ITING FOR THIS INPUT 

NNlNGt BUT NOT NECESSARILY 



RUNNING 
H LOCATION 



SPO INPUT TO 
INPUT LABEL 
UNKNOWN LABEL 
QUIT PROCESSING 



IN PROCEDURE ) 



JOB 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
*******4 
*******4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



1442100 
1442200 
1442300 
1442400 
1442500 
1442600 
1442700 
1442800 
1442900 
1443000 
1443100 
1443200 
1443300 
1443400 
1443500 
1443600 
1443700 
1443800 
1443900 
1444000 
1444100 
1444200 
1444300 
1444400 
1444500 
1444600 
1444700 
1444600 
1444900 
1445000 
1445100 
1445200 
1449700 
1449800 
1449900 
1450000 
1450100 
1450200 
1450300 
1450400 
1450500 
1450600 
1450700 
1450800 
1450900 
1451000 
1451100 
1451200 
1451300 
1451400 
1451500 
1451600 
1451700 
1451600 
1451900 
1452000 
1452100 
1452200 
1452300 
1452400 



"20U0105" 
"1WY0106" 
"0RYOO07" 
"2DS0208" 
"2SD0209" 
"ORSOOlO" 
"OSSOOU" 

SET OMJT « 
"1DP0212" 

SET OMIT ■ 
"1DP7212" 

SET OMIT * 
"ODD0013" 
"0DB0014" 

SET OMIT » 
"QDD70U" 
"QDB7014" 

RESET OMIT 
"2ST0215" 
W 0CM0016 H 
"0MF0017" 
"0SV0018" 
"0CL0Q19" 
"1BK032Q" 
"20K0121" 
"2FM0122" 
"2FR0123" 
"20F0124" 

"2IF0525" 
"1**77**" 

"ODTlOOl" 

"0WD1002" 

"QTR1003" 

"0WT1004" 

"0TF1005" 

"0SF1006 W 

"OWM1007" 

W 0CX1008 M 

"0CE1009" 

"OCClOtO" 

"OOLlOll" 

"0PB1012" 

"OBS1013" 

"0US1014" 

"OSCIOIS" 

"0RN1016" 

"0LD1017" 

"0RD1018" 

SET OMIT * 
"0RP1018" 

SET OMIT * i 
"0RP7018" 

RESET OMIT 
"0ED1019" 

SET OMIT s 
"0SI1020" 

SET OMIT » 
"0SJ7020" 

SET OMIT s NOT 
"OU1021", 



xoux 

SWYX 

XRYX 

XDSX 

XSDX 

XRSX 

X5SX 
NOTCDUMP OR DEBUGGING) 

XDP* MEMORY 
DUMP OR DEBUGGING 

»DP* MEMORY 



NOT DEBUGGING 



DEBUGGING 



OUTPUT UNIT 

1 1 ST REASON FOR WAIT 

READY UNIT OR LINE 

TERMINATE JOB 

TERMINATE WITHOUT REMOVING DECK 

SEND SPO MSG TO ASSIGNED STATIONS 

STATION TO STATION MESSAGE 



DUMP 
DUMP 



OT PACKETS 
ACKETS 



OT STATISTICS 
TATISTICS 



AUXMEM 



XDD* DISK DUMP 
XDBX DISKBUG 

XDDX DISK DUMP 
XDBX DISKBUG 

XSTX STOP EXECUT 
XCMX CHANGE MCP 
XMFX SET UP TO M 
XSVX SAVE UNIT 
XCLX CLEAR UNIT 
*BKX BREAK FOR S 
XQKX PERMIT PROC 
XFMX FORMS OK 
XFRX FINAL REEL 
XOFX OPTIONAL PI 
XIFX IGNORE IN-U 
%**% END OF FIRS 
XDTX ENTER CURRE 
XWD* PRINT CURRE 
XTRX TIME RESET 
XWTX PRINT CURRE 
XTFX PRINT CORE 
XSFX SET CORE 
XWMX PRINT CURRE 
XCX* SPO INPUT T 
XCE* STARTS CAND 
XCCX CONTROL CAR 
XOLX PRINT OUTPU 
XPBX START PRINT 
XBSX SET BACK Up 
XUSX RESET BACK 
XSCX TYPE SPO CO 
XRNX SET PSEUDO 
XLDX START LOAD 
XRDX REMOVE PSEU 



ION 

OVE FENCE AT NEXT H/L 

R SCHEDULE LINE 

OR LINE 

PO 

ESSING TO CONTINUE 

(COBOL) 

LE-COBOL» OK FILE-LIBMAIN 

SE FILE 

T KEYIN PROCEDURE CALLS 

NT DATE 

NT DATE 

NT TIME 

FACTOR 

FACTOR 

NT MCP NAME 

CANDE 

E 

D (SEE 16037780 FOR UMARK 

T LABEL OF UNIT 



ER BACK 

SPO 
UP SPO 
NSOLES 
READERS 
CONTROL 
DO DECK 



UP 



XRPX REMOVE PACKET 
XRPX REMOVE PACKET 
XEDX ELIMINATE PSEUDO DECK 
XSIX SET STATISTICS INTERVAL TIMER 
XSIX SET STATISTICS INTERVAL TIMER 
XLAX LIST AUXMEM FILES 



41452500 
41452600 
41452700 
41452600 
41452900 
41453000 
41453100 
41453200 
41453300 
41453400 
41453500 
41453600 
41453700 
41453800 
41453900 
41454000 
41454100 
41454200 
41454300 
41454400 
41454500 
41454600 
41454700 
41454800 
41454900 
41455000 
41455100 
41455200 
41455300 
41459900 
41460000 
41460100 
41460200 
41460300 
41460400 
41460500 
41460600 
41460700 
41460600 
)41460900 
41461000 
41461100 
41461200 
41461300 
41461400 
41461500 
41461600 
41461700 
41461600 
41461900 
41462000 
41462100 
41462200 
41462300 
41462400 
41462500 
41462600 
41462700 
41462800 
41462900 



"0CA1022" 

SET OMIT a 
"0LA7021 
"0CA7022" 

RESET OMIT 
"0SQ1023" 

SET OMIT ■ 
"0CS1024" 
"OHS1025" 

SET OMIT ■ 
"QCS7024" 
"0HS7025" 

RESET OMIT 
"1**77** H 
"OMX2001" 
"0R02002" 
"0S02OO3" 
"1TS2304" 
"2PS2305" 
"1ES2306" 
"1XS2307" 
"2TI2208" 
"2PR2209" 
"0LF2010" 
"QLC2011" 
"QLS2012" 
"0EX2013" 
"0PD2014" 
H 20T2215 M 
"2IN2216" 
"2IT2217" 
"0TQ2018" 
"0P02019" 
"0PG2020" 

SET OMIT m I 
"UU2621" 

SET OMIT • I 
"0MS2022" 

SET OMIT * , 
"1AU7321 M 

SET OMIT b 
"0MS7022" 

RESET OMIT 
"0LN2023" 
"OCD2024" 

SET OMIT b 
"0PP2024" 

SET OMIT « 
"0PP7024" 

RESET OMIT 
"0FE2025" 
"1CU2226" 

SET OM|T m 
"0SY2027" 

SET OMIT * 
"0SY7027" 

RESET OMIT 
"10C2228" 
"0RW2029" 
"6ci203b* 



AUXMEM 



NOT SEPTICTANK 



SEPTICTANK 



XCA* CHANGE AUXMEM FILES 

XLAX LIST AUXMEM FILES 
XCAX CHANGE AUXMEM FILES 

XSQX DISK SQUASH 

XCSX CREATE SEPTIC TANK 
XHSX HALT SEPTIC TANK 

XCSX CREATE SEPTIC TANK 
XHSX HALT SEPTIC TANK 



XMXX 
XROX 
XSOX 
XTSX 
XP5X 
XESX 
XXSX 
XTIX 
XPRX 
XLFX 
XLCX 
XLSX 
XEXX 
XPD* 
XOTX 
XINX 
XITX 
XTOX 
XPOX 
XPGX 



OT AUXMEM 
OTCAUXMEM OR M 
UXMEM 
AUXMEM OR MONIT 



END 

LIST 

RESET 

SET 

TYPE 

CHANG 

ELIMI 

EXECU 

PRINT 

CHANG 

LIST 

LIST 

LIST 

LIST 

DIREC 

PRINT 

ENTER 

KEYBR 

TYPE 

PRINT 

PURGE 



F SECOND 
JOBS CURR 

OPTION B 

OPTION B 
OUT SCHED 
E PRIORIT 
NATE JOB 
TE JOB FR 

TIME USE 
E PRIORIT 
FILES FOR 
FILES FOR 
FILES SEC 
FILES EXP 
TORY SEAR 

VALUE OF 

VALUE IN 
D INTERRU 
OPTION 

SPECIFIC 

A TAPE 



PROCEDURES 
RUNNING 



KEYJN 

ENTLY 

IT 

IT 

ULE CNAMES IN SHEET] 

Y IN SCHEDULE 
FROM SCHEDULE 
OM SCHEDULE 

D BY JOB 

Y OF JOB 
USER 
CREATOR 

UR1TY 

IRED 

CH FOR FILES 

PRT CELL 

PRT CELL 
PT FOR ONLINE 



MAINT 



OPTION 



OT PACKETS 
ACKETS 

OT STATISTICS 
TAT1STJCS 



XAUX PRINT AUXMEM IN USE 
ONITOR) 

XMSX SET OR RESET SYSTEM MONITOR 

XAUX PRINT AUXMEM IN USE 
OR 

XMSX SET OR RESET SYSTEM MONITOR 

XLNX INITIATE LOGGING ROUTINE 

XCDX PRINT PSEUDO DECKS ON DISK 

XPPX PRINT PACKETS ON DISK 

XPPX PRINT PACKETS ON DISK 

XFEX ENTER COMMENTS INTO MAINT, LOG 

XCUX PRINT SYSTEM CORE USAGE 

XSYX CREATE NEW STATISTICS FILE 

XSYX CREATE NEW STATISTICS FILE 

XOCX ENTER OPERATOR COMMENT IN LOG 

XRWX REWIND TAPE 

XCIX CHANGE INTRINSICS 



41463000 

41463100 

41463200 

41463300 

41463400 

41463500 

41463600 

41463700 

41463B00 

41463900 

41464000 

41464100 

41464200 

41469900 

41470000 

41470100 

41470200 

41470300 

41470400 

41470500 

41470600 

41470700 

41470800 

41470900 

41471000 

41471100 

41471200 

41471300 

41471400 

41471500 

41471600 

41471700 

41471800 

41471900 

41472000 

41472100 

41472110 

41472200 

41472300 

41472400 

41472410 

41472500 

41472600 

41472700 

41472800 

41472900 

41473000 

41473100 

41473200 

41473300 

41473400 

41473500 

41473600 

41473700 

41473800 

41473900 

41474000 

41474100 

41474200 

41474300 



"1SM2231". 
"2CT2232"t 
"2XT2233"# 
"2TL2234"i 
"1WU2235"* 
"0XD2O36"* 
"0MR2037"* 
"0WI203B". 
"0MC2039"* 

$ SET OMIT ■ NOT 
"0PC2040"* 

$ SET OMIT * PAC 
"OPC7040"* 

* RESET OMIT 
"0HD2041"* 
"2SA2242". 
"1**0000"> 
MARKER* 
**** END OF KEYIN 
X*** BEGINNING Or 
"UNLOCK " 
"USE " 
"LOCK " 
"FREE " 
"PUBLIC " 
"PACKET " 
"USER " 
"RUN " 
"R " 
"COMPILE" 
W C " 
"EXECUTE" 
"EX " 
"DUMP " 
"UNLOAD " 
"ADD " 
"LOAD 
"REMOVE " 
"CHANGE " 
"UNIT " 
"PACKEND" 
"END " 

$ SET OMIT » NOT 
"WAIT " 

S POP OMIT 

"DATA " 
"LABEL " 
"SFT " 
"RESET " 
"PILE " 
"EXPIRED" 
"ACCESSD" 
"PROCESS" 
"10 " 
"PRIORIT" 
"COMMON " 
"CORE " 
"STACK " 
"SAVE " 
"ALGOL " 



PACKETS 
KETS 



MESSAGE 
CC RESEN 

22 

23 

24 

25 
26 
27 
28 
29 
29 
30 
30 
31 
31 
32 
33 
34 
35 
36 
37 
38 
39 
39 
PACKETS 
40 

41 
42 
43 
44 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
60 



xsmx start mix messages 

uts change time limits for job 

*xt* extend time limits for job 

xtlx print 10 and processor time limits 

xwux type users id-s of lines in mix 

xxd* create badisk area 

xmrx reserve disk for no user disk 

xwi* print current intrinsic name 

imcx make compiler file 

xpcx packet count 

*pcx packet count 

xhd* how much (available) disk 

xsaz seg & rel addr of running prog 

*«•♦» end of table 

table *************************************** 

VED WORD TABLE ****************************** 



% SWITCH TYPECCONTROLCARDJX 
% "RUN" • "LABEL" 



* A STORE NEAR 
% MAKES USE OF 
% OF "PROCESS" 



THE END OF PCC 

THE ORDER AND VALUES 

THRU "SAVE", 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
*4 
*4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



1474400 
1474500 
1474600 
1474700 
1474800 
1474900 
1475000 
1475100 
1475200 
1475300 
1475400 
1475500 
1475600 
1475700 
1475600 
1475900 
1479700 
1479800 
1479900 
1480000 
1480100 
1480200 
1480300 
1480400 
1480500 
1480700 
1480900 
1481000 
1481100 
1481200 
1481300 
1461400 
1461500 
1461600 
1481700 
1481800 
1481900 
1482000 
1482100 
1462200 
1462400 
1482600 
1482700 
1482800 
1482900 
1483000 
1463100 
1483200 
1483300 
1463400 
1483500 
1463600 
1483700 
1483600 
1463900 
1484000 
1464100 
1484200 
1484300 
1484400 



"1 



X*** 



"XALGOL " 
"FORTRAN" 
"TSPQL " 
"BASIC " 
"CQBQL68" 
"WITH " 
"COBOL " 
"LIBRARY" 
"SYNTAX " 
"FROM " 
"TO 

"FORM " 
"NO " 
"DISK 
"TAPE " 
"PUNCH " 
"PRINT " 
"BACK 
"SPECIAL" 

"SERIAL " 

"UPDATE " 

"SPO " 

"PAPER " 

"EU " 

"SLOW •» 

"B6500 " 

"FAST " 

"COPY 

"MAXIMUM" 

"FREEF " 

"FIXED " 

"SENSITI" 

"PROTECT" 

"LATEST " 

"CC " 



MARKER* 

END Of CC 

BEGINNING 
♦»«. it 

"LOADED " 
"DUMPED " 

"CHANGED" 
"REMOVED" 
"MC"ED *" 
"FIXED • " 
"RESET *" 
"SET * " 
"ACCESSE" 
"NOT ON " 
"NOT ON " 
"NOT EXE" 
"NOT A C" 
"SYSTEM " 
"TAPE PA" 
"DUP FIL" 
"NO USER" 
"UNEXPED" 
"DISK P A " 



61 . 


62 » 


63 * 


64 • 


65 • 


66 » 


67 » 


68 » 


69 » 


70 » 


71 » 


78 » 


79 » 


80 » 


81 . 


8? t 


83 » 


85 » 


89 » 


86 » 


87 » 


88 . 


64 » 


91 t 


92 > 


93 » 


94 » 


95 * 


96 » 


97 » 


98 . 


100 • 


99 » 


101 » 


14 * 


. 



% SWITCH DCPCC) 

% TORM"-"SPECIAL" 



% CC MUST EQUAL QUEST % 



RESERVED WORD TABLE ************** 
OF LBMeSS MfSSAGE TABLE ********** 
* 



% 
% 



9 

10 
11 
12 



" * 

% 

% 

% 

% 

«D* " 

"DISK* " 

"TAPE* " 
"CUTABLE" 
"OMPILER" 

"FILE*- " 

"RITY* " 

"E* " 

" DISK* » 

" EOF* " 

"RITY* " 



% 
% 
% 



13 
15 
17 
" CODE' 



19 

22 



% 
% 
% 
% 

% 

% 



25 

27 
29 
31 
33 
35 



41484500 
41484600 
41484700 
41484600 
41464900 
41485000 
41485100 
41485200 
41485300 
41485400 
41485500 
41485600 
41485700 
41485800 
41485900 
41486000 
41486100 
41486200 
41486300 
41486400 
41486500 
41486600 
41486700 
41486600 
41486900 
41487000 
41487100 
41487200 
41487300 
41487400 
41487500 
41487600 
41487650 
41487700 
41487900 
41488900 
41489000 
41489100 
***************** t*****4i4g9200 
*************** 41490000 

41490100 
41490200 
41490300 
41490400 
41490500 
41490600 
41490700 
41490800 
41490900 
41491000 
41491100 
41491200 
41491300 
41491400 
41491500 
41491600 
41491700 
41491800 
41491900 
41492000 



"BAD NAM" 
"INV REC" 
"INVALID" 
"BAD HEA" 
"IN USE*" 
"INEXECU" 
"AUTO-ZI" 
"CHANGED" 
"MC-ED T" 
"EXTRA R" 



%* + * 
START 



"SENSIT 

"BEING 
"NOT LA 
MARKER! 
END OF 
END OF 
I 

TBl»«M2 
WHILE M 
Ill«TRL 
FOR Iiw 
WHILE M 
I»*ll-I 
STREAM( 



I" 
B" 
T" 



"E* 

" SIZE* 

" USER* 

"DER* 

* 45 

"TABLE I 

"PPED* 

"TO * 

"0 * 

"ECORDS* 
it 

"VE* 

"LANKED* 
"EST VER 



% 37 

% 39 

% 41 

% 43 

"PC CODE"." FILE* 

% 50 

% 52 

X 54 

% 56 

% 58 

% 60 

% 62 
"SI0N< 



, % 46 



TAKE UP SOME SPACE 



i % 64 



lbmess mess 
Reserved wo 

l"M[PC, t M E S 
[TBLl*T6L+l 

1 TBLlsTBL* 

2 STEP 1 UN 
[TBL!*TBL*1 
21 Ill*(TBL 
A**I DIV 60 
Dl = CIU = Ul 



age table ******************* 
rd and message tables ******* 

SAGETABLeBUILDER) JiECFl+21 

]i«MARKER DOJ % SEARCH FOR END OF OPTION TBLE 
II 

TIL MESSAGETABLESIZE DO 
3 # MARKER DOJ 
+2)-Il> 

pBI*(II"(I MOD 60))»C««I1 DIV 60* 
MOD 60))#E»-I2)J 



J DSI«4 CHH))J 
S»*4 CHRJJ 
J 



BEGIN 

SI 
AC « 

B(: 
C(l 

DCI 

endj 

TBLl*l2j 

FOR TBLCNTl»0 STEP 1 UNTIL (MeSSAGETABLFSIZE'I ) DO 

BEGIN 

wh: 



»*ES DU*EI 
60(Sj I wS 1+4 
SII*SI*4I D 
DSl*60 WDS) 
DSI»WDS)J 



END B 

PROCE 

% 

BEGIN 



ME 

DI 

I? 

END* 

UILDING 

DURE EN 



ILE MCTBLJ" 

SSAGETABLEC 
SKWAITU2H 
t*TBL»»TBL+ 



TBL + nJ'MARKER DO? H*TBL"I2l 
TBLCNT]I*GETUSERDISK(CI*29) D 
.MESSAGETABLE[TBLCNT],t22l26] 
11 



TABLES] 
TERSYSFlLECN)! VALUE N| REAL Nl 



REAL A#J»WC»MFlDtDISK| 
ARRAY DDDt*3l 
LABEL RETURN»EXIT; 

IF N*l THEN 
BEGIN 

MFID l« "LIBMA1N"? J l» 
END ELSE 
IF N*2 THEN 
BEGIN 

MFID l" "LDCNTRL"! 
END ELSE 
IF N»3 THEN 
BEGIN 

MFID I* "PRNPBT "1 



1) 



41492100 
41492200 
41492300 
41492400 
41492500 
41492600 
41492700 
41493010 
41493020 
41493030 
41493040 
41493050 
41493060 
4149307B 
41493100 
************ 41493200 

********************41500000 

41500100 
41500200 
41500300 
41500400 
41500500 
41500600 
41500700 
41500800 
41500900 
41501000 
41501100 
41501200 
41501300 
41501400 
41501500 
41501600 
41501700 
41501800 
41501900 
41502000 
41502100 
41502300 
41502400 
41502500 
41502600 
41600000 
41600100 
41600200 
41600300 
41600400 
41600500 
41600600 
41600700 
41600600 
41600900 
41601000 
41601100 
41601200 
41601300 
41601400 
41601500 
41601600 
41601700 



IV 30)ftJ[6l3BllO]J 
)J 



END ELSE 
GO fcXlTi 

DISK |» "DIS 
IF (A*«DIREC 
BEGIN 

M[A INX 
M[A INX 
DISKWAI 
GO RETU 

end; 

ddd i* cmc a 

MOVE(WC*A-i» 
STREAM(DATE» 
BEGIN 

SI l*LOC 
Dll»DJ 
SI |»D? 



K "I 

T0RYSEARCH(MFID»DISK|5)) * THEN 



03 
11 
23 
4] 
53 
73 
9] 



END* 

DDDt 

DDDt 

DDDC 

DDDC 

DOD[ 

DDD[ 

DOOt 

D0DC103 

DDDC313 

DDDI323 

D0D133J 

DDD1343 

DDDI353 

D00C363 

DDDC373 

DDD[473 

DDDL493 

DDD1513 

DDDI52) 

DOD1613 



I* ? 
»* ( 
I* M 
[9(2 
!■ D 



I IB 
I? 
I* 
I* 

\ m 
l» 
is 
I* 

| * 

I m 

«a 

is 
I? 
lis 



4 

1 
P 
3 
D 
4 
2 
2 
6 
I 
D 
I 
I 
I 

&( 
0DD1621 H P 
DDDtl22-30xJ 
DDDC169-30xJ 
IE NOT J THE 
STREAM(CI»N« 
BEGIN 

CI »»CI + 
DS»»40 

"01 
GO 121 
LI I 0Si»40 

"01 
L2t 

end; 

enteruserfil 

0iskwait(a*3 

RETURN! 

FORGETSPACEC 

£XJT| 

END ENTERSYSFILEI 



23 I 

53 I 

T(A,E 

rn; 
i* sp 

A)l 
D I « A + 

DATE 
DS»=2 
SI l»S 

36000 

XCLOC 

CP? 
J I* 

DDL63 

+J; 

? 

ETUSE 

-J? 

DDt38 

-Jl 

2? 

+ J + JJ 

I 

F J T 

DD[48 

F J T 

F J T 

F J T 

00000 

IF J 

00241 

] I* 

3 :« 

N 

2» D| 



* MCPI 

* M[A INX 61 |« Pl4j 
CF3»30»A,tFF3>? 



ACECWC «* 18l + 30Kj)J]*WCt6l38M0]l 

3)1 

I DS»*8 ogt; 

LIT"+#"I 
1+5? DSl*3 CHR? 

36000101? 
K+P(RTR))&DDDC33t6'30»18 3) 

3? 

1= P14? 

RDISKUDDDC83 !■ 5 + J HI [ 2 I 47 1 1 3 » 1 ) ? 
3 I* 2? 



X TIME LMT 

X PRIORITY 

% CORE EST 

* STACKSIZ 



HEN -1 ELSE II 

1 is 93777777777771 

HEN (SHEETMAX) DIV 2 ELSE 01 

HEN 64 ELSE 41 

HEN 200 ELSE 150? 

126000010H 

THEN 35 ELSE IF N»2 THEN 23 ELSE 19 ) [24 I 38 | 103 J 

OHOOOOOOOOJ 

P0000220000200001? 

FL AG (P27400 10000 100000); 

*CDDDt9l3))l 

LI? 



C? GO 

LIT 

2C0NTR0LDECK 1A022BACK-UP0F DECKIBOQ"? 

LIT 
2PRINTERBACK-UP1A0220000000PRINTER1B00**? 



E(MFI 
t»WC- 

A)l 



D»DISK»A»t)? 
3l»PDDtl03)? 



1601800 
1601900 
1602000 
1602100 
1602200 
1602300 
1602400 
1602500 
1602600 
1602700 
1602800 
1602900 
1603000 
1603100 
1603200 
1603300 
1603400 
1603500 
1603600 
1603700 
1603800 
1603900 
1604000 
1604100 
1604200 
1604300 
1604400 
1604500 
1604600 
1604700 
1604800 
1604900 
1605000 
1605100 
1605200 
1605300 
1605400 
1605500 
1605600 
1605700 
1605800 
1605900 
1606000 
1606100 
1606200 
1606300 
1606400 
1606500 
1606600 
1606700 
1606800 
1606900 
1607000 
1607100 
1607200 
1607300 
1607400 
1607500 
1607600 
1607700 



COMMENT ARTN RETURNS ALL STORAGE FOR AN N-Q I MENS I ONAL ARRAY AU 42473000 

PROCEDURE ARTN(AiN); VALUE A.Nl ARRAY A[*3l INTEGER NIX 42474000 

BEGIN INTEGER I»* 42475000 

ARRAY LOc * +2t*3| 42475100 

INTEGER INDEX * NT1» 42475200 

WORD ■ NT2» 42475300 

COUNT * NT3t 42475400 

DRUM * NT4» 42475500 

X * NT5I 42475600 

LABEL LI 42475700 

WAITST0RECP1MIX)! 42476000 

IF Ai[18»15]#0 THEN A*MC A , £ 18 I 15 J 3 I 42476100 

IF N>1 THEN DO ARTN(A(I3#N-1) UNTIL C I * I ♦ 1 3 > A • S | Z E I 42477000 

x t« N#(-n; n »« A inx o; 42478000 

IF A.PBIT THEN 42478200 

BEGIN I»M[N»1J,(FF)I 42478400 

if x then forgetspacecn)i 42478600 

END ELSE I*NI 42478800 

IF I GTR 511 THEN 42479000 

BEGIN COMMENT "DISKRTN" ROUTINE CALLED HERE..,! 42479100 

* SET OMIT * NOT(AUXMEM) 42479109 

IF I , C 33t 33 « 7 THEN 42479110 

BEGIN COMMENT AUXILIARY MEMORY RETURN AND COUNTER DECREMENT; 42479120 

AUXDATAtPlMlXJ t» *P( DUP )-A . [8 I 6 J- 1 » 42479130 

FORGETAUXlLIARYSPACE(A»SIZE.n» P(XIT); 42479140 

END; 42479150 

S POP OMIT 42479151 

PCDALOCtPlMlXt*]); 42479200 

COUNT »» TW0(24»6x(l,C39l9J 01 V 100))l 42479300 

X l* (INDEX I* Q&U41l33l6J)-i; 42479400 

IF (WORD *« LOCtlNOEXJ,[j6l303-qOUNT)«0 THEN 42479500 

BEGIN LOCCINDEX] 1*0; 42479600 

LM IF P(LOClO),tFF]*DUP)*0 THEN 42480300 

IF L0CCP0LISH»13<0 THEN P(XIT); 42480400 

LOCIOJ I* (*P(DUP))&INDEX[CTF3I 42480500 

END ELSE BEGIN 42480600 

LOCflNDEXJ >« (*P(DUP))&W0RDtl8U8l30]; 42480700 

IF (WORD DIV COUNT), [42163*0 THEN 42480600 

IF L0CIXJ<0 THEN GO TO LI 42480850 

END END END ARTNl 42480900 

COMMENT ASR IS THE ALGOL 5T0RAGE RETURN COMMUNICATE;* 42481000 

PROCEDURE ASRI BEGIN INTEGER I»BCNTR; ARRAY AIT[*J| REAL TEMPI* 42482000 

LABEL L;X 42483000 

REAL MOTHERI ARRAY DESCt*3U 42484000 

WHILE (AIT*PRTCP1MIX*AITNDXJ),PBIT*0 DQX 42485000 

MAKEPRESENTUPRT[PlMIX#AITNDXn INX 0)>X 42486000 

MEMORYCAIT INX NOT 13.C2U3M;* 42487000 

I»*AIT[03+l; 42488000 

IF (BCNTR»*PRTCP1MIX»CURBLKCNTRJ) LE« THEN 42488100 

BEGIN TERMINATE(PIMIX); 42488200 

TERMINALMESSAGE(78); 42488300 

ENDI 42468400 

WHILE (TEMP*AIT[IM-n).BLKCNTR*BCNTRX 42489Q00 

DO BEGIN DESC*MEMORYtMOTHER*TEMP,MOMJU 42490000 

IF TEMP, [1123*1 THEN X CHECK FOR FAULT ENTRY 42490100 

IF TEMP.FILEB1T THENX 42491000 

IF TEMP, £331 153*2 THEN BEGINX 42492000 

FILECL0SE((M0THER+3)&((DESCC4 3,[25l2 3»2)xP12) 42493000 

E 181 331 153); 42494000 

42495000 



GO TO I END ELSE* 42496000 

BEGIN F1LECL0SEUDE5C INX 5)& 42497000 

CCM[DESC£2J INX 4),t25l23»2)xPl2) 42496000 

1181331153)1 42499000 

FQRGETSPACECDESC INX Q)}% 42500000 

END ELSE ARTNCDESCTEMP, DIMENSIONS);* 42501000 

MEMORY[MOTHEH]*0;« 42502000 

LI 42503000 

ENDJX 42504000 

AIT[0]*1JX 42505000 

PRT£P1M1X,CURBLKCNTRJ*BCNTR-1J* 42506000 

IF I>0 THEN DQ**W1PE OUT BAD LABELS IN FAULT CELLS 42506100 

IF AITCIJ.CII 2 J»l THEN 42506200 

IF M[AlT[I3.MQM3iBLKCNTR>BCNTR THEN 42506300 

MtAITCI],M0M3*0 UNTIL C I * I - 1 )S0* 42506400 

MEMORYCAIT INX NOT 1 3 • t 2 » 1 3*01 * 42507000 

END ASRJX 42508000 

SAVE REAL PROCEDURE COREND) FORWARD* 42509000 

PROCEDURE INTERRUPTCTYPE>> VALUE TYPE) REAL TYPE; 42510000 

BEGIN LABEL FLAGBJT, I NVALID INDEX»EXPUNDERFL0W«0I V 1DEBYZER0; 42511000 

LABEL XYTI 42511500 

SWITCH SW*FLAGBIT,INVALI0INDEX.EXPUN0ERFL0W#DIVIDLBYZER0» 42512000 

ARRAY TOP»-5[*3l 42513000 

REAL FLAGTESTER*-3) 42513500 

REAL MOM, siZE»ALOc»n 42514000 

Real rcw*+i»rcwl«+2,savit*+4; name a»+3j 42515000 

real rw+i#s*+2iy»+3j 42516000 

* 42517000 
BOOLEAN SUBROUTINE DOUBLEPREC 1SI0N; 42517010 
BEGIN R»MCS*PRTCP1MIX,8] INX OJJ *IRCW 42517020 

STREAM(R*(R INX 0)&R[30»10;2J»Y*[Y3)I *GET OP CODE 42517030 

BEGIN SI*R| SJ*SI-2| DI*DJ*6> DS*2 CHR ENDI 42517040 

DOUBLEPREC I SI ON*Y,[ 45 1 3 3*51 42517050 

ENDI 42517060 
CHECKSTACKSPACEJX SWF 42517100 

GO TO SW[TYPE3J 42518000 

* 42519000 
FLAGBITI 42520000 

SAVIT*TOPj 42521000 

NTl*ANALYSISl 42522000 

IF SYLLABLE, E41»73#P35 THEN 42523000 

IF SYLLABLE, [45«33*0 THEN 42524000 
BEGIN ERR0RFIXER(16)I TERM INATE (PlM I X ) I TERM I NALMESSAGE ( 5) END; 42524100 

A*PRT£P1MJX»43; 42524200 

RCW ♦ MCRCWL ♦ PRT[P1MIX»83 INX NOT ( ( SYLLABLE«8'235)+2) 3 i * 42525000 

IF RCH,t33llJ THEN % TYPE 13 INTRNSC 42525100 

BEGIN 42525110 

I I *0 1 42525115 

Y*[I3,CCF3J 42525120 

I *FLAG((P2520000000000000)&(RCW.[34J14J)ICTC3)J 42525130 

MAKEPRESENT(Y)! 42525140 

MCRCWL3*FLAG(RCW&(M[RCW,[FF33INX (NFLAG( I ) ) , tCF) )CCTC3 )> 42525150 

GO TO INITIATE! 42525160 

END ELSE 42525170 

IF NOT PRT[PtMlX,A[RCW3,t8llOJ3, [2113 THEN* 42525500 

MAKEPRESENT(PRTR0W[P1MIX3 INX A [ RCW 3 , [8| 1 3 ) i % 42526000 
MtRCWL3*FLAG(RCWi(M[RCW,tl8|15l3 INX A [RCW 3 ,£ 18 1 153 )£ 33 » 33 1 15 J ) I 42527000 

GO TO INITIATE; 42528000 

* 42529000 
INVALIDINDEXl 42530000 



FOR 1*6 STEP 5 UNTIL 11 DO 42531000 

IF T0P,[18li53*CM0M*[PRT[PlMIXf I 33, [331153) THEN 42532000 

IF CSIZE*M[M0M),[8»103)<1®23 THEN 42533000 

BEGIN IF MCM0M3, [2111*0 THEN MAKEPRESENT ( MOM) J 42534000 

M[CAL0C*M[M0MJ,t33«l53)»2],[2liJ*ll 42535000 

IF MtAU0C-n,tFF]#O THEN ARTN(M[MOMJ» -1)» 42535500 

M[M0M3*FLAG(0&M0M[ 18133115 3 42536000 

&CIF SIZE<512 THEN 2xSjZE ELSE 1023 ) t 8 » 38 1 10] ) * 42537000 

IF TYPE * P(FLAGTESTER.TOP#XCH.DEL) THEN MAKEPRESENT ( MOM ) 42537050 

ELSE 42537060 

MAKEPRESENT(ANALYSIS)* 42538000 

M0VE(SIZE»AL0C»MtM0M])j 42539000 

FORGETSPACECALOOI 42539050 

IF TYPE THEN GO XYT; 42539060 

GO TO INITIATEJ 42539100 

ENDI 42539200 

ERR0RFIXERC4)| TERM I NATEC P1M I X ) i TERM 1 NALMESSAGEC 7 ) ; 42540000 

* 42541000 
EXRUNDERFLOWj 42542000 

IF D0UBLEPREC1S10N THEN M[S-33*0; 42546000 

MrS-23*0l 42547000 

IF JAR[P1MIX,23,[3H3 AND(PRT [ PlM J X, PSIJ AND P20)*0 THEN 42547100 

PRT[PlMIX»e5l3*PCDUP»LQD) OR 6; 42547200 

GO TO INITIATEJ 42548000 

* 42549000 
DIVJDEBYZEROJ 42550000 

IF (P(JAR[P1MIX»23#DUP)>0 AND NOT { P( XCH) . E 3 It 3 AND 42550500 

PRT(PiMlXtP51J,C44lU>> THEN 42550600 

BEGIN EKR0RFIXERC8)! TERMJNATECPIMIX)* TERM INALMESSAGEC 1 3) END 42551000 

ELSE IF JARCP1MIX.23 < THEN IF PRT [PlM I X, 1 1 3 . t FF3 * THEN 42551090 

PRTCP1MIX, 113*1 ELSE PRT [PlMI X » PRT [ Pi M I X » 1 1 J , [FF 3 3*1 42551100 

ELSE 42551110 

BEGIN PRT[P1MIX»P513*PCDUP#L0D) OR II 42551200 

IF DOUBLEPRECISION THEN M[S-33*0; 42551300 

M[S-23*0J 42551400 

END? 42551500 

GO TO INITIATE* 42552000 

XYTI 42553000 

BND INTERRUPT; 42554000 

$ SET OMIT * NQTCSTATISTICS) 42599999 

PROCEDURE FILLSYSTATI 42600000 

BEGIN 42600100 

REAL RCW*+0»X1# X2»X3tX4; 42600200 

X2|«DI«ECT0RYSEARCH< W SYSTEM " 42600300 

$ SET OMIT » NOTCSHAREDISK) OR OMIT 42600309 

&<SYSN0+17)[42i42l63 42600310 

S POP OMIT 42600311 

i w STATS H »4); 42600320 

IF C0UNTARRAY[28J NEC DATE THEN 42600700 

BEGIN 42600600 

0ISKWAITC(X1I«SPACEC30))»-30,0)| 42600850 

C0UNTARRAY[283I»DATE> 42600900 

M[Xl+5*SYSN03l»0; 42600910 

DISKWAIT(X1#-30,0)I 42600920 

F0RGETSPACECX1)) 42600930 

END ELSE 42601000 

BEGIN 42601100 

DISKWAITC-C0UNTARRAY,[CF3#60tSYSTATBASE)J 4260 1140 

COUNTARRAY[293»*XCLQCK| 42601200 

X4t*(M[X2 INX 103+(M[X2 INX 73x2)); 42601300 



DlSKWAITCC0UNTARRAY,CCn#61#X4); 42601600 

M[X2 INX 73I»*P(DUP)+1J 42601700 

COUNT ARRAY [29 3 J eXCLOCK* INTERVAL) 42601 750 

ENDI 42601800 

D1SKWAIT(X2,CCF]»30»X2.[FF3)I 42601810 

IF M[X2 INX 73*99 THEN 5aV£STAT I ST ICSl 42601860 

FOR X3»sO STEP 1 UNTIL. 27 DO CQUNTARRAY [ X3 3 I »0; 42601900 

FOR X3l*3Q STEP 1 UNTIL. 59 DO COUNTARRAY [X33 I *Ql 42602000 

COUNT ARRAY [ 47 3 l«XCLOCK } 42602050 

F0RGETSPACECX2)* 42602100 

FORGETSPACECDIRECTORYSEARCHCSYSTEM " 42602110 

* SET OMIT * NOTCSHAREDISK) OR OMlT 42602119 

&(SYSN0+17)t42l42i6] 42602120 

I POP OMIT 42602121 

»"STATS M »14)); 42602130 

KILLURCW3 INX NOT 2)1 42602200 

END OF FJUSYSTATJ 42602300 

PROCEDURE SAVESTATJSTICS; 42700000 

BEGIN 42701000 

REAL RCW»t0fXiXl»X2#X3l 42702000 

REAL NAMEITI 42703000 

LABEL X0UT#G0TNAMEJ 42704000 

X|»DIRECT0RYSEARCHC"SYSTEM " 42710000 

$ SET OMJT * NOTCSHAREDISK) OR OMIT 42710099 

&CSY5N0+I7)[42l42«63 42710100 

$ POP OMIT 42710101 

»"STATS "#4)J 42710200 

MOVE(30»X,tCF3»X3l*SPACEC30)>; 42710 300 

OISKWAITC(X2l*SPACE(30))»-30iO>; 4271 100p 

IF C0UNTARRAYt283#DATE THEN M[ X2+5+SYSN03 , [ CF 3 1 «X 1 » *0 ELSE 42711500 

Xl««MCX2+5+SYSN03,[CF3> 42712009 

WHJLE (XliaXl+1) < 100 DO 42712500 

BEGIN 42713000 

STREAM(AI«tNAMElT3*Bl»[DATE3»ClwXl)l 42713100 

BEGIN 42713200 

SII»L0C CI DI»»AI DI«»DI+1J DS«*2 DEC? 42713300 

DSI*2LIT M 0N"J SH»BJ SIIsSI+5) DSI»3 CHRJ 42713400 

ENDi 42713450 

IF DIRECT0RYSEARCHC-NAME1T»"SYSTEM " 42713500 

$ SET OMIT * NOTCSHAREDISK) OR OMIT 42713549 

&CSYSN0 + 17H42I42I63 42713550 

S POP OMIT 42713551 

»5)«0 THEN GO GOTNAMEI 42713600 

END? 42713650 

STREAM(Xli»Xlt«SPACE(10))l 42713700 

BEGIN 42713751 

0Sl»37LIT M # STATISTICS SYSTEM FILE NOT CREATED "I 42713800 

DSI*24LIT«- MAX FILE NO, EXCEEDED*"* 42713850 

ENDI 42713900 

M[X2 + 54.SYSN03.tCF3l*0) DI SKWAI T(X2# -30. 0) 1 42713950 

SPOUTCXDI GO XOUT* 42714000 

GOTNAMEI 42714050 

IF (MCX3*103l»GETUSERDISKC200 OR M))»Q THEN 42714100 

BEGIN 42716000 

STREAMCAl*[NAMElTJ,Bl»CSYSN0+17)»C»»Xlt«SPACEC5))J 42717000 

BEGIN 42718000 

Sl»»AI DSI»17LIT H N0 USER DISK FOR "l 42719000 

SJ|»SI+1| DSl»7 6HRI DSI*7 L I TVSYSTEM"! 42720000 

$ SET OMIT » NOT(SHAREDISK) OR OMIT 42720099 

SII*LOC Bl SH«SI+7| DSI« CHRl 42720100 



S POP OMIT 42720101 

DSI*LIT"*"I 42720200 

ENDI 42721000 

SP0UTCXD1 42721500 

GO TO XOUTl 42722000 

END! 42723000 

SYSTATBASEI»M[X3+10JI 42723100 

M£X2*5*SYSN0J,tCF3l»XlJ 42723500 

STREAM(AI«[DATEJ»Bl"X INX 3#C»*0)I 42724000 

BEGIN 42725000 

SII»A1 DII*LOC CI DSt*8 OCTISIt*LOC C J S I I *S I + 5* 42726000 

01 * -B* DII»DI+5l DS»*3 CHRl 42727000 

END? 42728000 

COUNT ARRAY! 29] »*XCL0CK; 42726050 

DISKWAlTCC0UNTARRAY.rCFJ»61*CMtX INX 10UCM[X INX 7Jx2)))J 42728100 

FOR Xli*0 STEP 1 UNTIL 59 DO COUNTARRAY [ X1J I *0 J 42728200 

C0UNTARRAYC28J|*DATEI COUNTARRAY t 293 I «XClOCK* I NTERVAL I 42728300 

C0UNTARRAYt47Jl*XCU0CKl 42728400 

MCX INX 10J|«*PCDUP)+2J 42728600 

MIX INX 8]»=+P(DUP)-2l 42728700 

M[X3*7ll*ll 42730000 

DISKWAIT(X2»-30»0)J 42731000 

DISKWAIT(X3t30fX,CFFl)> 42731100 

ENTERUSERFILE(-NAMEITi w SYSTEM " 42732000 

* SET OMIT » NOTCSHAREDISK) OR OMIT 42732099 

&CSYSN0+17JI42J42J6] 42732100 

t POP OMIT 42732101 

•X INX 0-1)1 42732200 

STREAMCAI*CNAMEITJ»Bl*CSYSN0+17)tCt*Xll*SPACEC6))l 42 7 33100 

BEGIN 42733150 

DSl*21L!T"NEW STATISTICS FILE» "I 42733200 

SIIMJ SllsSl+11 DS»*7 CHR; DSW Ll TVSYSTEM"! 42733300 

S SET OMIT * NOTCSHAREDISK) OR OMJT 42733349 

SI I»LOC BJ SII»SI+7; DSJ= CH«J 42733350 

* POP OMIT 42733351 

DSl* 9 LIT " CREATED*"* 42733360 

ENDI 42733400 

SPOUT(Xl); 42733500 

FORGETSPACE(DIRECTORYSEARCH(NAMElT# M SYSTEM " 42733510 

$ SET OMIT * NOTCSHAREDISK) OR OMIT 42733519 

4CSYSN0-U7)£42l42i6J 42733520 

$ POP OMIT 42733521 

»14))J 42733530 

XOUTl 42733550 

FORGETSPACECX)! 42733600 

F0RGETSPACE(X2)I 42736000 

F0RGETSPACE(X3)I 42737000 

FORGETSPACE<DlRECTORYSEARCH<"SYSTEM " 42739000 

$ SET OMJT ■ NOTCSHAREDISK) OR OMIT 42739099 

&CSYSN0+17)[42l42l6] 42739100 

$ POP OMIT 42739101 

#"STATS "il4))l 42739200 

ENDI 42740000 

* POP OMIT 42740001 

* THE FORMAT OF DIRECTORY TOP* 44000000 
X D£OJ*OPTI0N WORD* 44001000 
X DU]*DATE* 44002000 
X DC2]«NUMBER OF ELECTRONIC UNITS* 44003000 
X D[3J*HIGHEST ADDRESS OF BACKUP STORAGE* 44004000 
X Dt4]«HIGHEST ADDRESS OF DIRECTORY* 44005000 



X Dt5J=LAST NUMHFR USED FOR CONTROL DEC«X 44006000 

X D[63»FIRST CONTROL DECK QUEUED (LOCATION IN DIRECTORY)* 44007000 

X Dtn»LAST CONTROL DECK OUEUED (LOCATION IN DiRECTQRYU 44008000 

X Dt8J*N£XT NUMBER AVAILABLE FOR PRINTER BACKUP DISK %P 44008100 

X D[9]«C0RE» CONTAINS MULTIPROCESSING FACTOR 44008200 

X DC 103 THRU DE153 SPECIFY WHICH DC-STATIONS ARE SPO-LIKE. 44008300 

X Dtl63*QUEUE VALUES FOR SPO ST AT I ONS( BATCH MCP) 44008310 

X DC173 SPECIFIES SPO UNITS FOR BATCH MCP 44008320 

X DU8J«TIME OF DAY 44008330 

X DC19J*L0CATI0N OF FENCE 44008340 

X DC203, C8I10J»NUMBER OF LAST LOG FILE 44008350 
X ,C18|303»NUMBER OF ENTRIES IN LOG (UPDATED BY NSECOND) 44008360 

X D[213»SCHEDWRD 44008370 

X Dt223.[38ll03*NUMBER Of CURRENT MAINTENANCE LOG, 44008380 

X ,C28I103«NUMBER OF CURRENT REMOTE LOG (DC MCP), 44008390 

X DC233 THRU DC263 SPECIFY WHICH SU-S WERE READY AT THE LAST H/L, 44008400 

X DC273 IS RESERVED FOR USE BY THE LOCAL SITE, 44008410 

X D[283«0ISK ADDRESS OF D1RECT0RYT0P 44008499 

$ SET OMIT ■ NOT STATISTICS 44008997 

PROCEDURE INTFINISH; FORWARD! 44008998 

S POP OMIT 44008999 

SAVE PROCEDURE INITIALIZED 44009000 

BEGIN REAL I » +1» 44010000 

A * I+l» 44010010 

T * A*l» 44010020 

B ■ T*l* 44010030 

C " B+l» 44010040 

J * C+l» 44010050 

w * J + l» 44010060 

LASTL « W+l» 44010070 

LDATE « LASTL+1. 44010080 

MEND * LDATE+1» 44010090 

INTS « MEND+1* 44010100 

INTSS • INTS+1» 44010110 

MEMASK * INTSS+1I 44010120 

REAL Tl ■ LASTLt 44010200 

SHLM b MEND* 44010210 

MSTART * INTS» 44010220 

Y ■ C» 44010230 

Z ■ Tli 44010240 

INTEGER XCLICK « XCLOCKJ 44010400 

ARRAY DDD • MEMASK+1[*3» 44010500 

* * W[*3; 44010510 

DEFINE NUMSTACK m 2#J 44011000 

* SET OMIT • NOT SHAREDISK 44024990 

REAL HOLDER » !• 44025000 

BYPASS m J! 44025100 

* POP OMIT 44025110 
$ SET OMIT « NOT(AUXMEM) 44025499 

LABEL AUXAGNiAUXMESSJ 44025500 

$ POP OMIT 44025501 

44026000 

LABEL TRYNEXTMOD»RESTARTCYCLE»NULLINT) 44027000 

SUBROUTINE XXXXXXI BEGIN A*X-X-X-X-X-X-X-X-X-X-X-X-X-X-X; END1X 44037000 

DEFINE SETUPINITIALBUFFERS « 44040000 

Jl»220 ♦ 20x(BIGUNMJN + LMAX D1V 2)* 44040500 

I t«(TlwGETSPACE(J+2t5#0)+l)*3 AND NOT 31 IR0744Q41Q0Q 

M0VE(J+2»T»T*1)J Tl»I*J-ll XR0744042000 

FOR 1*1 STEP 20 UNTIL T DO F0RGETAREA(2» I )i 44043000 

AREARDY * TRUE#; 44044000 



SUBROUTINE FIXEXJ 440/5000 

BEGIN DISKWAITC-(C«*C-CJ»*M[I J,L6llOJ))» J» M t 1 ] , t FF J+McPBASE) 1440/6000 

MCI3l«(*P(OUP))4CICTCJ» 44077000 

ENOI 44078000 

SUBROUTINE FIX]* 44079000 

BEGIN MCTJ*tMtJJ3SI(8J38llO)| 44080008 

J * J*II* 44081000 

ENDJX 44082000 

SUBROUTINE FlXFENCEl 44082100 

BEGIN I I *T DIV 4096; * POINT IT TO AN ON-LINE M0D44082200 

WHILE (TW0C7-I) AND ME.MASK)#0 AND I LSS 8 DO 44082300 

TRYNEXTMODi T l«( H»!+l )x4096l 44082400 

IF T-4096xI * THEN 44082500 

IF CTW0C8-I ) AND MEMASK)»0 THEN ELSE GO TRYNEXTMODI 44082600 

* THIS INSURES THERE IS ROOM FOR TABLES IMMEDIATELY BELOW 44082700 

* THE FENCE, (KILL ASSUMES IT HAS A STACKQ STACK IF S>PRT,) 44082800 
END! 44082900 

MCPBASEI«MC0J,U8J30); 44083000 

DIRECTORYTOP|sM[U; 44083100 

$ SET OMIT ■ NOT(SHAREDISK) 44083200 

SYSMAXt*M(0], [141231 44083300 

SYSN0|«M[QJ, [1612)1 44083400 

* POP OMIT 44083401 
$ SET OMIT » NOTCDEBUGGJNG) 44083500 

PAUSEVALUElsO; 44083600 

$ POP OMJT 44083601 

PEUlQl»EUI0ls[M[P133J;U20[8l38Jl03 j 44085100 

I0QUESL0TS»"32> 44085500 

IQQUEAVAlL»*31l 44085600 

RESTARTCYCLEI* COMMENT RETURN TO HERE TO CHANGE FENCE POSITION; 44087000 

P(0»0»0#0»0»0»0»0.0#0»0»0»0#0){ 4408 7010 

RRRMECH * P140000000]* 44088000 

LMAX|»STAMAX|«MAXLMAXJ 44090000 

WITCHINGHOURI«5184000J 44090500 

WQRDOFEASE 1*02525252525252525? 44091000 

NOPROCESSTOG ♦ -II* 44092000 

* SET OMIT * NOT STATISTICS 44092490 

LEFTHALF1I*16777216I 44092500 

$ POP OMIT 44092510 

$TREAMC5*18tDM00m 44093000 

BEGINS 44094000 

SI «- SI DS ♦ 11 WDSI D * DII 44095000 

DI * SI 1KDS * 8 LIT "102(0000" )l 44096000 

19(SI * Sl+8)l S ♦ SI 1 44097000 

DI*DI DS*2 WDSI* 44098000 

DI*5J DS*16 LIT"042(0000"X 44099000 

END]* 44100000 

MSTARTl*P(.,INITIALlZE»LOD).[CFJl 44101000 

H0LDERJ»DIRECT0RYT0p-7-(H0LDMAX+29) 01 V 301 * SEE ALSO 40200100 44101100 

USERDISKBQTTOMIBHOLDER-DISKAVAILTABLEMAXI 44101200 

IF (IMCUSERDISKB0TT0M-50) DIV SYSMAX) > 247 THEN Il»247l 44101300 

ESPDISKB0TT0M»«50+(SYSN0KJ)» 44101400 

ESPDISKT0Pl*ESPDISKB0TT0M+I»7l 44101500 

FOR I I »»0 STEP 1 UNTIL 7 DO 44102000 

BEGIN M[4096xl]|»li DO UNTIL ( T I »COREND )* 16] 44102500 

MEMASK|s2xMEMASK*Tl 44103000 

ENDI 44103500 

IF FENCE. ICF]*FENCE OR FENCE LSS 8192 THEN FENCE I "16384 1 44104000 

T.I"FENCEf 44105000 

FIXFENCEI 44105500 



FENCE! 
CHUNKM 
J f * < A I 

MEMROW 
MQVECM 
WHIUE 

B 
M[M[AV 
M[MENO 
MCMEND 

M[0]*M 

M[MSTA 

M[IEFT 

J*U»H 

FOR !♦ 

IF (TWO 

BEGIN 

M 

D 

U 

M 

M 

M 

F 

M 

ENDJ 

FORGET 



»TJ 

AXl»(PlOOOOO-FENCE) 01 V CHUNKZUE*" 
"FENCEJwPlOOOOO-CHUNKMAXxCHUNKZlZE) DJV 4096 "11 
C0J*[M[0)H4[8l38ll0]J 
lXMAX»MEMR0W»tMEMROWtl33)l 
CTW0(7-J) AND MF.MASK)*0 DO 
EGIN J*U"1> A«-A-4096 END* 
AIU?*(MEND*A-3)+l3*MEND INX V77777QQ0QH 
♦ 2]*MEND*U 

3 * 0&H2I47U] 

&MSTARTCCTF3IX 
START&MEND[CTF3&P10000U2«32«16JJ 
RT]*LASTL*MENDJX 
UIT]*0J 

i STEP 1 UNTIL J DO 

(7-DAND MEMASK>#0 THEN 

C*4096xll 

[MSTART],tCF]*B*C-l* 

BEGIN I*I+U C*C*4096 END 

NTIL (TW0C7-I) AND MEMASK)»0J 

[83*C4MSTARTICTF3&1 [21 47 1 1 ]) 

U3*MEND4B[CTF3l 

cmend1.cffj*ci 
0rgetspacecmstart*2)j 

start*c; 



SPACE(MSTART+2)I 



$ SET OMIT « NQTCD 
DISKOUNT*P(RRR), t2 
EUW*P7777777777| 
$ POP OMIT 

STREAMCSM 
BEGIN 
SI * 
19(DI 
ENDJX 
MU63 
TARI* 
SPACE 
INTSI 



FXJ 

9H J*P(RRR)tl28ll Jl 



00»D*18)JX 

s; ds * n wds; 

* DI+8)J DS * 2 



WDSJ 



S SET 



S POP 



OMIT * 
A I" 
OMIT 



JNTSS 
WHIUE 
NOTCA 
PCRRR 



I«*0010413l00000000l »D0 UNTIL FALSE 

[M[MfND-130JJ*2l8t38»lQ]t 

5TACK*MEND-128l 

■ GETSPACECP(,,COREND»L0D ),UFJ - 

P(..INlTIALI2E»L0D),tCF]tl*l)+2» 
»«GETSPACEC200»12,1)*2J 
FALSE D0>X FIX C RELATIVE CONSTANT ERRORS 
UXMEM) 
),C31»13I B l« P(RRR),[30ilJ» 



I 



% 

% 



PRT. 

CT 

UVR0WC03 



MIXMAX+l)x6 

HUNKMAX 

VSIZE 

UNTSIZE 

HEETMAX+1 

ESSAGETABLESIZE 

PACESTACKSIZE 

UMSTACKxSTANDAHDSTACK 

W«»(ESPDISKT0P»ESPDISKB0TT0M+4 7) DIV 

80 % 3 SPACER 

X 4 CIDROW 
% 5 CHANNEL* 



JAR» DATt UV» REPLY* TAR 



48) 



CHANIO 



44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
XDFX44 
XDFX44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 



106000 

107000 
108000 
109000 
109500 
110000 
110100 
110200 
111000 
112000 
113000 
114000 
115000 
116000 
117000 
118000 
119000 
120000 
121000 
122000 
123000 
124000 
125000 
125500 
126000 
127000 
128000 
141000 

142000 
142999 
143000 
143100 
143101 
144000 
145000 
146000 
147000 
148000 
148100 
148200 
146500 
149000 
149100 
149200 
150000 
150009 
150010 
150011 
150500 
150600 
150700 
150750 
150800 
150900 
151000 
151100 
151200 
151300 
151310 
151320 



* 13 UNITCODE 44151340 

* 16 PRNTABLE 44151350 
X 20 MAINTBUFFER 44151360 
% 32 S0» IOtiUE* LOCATQUEi 44151370 

* FINALQUE* HAJTQUE* 44151380 
% TRANSACTION 44151390 
% 36 LABELTABLE* MULT I TABLE* 44151 400 
% RDCTABLE 44151410 
X 38 LOGARRAY 44151420 
% 48 ISTACK 44151430 
% 128 WORKERSTACK 44151440 

S SET OMIT * NOT AUXMEM 44151495 

♦ 10 ♦ 74x<A+B) % CTABLE 44151500 
+ P(MIXMAX+1»DUP*+) % AUXDATA' AUXCODE 44151520 

$ POP OMIT 44151585 

S SET OMIT « NOT PACKETS 44151595 

+4 % PSEUDO 44151600 

+ P(MIXMAX+1»DUP»+) % PSEUDOMIX» NYLONZIPPER 44151620 

$ POP OMIT 44151685 

* SET. OMIT « NOT SHAREDISK 44151695 

♦ L8MAX 44151700 

* POP OMIT 44151785 

* SET OMIT b NOT STATISTICS 44151795 

♦ 94 % COUNTARRAYt DISK WAIT TIME 44151800 
+ MIXMAX+1 % SWAP DELAY 44151620 

S POP OMIT 44151885 

S SET OMIT n NOT (SAVERESULTS OR DEBUGGING) 44151895 

+ RESLTMAX % RESULTHOLDER 44151900 

* POP OMIT 44151985 
$ SET OMIT * NOT DEBUGGING 44151995 

♦ 1?2 % DBARRAY. WB# RB# TBL* STOPS 44152000 
S POP OMIT 44152085 

♦ (T * % FIXEX PROCEDURES 44152500 

P(,0LAY»L0D),C8»10J 44152520 

+ P(,,SH0RTCOMMUNlCATES»L0D)»t8«10J 44152540 

+ P(,DCIOFINISH«LOD)iC8»10J 44152560 

♦ P(,NEXTDCI0#L0D).[8»10] 44152580 

♦ P(,DCWRITE»L0D),[8I10J 44152600 

♦ P(,ENTERLINE0.L0D),t6»l0J 44152620 
J SET OMIT » NOT AUXMEM 44152790 

♦ P(,AUXlLlARYSPACE»L0D),t#«103 44152800 
+ P(,F0RGETAUXILIARYSPACE»L0D),[8»10J 44152820 
+ PC ,FJLL0RK1LL#L0D),[8|10] 44152840 

$ POP OMIT 44152850 

S SET OMIT » NOT DEBUGGING 44152890 

♦ PC,DT»LOD).[6»10J 44152900 
+ P(,EXP»L0D),[8I10J 44152920 

$ POP OMIT 44152930 

)l 44153000 

M[C»«Jt«GETSPACE(l»a»0)*T+2Jl*0; 44153500 

MOVEC I-T"t»J»J*l)| 44154000 

I ♦ MIXMAX+HX 44155000 

T * PC.PRT)! FIX|I 44156000 

$ SET OMIT * NOT(AUXMEM) 44156199 

T ♦ PC.AUXDATA)) FIX) 44156200 

T * P(, AUXCODE)) FIX) 44156300 

S POP OMIT 44156301 

T ♦ P(.JAR)> FIXU 44157000 

T ♦ P(,0AT)l FIX) 44157100 

T * PC.UV)) FIX) 44160000 



Tl»PC,TAR)l FIX* 44160050 

* SET OMIT * NOTCPACKETS) 44160399 

TlwPC.PSEUDOMIX)} FIX; 44160400 

TlwPC.NYLONZlPPER)) FIX) 44160500 

$ POP OMIT 44160501 

T «• P(, REPLY); FIX;* 44162000 

S SET OMIT » NOTCSTATISTICS) 44162899 

T»*P(,SWAPDELAY); FIX; 44162900 

S POP OMIT 44162901 

I ♦ CHUNKMAX; 44163100 

T * P(,CT)I FIX; 44163200 

S SET OMIT « NOTCPACKETS) 44163299 

II««lTl»P<,PSEUDO)l FIX; 44163300 

$ POP OMIT 44163301 

I * 5; T * P(, CHANNEL); FIX; 44164000 
T|»P(,CHANI0); FIX; XR5944164040 

* SET OMIT * NQTUUXMEM OR MONITOR) 44164059 

H*10> Tf*P(, CTABLE); FIX; 44164060 

S SET OMIT * NOTCAUXMEM) 44164065 

IF A THEN BEGIN CTABLE 1 J , IF F 3 * J* J * J + 74 END' 44164070 

IF B THEN BEGIN CTABLE [ 1 J . [ FF 1 * J; J * J + 74 END; 44164080 

* RESET OMIT 44164081 

I ♦ 4J T ♦ PC.CIDROW); FIX; 44164100 

$ SET OMIT ■ NOTCSAVERESULTS OR DEBUGGING) 44164118 

I * RESLTMAX; 44164119 

T I* P(.RESULTHOLDER); FIX; 44164120 

S POP OMIT 44164121 

I * 3; T*P(, SPACER); FIX; 44164200 

* SET OMIT • NOTCDEBUGGING) 44164999 

I * 3U T * P( t DBARRAY); FIX; 44165000 

I * 10; T * P(,WB); FIX; 44165100 

I •■ 11) T * PC.RBX); FIX) 44165200 

I * 201 T •• P(, STOPS)) FIX; 44165300 

I •• 50; T * PUTBD) FIX; 44165400 

t POP OMIT 44165401 

I «■ SHEETMAX + i; T*p( , SHEET ) ; FIX; 44165500 

I * MESSAGETABLESIZE) T * P( ,MESSAGETABLE); FIX; 44165700 

sJ «■ J+lf I * 37; T * PC.LOGARRAY); FIX; 44166000 

* SET OMIT • N0TCSTATIST1CS) 44166099 

JlsJ+l; 1 t b61 1 T»*PC,COUNTARRAY); FIX; 44166100 

$ POP OMJT 44166101 

I * 16; T * P(,PRNTABLE)) FIX; 44167000 

I * 32;* 44168000 

T «- P(,SQ); F IX; 44168100 

T * P(,FINALQUE)I FJX;X 44169000 

T - PC.LOCATfiUE)! FJX;X 44170000 

T * P(,IOQUE)l FIXU 44171000 

S SET OMIT • NOT(STATISTICS) 44171899 

TfuPC.DlSKWAITIME); FIX; 44171900 

$ POP OMIT 44171901 

T * P(, TRANSACTION); FIX)X 44172000 

T * P(,WAITQUE)» FIXJX 44173000 

SPACESTACKjwj; J I -J+SPACESTACKS \Ztl 44173100 

$ SET OMIT « NOT(SHAREDISK) 44173139 

H«LQMAX; 44173140 

T|» P(,LQUE); FIX; 44173150 

t POP OMIT 44173151 

ESPTAB*J) J*J+W; 44173200 

ESPCOUNTIbESPDISKTOP-ESPDISKBOTTOM; 44173300 

I * 36; 44174000 



T * PC .LABELTABLE)? FIX** 44175000 

T * PC.MULTlTABLE)? FIX?* 44176000 

T * P( f R0CTABLE)» FIX;* 44177000 

! * UVSIZEJ T*UV.[CFJ? FIX? 44178000 

I »*nm»P(,UNlTCQDE)»FlX; 44178100 

11=48? T I »PC , I ST ACK> I FJXJ 44179000 

11*20? TIbPC.MAINTBUFFEFO; FIX? 44179050 

W0RKEH5TACK|bJJ Jl*J+128? 44179100 

I*J* 44179200 

FOR Tl«2 STEP 1 UNTIL NUMSTAC* DO 44179300 

BEGIN MtJ«-J + STANDARDSTACK]*I J I*J END; 44179400 

J«-(STACKO*-J) + STANDARDSTACK? 44179500 

ll»PUNTSIZE'l Tl*PC, PUNTER)? FIX; 44179900 

STACKUSE * TRUE?* 44180000 

I SET OMJT * NOTCDEBUGGING) 44180099 

NSYMBS * 34) 44180100 

TBLC32J * "SPO"; TBUC33) * I TYPETOG] • [ 331 153 ; 44180120 

TYPETOG ♦ "O"? 44180140 

TBU34J * W F"I 44180200 

$ POP OMIT 44180201 

STREAM(PUNTER); 44180300 

BEGIN DI»»DI+24; DSlwB U I T "DATACOM "J 44180400 

DS|»16 LIT "INVALID LINK*"; 44180500 

DSIM6 LIT "INVALID ADDRESS*"; 44180600 

* SET OMIT s> NOTCSHAREDISK) 44180699 

DS»«16 LIT"L0CK QUE QVFLQW*"? 44180700 

t SET OMIT » NOT AUTODUMP 44180750 

DSt*32 LlT H 10100)0)4AODKl002900SlOOOX + A144A ,f J 44180800 

DSl*32 LlT , 'lDM908/Ilx007Y0(i*00Pxl<0SK)0( 1 )Kl M ; 44180900 

DSl»25 LIT W 0WK)0HKI0»K)08KI0JK)1C*R1 W J DSl»UIT"""I 44181000 

DSI*30 LIT°KI00002900SIO)000000512900SIOO M ; 44181100 

DS;«28 LIT M 806?'8A*04Al»lD4A#3H t 4A0)0Y/I w ; 44181200 

$ POP OMIT OMIT 44181250 

END? 44181300 

HALTSET»»U 44181400 

FOR 11=0 STEP 1 UNTIL 35 DO 44181500 

BEGIN LABELTABLEmt*eil4; 44181750 

IF I<32 THEN 44182000 

BEGIN lOQUEt Nlsl-i; 44182500 

TlNU[Il,tiBH2Jl»Ql 44183000 

IF I LEQ 12 THEN UN JTCODECI J l*-OJ 44183500 

END END* 44184000 

UNITC0DE[73«»0; 44184500 

LABELTABLE[25Jl*0; 44185000 

FORKQUE * M OR PC .FORKQUE )&PC , FORKQUE ) CCTF J&P777C 9 t 39| 9] ; 44186500 

BED! ♦ FLAG(BED*tBEDJ INX P100777777770000Q) ? 4418700P 

CLICK * ¥777777777777} 44187100 

PRIQRTY«-PRY0R[0J*-1; 44187200 

NUMESS 1* NUMAINTMESS I* -100? 44188000 

CL0CK|*SP0W0RD» B 0; 44188100 

LOGHOLDER I »LOGENTRY!«MDELTA»*MLOG l «M A INTLOG ARRAY |»NXDI5K!*0; 44188200 

MROW l« 100; 44188300 

KEYB0ARDC0UNTER»*1; % KEEPS KEYIN FROM RUNNING. 44188500 

S SET OMIT « NOTCDEBUGGING) 44188999 

PC ,DT»LOD#OiDIB 5»TRB i».DT»*)J* 44189000 

t POP OMIT 44189001 

MCW0RKERSTACKJI«W0RD0FEASE? INITIALIZE MCP STACKS44189500 

M0VEC126»II«W0RKERSTACK,[CFJ»I+1>; *T0 SPOT POSSIBLE OVER 44189600 

M0VE(46»If JSTACK)! XFLOWS 44189700 

MOVECSPACESTACKSlZE»I#SPACESTACK)? 44189750 



M0VECP60# ItPlQO)J 44109800 

NT1I*0; M0VE(Hf9160pl>161}f % NT1 » P160 44189900 

* SET 0M|T » NOT SHAREDISK 44189995 

MQVE(LQMAXM»1>LQUE,[CF3); 44190000 

$ POP OMIT 44190005 

FOR U»0 STEP 1 UNTIL ? DO 44190100 

SPACERII Jl»P(0UP),[CFJ4PCDUP)[CTFJl 44190200 

SETUPINITIALBUFFERS; 44190300 

EVENTt03.[FF3l*tEVENT[03 3) 44190400 

L0GARRAYt3l3*IOMASK«-P2OO0OGO00O) 44191000 

DJSKWAJT(-(AI*SPACEC30))»-30»DIRECT0RYT0P-SYSNQ)» 44191005 

Tl«MCA+193,CCF3i 44191010 

F1XFENCE> 44191015 

IF T#FENCE AND T#0 THEN 44191020 

BEGIN IF (T »* eiOOOOO-(CCP(DUP)-T)DIV CHUNKZIZE) 44191025 

XCHUNKZIZE)) 44191030 

SP20000 AND T5P70000 THEN FENCE l» U 44191040 

M[A+19]l«FENCtl 44191050 

DISKWAIT(A»-30#DIRECTORYTOP-SYSNO)I 44191055 

TOGLFJsOl 44191060 

pco» of rdf# fcx# sts)j go to rest artcycle » 44191090 

end fence moving jazzj 44191100 

forgetspacf(a)) 44191110 

proct i me [03 *i0t i me [0 3 *p2003 77 7777 7777 77 i 44192000 

h*p(,01ay)i fixex; 44192005 

i set omit * nqtcdebugging) 44192009 

i*pc.dt)jfixexm*p(.exp);fixex; 44192010 

$ POP OMIT 44192011 

$ SET OMIT s NOTCAUXMEM) 44192059 

1»«PC,AUXILIARYSPACE>; FIXEX; 44192060 

I l=P( ,F0RGETAUXILIARYSPACE)1 F IXEXI 44192062 

Ii«P( ,FILL0RKILL3; FIXEX; 4419206* 

S POP OMJT 44192065 

I*P(. ,SH0RTC0MMUN1CATES»NT1>DEI)JFIXEX* 44193028 

I **PC , DC IOFINI SH) ; FIXEX* 44193030 

I*PC.NEXTDC10miXEXj 44193032 

INTERR0GATEMASKla?04OOO04000000000> 4419 303 3 

I*PC f DCWRlTE)JFIXEX* 44193034 

I*Pt,ENTERLINEQ)l F I X E X I 44193035 

HNETABLE«*GETSPACE(C»s6xUMAX+6#0i0)+2» % RIGHT IN FRONT 44193500 

M0VE(C»LINETABLE-1»LINETABUE)? % OF FIXEX PRCDRS , 44193600 

* SET OMJT » NOT SHAREDISK 44193890 

UNLQCKCDIRECTORYTOP-SYSNOJJ 4419 3900 

$ POP OMJT 44193910 

S SET OMIT » NOT(DEBUGGING) 44196999 

FOR I ♦ STEP 2 UNTIL 30 DO BEGIN* 44197000 

TBUIJ ♦ TINUII DIV 23 ,[30U83»X 44198000 

TBLC I + 1 J * UABELTA8LECI DIV 233, £331153 END;* 44199000 

$ POP OMIT 44199001 

% FIND INITIAL. VALUE FOR CORE 44201200 

CORE l"P (., COREND • LOD), [ CF J "P(, , INITIAL 12E»U0D), CCF3J 44201300 

I*M[M[M[AVAIL333I 44201400 

WHILE I»CFF3 * V77777 DO 44201500 

BEGIN CORE * CORE + I.tFFJl I * M[13 END; 44201600 

CORE * CORE DIV 64) 44202000 

INDJAN f [FF3*UNDlAN3J 44202095 

DDD»»CM[A«»SPACE(483) J3&483[8l38»103; 44202500 

DISKWAI TC»A»"30»0) I 44202600 

DISKWAIT<»31-A#-30»MCPNAMESEG)J 44202700 

M0VE(2»A+l0+5xSYSN0iA+51*2xSYSN0); 4 4202800 



DISKWAITCA+31»-30#MCPNAMESEG); 4 4 202900 

STREAMCML»*MARKLEVELtPLl*Mm!*PATCHLEVEL»LLl*LOCALEVEL 44203000 

» FENCE* MEMASK»N»»A+10+5xSYSN0 44203150 

S SET OMIT * NOT(SHAREDISK) 44203179 

>SYS*SYSN0+17 44203180 

* POP OMIT 44203181 

»T|«BI»SPACE(15))1 44203200 

BEGIN DS*5 LIT "-H/L M ; 44204000 

$ SET OMIT * NOT(SHAREDISK) 44204099 

SI*L0C SYSI SI*SI +7*0S*7 LlT«SYSTEM "JDS*CHR; 44204100 

$ POP OMIT 44204101 

DS*6 LIT" WITH "J S I *Nj S I *S I + U DS*7 CHRl 44204200 

DS»*LlT"/"»S!lsSI+i;DSl*7 CHRJDSJP6 LIT" MARK «; 44204500 

Sj»»tOC MLJ IF SC GEO w " THEN; 44204600 

6C IF TOGGLE THEN IF SC« n O» THEN SU»SI + 1 ELSE DSl*CHR 44204650 

ELSE DSt»CHR>» DSlsLlT","; 44204700 

SII»LOC PL) IF SC GEO " " THEN; 44204750 

6(IF TOGGLE THEN IF SC*°0" THEN Sjl»SI+l ELSE DSI«CHR 44204800 

ELSE DSt«CHR)J DS»*2CHRJ 44204850 

SI I «LOC LLJ IF SC GEO " " THEN; 44205000 

8(IF TOGGLE THEN IF SC» w O M THEN SJ«»SI+1 ELSE DSl*CHR 44205050 

ELSE DSt*CHR>; 44205100 

DS* 3 LIT "iF^J SI* LOC FENCE; OS* 5 DEC; 44205140 

ds* 7 lit " [mods*"; 44205160 

si*lqc memask; skjp 40 sb; 44206000 

6(if sb then ds*lit w p* else ds«-lit w R"; skip sb); 44206100 

DS* 4 LIT "J -♦"; 44206200 

END; 44206300 

SHLM|«GETSPACE(15»9.5)+2; 44206400 

M0VE(15#B»SHLM); 44206500 

$ SET OMIT * NOT (DUMP OR DEBUGGING) 44206899 

MEMOD'MEMASK; XA144206900 

$ POP OMIT 44206901 

$ SET OMIT * NOTCSHAREDISK) 44207899 

FOR l»»13 STEP 5 UNTIL 28 DO 44207900 

LDATE»*LDATE OR (DDD[Jj#0 AND UI-13) DIV 5)*SYSNQ); 44207910 

UNLOCKCO); 44207920 

IF NOT LDATE THEN 44207930 

FOR 1**0 STEP 1 UNTIL 3 DO 44207940 

BEGIN 44207950 

Jl«»4060ll[30t46l2]l % CLEAR CONTENTION BITS 44207960 

PCWAITIOUJJ INX P100000000tO»l8)#DEL); 44207970 

Jt(37tUl«ll » UNLOCK ADDRESSES 44207980 

PCWAITIOCCJJ INX ei00O000O0#O»18)«DEL); 44207990 

END; 44208000 

$ POP OMIT 44208001 

FOR ll»0 STEP 1 UNTIL 15 DO 44208900 

J ♦ WAITl0CP«2OOOOOOO0,P377» J)U 44209000 

DISKWAIT(*At30»DIRECT0RYT0P-SYSN0); 44213000 

C0REil4»14ll««IF DDDI9J-Q THEN 100 ELSE DDDt 9 J , [ 4 1 143 ; 44213500 

OPTION ♦ DDDtOJ;* 44214000 

IF (SCHEDWRD««NABS(DDDt2n))*0 THEN 44214300 

SqHEDWRDJ*Cl)«HCTFJ; 44214310 

REMOTE'O; 44215000 

L0GARRAYC33]«sDDDt20J,t30ll83; 44216100 

LQGARRAY[32J*-0; 44216110 

I SET OMIT p NOT SHAREDISK 44216690 

DI SKWA I T(*A»-30# DIRECTORY TOP); 44216700 

S POP OMJT 44216710 

XCLlCKt«<e7777777777700 AND DDDU8J) MOD 5184000; 442J6900 



NEUP«*DDDt23 MOD 100 ; 44216910 

NEUPl*NEUP&CNFUP+DDD(21 D1V 100H C TF 3&NEUP [ 3 J 33 I 15 3 1 44216940 

DATEl»DDDtl 31 44216950 

SP0UTIT(B»HALTK)I 44216955 

« SET OMIT ■ NOT(SHAREDISK) 44216959 

UNLOCK(DIRECTORYTOP); 44216960 

$ POP OMIT 44216961 

STREAM(BI*0iAI"BYPASSl»DDDC4]»Dl=P(.DIRDSK))j 44240500 

BEGIN SI I*LOC A) DSI*6 DEC? DH"LOC BJ 44240520 

Sn»LOC Dl SII»SI+8I DSlsfWDSl 44240540 

END1 II*P INX 01 % GET LOCATION IN INITIALIZE 44240560 

DISKB0TT0MI»BYPASS-2| 44240580 

M[l NTS-2 3 1 *( J ««*P< UUP ))& I [CTC 31 4424 0600 

MtJ3»CFFl»"!l 44240620 

M[I]l»Ji(lNTS-2)tCTF3; 44240640 

FORGETSPACECINTS)! X RETURN PART OF INITIALIZE 44240660 

I NTS I « I + 21 44240660 

IF CT*NEUP,[FFJ-NEUP.CCFJ)>0 THEN 44240690 

NEUP*NEUPil0tCTCJ4(10+T)CCTF)l*SAVE * OF EUS ON DM, 44240695 

I »«NEUP,NEUF) 44240700 

ZI*C Y 1*1 + EUIOFFSFT) + I 44240800 

* SET OMIT n SHARED1SK 44240819 

♦ (B»«(I+1) DIV 2 ♦ I ♦ 2) 44240820 

S POP OMIT 44240821 

JJ|*GETSPACE(Z»0#1) ♦ 21 44240840 

M0VE(Z»J-1»J)1 44240860 

EUIOI *C J INX M)*Y[8I38»10JI 44240880 

PEUIOI"((Jl»J*Y) INX H)CI(8l3BtlO]I 44240900 

* SET OMIT s SMAREDISK 44240919 

AVTABLE««(CJ+I) INX M )&B( 8 I 38 » 103 1 44240928 

t POP OMIT 44240921 
T1I»GETSPACE(200»0»1)+2J X SPACE FOR INTRNSC 44241000 

CHUNKMAX*CHUNKMAX-11 44241100 

FOR 1*0 STEP 1 UNTIL CHUNKMAX DO 44241110 
IF CTW0(7*(CHUNKZlZExI+FENCE) DIV 40963ANQ MEMASK)#0 THEN 44241120 
CT[I3J*(N0T 0) t [36Jl23l X ACT 1 VEII 3 » *TOTALl I 3 »»631 44241130 

ACTDATE«*WEEKDAYI«01 44241150 

MCPI""SITE "t 44241160 

S SET OMIT * NOT(SHAREDISK) 44241179 

SCRATCHVECf"[M[GETSPACE( 10. SCRATCHTYPE#SCRATCHSAVE) + 23 3&10tTOSlZE II 44241180 

T0GLEI*T0GLE OR SCRATCHDI RECTORYMASK OR USEBD I SKMASKl 44241190 

IF LDATE THEN 44241200 

BEGIN 44241250 

M0VE(4»CDDD£ 2333 tTMULTI TABLE [163 3)1 44241260 

DISKWAlTCEUIO,tCF3»EUIO,t6ltOJtEUIOHOLDER) 1 44241275 

AVS*P(DDD[NEUP,NEUF3»DUP),NUMENT+P(XCH),STARTWRD*AVDIFFMINl 44241330 

avs*(avs*if avs >avsmax then avsmax else if avs lss avsmin 44241335 
then avsmin else avs)+30-uf (avs*avs mod 30)#o then avs else 44241336 

30)1 44241337 

CLEANOUT(SYSNO)! 44241350 

DISKWAITCCSCRATCHVEC INX 0)»"4»DIRECT0RYT0P*1)| 44241375 

END ELSE 44241400 

SCRATCHVEC[OJ»wSCRATCHVEC[n»*SCRATCHVECC2 3»*SCRATCHVECmi*Oi 44241500 

SCRATCHVEC[SYSN03I«0&CH*GETESPDISK)[T0SLINK3» 44241550 

DISKWAITCSCRATCHVEC INX 0# M»D I RECTORYTOP + 1 ) 1 44241600 

SCRATCHVECI03I«041[T0SNUM31 44241650 

SCRATCHVECM3l«UUTOSLENGTH3l 44241700 

DISKWAITCSCRATCHVEC INX 0t2»!)i 44241750 

SCRATCHVECt031»04CDlRECTORYTOP+l)CTOSLlNKJ&lCTOSSlZE3l 44241800 

SCRATCHVECU3l»2&lCTOSNUM34ICTOSLlNK3l 44241850 



IF IDATE THEN MESSAGETABLEBU ILDER ELSE 44241900 

BEGIN 44241950 

$ POP OMIT 44241951 

DIRECT0RYBUIL0ERCA»D0D)1 44242000 

FORGETSPACECPC iD I REC T0RY8U ILDER » LQD ) » t CF 3 ) J 44242050 

S SET OMIT m N0T(SHAREDISK ) 44242090 

END ; 44242100 

$ POP OMJT 44242101 

CREATELOGCDDDH 44242200 

FORGETSPACE(P(,CREATELOG#tOD).[CFJ)J 44242700 

CANDYlNXlaCCTBLWQRD»*OJ 44242900 

TIME0UTCSPACFC10)); DATEOUT ( SPACEC 1 0) ) J 44243000 

USTSEG l* FIRSTSEG I* PC C C SPACEC 32)*2)0R M) 44395100 

& 32[8I38:10J,SFB)J 44395200 

M0VE(32#LASTSEG,tCF3-3#LASTSEG,CCF3-2)l 44395220 

MCIOADRJ * I0MASKJ 44395230 

PR0GTaNK|*TANKaDDRESSI«BASED1SKaDRJ*0J 44395300 

TOGLE«*TOGLE OR HOLDMASKJ 4439532P 

FIRSTOFFSFT ♦ LASTOFFSET * 1; 44395350 

IF CL0CK*0 THEN * CC103F IS INHIBITED 44395500 

BEGIN STREAMCT«*TJsSPACEClO))J 44395550 

BEGIN DS«*19 LIT M #TIMER NOT RUNNING»"J 44395600 

0Sl«22 LIT" RESET CC1Q3F INHIBIT*"* 44395650 

END* 44395700 

SPOUTCT)> 4439575* 

END* 44395800 

IF GIVEDATE THEN* 44396000 

BEGINISTREAMCBI*I»*SPACEC2))I 44 397000 

DS * 11 LIT "#DT PLEASE*"!* 44398000 

SPOUTCDJ* 44399000 

DATE * "U% 44400000 

END; 44401000 

IF G1VETIME THEN* 44402000 

BEGIN»STREAMC6I*1!»SPACEC2))> 44403000 

DS ♦ 11 LIT M #TR PLEASE*"!* 44404000 

SPOUTCDJ* 44405000 

XCLOCK •• -5184000JX 44406000 

END5X 44407000 

$ SET OMIT m SHAREDISK 44407999 

DISKWAITC-KLUMP»3»DIRECT0RYT0P+3)> 44408000 

* POP OMIT 44408001 

STASUSCQ]*READYSTATEJ 44408100 

CHANGEDATECO)? 44408200 

KEYBOARDCOUNTER«*Oj 44408400 

T0GLE«*T0GLE OR HOLDMASK OR CDMASK OR KEYBOARDMASKI 44408500 

$ SET OMIT * NOTCAUXMEM) 44408509 

IF (P(RRR)tC30ll] AND USEDRB) OR C PC HRR ) , £ 31 1 1] AND USEDRA) THEN 44408510 

BEGIN 44408520 

AUXILIARYTABLE INITIALIZE) 44408530 

Tl*SPACEC30)J 44408540 

AUXAGNI DISKWAlTC"Ti30»AUXMEMDSK); 44408550 

B!»M[T*CSYSN0x4)jl C J *Mt T + C SYSN0x4 ) + U 1 44408560 

IF NOT CMCT+SYSN0*16J»"AUXMEM " AND B GEO 0) THEN 44408570 

BEGIN 44408560 

AUXMESSl STREAMC I I * II "SPACE ( 2 ) ) J 44408590 

DS»s 15 LIT "#CA MCP PLEASE*"! 44408600 

SPOUTCJ)! CTABLE14J,[2I1]»*1I 44408610 

SLEEPCtCTABLEt4]]»N0T CTABLE[4J)) 44408620 

CTABLEC4]. C4t t ] |»0I 44408630 

GO AUXAGN; 44408640 



END? 44408644 

IF B*Q THEN 44400648 

IF (I I«D1RECTORYSEARCH(B»C»4))*0 THEN 44408652 

BEGIN 44408656 

LBMESS(B»C»15»0»0»0»n» 44408660 

GO TO AUXMESS; 44408664 

END 44408668 

ELSE 44408672 

BEGIN 44408676 

J«*Mt(P(.ESPBIT)) + n.tCF3l 44408680 

TRANSFERMCPTOAUXMEM(I»J)J 44408690 

HEADERUNLOCK(B»C»I>* 44408700 

END? 44408710 

FORGETSPACE(T); 44408715 

END* 44408720 

$ POP OMIT 44408721 

SLEEP(tCU0CK]tN0T 0)1 44408900 

SLEEP([DATEJ»NOT(-t))l 44409000 

WHILE XCLOCK<0 DO SLEEP( I XCLOCK ) * NOTC XCLOCK ) ) l 44409100 

DISKWAlTC-A#-30i0); 44410000 

IF (Tl«DIRECT0RYSEARCH(DDDUl»13 + 5>cSYSN0]»DDDtI*l)»l7))*0 44410100 

THEN BEGIN 44410200 

NULLJNTl STREAMCTDI 44410300 

DS<*27 LIT"## LOAD INTRINSICS NOW, ,,,*"! 44410400 

SPQUT(T1)J 44410500 

END ELSE 44410600 

IF CNTl>»M(T + 4J,t36t6j)#0 AND NT 1 #TSSI NTYPE THEN 44410700 

BEGIN FORGETSPACE(T); 44410800 

P(DIRECT0RYSEARCHCNABS(DDD[n>iDDDtI*n»16)»DEL)> 44411000 

DDOC I ]l»DDOC I*13I»0I % REMOVE INTRINSICS 44411200 

DISKWAlT(At*30»0)> 44411400 

GO TO NULLINU 44411600 

END ELSE 44411800 

BEGIN INTRlNSICTABLEBUlLDERCUTltCTFJ)* 44411900 

FORGFTSPACEtf); 44412000 

ENDJ 44412100 

S SET OMIT « NOT SHAREDISK 44412199 

UNLOCMO)! 44412200 

$ POP OMIT 44412201 

INTFREEI»1I 44412300 

IF CTl»DIRECT0RYSEARCHCDDDtI-3J»DDDU*2J#17))l»0 THEN 44412400 

BEGIN 44412500 

$ SET OMIT s NOT STATISTICS 44412599 

MCPTOP I* MCPBASE+M[T j NX 7li 44412600 

$ POP OMIT 44412601 

FORGETSPACE(T>! 44412700 

END ELSE 44412800 

LBMESS(DDD[I-33»DDDCI-2J»-15»0»0#0tl); 44412900 

$ SET OMIT s SHAREDISK 44412999 

MCPFREEIMJ 44413000 

S POP OMIT 44413001 

F0RGETSPACECA3I 44413500 

LOGOUTMAINT(SHLM)! 44414000 

MROMIpNABSCMROW}; 44414100 

FQRGETSPACECSHLM)* 44414200 

TOGLEI*TOGLE OR SHEETMASK OR STATUSMASKJ 44415000 

READYI-P343600000JX 44417000 

SPREADTHEWORD) 44417100 

FOR 1*20 STEP 1 UNTIL 21 DO 44417U0 

P(WAITIO(P4000100000»P777»I)#DEL)i 44417120 



TOGLE I* TOGLE OR NSF.CONDMASK) 44417150 

USTSCHEDSEUECTlsCXCUOCK 01 V 54000 )x54000) 44417200 

SCHEDLOOK(O.-l)) XREORDER SCHEDULE TASK QUEUE 44418000 

44420000 

RRRMECH * RRRMECH AND 976377777771% 44421000 

READY * READY AND $7637/77 7 771% 44422000 

$ SET OMIT * NOT STATISTICS 44422990 

INTFINISH) 44423000 

S POP OMIT 44423010 

SWAPEND»"»31) 44424000 

IF AUTOCE THEN 44425000 

BEGIN STREAM<T|*TfsSPACE(8)*2)) 44425100 

BEGIN D5t*21 LIT M CC RUN C ANDE/TSHAREH) n ) 44425200 

DSl*24 LIT"STACK«2O0)C0RE*4OOO)END*") 44425300 

END) 44425400 

CCARDCT&25t3»43»5])J 44425500 

END» 44425600 

FORGETSPACE(INTS); FORGETSPACE ( I NTSS ) ; 44437000 

GO TO NOTHINGTODOlX 44439000 

ENOlX 44440000 

SAVE REAL PROCEDURE COREND)X 44441000 

BEGIN REAL T) PCINI)) END)* 44442000 

$ SET OMJT 9 NOT STATISTICS 44999990 

PROCEDURE INTFINISH) 45000000 

BEGIN REAL B»T) 45001000 

LABEL SS»SS1) 45003200 

SSt Bl»0) 45200100 

IF CT!*DlRECTORYSEARCH( H SYSTEM " 45201000 

$ SET OMIT » NOTCSHAREDISK) OR OMIT 45202000 

&CSYSN0+17)[42»42I63 45203000 

* POP OMIT 45203001 

t"STATS "i5))«0 THEN 45204000 

BEGIN 45205000 

Tl«SPACEC30)) 45206000 

MOVEC30.T-UT3) 45207000 

SS1I 45207100 

M£T INX 0)I*P0007400074000102) 45208000 

STREAM(DATE»X|sT INX 3)) 45209000 

BEGIN 45210000 

SII»LOC DATE) DSl»8 OCT) 0U«X) 45211000 

DS)*2L|T" + *")SH»X) SIt"SI«5JDSl*3 CHR) 45212000 

END) 45213000 

MIT INX 731*1) 45214000 

M[T INX 43 1«0A1 [91471 1 J J XRESET COLD START BIT 45215000 

IF NOT B THEN 45215100 

BEGIN 45215200 

MET INX 93l«ll 45216000 

MtT INX 103)* 45217000 

GETUSERDISKC-CMU INX 8]»*200))l 45218000 

ENTERUSERFILEC-"SYSTEM " 45219000 

$ SET OMIT * NOTCSHAREDISK) OR OMJT 45220000 

&CSYSN0+17)[42)42»6] 45221000 

S POP OMIT 45221001 

."STATS "»T-1>) 45222000 

END ELSE DISKWAIT(T.[CFJ#30»T,[FFJ> 45222100 

END 45222150 

ELSE * FILE PRESENT 45222200 

IF BI*CCM[T INX 8J»200) AND CM[T INX 9J»1>) THEN 45222250 

IF MCT INX 43,t«5«n THEN X JUST COLD-STARTED 45222275 

GO TO SSI X TO FIX-UP THE HDR 45222300 



ELSE X HDK OK 45222310 

BEGIN 45222315 

DISKWAlTC-C0UNTARRAY,UF.I#60iM[T 1NX 103); 45222320 

IF C0UNTARRAYC28J # DATE THEN COUNT ARRAY t 29 ] J *0l 45222325 

END 45222330 

ELSE 45222350 

BEGIN X START A NEW FILE 45222400 

FORGETSPACE(T)! 45222450 

PCDtRECTORYSEARCMC-"SYSTEM * 45222500 

$ SET OMIT * NOT(SHAREDISK) OR OMIT 45222550 

&(SYSN0+17)C42J42I6] 45222600 

J POP OMIT 45222601 

»*STATS "»6)»DEL)I 45222650 

GO TO SSI 45222700 

END) 45223000 

SYSTATBASE««M[T INX 10]? 45224000 

INTERVALI*108000J 45226000 

FORGETSPACECT)! 45227000 

COUNTARRAYt 60 3 1*037777777777777771 4522800Q 

END OF INTFINISHJ 45249000 

» POP OMIT 45249010 

ARRAY LINKR»NT2[*3#BAK«+2t*]J 45990000 

REAL L0GLYNE*+5? 45990400 

REAL CLICKSo + <u 45990500 

REAL LINO » +1» MIX * *3« MASK * -It TESTER w -2? 45991000 

COMMENT THE ABOVE DEFINE ENTITIES USED BY BEDSEARCH* WHICH (EXCEPT 45991500 

FOR "LINKR") EXIST IN THE STACK OF EACH CANDIDATE FOR AWAKENI NQ45992000 

J 45992500 

REAL FORKER m FORKJ 45993000 

comment forker is used by slate initiate code to fool fork, 45993500 

a mark stack control word is passed as the last 45994000 

parameter* but only the coke field is used, as long as 45994500 

the hardware works* so will this codei 45995000 

ARRAY BLOr ■ NT3t*JJ 45995500 

COMMENT YOU MUST PROTECT "BLOB" THE SAME AS OTHER NT-TYPE 45996000 

VARIABLES, IN OTHER WORDS* YOU MAY NOT CALL ANY 45996500 
PROCEDURE AND EXPECT JT TO RETURN WITH ThE SAMe VALUE* 45997000 

•161 P(,,C0REND»L0D»4,INX,STS)I INITIALIZE* * 20-1ST CODE 46000000 

1 U7I X 21 • RES FOR NO MEM MSG46Q005G0 

1 1 SI GO TO TlMERI I 22 - TIME INTERVAL* 46001000 

U9I GO TO IOBUSYI X 23 • 1-0 BUSYX 46002000 

•201 GO TO KEYBOARDREGUESTJ X 24 - KEYBOARD REQUE5TX 46003000 

• 21« PRINTERFINISH(20)I X 25 - PRINTER 1 FINJSHX 46004000 
1221 PRjNTERFlNlSHt2l)l X 26 - PRINTER 2 FlNjSHX 46005000 
•231 lOFlNlSH(RESULTlil)* X 27 - CHANNEL 1 COMPLETE46006000 
1241 I0F1NISH(RESULT2#2)I X 30 • CHANNEL 2 COMPLETE46007000 
»25« I0FINISH(RESULT3t3)l X 31 • CHANNEL 3 C0MPLETE46008000 
•261 I0FINISH(RESULT4»4)> X 32 - CHANNEL 4 C0MPLETE46009000 

• 27 1 GO TO P2BUSYI X 33 " P2 BUSY* 46010000 
«28» GO TO INQUEST? * 34 - DATACOM INQUIRY 46011000 
|29» DO UNTIL FALSEI X 35 - SPECIAL INTERRUPT 46011500 

S SET OMIT * SHAREDISK 46011990 

•301 DO UNTIL FALSEI X 36 • OKA READ CHECK 46012000 

J31» DO UNTIL FALSEI X 37 - DKB READ CHECK 46012500 

t SET OMIT * NOT SHAREDISK 46012750 

•30? GO FINDITI X 36 - FREE ADDRESS 46013000 

•311 GO FINDITI » 37 • ALTERNATE FREE ADR46013500 

S POP OMIT OMIT 46013510 

•321 P(0)l GO TO P2PR0CESSJ X 40 • P2 MEMORY PARITYX 46014000 

• 33* P(4,17)> GO TO P2PR0CESS; X 41 • P2 INVALID ADDRESS46015000 



STACKOVERFLOW 



START l*| 
TIMERM 
X SET OMIT 

$ POP OMIT 



* SET OMJT 



t POP OMIT 



1341 
t 36 t 
1371 
I 38 I 
1391 
1401 
(411 
»42| 
1431 
1441 
1451 
1485 
1491 
1501 
1521 
1531 
1541 
I55J 
1561 
1571 
1581 
1591 
t 60 t 
1611 



PC4»l)t 
PC6>; 
P(8)J 
PC 10) I 
PC 18) I 
PC12»0)1 

pci2.ni 

PU2,2)J 
PC4»9)1 

pu»ini 

PU2»35> 

PCO)J 

PC4»17)> 

PC4»l)f 

PC6)J 

PCS) | 

PC10)) 

push 

PC12iO)i 

pci2»m 

PC12»2)1 
PC 4 #9) I 
PC4t 11)1 
PC12#3)J 



GO 

GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
GO 
G6 
GO 
GO 
GO 
GO 
GO 
GO 
G6 
GO 
GO 
GO 
GO 



TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 



P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P2PR0CESS 
P1PR0CESS 
P1PR0CESS 
P1PR0CESS 
P1PR0CESS 
P1PR0CESS 
PtPROCESS 
P1PR0CESS 
PIPROCESS 
PIPROCESS 
PIPROCESS 
P1PR0CESS 
PIPROCESS 
PIPROCESS 



X 42 - 

* 44 - 
X 45 • 
X 46 - 

* 47 - 
X 50 * 
X 51 - 
X 52 - 
X 53 - 
X 54 - 
X 55 • 
X 60 - 
I 61 - 
X 62 - 
X 64 » 
X 65 - 
X 66 - 
X 67 - 
> 70 - 
X 71 - 
X 72 - 
X 73 - 
X 74 - 
X 75 - 



P2 STACK OVERFLOW 
P2 COMMUNICATEX 
P2 PROGRAM RELEAS 
P2 CONTINUITY BIT 
P2 PRESENCE BIT 
P2 FLAG BIT 
P2 INVALID INDEX 
P2 EXP UNDERFLOW 
P2 EXP OVERFLBWX 
P2 KINT OVERFLOWX 

P2 DIVIDE BY ZERO 
PI MEMORY PARITYX 

PI INVALID ADDRES 

PI STACK OVERFLOW 

PI COMMUNICATEX 

PI PROGRAM RELEAS 

PI CONTINUITY BIT 

PI PRESENCE BIT 

PI FLAG BIT 

PI INVALID INDEX 

PI EXP UNDERFLOW 

Pi EXP OVERFLOWX 

Pi INT OVERFLOWX 

Pi DIVIDE BY ZERO 



CLOCK •• CLOCK + 64; 

NOTCNEWLOGGING) 

STOPLOG(PlMlXiO)! 



IF 



XCLOCK ♦ XCLOCK+64; 



CLOCK, C 37133 a OR 

CSECONDCTR * CP2M I X<0)+SECO 
XCLOCK GEO WITCH1NGH0UR THE 
BEGIN IF PCTIO) * THENX 

if firstwait * nextwai 

newio;x 
secondctr * 3;x 
if nsecondready thenx 
begin togle*togle 
forkcpc.nsec 
end end;x 
* notcstatistjcs) 
c0untupby(3#1)i 

c0untupbyc14, secondctr leo 1); 
c0untupbyc38»cp1mix*candyinx) and 

C0UNTUPBYC7.NTll»UNnU8J,[13l5J 

C0UNTUPBYC8»NT2l»UNlT[19],tl3l53 

C0UNTUPBYC17iCNTl+NT2)P2)» 

C0UNTUPBYC43»CP1MIX«0) AND CNTU* 

C0UNTUPBYC39.CNT2I*CP1MIX NEC 0)) 

IF CP2MIX GTR AND NT1) THEN COU 

C0UNTUPBYC6»PBUSY)I 

IF NT2 THEN COUNTUPBYC 6» LEFTHALF1 

C0UNTUPBYC31#NTH*P2MIX GTR 0)1 

IF CNT2 AND NT1) THEN C0UNTUPBYC3 



NDCTR)i 4 ORX 
N 

T THENX 



AND NOT NSECONDMASKJ 
0ND)»Oftil28f l)j 



IF CPCRRR) OR RRRMECHMREADY THE 
IF STATUSBIT THEN 

BEGIN TOGLE*TOGLE AND NOT S 
FORKCPC,STATUS)»0»-lfl 

ENDIX 



CCANOYINX NEO 0))» 
NEQ 0)1 
NEQ 0)) 

CNT1 OR NT2))); 

and ntd; 
ntupbyc39»lefthalf1)j 

)J 

1»LEFTHALF1)J 

N 

TATUSMASK1 
26»1); 



46016000 
46017000 

E46018000 
46019000 
46020000 
46021000 
46022000 
46023000 
46024000 
46025000 
46026000 
46027000 

S46028000 
46029000 
46030000 

£46031000 
46032000 
46033000 
46034000 
46035000 
46036000 
46037000 
46038000 
46039000 
46040000 
48000000 
48000099 
48000100 
48000101 
48000200 
48001000 
48002000 
48003000 
48004000 
48005000 
48006000 
48007000 
48008000 
48009000 
48010000 
48010999 
48011000 
48011100 
48011200 
48011300 
48011350 
48011400 
48011450 
48011470 
48011480 
48011500 
48011600 
48011700 
48011800 
48011601 
48012000 
46012500 
48013000 
48014000 
48015000 



IF P2MIX>0 THEN 48015100 

GO TO PPFAKU 48015500 

EXTERNAL*!* 48016000 

IF P1M I X • THEN GO TO NOTHINgTODOIX 48017000 

INITIATE?!* 48018000 

P(NTl«-PRTCPlMIX.8]»STS#0»STF)i 48019000 

IF P2MJX*0 THEN GO TO COMJNIT; 48019500 

IF (FORKQUE I NX 0)*P ( t F0RK8UE ) THEN 48020000 

IF BED,tCFJ*PC.BEO) THEN 48021000 

COMINlTlX 48022000 

IF NOPROCESSTOG < THEN* 48023000 

GOGOGOl BEGIN IF PRT[PlMIX»OJ * WORDOFEASE THEN 48024000 

BEGIN P(64»STS); 48025000 

S SET OMJT * NOTCNEWtOGGING) 48025099 

STARTL0G(P1MIX,0)| 48025100 

S POP OMIT 48025101 

GO TO STACKOVERFUOW; 48025200 

END! 48025300 

PCINDJX 46026000 

IF PRTROWtPlMIXJ,[PSFJ#0 THEN 48027000 

BEGIN IF (NT3*PRTR0W[P1MIX3.[PSFJ)*1 THFN 46028000 

TERMINALMESSAGECPRTR0WCPtMlXjaFF3)» 48029000 

IF NT3*2 THEN STOPM ELSE SWAPCFORCESWAPi 1 ) 1 48030000 

GO TO RETURN; 48031000 

END; 48031100 

48031200 

IF OLAYCTRtPlMlX] GEQ THEN XR3848031290 

IF ElAPSEDUIMITtPlMIX] GTR I OT IME IP1M I X ] THEN IR5948031300 

IF IOTlMErPlMIX]>0 THEN 48031310 

BEGIN 48031320 

TERMINATE(P1M1X&631CTFJ); GO GOGOGO 48031330 

END ELSE 48031340 

BEGIN 48031350 

NT3*PR0CTIMELP1MIXJ; 48031360 

$ SET OMIT * NOT(NEWLOGGING) 48031369 

IF NOT L0GST0PPED[P1MIX3 THEN 48031370 

S POP OMIT 48031371 

NT3*NT3+CL0CK+P<RTR); 48031380 

IF NT3<PR0CLIMITtPlMjXJ THEN 48031400 

IF NT3>0 THEN 48031600 

BEGIN TERMINATE(P1MIX&15[CTF]); 48031700 

GO GOGOGO; 46031800 

END ELSF 48031900 

BEGIN SEC0NDCTR*0J 48032000 

t SET OMIT * NOT(NEWLOGGING) 48032979 

STARTLOGCPIMIX.OJ! 4803298§ 

S POP OMJT 48032981 

IF P2MIX#0 THEN 48033000 

PCNT1»IP1); 48034000 

P(NT1»IP2); 48035000 

P2MIX ♦ P1MIXI* 48037000 

L0GLINE2 * LOGLINEI 48037100 

GO TO NOTHINGTODOI 48038000 

END; 48038100 

END; 48036110 
IF P(0*RDS) GTR FENCE THEN XR3848038 150 

FOR NT2*SC[P1MIX3 STEP 1 UNTIL LCCP1MIX3 DO 48038200 
IF ACTIVEENT2J GTR 1 OR OLAYCTR t P1MI X j XR364803830Q 
LSS THEN XR3848038310 

BEGIN SWAPCTIMENDi 1); GO TO RETURN END; 48038400 



PR0CLIMlT[PlMlX]»s*P(DUP)+20e; 
ELAPSEDLIM1T[P1MIX]»**PCDUP)+416J *DS 
0UAYCTR£P1M!X]|»ABS(*P(DUP))128CCTF]I % APPROX 
SLN[PlMlX]|*SLNtPlMJXj*C5LN[PlMIXJ NEC 7)1 
NLStPlMjX] »*SLN[P1MIXJ+21 
IK LOGLlNE, [33173*0 THEN 

PC[STATABLE.CLOGLiNEtUOl8J3 3»IOK)J 
GO GOGOGO; 



ENDJ* 
PC INDIX 



SLEEPUN 

NT1 * PR 

GO GOGOG 

N0THIN6T0D0? JP1M 

* SET OMIT * NOT 

PBUS 

S POP OMIT 

PCI 
PC6 
IF 
BEG 

END 

IF 

BEG 

SLATISTARTERI 



OPROCESSTOG]»-Q);* 
T[P1M1X»8JU 

01% 

IX * OjX 

(STATISTICS) 



NI)U 

4# STS)J 

AREASNEEDED 

IN AREASNEE 
FORKtPf.M 

1 

(FORKQUE IN 

IN IF (NT1 
BEGIN PCN 
PCSE 
PCFO 
PRIO 
MtNT 
FORK 
FORG 
IF ( 
BEGI 



THEN 
DED»«FALSE» 
OREAREAS)»0» 



•4t 96* 1 ) f 



end; 

LOGL 
PCCLOCK&N 

GO T 
END! 
IF S 
BEGI 



TACKU 
N TOG 
PC IS 
GO T 



* SET OMIT m 
$ POP OMIT 



END 

PC 

IF 

U IN 

WHI 

BEG 

NOT 



END* 

64»STS 
TOGLE 
KR * 
IE UN 
IN PCI 
CNEWUO 
PCO# 



)l* 

THEN 

FLAGC 

KR, CC 

NNCL 

GGING 

RDS*1 



X 0)#P( .FORKQUE) THEN 

- F0RKGUEt4J)*0 THEN 

TltSTS#0)J 

CON0CTR*Ot S T F ) I NT6 • F0RK8UE ♦ I CF 3 1 

RKQUEIU#F0RKQUEt2J)J 

RTY * F0RKQUEC03,t9l9J»6ai 

2 «• F0RKQUE[0J,[CF33.[FF3 * PC,FORKQUE)i 

QUE»[CF1 * NT2; 

ETAREAC0»NT6); NT4 * PC,BLQB»*)I 

NT1 ♦• P)#0 THEN 

N PCNU.BLOBtNTlt GET SPACE C NT 1 » 12* 3 ) ) ; 

TOGLE ♦ TOGLE OR STACKMASK; 

IF CNT1 * P+l)*l THEN 

BEGIN PCPHIORTY* XCH» MKS# FORKER)? 
GO TO NOTHINGTODOl 

end; 

PCDEL»,BL0B*«'»iNT4t*tNTi»STS); 

INEI*NT4, CFF3&NT4|:l»ill3> 
T4[8«38I10J#MKS»NT4»DIB 0»LOD* BLOB» COC 
NOTHINGTODO; 

SE THEN 

IE * TOGLE AND NOT STACKMASK; 

TACKt STS. FORKQUEI33); 

o slatfstarter; 



GO TO PROCSWIT; COMMENT TEST HP2T0G; 

BED); 

F3#PC f BED) DO 

INKR[FREG1J#STS#DUP»STF)I 

) 

.+.STS); % FOR LOQTURNEDOFF 



XDS48038500 

XR5948Q38600 

90000048038610 

XDS48036640 

XDS48038680 

48038700 

48038800 

46038900 

48039000 

46040000 

46041000 

48042000 

48043000 

48044000 
48045000 
48045899 
48045900 
46045901 
48046000 
48046500 
48046600 
48046700 
48046800 
46046900 
48047000 
48047500 
46048000 
48048500 
46049000 
48049500 
48050000 
48050500 
48051000 
48051500 
48052000 
48052500 
48053000 
48053500 
48054000 
48054500 
46055000 
48055500 
48055600 
48056000 
48056500 
48057000 
48057100 
48057200 
48057300 
46057400 
48057500 
48057600 
48056000 
46059000 
48060000 
48061000 
46062000 
48062099 
48062100 
48062101 



); 



P1MIX * MI XI % MIX * F*3f MASKb-1. TESTERb-2 48063000 

IF CNOTCMASK AND TEST£R))*N0T OH 48064000 

CLOCK+PCRTR)>CLICKS THEN 48064100 

BEGIN 48065000 

P(BAKC03*P(DUP»L0D)&tIN0CCTCJ»l#CDC»BAK»XCH»*)l 48067000 

SECONOCTR * Ot 48069000 

LOCiUNE * LOGLYNEJ 48069100 

PRIORTY ♦ UlN0,[rFJ-64J 48069200 

$ SET OMIT ■ NOTCNEWLOGGING) 48069299 

IF LOGTURNEDOFF THEN 48069300 

* POP OMIT 48069301 

STARTU0G(P1MIX»0)I 48069400 

P(XIT)> 48070000 

END1 480/1000 

P1MIX * 0; 48072000 

LINKR * FLAG(LINQ)J 48073000 

END BED SEARCH? 48074000 

$ SET OMIT * NOTCSTATISTICS) 48079999 

PBUSY*Oj 48081000 

$ POP OMIT 48081001 

DO DO BEGIN PC INI ) J 48082000 

END UNTIL CPCRRR) OR RRRMECH)#READY 48087000 

UNTIL STATUSBITJ 48088000 

TQGLE?»T0GLE AND NOT STATUSMASK; 48089000 

FORKCPC, STATUS ) » 0# -1 # 128* 1 ) J 48090000 

GO TO NOTHINGTODO* 48091000 

P2FAKEJ TOGLE»*TOGLE OR HP2MASKJ 48092000 

$ SET OMIT * NOTCNEWLOGGING) 48092099 

STOPLOG(P2MlXiO)l 48092100 

S POP OMIT 48092101 

PCHP2»1NI)J 48093000 

t SET OMIT ■ NOTCNEWLOGGING) 48093099 

STARTL0GCP1MIX,0)I 48093100 

S POP OMIT 48093101 

PROCSWIT? PC 16) ; 48094000 

P2PR0CESSIIX 48095000 

IF PCP1MIX,P2MIX».P1MIX»*,,P2MIX,STN) / THEN* 48096008 

BEGIN 48097000 

PCPRT[P2MIX#8]» IP2)t 48097010 

ENDI 48097020 

PRI0RTY*PRY0RCP1MIX]| 48097100 

PCL0GLINEtL0GLINE2#,L0GLlNE»«-»,L0GLlNE2»*); 48097200 

T0GLE*T0GLE AND NOT HP2MASK; 48098000 

PIPROCESStJX 48099000 

PCPRT[P1MIX»8)#STS#0«STF)|X 48100000 

GO TO PCONEOHONE)!* 48101000 

GO TO MEMORYPARITY; % 0% XWF 48102000 

PCNOP.NOP); % 2* XWF 48102100 

GO TO NORMALERROR; % 4* 48103000 

SHORTCOMMUNICATESI X 6* 48104000 

PROGRAMRELEASEI % 8 48105000 

CONTINUITYBITJ * 10 48106000 

INTERRUPTCONEOMTWO)* PCN0P)> * 12 48107000 

GO TO INITIATE! % 16 48108000 

MAKEPRESENTCANALYS1S)! % IB 48109000 

RETURN*! PCNT1*PRT[P1MIX#8]»STS»0»STF)» 48110000 

GO TO COMINITI 48111000 

lOBUSYl I 48117000 

$ SET OMIT 9 NOTCNEWLOGGING) 48U7099 

STOPLOGCPlMIXtO)! 48117100 



t POP OMIT 

NTl ♦ UNITCNT2*CHANNtLCOJ3i 
UNIT[NT2J * NTU0[13I5I5J|8 
START10(NT2);X 
GO TO EXTERNALS 
P2BUSY» i 
$ SET OMJT * NOT(NEWUOGGING) 

STOPLOG(PlMIX»0)l 
$ POP OMIT 

SAVEMlX(PiMIXtLOGLINE); 
PRIORTY*PRYOR[P1MIX*P2MIXJ| 
P2MIX * -ifX 
GO TO EXTERNAL!* 
* SET OMIT 9 NQTCSHAREDISK) 
FINDIT t J 
S SET OMIT « NQTCNFWLOGGING) OR OMJT 

STOPLOGCPlMlXtO)) 
S POP OMIT 

IF NOT FINDINGADDRESS THEN 
BEGIN 

FINDINGADDRF.SSIMJ 

FORK ( P {,, F INDFRFE ADORE SS)tlf2« 128* 1)1 
END1 

GO TO EXTERNAL) 
t POP OMIT 
INQUEST* { 
$ SET OMIT ■ NOTCNEWLOGGJNG) 

STOPLOG(PlMIXiO)) 
$ POP OMIT 
t SET OMIT « NQTCSAVERESULTS OR DEBUGGING) 

ST0RAWAY«*UNIT[30J1 
$ POP OMJT 

$ SET OMIT * NOT SEPTICTANK 
DISPOSAL(P#P»0)J 
$ POP OMIT 

INTRGATCTRIMNTRGATCTR + II 

IF (NOT UN!TI30J)«IFF"J«0 AND REMOTE THEN NEXTDCIOJ 
GO TO EXTERNAL!* 
KEYBOAROREQUESTllX 
$ SET OMIT ■■ NOT(NEWLOGGING) 

STOPLOG(PIMIX.O); 
$ POP OMIT 

$ SET OMIT « NOT DEBUGGING 
NOBACKTALK * TRUE** 

IF NOT KEYBOARDREADY THEN GO TO EXTERNAL!* 
S POP OMIT 

IF (KEYBOARDCOUNTFRlsPU INX KEYBOAKDCOUNTER ) ) * 1 THEN 
FORK(P( ,KEY IN) »1,0# 192.0) > 
GO TO EXTERNAL?* 
MEMORYPARITYJ t% 

TERMINATE(P1MIX)|X 
TERMINALMESSAGEC32)!* 
NORMALERRORI tX 

IF P1MIX * THENX 

BEGIN P(G»100#STS)!X 

PUNT(6)| X INVALID ADDRESS 
ENDJX 
IF 0NE0HTW0«1 THEN 
BEGIN P(SINF0[P1MJXJ»$TS)I 
INTABLER0W[P1MIXJ«.0! 



XWF 
XWF 
XWF 



48 
48 
46 
48 
48 
48 
48 
48 
48 
48 
46 
48 
48 
48 
46 
48 
46 
48 
48 
48 
48 
48 
48 
48 
46 
48 
48 
48 
48 
48 
48 
48 
46 
48 
46 
48 
48 
48 
48 
48 
48 
48 
48 
48 
46 
46 
48 
48 
48 
48 
48 
48 
48 
48 
48 
48 
46 
48 
48 
48 



1 17101 

117200 
116000 
119000 
120000 
121000 
121099 
121100 
121101 
121200 
122000 
123000 
125000 
125099 
125100 
125109 
125110 
125111 
125150 
125200 
125250 
125300 
125350 
125400 
125401 
125500 
125509 
125510 
125511 
126000 
126001 
126002 
126009 
126010 
126011 
126100 
126200 
127000 
126000 
128099 
128100 
128101 
128500 
129000 
130000 
130500 
131000 
132000 
133000 
134000 
135000 
136000 
137000 
138000 
139000 
140000 
141000 
141100 
141200 
141210 



/c?yi 





PRTtPlMlX»153*MCPRTCPlMlXf833l 

PRTCPlMlX,8J*-tPRT[PlMlXtl53J* 
PRT[PIMIX»33*FPBDCP1MIXJ| 

PRT[P1MIX»4J*SEGDCP1MIX3I 
END* 
P(ONEOHTWO)J 

IF P(DUP»DUP)«9 OR P(XCH)»U THIN 
FRR0RFIXER(C0NEQHTW0»9)+1)J 
TERMINATE(PIMIX)! 
NTt * P* 

TERMINAUHESSAGECNTIJI 
DIFFC0MIINT4*PJ 

P(0#STF»PRTtPlMlX»83»STStMKS#NT4#DIB 0#LODf XCH» COC ) I 

go to initiate; 

END,* 



48141300 

48141400 
48141500 
48141600 
4814H00 
48142000 
48142100 
48142200 
48142500 
48143000 
48143500 
48144000 
48145000 
48146000 
48161000 



UBEL 000000000PRINTER00175122CC EX OBJECT/READJ FILE S0URCEFILE*5YMB0L./TSSMCP J END* 



OBJECT /READ 



* 



